From 63e9b146e76ff6b4745ba002034e7b069708edb5 Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 9 May 2007 10:18:11 +0000 Subject: [PATCH] copyright & licence added --- opac/opac-rss.pl | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/opac/opac-rss.pl b/opac/opac-rss.pl index 9f6bffc44c..62467da233 100755 --- a/opac/opac-rss.pl +++ b/opac/opac-rss.pl @@ -11,6 +11,23 @@ use C4::Search; use C4::Koha; use C4::Biblio; +# Copyright 2007 Paul POULAIN +# +# This file is part of Koha +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + =head1 NAME opac-search.pl : script to have RSS feeds automatically on each OPAC search @@ -72,7 +89,7 @@ if (-e "rss/$filename") { my $rdf_stamp = $rss->{'channel'}->{'dc'}->{'date'}; $rdf_stamp =~ /(.*)-(.*)-(.*):(.*):(.*):(.*)/; my ($stamp_year,$stamp_month,$stamp_day,$stamp_hour,$stamp_min,$stamp_sec) = ($1,$2,$3,$4,$5,$6); - # if less than 30 mn since the last RDF update, rebuild the RDF. Otherwise, just return it + # if more than 30 mn since the last RDF update, rebuild the RDF. Otherwise, just return it unless (($year-$stamp_year >0) or ($month-$stamp_month >0) or ($day-$stamp_day >0) or ($hour-$stamp_hour >0) or ($min-$stamp_min >30)) { $RDF_update_needed =0; } @@ -125,4 +142,4 @@ if ($RDF_update_needed) { # warn "RDF CACHE used" } print $cgi->header(-type => "application/rss+xml"); -print $rss->as_string; \ No newline at end of file +print $rss->as_string; -- 2.39.5