[Koha-cvs] koha/opac opac-alert-subscribe.pl opac-detail.p...
Antoine Farnault
antoine at koha-fr.org
Fri Jul 7 11:00:12 CEST 2006
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 = \@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 @@
#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;
}
More information about the Koha-cvs
mailing list