Sub renamed & GPL Licence added.

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index 986f598..b23b039 100755 (executable)
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -17,6 +17,8 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+# $Id$
+
 =head1 NAME
 
 MARCdetail.pl : script to show a biblio in MARC format
@@ -56,7 +58,7 @@ use C4::Search;
 use MARC::Record;
 use C4::Biblio;
 use C4::Acquisition;
-use C4::Bull; #uses getsubscriptionfrom biblionumber
+use C4::Serials; #uses getsubscriptionfrom biblionumber
 use HTML::Template;
 
 my $query=new CGI;
@@ -74,16 +76,16 @@ my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
 my $record =MARCgetbiblio($dbh,$bibid);
 
 #coping with subscriptions
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 my $dat = MARCmarc2koha($dbh,$record);
-my @subscriptions = getsubscriptions($dat->{title},$dat->{issn},$biblionumber);
+my @subscriptions = GetSubscriptions($dat->{title},$dat->{issn},$biblionumber);
 my @subs;
 foreach my $subscription (@subscriptions){
        my %cell;
        $cell{subscriptionid}= $subscription->{subscriptionid};
        $cell{subscriptionnotes}= $subscription->{notes};
        #get the three latest serials.
-       $cell{latestserials}=getlatestserials($subscription->{subscriptionid},3);
+       $cell{latestserials}=GetLatestSerials($subscription->{subscriptionid},3);
        push @subs, \%cell;
 }
 

diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl
index f376130..ae8037f 100755 (executable)
--- a/opac/opac-alert-subscribe.pl
+++ b/opac/opac-alert-subscribe.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;
@@ -9,7 +28,7 @@ use C4::Interface::CGI::Output;
 use C4::Context;
 use C4::Koha;
 use C4::Letters;
-use C4::Bull;
+use C4::Serials;
 # use C4::Search;
 use HTML::Template;
 
@@ -49,7 +68,7 @@ if ($op eq 'alert_confirmed') {
 
 } else {
        if ($alerttype eq 'issue') { # alert for subscription issues
-               my $subscription = &getsubscription($externalid);
+               my $subscription = &GetSubscription($externalid);
                $template->param("typeissue$op" => 1,
                                                bibliotitle => $subscription->{bibliotitle},
                                                notes => $subscription->{notes},

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 1b1ac04..84f329e 100755 (executable)
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -1,9 +1,29 @@
 #!/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;
 require Exporter;
 use CGI;
 use C4::Auth;
-use C4::Bull;    #uses getsubscriptionfrom biblionumber
+use C4::Serials;    #uses getsubscriptionfrom biblionumber
 use C4::Interface::CGI::Output;
 use HTML::Template;
 use C4::Biblio;
@@ -31,12 +51,12 @@ my $dat = &bibdata($biblionumber);
 my ( $authorcount,        $addauthor )      = &getaddauthor($biblionumber);
 my ( $webbiblioitemcount, @webbiblioitems ) = &getwebbiblioitems($biblionumber);
 my ( $websitecount,       @websites )       = &getwebsites($biblionumber);
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 
 #coping with subscriptions
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 my @subscriptions       =
-  getsubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
+  GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
 my @subs;
 foreach my $subscription (@subscriptions) {
     my %cell;
@@ -45,7 +65,7 @@ foreach my $subscription (@subscriptions) {
 
     #get the three latest serials.
     $cell{latestserials} =
-      getlatestserials( $subscription->{subscriptionid}, 3 );
+      GetLatestSerials( $subscription->{subscriptionid}, 3 );
     push @subs, \%cell;
 }
 
@@ -124,9 +144,9 @@ my $titlewords   = \@title;
 my $authorwords  = \@author;
 
 #coping with subscriptions
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 my @subscriptions       =
-  getsubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
+  GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
 my @subs;
 foreach my $subscription (@subscriptions) {
     warn "subsid :" . $subscription->{subscriptionid};
@@ -136,7 +156,7 @@ foreach my $subscription (@subscriptions) {
 
     #get the three latest serials.
     $cell{latestserials} =
-      getlatestserials( $subscription->{subscriptionid}, 3 );
+      GetLatestSerials( $subscription->{subscriptionid}, 3 );
     push @subs, \%cell;
 }
 

diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl
index e94a25b..e44b207 100755 (executable)
--- a/opac/opac-serial-issues.pl
+++ b/opac/opac-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::Letters;
 use C4::Output;
 use C4::Interface::CGI::Output;
@@ -23,7 +42,7 @@ 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 $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber);
        
        my $title = $subscriptions->[0]{bibliotitle};
        my $yearmin=$subscriptions->[0]{year};
@@ -51,7 +70,7 @@ if ($selectview eq "full"){
                );
 
 } else {
-       my $subscriptions = get_subscription_list_from_biblionumber($biblionumber);
+       my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber);
        
        ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "opac-serial-issues.tmpl",

diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl
index 8883e29..02687aa 100755 (executable)
--- a/opac/opac-suggestions.pl
+++ b/opac/opac-suggestions.pl
@@ -47,8 +47,8 @@ if (!$borrowernumber) {
 }
 
 if ($op eq "add_confirm") {
-       &newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
-       # empty fields, to avoid filter in "searchsuggestion"
+       &NewSuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
+       # empty fields, to avoid filter in "SearchSuggestion"
        $title='';
        $author='';
        $publishercode='';
@@ -63,12 +63,12 @@ if ($op eq "add_confirm") {
 if ($op eq "delete_confirm") {
        my @delete_field = $input->param("delete_field");
        foreach my $delete_field (@delete_field) {
-               &delsuggestion($borrowernumber,$delete_field);
+               &DelSuggestion($borrowernumber,$delete_field);
        }
        $op='else';
 }
 
-my $suggestions_loop= &searchsuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
+my $suggestions_loop= &SearchSuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
 $template->param(suggestions_loop => $suggestions_loop,
                                title => $title,
                                author => $author,

diff --git a/suggestion/acceptorreject.pl b/suggestion/acceptorreject.pl
index 528340e..9f1721e 100755 (executable)
--- a/suggestion/acceptorreject.pl
+++ b/suggestion/acceptorreject.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;
 require Exporter;
 use CGI;
 use HTML::Template;
-
 use C4::Auth;       # get_template_and_user
 use C4::Interface::CGI::Output;
 use C4::Suggestions;
@@ -38,7 +57,7 @@ if ($op eq "aorr_confirm") {
                        my ($newstatus,$suggestionid) = ($1,$2);
                        $newstatus="REJECTED" if $newstatus eq "R";
                        $newstatus="ACCEPTED" if $newstatus eq "A";
-                       changestatus($suggestionid,$newstatus,$loggedinuser);
+                       ModStatus($suggestionid,$newstatus,$loggedinuser);
                }
        }
        $op="else";
@@ -47,12 +66,12 @@ if ($op eq "aorr_confirm") {
 if ($op eq "delete_confirm") {
        my @delete_field = $input->param("delete_field");
        foreach my $delete_field (@delete_field) {
-               &delsuggestion($loggedinuser,$delete_field);
+               &DelSuggestion($loggedinuser,$delete_field);
        }
        $op='else';
 }
 
-my $suggestions_loop= &searchsuggestion("","","","",'ASKED',"");
+my $suggestions_loop= &SearchSuggestion("","","","",'ASKED',"");
 $template->param(suggestions_loop => $suggestions_loop,
                "op_$op" => 1,
                intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),