[Koha-cvs] koha C4/Biblio.pm circ/branchreserves.pl reserv... [rel_3_0]
LAURIN arnaud
alaurin at ouestprovence.fr
Thu Aug 31 15:28:53 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: LAURIN arnaud <alaurin> 06/08/31 13:28:52
Modified files:
C4 : Biblio.pm
circ : branchreserves.pl
reserve : request.pl
Log message:
changing the name of variables, according to the recommendation of developement .
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.3&r2=1.178.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.2&r2=1.2.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/request.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.6.2.1&r2=1.6.2.2
Patches:
Index: C4/Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.3
retrieving revision 1.178.2.4
diff -u -b -r1.178.2.3 -r1.178.2.4
--- C4/Biblio.pm 31 Aug 2006 09:59:23 -0000 1.178.2.3
+++ C4/Biblio.pm 31 Aug 2006 13:28:52 -0000 1.178.2.4
@@ -81,8 +81,8 @@
&char_decode
&DisplayISBN
&itemcalculator &calculatelc
-&get_iteminfos_of
-&get_biblioiteminfos_of
+&GetItemInfosOf
+&GetBiblioItemInfosOf
);
#
@@ -3129,7 +3129,7 @@
}
-sub get_iteminfos_of {
+sub GetItemInfosOf {
my @itemnumbers = @_;
my $query = '
@@ -3140,7 +3140,7 @@
return get_infos_of($query, 'itemnumber');
}
-sub get_biblioiteminfos_of {
+sub GetBiblioItemInfosOf {
my @biblioitemnumbers = @_;
my $query = '
@@ -3167,8 +3167,11 @@
=cut
-# $Id: Biblio.pm,v 1.178.2.3 2006/08/31 09:59:23 alaurin Exp $
+# $Id: Biblio.pm,v 1.178.2.4 2006/08/31 13:28:52 alaurin Exp $
# $Log: Biblio.pm,v $
+# Revision 1.178.2.4 2006/08/31 13:28:52 alaurin
+# changing the name of variables, according to the recommendation of developement .
+#
# Revision 1.178.2.3 2006/08/31 09:59:23 alaurin
# bugfixing for the branchreserves.pl program
#
@@ -3176,7 +3179,7 @@
#
# - get_item_infos_of
# - get_infos_of
-# - get_biblioiteminfos_of
+# - GetBiblioItemInfosOf
#
# and remove the %env variable . in branchreserves.pl
#
Index: circ/branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -b -r1.2.2.2 -r1.2.2.3
--- circ/branchreserves.pl 31 Aug 2006 09:59:23 -0000 1.2.2.2
+++ circ/branchreserves.pl 31 Aug 2006 13:28:52 -0000 1.2.2.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: branchreserves.pl,v 1.2.2.2 2006/08/31 09:59:23 alaurin Exp $
+# $Id: branchreserves.pl,v 1.2.2.3 2006/08/31 13:28:52 alaurin Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -98,7 +98,6 @@
}
my @reservloop;
-warn "retour default ->".$default;
my @getreserves = GetReservesForBranch($default);
foreach my $num (@getreserves) {
my %getreserv;
Index: reserve/request.pl
===================================================================
RCS file: /sources/koha/koha/reserve/request.pl,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -u -b -r1.6.2.1 -r1.6.2.2
--- reserve/request.pl 30 Aug 2006 16:38:51 -0000 1.6.2.1
+++ reserve/request.pl 31 Aug 2006 13:28:52 -0000 1.6.2.2
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: request.pl,v 1.6.2.1 2006/08/30 16:38:51 toins Exp $
+# $Id: request.pl,v 1.6.2.2 2006/08/31 13:28:52 alaurin Exp $
#script to place reserves/requests
#writen 2/1/00 by chris at katipo.oc.nz
@@ -196,7 +196,7 @@
my @branchcodes;
my %itemnumbers_of_biblioitem;
my @itemnumbers = @{get_itemnumbers_of($bib)->{$bib}};
-my $iteminfos_of = get_iteminfos_of(@itemnumbers);
+my $iteminfos_of = GetItemInfosOf(@itemnumbers);
foreach my $itemnumber (@itemnumbers) {
push(
@@ -218,7 +218,7 @@
my $branchinfos_of = get_branchinfos_of(@branchcodes);
my $notforloan_label_of = get_notforloan_label_of();
-my $biblioiteminfos_of = get_biblioiteminfos_of(@biblioitemnumbers);
+my $biblioiteminfos_of = GetBiblioItemInfosOf(@biblioitemnumbers);
my @itemtypes;
foreach my $biblioitemnumber (@biblioitemnumbers) {
More information about the Koha-cvs
mailing list