[Koha-cvs] koha/opac opac-alert-subscribe.pl opac-detail.p...

[Antoine Farnault]

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

Modified files:
        opac           : opac-alert-subscribe.pl opac-detail.pl 
                         opac-ISBDdetail.pl 

Log message:
        Sub renamed & GPL Licence added.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-alert-subscribe.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-detail.pl?cvsroot=koha&r1=1.29&r2=1.30
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-ISBDdetail.pl?cvsroot=koha&r1=1.13&r2=1.14

Patches:
Index: opac-alert-subscribe.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-alert-subscribe.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- opac-alert-subscribe.pl     4 Aug 2005 08:55:54 -0000       1.1
+++ opac-alert-subscribe.pl     7 Jul 2006 09:00:12 -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: opac-alert-subscribe.pl,v 1.2 2006/07/07 09:00:12 toins Exp $
+
 use strict;
 use CGI;
 use C4::Auth;
@@ -9,7 +28,7 @@
 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 @@
 
 } 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},

Index: opac-detail.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- opac-detail.pl      17 Jun 2006 03:43:57 -0000      1.29
+++ opac-detail.pl      7 Jul 2006 09:00:12 -0000       1.30
@@ -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: opac-detail.pl,v 1.30 2006/07/07 09:00:12 toins Exp $
+
 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 ( $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 @@
 
     #get the three latest serials.
     $cell{latestserials} =
-      getlatestserials( $subscription->{subscriptionid}, 3 );
+      GetLatestSerials( $subscription->{subscriptionid}, 3 );
     push @subs, \%cell;
 }
 
@@ -124,9 +144,9 @@
 my $authorwords  = address@hidden;
 
 #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 @@
 
     #get the three latest serials.
     $cell{latestserials} =
-      getlatestserials( $subscription->{subscriptionid}, 3 );
+      GetLatestSerials( $subscription->{subscriptionid}, 3 );
     push @subs, \%cell;
 }
 

Index: opac-ISBDdetail.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-ISBDdetail.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- opac-ISBDdetail.pl  21 May 2006 01:54:13 -0000      1.13
+++ opac-ISBDdetail.pl  7 Jul 2006 09:00:12 -0000       1.14
@@ -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: opac-ISBDdetail.pl,v 1.14 2006/07/07 09:00:12 toins Exp $
+
 =head1 NAME
 
 MARCdetail.pl : script to show a biblio in MARC format
@@ -56,7 +58,7 @@
 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 $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;
 }