[Koha-cvs] koha/serials acqui-search.pl acqui-search-resul...

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/07 09:05:23

Modified files:
        serials        : acqui-search.pl acqui-search-result.pl 
                         lateissues.pl serial-issues.pl serials-home.pl 
                         subscription-add.pl subscription-detail.pl 

Log message:
        Sub renamed and/or GPL Licence added according to the coding guideline.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search-result.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/lateissues.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serial-issues.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serials-home.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-add.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-detail.pl?cvsroot=koha&r1=1.1&r2=1.2

Patches:
Index: acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- acqui-search.pl     19 Jan 2006 12:46:58 -0000      1.1
+++ acqui-search.pl     7 Jul 2006 09:05:23 -0000       1.2
@@ -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: acqui-search.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 use strict;
 use CGI;
 use C4::Auth;
@@ -18,7 +37,7 @@
                             debug => 1,
                             });
 
-#FIXME : Is this page still used ????
+# FIXME : Is this page still used ????
 # looks like no.
 
 # budget

Index: acqui-search-result.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search-result.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- acqui-search-result.pl      19 Jan 2006 12:46:58 -0000      1.1
+++ acqui-search-result.pl      7 Jul 2006 09:05:23 -0000       1.2
@@ -1,11 +1,8 @@
 #!/usr/bin/perl
 
-# $Id: acqui-search-result.pl,v 1.1 2006/01/19 12:46:58 tipaul Exp $
-
 #script to show suppliers and orders
 #written by address@hidden 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: acqui-search-result.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 use strict;
 use C4::Auth;
 use C4::Biblio;

Index: lateissues.pl
===================================================================
RCS file: /sources/koha/koha/serials/lateissues.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- lateissues.pl       19 Jan 2006 12:46:58 -0000      1.1
+++ lateissues.pl       7 Jul 2006 09:05:23 -0000       1.2
@@ -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: lateissues.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 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 @@
 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){

Index: serial-issues.pl
===================================================================
RCS file: /sources/koha/koha/serials/serial-issues.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- serial-issues.pl    19 Jan 2006 12:46:58 -0000      1.1
+++ serial-issues.pl    7 Jul 2006 09:05:23 -0000       1.2
@@ -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: serial-issues.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 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,7 +41,7 @@
 my ($template, $loggedinuser, $cookie);
 my $biblionumber = $query->param('biblionumber');
 if ($selectview eq "full"){
-       my $subscriptions = 
get_full_subscription_list_from_biblionumber($biblionumber);
+ my $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber);
        
        my $title = $subscriptions->[0]{bibliotitle};
        my $yearmin=$subscriptions->[0]{year};
@@ -50,7 +69,7 @@
                );
 
 } else {
-       my $subscriptions = 
get_subscription_list_from_biblionumber($biblionumber);
+ my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber);
        
        ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "serials/serial-issues.tmpl",

Index: serials-home.pl
===================================================================
RCS file: /sources/koha/koha/serials/serials-home.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- serials-home.pl     19 Jan 2006 12:46:58 -0000      1.1
+++ serials-home.pl     7 Jul 2006 09:05:23 -0000       1.2
@@ -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: serials-home.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 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 $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,

Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-add.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- subscription-add.pl 19 Jan 2006 12:46:58 -0000      1.1
+++ subscription-add.pl 7 Jul 2006 09:05:23 -0000       1.2
@@ -7,12 +7,11 @@
 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 @@
 
 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 @@
        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,

Index: subscription-detail.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-detail.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- subscription-detail.pl      19 Jan 2006 12:46:58 -0000      1.1
+++ subscription-detail.pl      7 Jul 2006 09:05:23 -0000       1.2
@@ -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: subscription-detail.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
 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 @@
        $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 'del') {
-       &delsubscription($subscriptionid);
+       &DelSubscription($subscriptionid);
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=../bull-home.pl\"></html>";
        exit;
 
 }
-$subs = &getsubscription($subscriptionid);
+$subs = &GetSubscription($subscriptionid);
 # html'ize distributedto
 $subs->{distributedto}=~ s/\n/<br \/>/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)