From 2a7f9b3cdb31de41c190742a84894c036d1bb8f8 Mon Sep 17 00:00:00 2001 From: toins Date: Fri, 7 Jul 2006 09:05:23 +0000 Subject: [PATCH] Sub renamed and/or GPL Licence added according to the coding guideline. --- serials/acqui-search-result.pl | 5 +- serials/acqui-search.pl | 21 ++++++- serials/lateissues.pl | 25 +++++++- serials/serial-issues.pl | 109 +++++++++++++++++++-------------- serials/serials-home.pl | 23 ++++++- serials/subscription-add.pl | 7 +-- serials/subscription-detail.pl | 29 +++++++-- 7 files changed, 156 insertions(+), 63 deletions(-) diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl index 5206c47268..7d81526740 100755 --- a/serials/acqui-search-result.pl +++ b/serials/acqui-search-result.pl @@ -1,11 +1,8 @@ #!/usr/bin/perl -# $Id$ - #script to show suppliers and orders #written by chris@katipo.co.nz 23/2/2000 - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -23,6 +20,8 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA +# $Id$ + use strict; use C4::Auth; use C4::Biblio; diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl index 7aa636f2b5..2f06abc37f 100755 --- a/serials/acqui-search.pl +++ b/serials/acqui-search.pl @@ -1,5 +1,24 @@ #!/usr/bin/perl +# Copyright 2000-2002 Katipo Communications +# +# 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 + +# $Id$ + use strict; use CGI; use C4::Auth; @@ -18,7 +37,7 @@ my ($template, $loggedinuser, $cookie) debug => 1, }); -#FIXME : Is this page still used ???? +# FIXME : Is this page still used ???? # looks like no. # budget diff --git a/serials/lateissues.pl b/serials/lateissues.pl index 6a79a3c290..5433b64cf5 100755 --- a/serials/lateissues.pl +++ b/serials/lateissues.pl @@ -1,9 +1,28 @@ #!/usr/bin/perl +# Copyright 2000-2002 Katipo Communications +# +# 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 + +# $Id$ + use strict; use CGI; use C4::Auth; -use C4::Bull; +use C4::Serials; use C4::Acquisition; use C4::Output; use C4::Interface::CGI::Output; @@ -13,10 +32,10 @@ use HTML::Template; my $query = new CGI; # my $title = $query->param('title'); # my $ISSN = $query->param('ISSN'); -# my @subscriptions = getsubscriptions($title,$ISSN); +# my @subscriptions = GetSubscriptions($title,$ISSN); my $supplierid = $query->param('supplierid'); -my %supplierlist = getSupplierListWithLateIssues; +my %supplierlist = GetSupplierListWithLateIssues; my @select_supplier; push @select_supplier,""; foreach my $supplierid (keys %supplierlist){ diff --git a/serials/serial-issues.pl b/serials/serial-issues.pl index f829b134f4..23b7d0a88b 100755 --- a/serials/serial-issues.pl +++ b/serials/serial-issues.pl @@ -1,11 +1,30 @@ #!/usr/bin/perl +# Copyright 2000-2002 Katipo Communications +# +# 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 + +# $Id$ + use strict; use CGI; use C4::Auth; use C4::Koha; use C4::Date; -use C4::Bull; +use C4::Serials; use C4::Output; use C4::Interface::CGI::Output; use C4::Context; @@ -22,52 +41,52 @@ my $sth; my ($template, $loggedinuser, $cookie); my $biblionumber = $query->param('biblionumber'); if ($selectview eq "full"){ - my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber); - - my $title = $subscriptions->[0]{bibliotitle}; - my $yearmin=$subscriptions->[0]{year}; - my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year}; + my $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber); + + my $title = $subscriptions->[0]{bibliotitle}; + my $yearmin=$subscriptions->[0]{year}; + my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year}; - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "serials/serial-issues-full.tmpl", - query => $query, - type => "intranet", - authnotrequired => 1, - debug => 1, - }); - - # replace CR by
in librarian note - # $subscription->{opacnote} =~ s/\n/\/g; - - $template->param( - biblionumber => $query->param('biblionumber'), - years => $subscriptions, - yearmin => $yearmin, - yearmax =>$yearmax, - bibliotitle => $title, - suggestion => C4::Context->preference("suggestion"), - virtualshelves => C4::Context->preference("virtualshelves"), - ); + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "serials/serial-issues-full.tmpl", + query => $query, + type => "intranet", + authnotrequired => 1, + debug => 1, + }); + + # replace CR by
in librarian note + # $subscription->{opacnote} =~ s/\n/\/g; + + $template->param( + biblionumber => $query->param('biblionumber'), + years => $subscriptions, + yearmin => $yearmin, + yearmax =>$yearmax, + bibliotitle => $title, + suggestion => C4::Context->preference("suggestion"), + virtualshelves => C4::Context->preference("virtualshelves"), + ); } else { - my $subscriptions = get_subscription_list_from_biblionumber($biblionumber); - - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "serials/serial-issues.tmpl", - query => $query, - type => "intranet", - authnotrequired => 1, - debug => 1, - }); - - # replace CR by
in librarian note - # $subscription->{opacnote} =~ s/\n/\/g; - - $template->param( - biblionumber => $query->param('biblionumber'), - subscription_LOOP => $subscriptions, - suggestion => C4::Context->preference("suggestion"), - virtualshelves => C4::Context->preference("virtualshelves"), - ); + my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber); + + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "serials/serial-issues.tmpl", + query => $query, + type => "intranet", + authnotrequired => 1, + debug => 1, + }); + + # replace CR by
in librarian note + # $subscription->{opacnote} =~ s/\n/\/g; + + $template->param( + biblionumber => $query->param('biblionumber'), + subscription_LOOP => $subscriptions, + suggestion => C4::Context->preference("suggestion"), + virtualshelves => C4::Context->preference("virtualshelves"), + ); } output_html_with_http_headers $query, $cookie, $template->output; diff --git a/serials/serials-home.pl b/serials/serials-home.pl index 8782c16221..b440faf0db 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -1,9 +1,28 @@ #!/usr/bin/perl +# Copyright 2000-2002 Katipo Communications +# +# 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 + +# $Id$ + use strict; use CGI; use C4::Auth; -use C4::Bull; +use C4::Serials; use C4::Output; use C4::Interface::CGI::Output; use C4::Context; @@ -13,7 +32,7 @@ my $query = new CGI; my $title = $query->param('title'); my $ISSN = $query->param('ISSN'); my $biblionumber = $query->param('biblionumber'); -my @subscriptions = getsubscriptions($title,$ISSN,$biblionumber); +my @subscriptions = GetSubscriptions($title,$ISSN,$biblionumber); my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "serials/serials-home.tmpl", query => $query, diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl index e8ea5612f5..efc2e6b930 100755 --- a/serials/subscription-add.pl +++ b/serials/subscription-add.pl @@ -7,12 +7,11 @@ use C4::Koha; use C4::Auth; use C4::Date; use C4::Output; -use C4::Bull; +use C4::Serials; use C4::Acquisition; use C4::Interface::CGI::Output; use C4::Context; use HTML::Template; -use C4::Bull; use C4::Letters; my $query = new CGI; @@ -46,7 +45,7 @@ my ($flags, $homebranch)=$sthtemp->fetchrow; if ($op eq 'mod') { my $subscriptionid = $query->param('subscriptionid'); - my $subs = &getsubscription($subscriptionid); + my $subs = &GetSubscription($subscriptionid); $auser = $subs->{'user'}; $librarian = $subs->{'librarian'}; $cost = $subs->{'cost'}; @@ -180,7 +179,7 @@ if ($op eq 'addsubscription') { my $biblionumber = $query->param('biblionumber'); my $notes = $query->param('notes'); my $letter = $query->param('letter'); - my $subscriptionid = newsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, + my $subscriptionid = NewSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, $startdate,$periodicity,$dow,$numberlength,$weeklength,$monthlength, $add1,$every1,$whenmorethan1,$setto1,$lastvalue1, $add2,$every2,$whenmorethan2,$setto2,$lastvalue2, diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl index 4c44c889fb..1d4a909113 100755 --- a/serials/subscription-detail.pl +++ b/serials/subscription-detail.pl @@ -1,11 +1,30 @@ #!/usr/bin/perl +# Copyright 2000-2002 Katipo Communications +# +# 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 + +# $Id$ + use strict; use CGI; use C4::Auth; use C4::Koha; use C4::Date; -use C4::Bull; +use C4::Serials; use C4::Output; use C4::Interface::CGI::Output; use C4::Context; @@ -62,7 +81,7 @@ if ($op eq 'modsubscription') { $notes = $query->param('notes'); $letter = $query->param('letter'); - &modsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate, + &ModSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate, $periodicity,$dow,$numberlength,$weeklength,$monthlength, $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, @@ -71,15 +90,15 @@ if ($op eq 'modsubscription') { } if ($op eq 'del') { - &delsubscription($subscriptionid); + &DelSubscription($subscriptionid); print "Content-Type: text/html\n\n"; exit; } -$subs = &getsubscription($subscriptionid); +$subs = &GetSubscription($subscriptionid); # html'ize distributedto $subs->{distributedto}=~ s/\n/
/g; -my ($totalissues,@serialslist) = getserials($subscriptionid); +my ($totalissues,@serialslist) = GetSerials($subscriptionid); $totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) ($template, $loggedinuser, $cookie) -- 2.20.1