[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha C4/Accounts.pm C4/Biblio.pm C4/Circulation...
|
From: |
paul poulain |
|
Subject: |
[Koha-cvs] koha C4/Accounts.pm C4/Biblio.pm C4/Circulation... |
|
Date: |
Wed, 18 Apr 2007 17:00:17 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/04/18 17:00:15
Modified files:
C4 : Accounts.pm Biblio.pm Circulation.pm Date.pm
Input.pm Koha.pm Members.pm Overdues.pm
Print.pm Reserves2.pm Stats.pm
C4/Circulation : Fines.pm
admin : auth_subfields_structure.pl
auth_tag_structure.pl authorised_values.pl
authtypes.pl biblio_framework.pl branches.pl
categorie.pl categoryitem.pl cities.pl
currency.pl itemtypecategory.pl itemtypes.pl
itemtypesubcategory.pl koha2marclinks.pl
letter.pl marc_subfields_structure.pl
marctagstructure.pl mediatype.pl printers.pl
roadtype.pl systempreferences.pl thesaurus.pl
z3950servers.pl
catalogue : dictionary.pl moredetail.pl
cataloguing : thesaurus_popup.pl
cataloguing/value_builder: labs_theses.pl marc21_field_006.pl
marc21_field_007.pl
marc21_field_008.pl
marc21_field_008_authorities.pl
marc21_leader.pl
marc21_leader_authorities.pl
marc21_leader_book.pl
marc21_leader_computerfile.pl
marc21_leader_video.pl
unimarc_field_100.pl
unimarc_field_105.pl
unimarc_field_106.pl
unimarc_field_110.pl
unimarc_field_115a.pl
unimarc_field_115b.pl
unimarc_field_116.pl
unimarc_field_117.pl
unimarc_field_120.pl
unimarc_field_121a.pl
unimarc_field_121b.pl
unimarc_field_122.pl
unimarc_field_123a.pl
unimarc_field_123d.pl
unimarc_field_123e.pl
unimarc_field_123f.pl
unimarc_field_123g.pl
unimarc_field_123i.pl
unimarc_field_123j.pl
unimarc_field_124.pl
unimarc_field_124a.pl
unimarc_field_124b.pl
unimarc_field_124c.pl
unimarc_field_124d.pl
unimarc_field_124e.pl
unimarc_field_124f.pl
unimarc_field_124g.pl
unimarc_field_125.pl
unimarc_field_125a.pl
unimarc_field_125b.pl
unimarc_field_126.pl
unimarc_field_126a.pl
unimarc_field_126b.pl
unimarc_field_127.pl
unimarc_field_128a.pl
unimarc_field_128b.pl
unimarc_field_128c.pl
unimarc_field_130.pl
unimarc_field_135a.pl
unimarc_field_140.pl
unimarc_field_141.pl
unimarc_field_225a.pl
unimarc_field_4XX.pl
unimarc_field_60X.pl
unimarc_field_700-4.pl
unimarc_field_700_701_702.pl
unimarc_leader.pl
circ : branchreserves.pl circulation.pl
currenttransfers.pl returns.pl
selectbranchprinter.pl
waitingreservestransfers.pl
members : deletemem.pl guarantor_search.pl
member-flags.pl member-password.pl member.pl
moremember.pl pay.pl
misc : fines2.pl
misc/notifys : fines.pl
opac : opac-dictionary.pl opac-renew.pl opac-user.pl
reserve : placerequest.pl renewscript.pl request.pl
serials : routing-preview.pl
tools : letter.pl
Log message:
removing all useless %env / $env
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Accounts.pm?cvsroot=koha&r1=1.19&r2=1.20
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.196&r2=1.197
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation.pm?cvsroot=koha&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Date.pm?cvsroot=koha&r1=1.29&r2=1.30
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Input.pm?cvsroot=koha&r1=1.22&r2=1.23
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&r1=1.51&r2=1.52
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Overdues.pm?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Print.pm?cvsroot=koha&r1=1.20&r2=1.21
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Reserves2.pm?cvsroot=koha&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Stats.pm?cvsroot=koha&r1=1.30&r2=1.31
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Fines.pm?cvsroot=koha&r1=1.26&r2=1.27
http://cvs.savannah.gnu.org/viewcvs/koha/admin/auth_subfields_structure.pl?cvsroot=koha&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/koha/admin/auth_tag_structure.pl?cvsroot=koha&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/koha/admin/authorised_values.pl?cvsroot=koha&r1=1.19&r2=1.20
http://cvs.savannah.gnu.org/viewcvs/koha/admin/authtypes.pl?cvsroot=koha&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/koha/admin/biblio_framework.pl?cvsroot=koha&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/koha/admin/branches.pl?cvsroot=koha&r1=1.38&r2=1.39
http://cvs.savannah.gnu.org/viewcvs/koha/admin/categorie.pl?cvsroot=koha&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/koha/admin/categoryitem.pl?cvsroot=koha&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/koha/admin/cities.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/admin/currency.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/admin/itemtypecategory.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/admin/itemtypes.pl?cvsroot=koha&r1=1.26&r2=1.27
http://cvs.savannah.gnu.org/viewcvs/koha/admin/itemtypesubcategory.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/admin/koha2marclinks.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/admin/letter.pl?cvsroot=koha&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/koha/admin/marc_subfields_structure.pl?cvsroot=koha&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/koha/admin/marctagstructure.pl?cvsroot=koha&r1=1.34&r2=1.35
http://cvs.savannah.gnu.org/viewcvs/koha/admin/mediatype.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/admin/printers.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/admin/roadtype.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/admin/systempreferences.pl?cvsroot=koha&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/koha/admin/thesaurus.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/admin/z3950servers.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/dictionary.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/moredetail.pl?cvsroot=koha&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/thesaurus_popup.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/labs_theses.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_field_006.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_field_007.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_field_008.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_field_008_authorities.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_leader.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_leader_authorities.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_leader_book.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_leader_computerfile.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/marc21_leader_video.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_100.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_105.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_106.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_110.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_115a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_115b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_116.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_117.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_120.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_121a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_121b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_122.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123d.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123e.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123f.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123g.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123i.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_123j.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124c.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124d.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124e.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124f.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_124g.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_125.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_125a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_125b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_126.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_126a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_126b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_127.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_128a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_128b.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_128c.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_130.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_135a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_140.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_141.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_225a.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_4XX.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_60X.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_700-4.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_700_701_702.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_leader.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&r1=1.104&r2=1.105
http://cvs.savannah.gnu.org/viewcvs/koha/circ/currenttransfers.pl?cvsroot=koha&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/koha/circ/returns.pl?cvsroot=koha&r1=1.48&r2=1.49
http://cvs.savannah.gnu.org/viewcvs/koha/circ/selectbranchprinter.pl?cvsroot=koha&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/koha/circ/waitingreservestransfers.pl?cvsroot=koha&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/koha/members/deletemem.pl?cvsroot=koha&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/koha/members/guarantor_search.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-flags.pl?cvsroot=koha&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-password.pl?cvsroot=koha&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/koha/members/member.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&r1=1.31&r2=1.32
http://cvs.savannah.gnu.org/viewcvs/koha/members/pay.pl?cvsroot=koha&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/koha/misc/fines2.pl?cvsroot=koha&r1=1.14&r2=1.15
http://cvs.savannah.gnu.org/viewcvs/koha/misc/notifys/fines.pl?cvsroot=koha&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-dictionary.pl?cvsroot=koha&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-renew.pl?cvsroot=koha&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-user.pl?cvsroot=koha&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/placerequest.pl?cvsroot=koha&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/renewscript.pl?cvsroot=koha&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/request.pl?cvsroot=koha&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/koha/serials/routing-preview.pl?cvsroot=koha&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/koha/tools/letter.pl?cvsroot=koha&r1=1.2&r2=1.3
Patches:
Index: C4/Accounts.pm
===================================================================
RCS file: /sources/koha/koha/C4/Accounts.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- C4/Accounts.pm 4 Apr 2007 16:46:22 -0000 1.19
+++ C4/Accounts.pm 18 Apr 2007 17:00:14 -0000 1.20
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Accounts.pm,v 1.19 2007/04/04 16:46:22 tipaul Exp $
+# $Id: Accounts.pm,v 1.20 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -28,7 +28,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.19 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.20 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -63,8 +63,6 @@
C<$dbh> is a DBI::db handle for the Koha database.
-C<$env> is ignored.
-
=cut
#'
@@ -91,7 +89,7 @@
#if ($total > 0){
# # output(1,2,"borrower owes $total");
# if ($total > 5){
- # reconcileaccount($env,$dbh,$borrowernumber,$total);
+ # reconcileaccount($dbh,$borrowernumber,$total);
# }
#}
# pause();
@@ -100,13 +98,11 @@
=head2 recordpayment
- &recordpayment($env, $borrowernumber, $payment);
+ &recordpayment($borrowernumber, $payment);
Record payment by a patron. C<$borrowernumber> is the patron's
borrower number. C<$payment> is a floating-point number, giving the
-amount that was paid. C<$env> is a reference-to-hash;
-C<$env-E<gt>{branchcode}> is the code of the branch where payment was
-made.
+amount that was paid.
Amounts owed are paid off oldest first. That is, if the patron has a
$1 fine from Feb. 1, another $1 fine from Mar. 1, and makes a payment
@@ -118,12 +114,11 @@
#'
sub recordpayment{
#here we update both the accountoffsets and the account lines
- my ($env,$borrowernumber,$data)address@hidden;
+ my ($borrowernumber,$data)address@hidden;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
- my $branch=$env->{'branchcode'};
- warn $branch;
+ my $branch=C4::Context->userenv->{'branch'};
my $amountleft = $data;
# begin transaction
my $nextaccntno = getnextacctno($borrowernumber);
@@ -158,7 +153,7 @@
values (?,?,now(),?,'Payment,thanks','Pay',?)");
$usth->execute($borrowernumber,$nextaccntno,0-$data,0-$amountleft);
$usth->finish;
- UpdateStats($env,$branch,'payment',$data,'','','',$borrowernumber);
+ UpdateStats($branch,'payment',$data,'','','',$borrowernumber);
$sth->finish;
}
@@ -185,8 +180,6 @@
#updated to check, if they are paying off a lost item, we return the item
# from their card, and put a note on the item record
my ($borrowernumber,$accountno,$amount,$user,$branch)address@hidden;
- my %env;
- $env{'branchcode'}=$branch;
my $dbh = C4::Context->dbh;
# begin transaction
my $nextaccntno = getnextacctno($borrowernumber);
@@ -224,7 +217,7 @@
# FIXME - The second argument to &UpdateStats is supposed to be the
# branch code.
# UpdateStats is now being passed $accountno too. MTJ
-
UpdateStats(\%env,$user,'payment',$amount,'','','',$borrowernumber,$accountno);
+ UpdateStats($user,'payment',$amount,'','','',$borrowernumber,$accountno);
$sth->finish;
#check to see what accounttype
if ($data->{'accounttype'} eq 'Rep' || $data->{'accounttype'} eq 'L'){
@@ -241,8 +234,6 @@
C<$dbh> is a DBI::db handle to the Koha database.
-C<$env> is ignored.
-
=cut
#'
@@ -330,14 +321,13 @@
my $notifyid;
my $insert;
$itemnum=~ s/ //g;
- my %env;
my $accountno=getnextacctno($borrowernumber);
my $amountleft=$amount;
if ($type eq 'CS' || $type eq 'CB' || $type eq 'CW'
|| $type eq 'CF' || $type eq 'CL'){
my $amount2=$amount*-1; # FIXME - $amount2 = -$amount
- $amountleft=fixcredit(\%env,$borrowernumber,$amount2,$itemnum,$type,$user);
+ $amountleft=fixcredit($borrowernumber,$amount2,$itemnum,$type,$user);
}
if ($type eq 'N'){
$desc.="New Card";
@@ -381,7 +371,7 @@
=head2 fixcredit
- $amountleft = &fixcredit($env, $borrowernumber, $data, $barcode, $type,
$user);
+ $amountleft = &fixcredit($borrowernumber, $data, $barcode, $type, $user);
This function is only used internally, not exported.
FIXME - Figure out what this function does, and write it down.
@@ -390,7 +380,7 @@
sub fixcredit{
#here we update both the accountoffsets and the account lines
- my ($env,$borrowernumber,$data,$barcode,$type,$user)address@hidden;
+ my ($borrowernumber,$data,$barcode,$type,$user)address@hidden;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
@@ -460,9 +450,8 @@
$usth->finish;
}
$sth->finish;
- $env->{'branch'}=$user;
$type="Credit ".$type;
- UpdateStats($env,$user,$type,$data,$user,'','',$borrowernumber);
+ UpdateStats($user,$type,$data,$user,'','',$borrowernumber);
$amountleft*=-1;
return($amountleft);
@@ -476,11 +465,10 @@
sub refund{
#here we update both the accountoffsets and the account lines
- my ($env,$borrowernumber,$data)address@hidden;
+ my ($borrowernumber,$data)address@hidden;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
my $accdata = "";
-# my $branch=$env->{'branchcode'};
my $amountleft = $data *-1;
# begin transaction
Index: C4/Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.196
retrieving revision 1.197
diff -u -b -r1.196 -r1.197
--- C4/Biblio.pm 17 Apr 2007 08:48:00 -0000 1.196
+++ C4/Biblio.pm 18 Apr 2007 17:00:14 -0000 1.197
@@ -33,7 +33,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.196 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.197 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
@ISA = qw( Exporter );
@@ -1201,7 +1201,6 @@
sub GetBiblioFromItemNumber {
my ( $itemnumber ) = @_;
my $dbh = C4::Context->dbh;
- my $env;
my $sth = $dbh->prepare(
"SELECT * FROM biblio,items,biblioitems
WHERE items.itemnumber = ?
@@ -3648,8 +3647,11 @@
=cut
-# $Id: Biblio.pm,v 1.196 2007/04/17 08:48:00 tipaul Exp $
+# $Id: Biblio.pm,v 1.197 2007/04/18 17:00:14 tipaul Exp $
# $Log: Biblio.pm,v $
+# Revision 1.197 2007/04/18 17:00:14 tipaul
+# removing all useless %env / $env
+#
# Revision 1.196 2007/04/17 08:48:00 tipaul
# circulation cleaning continued: bufixing
#
Index: C4/Circulation.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- C4/Circulation.pm 17 Apr 2007 16:24:59 -0000 1.13
+++ C4/Circulation.pm 18 Apr 2007 17:00:14 -0000 1.14
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Circulation.pm,v 1.13 2007/04/17 16:24:59 tipaul Exp $
+# $Id: Circulation.pm,v 1.14 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -44,7 +44,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.13 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.14 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
=head1 NAME
@@ -203,7 +203,6 @@
sub transferbook {
my ( $tbr, $barcode, $ignoreRs ) = @_;
my $messages;
- my %env;
my $dotransfer = 1;
my $branches = GetBranches();
my $itemnumber = GetItemnumberFromBarcode( $barcode );
@@ -303,12 +302,10 @@
Check if a book can be issued.
-my ($issuingimpossible,$needsconfirmation) =
CanBookBeIssued($env,$borrower,$barcode,$year,$month,$day);
+my ($issuingimpossible,$needsconfirmation) =
CanBookBeIssued($borrower,$barcode,$year,$month,$day);
=over 4
-=item C<$env> Environment variable. Should be empty usually, but used by other
subs. Next code cleaning could drop it.
-
=item C<$borrower> hash with borrower informations (from GetMemberDetails)
=item C<$barcode> is the bar code of the book being issued.
@@ -671,14 +668,14 @@
=head2 CanBookBeIssued
$issuingimpossible, $needsconfirmation =
- CanBookBeIssued( $env, $borrower, $barcode, $year, $month, $day,
$inprocess );
+ CanBookBeIssued( $borrower, $barcode, $year, $month, $day, $inprocess
);
C<$issuingimpossible> and C<$needsconfirmation> are some hashref.
=cut
sub CanBookBeIssued {
- my ( $env, $borrower, $barcode, $year, $month, $day, $inprocess ) = @_;
+ my ( $borrower, $barcode, $year, $month, $day, $inprocess ) = @_;
my %needsconfirmation; # filled with problems that needs confirmations
my %issuingimpossible; # filled with problems that causes the issue to
be IMPOSSIBLE
my $item = GetItem(GetItemnumberFromBarcode( $barcode ));
@@ -848,12 +845,10 @@
Issue a book. Does no check, they are done in CanBookBeIssued. If we reach
this sub, it means the user confirmed if needed.
-&AddIssue($env,$borrower,$barcode,$date)
+&AddIssue($borrower,$barcode,$date)
=over 4
-=item C<$env> Environment variable. Should be empty usually, but used by other
subs. Next code cleaning could drop it.
-
=item C<$borrower> hash with borrower informations (from GetMemberDetails)
=item C<$barcode> is the bar code of the book being issued.
@@ -878,7 +873,7 @@
=cut
sub AddIssue {
- my ( $env, $borrower, $barcode, $date, $cancelreserve ) = @_;
+ my ( $borrower, $barcode, $date, $cancelreserve ) = @_;
my $dbh = C4::Context->dbh;
if ($borrower and $barcode){
@@ -909,7 +904,7 @@
$item->{'charge'} = $charge;
}
&UpdateStats(
- $env, $env->{'branchcode'},
+ C4::Context->userenv->{'branch'},
'renew', $charge,
'', $item->{'itemnumber'},
$biblio->{'itemtype'}, $borrower->{'borrowernumber'}
@@ -1026,7 +1021,7 @@
$sth->execute(
$borrower->{'borrowernumber'},
$item->{'itemnumber'},
- strftime( "%Y-%m-%d", localtime ),$dateduef, $env->{'branchcode'}
+ strftime( "%Y-%m-%d", localtime ),$dateduef,
C4::Context->userenv->{'branch'}
);
$sth->finish;
$item->{'issues'}++;
@@ -1055,7 +1050,7 @@
# Record the fact that this book was issued.
&UpdateStats(
- $env, $env->{'branchcode'},
+ C4::Context->userenv->{'branch'},
'issue', $charge,
'', $item->{'itemnumber'},
$item->{'itemtype'}, $borrower->{'borrowernumber'}
@@ -1527,8 +1522,6 @@
Find out whether a borrowed item may be renewed.
-C<$env> is ignored.
-
C<$dbh> is a DBI handle to the Koha database.
C<$borrowernumber> is the borrower number of the patron who currently
@@ -1605,12 +1598,6 @@
Renews a loan.
-C<$env-E<gt>{branchcode}> is the code of the branch where the
-renewal is taking place.
-
-C<$env-E<gt>{usercode}> is the value to log in C<statistics.usercode>
-in the Koha database.
-
C<$borrowernumber> is the borrower number of the patron who currently
has the item.
@@ -1696,8 +1683,6 @@
Calculate how much it would cost for a given patron to borrow a given
item, including any applicable discounts.
-C<$env> is ignored.
-
C<$itemnumber> is the item number of item the patron wishes to borrow.
C<$borrowernumber> is the patron's borrower number.
Index: C4/Date.pm
===================================================================
RCS file: /sources/koha/koha/C4/Date.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- C4/Date.pm 4 Apr 2007 16:46:22 -0000 1.29
+++ C4/Date.pm 18 Apr 2007 17:00:14 -0000 1.30
@@ -197,8 +197,6 @@
my $date;
if ( $year && $month && $day ) {
if ( ( $year eq 0 ) && ( $month eq 0 ) && ( $year eq 0 ) ) {
-
- # $env{'datedue'}='';
}
else {
if ( ( $year eq 0 ) || ( $month eq 0 ) || ( $year eq 0 ) ) {
Index: C4/Input.pm
===================================================================
RCS file: /sources/koha/koha/C4/Input.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- C4/Input.pm 9 Mar 2007 14:31:47 -0000 1.22
+++ C4/Input.pm 18 Apr 2007 17:00:14 -0000 1.23
@@ -53,36 +53,19 @@
&buildCGIsort
);
-# FIXME - This is never used.
-#sub checkflds {
-# my ($env,$reqflds,$data) = @_;
-# my $numrflds = @$reqflds;
-# my @probarr;
-# my $i = 0;
-# while ($i < $numrflds) {
-# if ($data->address@hidden eq "") {
-# push(@probarr, @$reqflds[$i]);
-# }
-# $i++
-# }
-# return (address@hidden);
-#}
-
=item checkdigit
- $valid = &checkdigit($env, $cardnumber $nounique);
+ $valid = &checkdigit($cardnumber $nounique);
Takes a card number, computes its check digit, and compares it to the
checkdigit at the end of C<$cardnumber>. Returns a true value iff
C<$cardnumber> has a valid check digit.
-C<$env> is ignored.
-
=cut
#'
sub checkdigit {
- my ($env,$infl, $nounique) = @_;
+ my ($infl, $nounique) = @_;
$infl = uc $infl;
Index: C4/Koha.pm
===================================================================
RCS file: /sources/koha/koha/C4/Koha.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- C4/Koha.pm 18 Apr 2007 14:20:54 -0000 1.51
+++ C4/Koha.pm 18 Apr 2007 17:00:14 -0000 1.52
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Koha.pm,v 1.51 2007/04/18 14:20:54 tipaul Exp $
+# $Id: Koha.pm,v 1.52 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -25,7 +25,7 @@
use C4::Output;
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = do { my @v = '$Revision: 1.51 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.52 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
=head1 NAME
@@ -486,13 +486,11 @@
=head2 GetPrinters
- $printers = &GetPrinters($env);
+ $printers = &GetPrinters();
@queues = keys %$printers;
Returns information about existing printer queues.
-C<$env> is ignored.
-
C<$printers> is a reference-to-hash whose keys are the print queues
defined in the printers table of the Koha database. The values are
references-to-hash, whose keys are the fields in the printers table.
@@ -500,7 +498,6 @@
=cut
sub GetPrinters {
- my ($env) = @_;
my %printers;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("select * from printers");
Index: C4/Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- C4/Members.pm 4 Apr 2007 16:46:22 -0000 1.41
+++ C4/Members.pm 18 Apr 2007 17:00:14 -0000 1.42
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Members.pm,v 1.41 2007/04/04 16:46:22 tipaul Exp $
+# $Id: Members.pm,v 1.42 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -32,7 +32,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION = do { my @v = '$Revision: 1.41 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.42 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
=head1 NAME
@@ -79,12 +79,10 @@
=item BornameSearch
- ($count, $borrowers) = &BornameSearch($env, $searchstring, $type);
+ ($count, $borrowers) = &BornameSearch($searchstring, $type);
Looks up patrons (borrowers) by name.
-C<$env> is ignored.
-
BUGFIX 499: C<$type> is now used to determine type of search.
if $type is "simple", search is performed on the first letter of the
surname only.
@@ -104,7 +102,7 @@
#used by member enquiries from the intranet
#called by member.pl
sub BornameSearch {
- my ( $env, $searchstring, $orderby, $type ) = @_;
+ my ($searchstring, $orderby, $type ) = @_;
my $dbh = C4::Context->dbh;
my $query = "";
my $count;
@@ -248,8 +246,6 @@
up the borrower by number; otherwise, it looks up the borrower by card
number.
-C<$env> is effectively ignored, but should be a reference-to-hash.
-
C<$borrower> is a reference-to-hash whose keys are the fields of the
borrowers table in the Koha database. In addition,
C<$borrower-E<gt>{flags}> is a hash giving more detailed information
@@ -387,7 +383,7 @@
NOTE!: If you change this function, be sure to update the POD for
&GetMemberDetails.
- $flags = &patronflags($env, $patron, $dbh);
+ $flags = &patronflags($patron, $dbh);
$flags->{CHARGES}
{message} Message showing patron's credit or debt
@@ -545,13 +541,11 @@
=item borrdata2
- ($borrowed, $due, $fine) = &borrdata2($env, $borrowernumber);
+ ($borrowed, $due, $fine) = &borrdata2($borrowernumber);
Returns aggregate data about items borrowed by the patron with the
given borrowernumber.
-C<$env> is ignored.
-
C<&borrdata2> returns a three-element array. C<$borrowed> is the
number of books the patron currently has borrowed. C<$due> is the
number of overdue items the patron currently has borrowed. C<$fine> is
@@ -561,7 +555,7 @@
#'
sub borrdata2 {
- my ( $env, $borrowernumber ) = @_;
+ my ( $borrowernumber ) = @_;
my $dbh = C4::Context->dbh;
my $query =
"Select count(*) from issues where borrowernumber='$borrowernumber' and
@@ -1023,12 +1017,10 @@
=item GuarantornameSearch
- ($count, $borrowers) = &GuarantornameSearch($env, $searchstring, $type);
+ ($count, $borrowers) = &GuarantornameSearch($searchstring, $type);
Looks up guarantor by name.
-C<$env> is ignored.
-
BUGFIX 499: C<$type> is now used to determine type of search.
if $type is "simple", search is performed on the first letter of the
surname only.
@@ -1050,7 +1042,7 @@
#used by member enquiries from the intranet
#called by guarantor_search.pl
sub GuarantornameSearch {
- my ( $env, $searchstring, $orderby, $type ) = @_;
+ my ($searchstring, $orderby, $type ) = @_;
my $dbh = C4::Context->dbh;
my $query = "";
my $count;
@@ -1219,12 +1211,10 @@
=head2 getboracctrecord
- ($count, $acctlines, $total) = &getboracctrecord($env, $borrowernumber);
+ ($count, $acctlines, $total) = &getboracctrecord($borrowernumber);
Looks up accounting data for the patron with the given borrowernumber.
-C<$env> is ignored.
-
(FIXME - I'm not at all sure what this is about.)
C<&getboracctrecord> returns a three-element array. C<$acctlines> is a
@@ -1237,7 +1227,7 @@
#'
sub getboracctrecord {
- my ( $env, $params ) = @_;
+ my ($params ) = @_;
my $dbh = C4::Context->dbh;
my @acctlines;
my $numlines = 0;
@@ -1270,12 +1260,10 @@
=head2 GetBorNotifyAcctRecord
- ($count, $acctlines, $total) = &GetBorNotifyAcctRecord($env,
$params,$notifyid);
+ ($count, $acctlines, $total) = &GetBorNotifyAcctRecord($params,$notifyid);
Looks up accounting data for the patron with the given borrowernumber per file
number.
-C<$env> is ignored.
-
(FIXME - I'm not at all sure what this is about.)
C<&GetBorNotifyAcctRecord> returns a three-element array. C<$acctlines> is a
@@ -1287,7 +1275,7 @@
=cut
sub GetBorNotifyAcctRecord {
- my ( $env, $params, $notifyid ) = @_;
+ my ( $params, $notifyid ) = @_;
my $dbh = C4::Context->dbh;
my @acctlines;
my $numlines = 0;
Index: C4/Overdues.pm
===================================================================
RCS file: /sources/koha/koha/C4/Overdues.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- C4/Overdues.pm 18 Apr 2007 14:20:54 -0000 1.3
+++ C4/Overdues.pm 18 Apr 2007 17:00:14 -0000 1.4
@@ -1,6 +1,6 @@
package C4::Overdues;
-# $Id: Overdues.pm,v 1.3 2007/04/18 14:20:54 tipaul Exp $
+# $Id: Overdues.pm,v 1.4 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -29,7 +29,7 @@
use C4::Log; # logaction
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.3 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.4 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -697,7 +697,6 @@
sub NumberNotifyId{
my ($borrowernumber)address@hidden;
my $dbh = C4::Context->dbh;
- my $env;
my $query=qq| SELECT distinct(notify_id)
FROM accountlines
WHERE borrowernumber=?|;
Index: C4/Print.pm
===================================================================
RCS file: /sources/koha/koha/C4/Print.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- C4/Print.pm 4 Apr 2007 16:46:22 -0000 1.20
+++ C4/Print.pm 18 Apr 2007 17:00:14 -0000 1.21
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Print.pm,v 1.20 2007/04/04 16:46:22 tipaul Exp $
+# $Id: Print.pm,v 1.21 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -29,7 +29,7 @@
# set the version for version checking
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.20 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.21 $' =~ /\d+/g;
shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
};
@@ -56,14 +56,10 @@
=item remoteprint
- &remoteprint($env, $items, $borrower);
+ &remoteprint($items, $borrower);
Prints the list of items in C<$items> to a printer.
-C<$env> is a reference-to-hash. C<$env-E<gt>{queue}> specifies the
-queue to print to; if it is empty or has the special value C<nulllp>,
-C<&remoteprint> will print to the file F</tmp/kohaiss>.
-
C<$borrower> is a reference-to-hash giving information about a patron.
This may be gotten from C<&GetMemberDetails>. The patron's name
will be printed in the output.
@@ -74,14 +70,13 @@
=cut
-#'
# FIXME - It'd be nifty if this could generate pretty PostScript.
sub remoteprint {
- my ( $env, $items, $borrower ) = @_;
+ my ($items, $borrower ) = @_;
(return)
unless ( C4::Context->boolean_preference('printcirculationslips') );
- my $queue = $env->{'queue'};
+ my $queue = '';
# FIXME - If 'queue' is undefined or empty, then presumably it should
# mean "use the default queue", whatever the default is. Presumably
@@ -106,12 +101,9 @@
# print $queue;
#open (FILE,">/tmp/$file");
my $i = 0;
- my $brdata = $env->{'brdata'}; # FIXME - Not used
# FIXME - This is HLT-specific. Put this stuff in a customizable
# site-specific file somewhere.
print PRINTER "Horowhenua Library Trust\r\n";
-
- # print PRINTER "$brdata->{'branchname'}\r\n";
print PRINTER "Phone: 368-1953\r\n";
print PRINTER "Fax: 367-9218\r\n";
print PRINTER "Email: address@hidden";
@@ -134,19 +126,15 @@
$i++;
}
print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
- if ( $env->{'printtype'} eq "docket" ) {
-
- #print chr(27).chr(105);
- }
close PRINTER;
#system("lpr /tmp/$file");
}
sub printreserve {
- my ( $env, $branchname, $bordata, $itemdata ) = @_;
+ my ( $branchname, $bordata, $itemdata ) = @_;
my $file = time;
- my $printer = $env->{'printer'};
+ my $printer = '';
(return) unless ( C4::Context->boolean_preference('printreserveslips') );
if ( $printer eq "" || $printer eq 'nulllp' ) {
open( PRINTER, ">>/tmp/kohares" );
@@ -188,7 +176,7 @@
=item printslip
- &printslip($env, $borrowernumber)
+ &printslip($borrowernumber)
print a slip for the given $borrowernumber
@@ -196,14 +184,10 @@
#'
sub printslip {
- my ( $env, $borrowernumber ) = @_;
+ my ( $borrowernumber ) = @_;
my ( $borrower, $flags ) = GetMemberDetails( $borrowernumber);
- $env->{'todaysissues'} = 1;
my ($borrowerissues) = GetBorrowerIssues( $borrower );
- $env->{'nottodaysissues'} = 1;
- $env->{'todaysissues'} = 0;
my ($borroweriss2) = GetBorrowerIssues( $borrower );
- $env->{'nottodaysissues'} = 0;
my $i = 0;
my @issues;
@@ -227,7 +211,7 @@
$issues[$i]->{'date_due'} = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
$i++;
}
- remoteprint( $env, address@hidden, $borrower );
+ remoteprint(address@hidden, $borrower );
}
END { } # module clean-up code here (global destructor)
Index: C4/Reserves2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- C4/Reserves2.pm 17 Apr 2007 08:48:00 -0000 1.53
+++ C4/Reserves2.pm 18 Apr 2007 17:00:14 -0000 1.54
@@ -20,7 +20,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Reserves2.pm,v 1.53 2007/04/17 08:48:00 tipaul Exp $
+# $Id: Reserves2.pm,v 1.54 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -33,7 +33,7 @@
my $library_name = C4::Context->preference("LibraryName");
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.53 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.54 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
=head1 NAME
@@ -964,7 +964,7 @@
=item CreateReserve
-CreateReserve($env,$branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
+CreateReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
FIXME - A somewhat different version of this function appears in
C4::Reserves. Pick one and stick with it.
@@ -973,19 +973,19 @@
sub CreateReserve {
my (
- $env, $branch, $borrowernumber, $biblionumber,
+ $branch, $borrowernumber, $biblionumber,
$constraint, $bibitems, $priority, $notes,
$title, $checkitem, $found
) = @_;
my $fee;
if ( $library_name =~ /Horowhenua/ ) {
$fee =
- CalcHLTReserveFee( $env, $borrowernumber, $biblionumber, $constraint,
+ CalcHLTReserveFee($borrowernumber, $biblionumber, $constraint,
$bibitems );
}
else {
$fee =
- CalcReserveFee( $env, $borrowernumber, $biblionumber, $constraint,
+ CalcReserveFee($borrowernumber, $biblionumber, $constraint,
$bibitems );
}
my $dbh = C4::Context->dbh;
@@ -1061,7 +1061,7 @@
# FIXME - opac-reserves.pl need to use it, temporarily put into @EXPORT
sub CalcReserveFee {
- my ( $env, $borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
+ my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
#check for issues;
my $dbh = C4::Context->dbh;
@@ -1169,7 +1169,7 @@
#
# All other item types should incur a reserve charge.
sub CalcHLTReserveFee {
- my ( $env, $borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
+ my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare(
"SELECT * FROM borrowers,categories
@@ -1212,7 +1212,7 @@
=cut
sub GetNextAccountNumber {
- my ( $env, $borrowernumber, $dbh ) = @_;
+ my ($borrowernumber, $dbh ) = @_;
my $nextaccntno = 1;
my $sth = $dbh->prepare(
"select * from accountlines
Index: C4/Stats.pm
===================================================================
RCS file: /sources/koha/koha/C4/Stats.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- C4/Stats.pm 17 Apr 2007 16:24:59 -0000 1.30
+++ C4/Stats.pm 18 Apr 2007 17:00:14 -0000 1.31
@@ -1,6 +1,6 @@
package C4::Stats;
-# $Id: Stats.pm,v 1.30 2007/04/17 16:24:59 tipaul Exp $
+# $Id: Stats.pm,v 1.31 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -26,7 +26,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = $VERSION = do { my @v = '$Revision: 1.30 $' =~ /\d+/g;
+$VERSION = $VERSION = do { my @v = '$Revision: 1.31 $' =~ /\d+/g;
shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
};
@@ -54,7 +54,7 @@
=item UpdateStats
- &UpdateStats($env, $branch, $type, $value, $other, $itemnumber,
+ &UpdateStats($branch, $type, $value, $other, $itemnumber,
$itemtype, $borrowernumber);
Adds a line to the statistics table of the Koha database. In effect,
@@ -64,11 +64,6 @@
C<$itemtype>, and C<$borrowernumber> correspond to the fields of the
statistics table in the Koha database.
-If C<$branch> is the empty string, the branch code will be taken from
-C<$env-E<gt>{branchcode}>.
-
-C<$env-E<gt>{usercode}> specifies the value of the C<usercode> field.
-
=cut
#'
Index: C4/Circulation/Fines.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- C4/Circulation/Fines.pm 5 Apr 2007 15:55:56 -0000 1.26
+++ C4/Circulation/Fines.pm 18 Apr 2007 17:00:14 -0000 1.27
@@ -1,6 +1,6 @@
package C4::Circulation::Fines;
-# $Id: Fines.pm,v 1.26 2007/04/05 15:55:56 btoumi Exp $
+# $Id: Fines.pm,v 1.27 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -29,7 +29,7 @@
use C4::Log; # logaction
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.26 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.27 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -655,7 +655,6 @@
sub NumberNotifyId{
my ($borrowernumber)address@hidden;
my $dbh = C4::Context->dbh;
- my $env;
my $query=qq| SELECT distinct(notify_id)
FROM accountlines
WHERE borrowernumber=?
Index: admin/auth_subfields_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/auth_subfields_structure.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- admin/auth_subfields_structure.pl 9 Mar 2007 14:30:55 -0000 1.10
+++ admin/auth_subfields_structure.pl 18 Apr 2007 17:00:14 -0000 1.11
@@ -27,7 +27,7 @@
sub StringSearch {
- my ($env,$searchstring,$authtypecode)address@hidden;
+ my ($searchstring,$authtypecode)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -463,8 +463,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$tagfield,$authtypecode);
+ my ($count,$results)=StringSearch($tagfield,$authtypecode);
my $toggle=1;
my @loop_data = ();
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/auth_tag_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/auth_tag_structure.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- admin/auth_tag_structure.pl 9 Mar 2007 14:30:55 -0000 1.8
+++ admin/auth_tag_structure.pl 18 Apr 2007 17:00:14 -0000 1.9
@@ -208,8 +208,7 @@
if ($searchfield ne '') {
$template->param(searchfield => $searchfield);
}
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,$authtypecode);
+ my ($count,$results)=StringSearch($searchfield,$authtypecode);
my $toggle=1;
my @loop_data = ();
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
@@ -263,7 +262,7 @@
# the sub used for searches
#
sub StringSearch {
- my ($env,$searchstring,$authtypecode)address@hidden;
+ my ($searchstring,$authtypecode)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
Index: admin/authorised_values.pl
===================================================================
RCS file: /sources/koha/koha/admin/authorised_values.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- admin/authorised_values.pl 9 Mar 2007 14:30:55 -0000 1.19
+++ admin/authorised_values.pl 18 Apr 2007 17:00:14 -0000 1.20
@@ -28,7 +28,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -164,8 +164,7 @@
if (!$searchfield) {
$searchfield=$category_list[0];
}
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data = ();
# builds value list
Index: admin/authtypes.pl
===================================================================
RCS file: /sources/koha/koha/admin/authtypes.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- admin/authtypes.pl 9 Mar 2007 14:30:55 -0000 1.7
+++ admin/authtypes.pl 18 Apr 2007 17:00:14 -0000 1.8
@@ -30,7 +30,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -143,8 +143,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/biblio_framework.pl
===================================================================
RCS file: /sources/koha/koha/admin/biblio_framework.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- admin/biblio_framework.pl 9 Mar 2007 15:34:17 -0000 1.6
+++ admin/biblio_framework.pl 18 Apr 2007 17:00:14 -0000 1.7
@@ -30,7 +30,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -144,8 +144,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/branches.pl
===================================================================
RCS file: /sources/koha/koha/admin/branches.pl,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- admin/branches.pl 9 Mar 2007 14:30:55 -0000 1.38
+++ admin/branches.pl 18 Apr 2007 17:00:14 -0000 1.39
@@ -210,8 +210,7 @@
sub editbranchform {
my ($branchcode,$innertemplate) = @_;
# initiate the scrolling-list to select the printers
- my %env;
- my $printers = GetPrinters( \%env );
+ my $printers = GetPrinters();
my @printerloop;
my $printercount = 0;
my $oldprinter;
Index: admin/categorie.pl
===================================================================
RCS file: /sources/koha/koha/admin/categorie.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- admin/categorie.pl 9 Mar 2007 14:30:55 -0000 1.25
+++ admin/categorie.pl 18 Apr 2007 17:00:14 -0000 1.26
@@ -45,7 +45,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -167,9 +167,8 @@
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
- my $env;
my @loop;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (categorycode => $results->[$i]{'categorycode'},
Index: admin/categoryitem.pl
===================================================================
RCS file: /sources/koha/koha/admin/categoryitem.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- admin/categoryitem.pl 9 Mar 2007 14:30:55 -0000 1.13
+++ admin/categoryitem.pl 18 Apr 2007 17:00:14 -0000 1.14
@@ -46,7 +46,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -161,9 +161,8 @@
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
- my $env;
my @loop;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 'white';
for (my $i=0; $i < $count; $i++){
my %row = (categorycode => $results->[$i]{'categorycode'},
Index: admin/cities.pl
===================================================================
RCS file: /sources/koha/koha/admin/cities.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- admin/cities.pl 9 Mar 2007 14:30:55 -0000 1.2
+++ admin/cities.pl 18 Apr 2007 17:00:14 -0000 1.3
@@ -26,7 +26,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -140,9 +140,8 @@
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
- my $env;
my @loop;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (cityid => $results->[$i]{'cityid'},
Index: admin/currency.pl
===================================================================
RCS file: /sources/koha/koha/admin/currency.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- admin/currency.pl 9 Mar 2007 14:30:55 -0000 1.15
+++ admin/currency.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -46,7 +46,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -162,8 +162,7 @@
} else { # DEFAULT
$template->param(else => 1);
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my @loop;
my $toggle = 'white';
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/itemtypecategory.pl
===================================================================
RCS file: /sources/koha/koha/admin/itemtypecategory.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- admin/itemtypecategory.pl 9 Mar 2007 14:30:55 -0000 1.3
+++ admin/itemtypecategory.pl 18 Apr 2007 17:00:14 -0000 1.4
@@ -48,7 +48,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -164,8 +164,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/itemtypes.pl
===================================================================
RCS file: /sources/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- admin/itemtypes.pl 9 Mar 2007 14:30:55 -0000 1.26
+++ admin/itemtypes.pl 18 Apr 2007 17:00:14 -0000 1.27
@@ -50,7 +50,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -261,8 +261,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $page = $input->param('page') || 1;
my $first = ($page - 1) * $pagesize;
Index: admin/itemtypesubcategory.pl
===================================================================
RCS file: /sources/koha/koha/admin/itemtypesubcategory.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- admin/itemtypesubcategory.pl 9 Mar 2007 14:30:55 -0000 1.3
+++ admin/itemtypesubcategory.pl 18 Apr 2007 17:00:14 -0000 1.4
@@ -48,7 +48,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -164,8 +164,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/koha2marclinks.pl
===================================================================
RCS file: /sources/koha/koha/admin/koha2marclinks.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- admin/koha2marclinks.pl 9 Mar 2007 15:34:17 -0000 1.15
+++ admin/koha2marclinks.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -124,7 +124,6 @@
################## DEFAULT ##################################
}
else { # DEFAULT
- my $env;
my $sth =
$dbh->prepare(
"Select tagfield,tagsubfield,liblibrarian,kohafield from
marc_subfield_structure"
Index: admin/letter.pl
===================================================================
RCS file: /sources/koha/koha/admin/letter.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- admin/letter.pl 9 Mar 2007 14:30:55 -0000 1.5
+++ admin/letter.pl 18 Apr 2007 17:00:14 -0000 1.6
@@ -47,7 +47,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -204,8 +204,7 @@
$template->param(search => 1);
$template->param(searchfield => $searchfield);
}
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data =();
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/marc_subfields_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- admin/marc_subfields_structure.pl 19 Mar 2007 18:35:12 -0000 1.41
+++ admin/marc_subfields_structure.pl 18 Apr 2007 17:00:14 -0000 1.42
@@ -26,7 +26,7 @@
sub StringSearch {
- my ( $env, $searchstring, $frameworkcode ) = @_;
+ my ( $searchstring, $frameworkcode ) = @_;
my $dbh = C4::Context->dbh;
$searchstring =~ s/\'/\\\'/g;
my @data = split( ' ', $searchstring );
@@ -505,8 +505,7 @@
################## DEFAULT ##################################
}
else { # DEFAULT
- my $env;
- my ( $count, $results ) = StringSearch( $env, $tagfield, $frameworkcode );
+ my ( $count, $results ) = StringSearch( $tagfield, $frameworkcode );
my $toggle = 1;
my @loop_data = ();
for (
Index: admin/marctagstructure.pl
===================================================================
RCS file: /sources/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- admin/marctagstructure.pl 9 Mar 2007 15:34:17 -0000 1.34
+++ admin/marctagstructure.pl 18 Apr 2007 17:00:14 -0000 1.35
@@ -222,7 +222,6 @@
my $cnt=0;
if ($dspchoice) {
#here, user only wants used tags/subfields displayed
- my $env;
$searchfield=~ s/\'/\\\'/g;
my @data=split(' ',$searchfield);
my $sth=$dbh->prepare("
@@ -294,8 +293,7 @@
$sth->finish;
} else {
#here, normal old style : display every tags
- my $env;
- my
($count,$results)=StringSearch($env,$searchfield,$frameworkcode);
+ my ($count,$results)=StringSearch($searchfield,$frameworkcode);
$cnt = $count;
my $toggle=0;
my @loop_data = ();
@@ -350,7 +348,7 @@
# the sub used for searches
#
sub StringSearch {
- my ($env,$searchstring,$frameworkcode)address@hidden;
+ my ($searchstring,$frameworkcode)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
Index: admin/mediatype.pl
===================================================================
RCS file: /sources/koha/koha/admin/mediatype.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- admin/mediatype.pl 9 Mar 2007 14:30:55 -0000 1.3
+++ admin/mediatype.pl 18 Apr 2007 17:00:14 -0000 1.4
@@ -49,7 +49,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -165,8 +165,7 @@
# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle=0;
my @loop_data;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/printers.pl
===================================================================
RCS file: /sources/koha/koha/admin/printers.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- admin/printers.pl 9 Mar 2007 14:30:55 -0000 1.15
+++ admin/printers.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -46,7 +46,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -145,9 +145,7 @@
################## DEFAULT ##################################
} else { # DEFAULT
$template->param(else => 1);
-
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/roadtype.pl
===================================================================
RCS file: /sources/koha/koha/admin/roadtype.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- admin/roadtype.pl 9 Mar 2007 14:30:55 -0000 1.2
+++ admin/roadtype.pl 18 Apr 2007 17:00:14 -0000 1.3
@@ -26,7 +26,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -140,9 +140,8 @@
# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
$template->param(else => 1);
- my $env;
my @loop;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (roadtypeid => $results->[$i]{'roadtypeid'},
Index: admin/systempreferences.pl
===================================================================
RCS file: /sources/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- admin/systempreferences.pl 9 Mar 2007 14:30:55 -0000 1.37
+++ admin/systempreferences.pl 18 Apr 2007 17:00:14 -0000 1.38
@@ -173,7 +173,7 @@
$tabsysprefs{FinesLog} = "LOGFeatures";
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -429,8 +429,7 @@
#Adding tab management for system preferences
my $tab=$input->param('tab');
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,$tab);
+ my ($count,$results)=StringSearch($searchfield,$tab);
my $toggle=0;
my @loop_data = ();
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: admin/thesaurus.pl
===================================================================
RCS file: /sources/koha/koha/admin/thesaurus.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- admin/thesaurus.pl 9 Mar 2007 14:30:55 -0000 1.15
+++ admin/thesaurus.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -158,7 +158,6 @@
if (!$search_category) {
$search_category=$category_list[0];
}
- my $env;
my $sth = $dbh->prepare("select father,stdlib,category,hierarchy from
bibliothesaurus where id=?");
$sth->execute($id);
my ($father,$stdlib,$category,$suphierarchy) = $sth->fetchrow_array;
@@ -207,8 +206,7 @@
if (!$search_category) {
$search_category=$category_list[0];
}
- my $env;
- my
($count,$results)=searchauthority($env,$search_category,$branch,$searchstring,$offset,$pagesize);
+ my
($count,$results)=searchauthority($search_category,$branch,$searchstring,$offset,$pagesize);
my $toggle="white";
my @loop_data = ();
# builds value list
Index: admin/z3950servers.pl
===================================================================
RCS file: /sources/koha/koha/admin/z3950servers.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- admin/z3950servers.pl 9 Mar 2007 14:30:55 -0000 1.15
+++ admin/z3950servers.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -29,7 +29,7 @@
use C4::Interface::CGI::Output;
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -157,9 +157,7 @@
################## DEFAULT ##################################
} else { # DEFAULT
$template->param(else => 1);
-
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my @loop;
my $toggle = 0;
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
Index: catalogue/dictionary.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/dictionary.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- catalogue/dictionary.pl 9 Mar 2007 15:35:46 -0000 1.2
+++ catalogue/dictionary.pl 18 Apr 2007 17:00:14 -0000 1.3
@@ -70,8 +70,6 @@
my $dbh = C4::Context->dbh;
my ($template, $loggedinuser, $cookie);
-my $env;
-
my $startfrom=$input->param('startfrom');
$startfrom=0 if(!defined $startfrom);
my $searchdesc;
Index: catalogue/moredetail.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/moredetail.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- catalogue/moredetail.pl 4 Apr 2007 16:46:23 -0000 1.11
+++ catalogue/moredetail.pl 18 Apr 2007 17:00:14 -0000 1.12
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: moredetail.pl,v 1.11 2007/04/04 16:46:23 tipaul Exp $
+# $Id: moredetail.pl,v 1.12 2007/04/18 17:00:14 tipaul Exp $
use strict;
require Exporter;
@@ -74,9 +74,6 @@
my $ordernum = GetOrderNumber($biblionumber,$bi);
my $order = GetOrder($ordernum);
-my $env;
-$env->{itemcount}=1;
-
$results[0]=$data;
foreach my $item (@items){
Index: cataloguing/thesaurus_popup.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/thesaurus_popup.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cataloguing/thesaurus_popup.pl 9 Mar 2007 15:36:10 -0000 1.3
+++ cataloguing/thesaurus_popup.pl 18 Apr 2007 17:00:14 -0000 1.4
@@ -30,8 +30,6 @@
use C4::Authorities;
use C4::Interface::CGI::Output;
# get all the data ....
-my %env;
-
my $input = new CGI;
my $result = $input->param('result');
my $search_string= $input->param('search_string');
Index: cataloguing/value_builder/labs_theses.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/labs_theses.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/labs_theses.pl 9 Mar 2007 15:36:10 -0000
1.2
+++ cataloguing/value_builder/labs_theses.pl 18 Apr 2007 17:00:14 -0000
1.3
@@ -59,9 +59,6 @@
sub plugin {
my ($input) = @_;
- my %env;
-
-
my $dbh=C4::Context->dbh;
my $query = new CGI;
my $op = $query->param('op');
Index: cataloguing/value_builder/marc21_field_006.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_field_006.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_field_006.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/marc21_field_006.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_field_006.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_field_006.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_field_007.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_field_007.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_field_007.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/marc21_field_007.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,7 +1,7 @@
#!/usr/bin/perl
-# $Id: marc21_field_007.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_field_007.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -63,9 +63,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_field_008.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_field_008.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_field_008.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/marc21_field_008.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,7 +1,7 @@
#!/usr/bin/perl
-# $Id: marc21_field_008.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_field_008.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -75,9 +75,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_field_008_authorities.pl
===================================================================
RCS file:
/sources/koha/koha/cataloguing/value_builder/marc21_field_008_authorities.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_field_008_authorities.pl 9 Mar 2007
15:36:10 -0000 1.2
+++ cataloguing/value_builder/marc21_field_008_authorities.pl 18 Apr 2007
17:00:14 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_field_008_authorities.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_field_008_authorities.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -76,9 +76,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_leader.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_leader.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_leader.pl 9 Mar 2007 15:36:10 -0000
1.2
+++ cataloguing/value_builder/marc21_leader.pl 18 Apr 2007 17:00:14 -0000
1.3
@@ -1,7 +1,7 @@
#!/usr/bin/perl
-# $Id: marc21_leader.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_leader.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -70,9 +70,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_leader_authorities.pl
===================================================================
RCS file:
/sources/koha/koha/cataloguing/value_builder/marc21_leader_authorities.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_leader_authorities.pl 9 Mar 2007
15:36:10 -0000 1.2
+++ cataloguing/value_builder/marc21_leader_authorities.pl 18 Apr 2007
17:00:14 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_leader_authorities.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_leader_authorities.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_leader_book.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_leader_book.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_leader_book.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/marc21_leader_book.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,7 +1,7 @@
#!/usr/bin/perl
-# $Id: marc21_leader_book.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_leader_book.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -63,9 +63,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_leader_computerfile.pl
===================================================================
RCS file:
/sources/koha/koha/cataloguing/value_builder/marc21_leader_computerfile.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_leader_computerfile.pl 9 Mar 2007
15:36:10 -0000 1.2
+++ cataloguing/value_builder/marc21_leader_computerfile.pl 18 Apr 2007
17:00:14 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_leader_computerfile.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_leader_computerfile.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/marc21_leader_video.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/marc21_leader_video.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/marc21_leader_video.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/marc21_leader_video.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_leader_video.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: marc21_leader_video.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_100.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_100.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_100.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_100.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,7 +1,7 @@
#!/usr/bin/perl
-# $Id: unimarc_field_100.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_100.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -65,9 +65,6 @@
sub plugin {
my ($input) = @_;
- my %env;
-
- # my $input = new CGI;
my $index = $input->param('index');
my $result = $input->param('result');
Index: cataloguing/value_builder/unimarc_field_105.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_105.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_105.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_105.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_105.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_105.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_106.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_106.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_106.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_106.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_106.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_106.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_110.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_110.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_110.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_110.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_110.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_110.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_115a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_115a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_115a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_115a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_115a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_115a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_115b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_115b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_115b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_115b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_115b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_115b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_116.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_116.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_116.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_116.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_116.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_116.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_117.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_117.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_117.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_117.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_117.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_117.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_120.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_120.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_120.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_120.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_120.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_120.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_121a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_121a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_121a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_121a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_121a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_121a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_121b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_121b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_121b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_121b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_121b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_121b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_122.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_122.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_122.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_122.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_122.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_122.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123d.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123d.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123d.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123d.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123d.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123d.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123e.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123e.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123e.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123e.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123e.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123e.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123f.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123f.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123f.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123f.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123f.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123f.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,7 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123g.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123g.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123g.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123g.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123g.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123g.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123i.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123i.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123i.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123i.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123i.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123i.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_123j.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_123j.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_123j.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_123j.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_123j.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_123j.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124c.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124c.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124c.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124c.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124c.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124c.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124d.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124d.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124d.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124d.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124d.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124d.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124e.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124e.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124e.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124e.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124e.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124e.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124f.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124f.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124f.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124f.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124f.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124f.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_124g.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_124g.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_124g.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_124g.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_124g.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_124g.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_125.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_125.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_125.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_125.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_125.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_125.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_125a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_125a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_125a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_125a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_125a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_125a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_125b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_125b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_125b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_125b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_125b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_125b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_126.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_126.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_126.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_126.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_126.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_126.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_126a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_126a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_126a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_126a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_126a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_126a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_126b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_126b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_126b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_126b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_126b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_126b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_127.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_127.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_127.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_127.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_127.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_127.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_128a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_128a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_128a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_128a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_128a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_128a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_128b.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_128b.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_128b.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_128b.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_128b.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_128b.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_128c.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_128c.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_128c.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_128c.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_128c.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_128c.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_130.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_130.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_130.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_130.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_130.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_130.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_135a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_135a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_135a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_135a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_135a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_135a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_140.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_140.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_140.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_140.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_140.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_140.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_141.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_141.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_141.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_141.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_141.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_141.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_225a.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_225a.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_225a.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_225a.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_225a.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -27,11 +27,11 @@
isbn separator editor separator collection.
for example :
2204 -- Cerf -- Cogitatio fidei
- 2204 -- Cerf -- Le Magistère de l'Eglise
+ 2204 -- Cerf -- Le Magist�re de l'Eglise
2204 -- Cerf -- Lectio divina
2204 -- Cerf -- Lire la Bible
2204 -- Cerf -- Pour lire
- 2204 -- Cerf -- Sources chrétiennes
+ 2204 -- Cerf -- Sources chr�tiennes
when the user clic on ... on 225a line, the popup shows the list of
collections from the selected editor
if the biblio has no isbn, then the search if done on editor only
@@ -98,9 +98,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
my $editor_found = $input->param('editor_found');
Index: cataloguing/value_builder/unimarc_field_4XX.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cataloguing/value_builder/unimarc_field_4XX.pl 29 Mar 2007 13:30:31
-0000 1.3
+++ cataloguing/value_builder/unimarc_field_4XX.pl 18 Apr 2007 17:00:14
-0000 1.4
@@ -62,9 +62,6 @@
sub plugin {
my ($input) = @_;
- my %env;
-
-
my $dbh=C4::Context->dbh;
my $query = new CGI;
my $op = $query->param('op');
Index: cataloguing/value_builder/unimarc_field_60X.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_60X.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_60X.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_60X.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_60X.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_60X.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -53,7 +53,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
my $dbh = C4::Context->dbh;
my $index= $input->param('index');
my $result= $input->param('result');
Index: cataloguing/value_builder/unimarc_field_700-4.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_field_700-4.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_700-4.pl 9 Mar 2007 15:36:10
-0000 1.2
+++ cataloguing/value_builder/unimarc_field_700-4.pl 18 Apr 2007 17:00:14
-0000 1.3
@@ -69,9 +69,6 @@
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $index2= $input->param('index2');
$index2=-1 unless($index2);
Index: cataloguing/value_builder/unimarc_field_700_701_702.pl
===================================================================
RCS file:
/sources/koha/koha/cataloguing/value_builder/unimarc_field_700_701_702.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_field_700_701_702.pl 9 Mar 2007
15:36:10 -0000 1.2
+++ cataloguing/value_builder/unimarc_field_700_701_702.pl 18 Apr 2007
17:00:14 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_field_700_701_702.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_field_700_701_702.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -53,7 +53,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
my $dbh = C4::Context->dbh;
# my $input = new CGI;
my $index= $input->param('index');
Index: cataloguing/value_builder/unimarc_leader.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/unimarc_leader.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cataloguing/value_builder/unimarc_leader.pl 9 Mar 2007 15:36:10 -0000
1.2
+++ cataloguing/value_builder/unimarc_leader.pl 18 Apr 2007 17:00:14 -0000
1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: unimarc_leader.pl,v 1.2 2007/03/09 15:36:10 tipaul Exp $
+# $Id: unimarc_leader.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -62,9 +62,6 @@
}
sub plugin {
my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
my $index= $input->param('index');
my $result= $input->param('result');
Index: circ/branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- circ/branchreserves.pl 17 Apr 2007 08:44:49 -0000 1.7
+++ circ/branchreserves.pl 18 Apr 2007 17:00:14 -0000 1.8
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: branchreserves.pl,v 1.7 2007/04/17 08:44:49 tipaul Exp $
+# $Id: branchreserves.pl,v 1.8 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -73,7 +73,6 @@
if ($item) {
my $messages;
my $nextreservinfo;
- my %env;
my $waiting;
( $messages, $nextreservinfo ) = GlobalCancel( $item, $borrowernumber );
@@ -115,7 +114,6 @@
foreach my $num (@getreserves) {
my %getreserv;
- my %env;
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
my $getborrower = GetMemberDetails( $num->{'borrowernumber'} );
my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );
Index: circ/circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -b -r1.104 -r1.105
--- circ/circulation.pl 17 Apr 2007 08:45:18 -0000 1.104
+++ circ/circulation.pl 18 Apr 2007 17:00:14 -0000 1.105
@@ -97,16 +97,8 @@
# $branchcookie = $query->cookie(-name=>'branch', -value=>"$branch",
-expires=>'+1y');
# $printercookie = $query->cookie(-name=>'printer', -value=>"$printer",
-expires=>'+1y');
# }
-
-my %env
- ; # FIXME env is used as an "environment" variable. Could be dropped
probably...
-
#
-$env{'branchcode'} = $branch;
-$env{'printer'} = $printer;
-$env{'organisation'} = $organisation;
-# $env{'queue'}=$printer;
my @datearr = localtime( time() );
@@ -136,7 +128,7 @@
}
if ( $print eq 'yes' && $borrowernumber ne '' ) {
- printslip( \%env, $borrowernumber );
+ printslip( $borrowernumber );
$query->param( 'borrowernumber', '' );
$borrowernumber = '';
}
@@ -149,7 +141,7 @@
my $message;
if ($findborrower) {
my ( $count, $borrowers ) =
- BornameSearch( \%env, $findborrower, 'cardnumber', 'web' );
+ BornameSearch($findborrower, 'cardnumber', 'web' );
my @borrowers = @$borrowers;
if ( $#borrowers == -1 ) {
$query->param( 'findborrower', '' );
@@ -171,7 +163,7 @@
if ($borrowernumber) {
$borrower = GetMemberDetails( $borrowernumber, 0 );
- my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
+ my ( $od, $issue, $fines ) = borrdata2( $borrowernumber );
# Warningdate is the date that the warning starts appearing
my ( $today_year, $today_month, $today_day ) = Today();
@@ -217,12 +209,12 @@
$barcode = cuecatbarcodedecode($barcode);
my ( $datedue, $invalidduedate ) = fixdate( $year, $month, $day );
if ($issueconfirmed) {
- AddIssue( \%env, $borrower, $barcode, $datedue, $cancelreserve );
+ AddIssue( $borrower, $barcode, $datedue, $cancelreserve );
$inprocess = 1;
}
else {
my ( $error, $question ) =
- CanBookBeIssued( \%env, $borrower, $barcode, $year, $month, $day,
+ CanBookBeIssued( $borrower, $barcode, $year, $month, $day,
$inprocess );
my $noerror = 1;
my $noquestion = 1;
@@ -250,13 +242,13 @@
year => $year
);
if ( $noerror && ( $noquestion || $issueconfirmed ) ) {
- AddIssue( \%env, $borrower, $barcode, $datedue );
+ AddIssue( $borrower, $barcode, $datedue );
$inprocess = 1;
}
}
# FIXME If the issue is confirmed, we launch another time borrdata2, now
display the issue count after issue
- my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
+ my ( $od, $issue, $fines ) = borrdata2( $borrowernumber );
$template->param(
issuecount => $issue,
);
@@ -281,7 +273,6 @@
foreach my $num_res (@borrowerreserv) {
my %getreserv;
my %getWaitingReserveInfo;
- my %env;
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
my ( $transfertwhen, $transfertfrom, $transfertto ) =
Index: circ/currenttransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/currenttransfers.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- circ/currenttransfers.pl 17 Apr 2007 08:45:18 -0000 1.7
+++ circ/currenttransfers.pl 18 Apr 2007 17:00:14 -0000 1.8
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: currenttransfers.pl,v 1.7 2007/04/17 08:45:18 tipaul Exp $
+# $Id: currenttransfers.pl,v 1.8 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -78,7 +78,6 @@
if (@gettransfers) {
foreach my $num (@gettransfers) {
my %getransf;
- my %env;
my ( $sent_year, $sent_month, $sent_day ) = split "-",
$num->{'datesent'};
Index: circ/returns.pl
===================================================================
RCS file: /sources/koha/koha/circ/returns.pl,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- circ/returns.pl 17 Apr 2007 08:45:18 -0000 1.48
+++ circ/returns.pl 18 Apr 2007 17:00:14 -0000 1.49
@@ -55,10 +55,8 @@
#####################
#Global vars
-my %env;
-
my $branches = GetBranches();
-my $printers = GetPrinters( \%env );
+my $printers = GetPrinters();
#my $branch = C4::Context->userenv?C4::Context->userenv->{'branch'}:"";
my $printer = C4::Context->userenv?C4::Context->userenv->{'branchprinter'}:"";
@@ -67,11 +65,6 @@
# Some code to handle the error if there is no branch or printer setting.....
#
-#$env{'branchcode'} = $branch;
-$env{'printer'} = $printer;
-$env{'queue'} = $printer;
-
-
# Set up the item stack ....
my %returneditems;
my %riduedate;
Index: circ/selectbranchprinter.pl
===================================================================
RCS file: /sources/koha/koha/circ/selectbranchprinter.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- circ/selectbranchprinter.pl 4 Apr 2007 16:46:23 -0000 1.18
+++ circ/selectbranchprinter.pl 18 Apr 2007 17:00:14 -0000 1.19
@@ -34,10 +34,9 @@
#general design stuff...
# try to get the branch and printer settings from the http....
-my %env;
my $query = new CGI;
my $branches = GetBranches();
-my $printers = GetPrinters( \%env );
+my $printers = GetPrinters();
my $branch = $query->param('branch');
my $printer = $query->param('printer');
@@ -52,10 +51,6 @@
my $oldbranch = $branch;
my $oldprinter = $printer;
-$env{'branchcode'} = $branch;
-$env{'printer'} = $printer;
-$env{'queue'} = $printer;
-
# set up select options....
my $branchcount = 0;
my $printercount = 0;
Index: circ/waitingreservestransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/waitingreservestransfers.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- circ/waitingreservestransfers.pl 17 Apr 2007 08:45:37 -0000 1.9
+++ circ/waitingreservestransfers.pl 18 Apr 2007 17:00:14 -0000 1.10
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: waitingreservestransfers.pl,v 1.9 2007/04/17 08:45:37 tipaul Exp $
+# $Id: waitingreservestransfers.pl,v 1.10 2007/04/18 17:00:14 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -82,7 +82,6 @@
if (@getreserves) {
foreach my $num (@getreserves) {
my %getreserv;
- my %env;
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
# use Data::Dumper;
# warn Dumper($gettitle);
Index: members/deletemem.pl
===================================================================
RCS file: /sources/koha/koha/members/deletemem.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- members/deletemem.pl 4 Apr 2007 16:46:23 -0000 1.11
+++ members/deletemem.pl 18 Apr 2007 17:00:14 -0000 1.12
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: deletemem.pl,v 1.11 2007/04/04 16:46:23 tipaul Exp $
+# $Id: deletemem.pl,v 1.12 2007/04/18 17:00:14 tipaul Exp $
#script to delete items
#written 2/5/00
@@ -45,8 +45,6 @@
#print $input->header;
my $member=$input->param('member');
-my %env;
-$env{'nottodayissues'}=1;
my %member2;
$member2{'borrowernumber'}=$member;
my $issues=GetBorrowerIssues(\%member2);
Index: members/guarantor_search.pl
===================================================================
RCS file: /sources/koha/koha/members/guarantor_search.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- members/guarantor_search.pl 9 Mar 2007 14:56:55 -0000 1.2
+++ members/guarantor_search.pl 18 Apr 2007 17:00:14 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: guarantor_search.pl,v 1.2 2007/03/09 14:56:55 tipaul Exp $
+# $Id: guarantor_search.pl,v 1.3 2007/04/18 17:00:14 tipaul Exp $
# script to find a guarantor
@@ -57,7 +57,6 @@
}else{
$template->param(results=>1);
}
-my $env;
my ($count,$results);
my @resultsdata;
@@ -66,15 +65,15 @@
if ($member ne ''){
if(length($member) == 1)
{
-
($count,$results)=GuarantornameSearch($env,$member,$orderby,"simple");
+
($count,$results)=GuarantornameSearch($member,$orderby,"simple");
}
else
{
-
($count,$results)=GuarantornameSearch($env,$member,$orderby,"advanced");
+
($count,$results)=GuarantornameSearch($member,$orderby,"advanced");
}
for (my $i=0; $i < $count; $i++){
#find out stats
- my ($od,$issue,$fines)=borrdata2($env,$results->[$i]{'borrowerid'});
+ my ($od,$issue,$fines)=borrdata2($results->[$i]{'borrowerid'});
my $guarantorinfo=uc($results->[$i]{'surname'})." ,
".ucfirst($results->[$i]{'firstname'});
my %row = (
background => $background,
Index: members/member-flags.pl
===================================================================
RCS file: /sources/koha/koha/members/member-flags.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- members/member-flags.pl 17 Apr 2007 08:49:30 -0000 1.8
+++ members/member-flags.pl 18 Apr 2007 17:00:14 -0000 1.9
@@ -34,8 +34,6 @@
my $member=$input->param('member');
-my %env;
-$env{'nottodayissues'}=1;
my %member2;
$member2{'borrowernumber'}=$member;
Index: members/member-password.pl
===================================================================
RCS file: /sources/koha/koha/members/member-password.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- members/member-password.pl 17 Apr 2007 08:49:30 -0000 1.7
+++ members/member-password.pl 18 Apr 2007 17:00:14 -0000 1.8
@@ -34,8 +34,6 @@
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
my $member=$input->param('member');
-my %env;
-$env{'nottodayissues'}=1;
my %member2;
$member2{'borrowernumber'}=$member;
# my $issues=GetBorrowerIssues(\%member2);
Index: members/member.pl
===================================================================
RCS file: /sources/koha/koha/members/member.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- members/member.pl 16 Mar 2007 01:25:09 -0000 1.15
+++ members/member.pl 18 Apr 2007 17:00:14 -0000 1.16
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: member.pl,v 1.15 2007/03/16 01:25:09 kados Exp $
+# $Id: member.pl,v 1.16 2007/04/18 17:00:14 tipaul Exp $
#script to do a borrower enquiery/brin up borrower details etc
#written 20/12/99 by address@hidden
@@ -67,17 +67,16 @@
$orderby = "surname,firstname" unless $orderby;
$member =~ s/,//g; #remove any commas from search string
$member =~ s/\*/%/g;
-my $env;
my ($count,$results);
if(length($member) == 1)
{
- ($count,$results)=BornameSearch($env,$member,$orderby,"simple");
+ ($count,$results)=BornameSearch($member,$orderby,"simple");
}
else
{
- ($count,$results)=BornameSearch($env,$member,$orderby,"advanced");
+ ($count,$results)=BornameSearch($member,$orderby,"advanced");
}
@@ -85,7 +84,7 @@
my $background = 0;
for (my $i=0; $i < $count; $i++){
#find out stats
- my ($od,$issue,$fines)=borrdata2($env,$results->[$i]{'borrowernumber'});
+ my ($od,$issue,$fines)=borrdata2($results->[$i]{'borrowernumber'});
my %row = (
background => $background,
Index: members/moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- members/moremember.pl 4 Apr 2007 16:46:23 -0000 1.31
+++ members/moremember.pl 18 Apr 2007 17:00:14 -0000 1.32
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: moremember.pl,v 1.31 2007/04/04 16:46:23 tipaul Exp $
+# $Id: moremember.pl,v 1.32 2007/04/18 17:00:14 tipaul Exp $
=head1 moremember.pl
@@ -276,7 +276,6 @@
my @reservloop;
foreach my $num_res (@borrowerreserv) {
my %getreserv;
- my %env;
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
my ( $transfertwhen, $transfertfrom, $transfertto ) =
Index: members/pay.pl
===================================================================
RCS file: /sources/koha/koha/members/pay.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- members/pay.pl 4 Apr 2007 16:46:23 -0000 1.9
+++ members/pay.pl 18 Apr 2007 17:00:15 -0000 1.10
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: pay.pl,v 1.9 2007/04/04 16:46:23 tipaul Exp $
+# $Id: pay.pl,v 1.10 2007/04/18 17:00:15 tipaul Exp $
=head1 pay.pl
@@ -75,9 +75,6 @@
$check = 2;
}
}
-my %env;
-
-$env{'branchcode'} = $branch;
my $total = $input->param('total');
if ( $check == 0 ) {
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -91,7 +88,7 @@
}
);
if ( $total ne '' ) {
- recordpayment( \%env, $borrowernumber, $total );
+ recordpayment( $borrowernumber, $total );
}
my ( $numaccts, $accts, $total ) = getboracctrecord( '', \%bor );
@@ -179,7 +176,6 @@
my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount ) = @_;
my $user = $input->remote_user;
my $dbh = C4::Context->dbh;
- my $env;
my $sth =
$dbh->prepare(
"Update accountlines set amountoutstanding=0 where (accounttype='Res' OR
accounttype='FU' OR accounttype ='IP' OR accounttype='CH' OR accounttype='N' OR
accounttype='F' OR accounttype='A' OR accounttype='M' OR accounttype='L' OR
accounttype='RE' OR accounttype='RL') and accountno=? and borrowernumber=?"
@@ -198,6 +194,6 @@
$sth->execute( $borrowernumber, $account->{'max(accountno)'},
$itemnum, $amount );
$sth->finish;
- UpdateStats( $env, $branch, 'writeoff', $amount, '', '', '',
+ UpdateStats( $branch, 'writeoff', $amount, '', '', '',
$borrowernumber );
}
Index: misc/fines2.pl
===================================================================
RCS file: /sources/koha/koha/misc/fines2.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- misc/fines2.pl 4 Apr 2007 16:46:23 -0000 1.14
+++ misc/fines2.pl 18 Apr 2007 17:00:15 -0000 1.15
@@ -25,7 +25,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: fines2.pl,v 1.14 2007/04/04 16:46:23 tipaul Exp $
+# $Id: fines2.pl,v 1.15 2007/04/18 17:00:15 tipaul Exp $
use C4::Context;
use C4::Circulation;
@@ -129,7 +129,6 @@
if ($borrower->{'cardnumber'} ne ''){
my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
my $dbh = C4::Context->dbh;
- my $env;
my
$accountno=C4::Circulation::Circ2::getnextacctno($data->[$i]->{'borrowernumber'});
my $item=GetBiblioFromItemNumber($data->[$i]->{'itemnumber'});
if ($item->{'itemlost'} ne '1' && $item->{'itemlost'} ne '2' ){
Index: misc/notifys/fines.pl
===================================================================
RCS file: /sources/koha/koha/misc/notifys/fines.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- misc/notifys/fines.pl 4 Apr 2007 16:46:23 -0000 1.5
+++ misc/notifys/fines.pl 18 Apr 2007 17:00:15 -0000 1.6
@@ -99,9 +99,7 @@
if ($borrower->{'cardnumber'} ne ''){
my $cost=ReplacementCost($overdue->{'itemnumber'});
my $dbh=C4Connect();
- my $env;
-
- my
$accountno=C4::Circulation::Circ2::getnextacctno($overdue->{'borrowernumber'});
+ my
$accountno=C4::Circulation::getnextacctno($overdue->{'borrowernumber'});
my
$item=GetBiblioFromItemNumber($overdue->{'itemnumber'});
if ($item->{'itemlost'} ne '1' && $item->{'itemlost'}
ne '2' ){
$item->{'title'}=~ s/\'/\\'/g;
@@ -275,8 +273,6 @@
my $total_fines = 0;
foreach my $over (@alloverdues) {
my %row_data;
- my $env; #FIXME what is this varible for?
-
if ( my $item = GetBiblioFromItemNumber(
$over->{'itemnumber'})){
print "getting fine ($over->{'itemnumber'}
$overdue->{'borrowernumber'} $over->{'borrowernumber'}\n";
my $fine =
GetFine($over->{'itemnumber'},$overdue->{'borrowernumber'});
@@ -317,11 +313,9 @@
}
$template->param(BOOKDETAILS =>
address@hidden);
-
- my $env;
my %params;
%params->{'borrowernumber'} =
$overdue->{'borrowernumber'};
- my ($count, $acctlines, $total) =
&getboracctrecord($env, \%params);
+ my ($count, $acctlines, $total) =
&getboracctrecord(\%params);
$template->param(FINES_TOTAL =>
$total_fines);
$template->param(OWING => $total);
my $name= "$borrower->{'firstname'}
$borrower->{'surname'}";
Index: opac/opac-dictionary.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-dictionary.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- opac/opac-dictionary.pl 9 Mar 2007 15:12:54 -0000 1.5
+++ opac/opac-dictionary.pl 18 Apr 2007 17:00:15 -0000 1.6
@@ -75,8 +75,6 @@
my $dbh = C4::Context->dbh;
my ( $template, $loggedinuser, $cookie );
-my $env;
-
my $startfrom = $input->param('startfrom');
$startfrom = 0 if ( !defined $startfrom );
my $searchdesc;
Index: opac/opac-renew.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-renew.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- opac/opac-renew.pl 4 Apr 2007 16:46:23 -0000 1.5
+++ opac/opac-renew.pl 18 Apr 2007 17:00:15 -0000 1.6
@@ -12,7 +12,6 @@
my $itemnumber = $query->param('item');
my $borrowernumber = $query->param("borrowernumber");
-my %env;
my $status = CanBookBeRenewed( $borrowernumber, $itemnumber );
if ( $status == 1 ) {
AddRenewal( $borrowernumber, $itemnumber );
Index: opac/opac-user.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-user.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- opac/opac-user.pl 4 Apr 2007 16:46:23 -0000 1.25
+++ opac/opac-user.pl 18 Apr 2007 17:00:15 -0000 1.26
@@ -15,7 +15,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: opac-user.pl,v 1.25 2007/04/04 16:46:23 tipaul Exp $
+# $Id: opac-user.pl,v 1.26 2007/04/18 17:00:15 tipaul Exp $
use strict;
require Exporter;
@@ -110,7 +110,6 @@
$issue->{$publictype} = 1;
# check if item is renewable
- my %env;
my $status = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} );
$issue->{'status'} = $status;
Index: reserve/placerequest.pl
===================================================================
RCS file: /sources/koha/koha/reserve/placerequest.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- reserve/placerequest.pl 4 Apr 2007 16:46:23 -0000 1.6
+++ reserve/placerequest.pl 18 Apr 2007 17:00:15 -0000 1.7
@@ -72,16 +72,15 @@
$i2++;
}
}
- my $env;
my $const;
if ($input->param('request') eq 'any'){
$const='a';
-
CreateReserve(\$env,$branch,$borrowernumber->{'borrowernumber'},$biblionumber,$const,address@hidden,$rank[0],$notes,$title,$checkitem,$found);
+
CreateReserve($branch,$borrowernumber->{'borrowernumber'},$biblionumber,$const,address@hidden,$rank[0],$notes,$title,$checkitem,$found);
} elsif ($reqbib[0] ne ''){
$const='o';
-
CreateReserve(\$env,$branch,$borrowernumber->{'borrowernumber'},$biblionumber,$const,address@hidden,$rank[0],$notes,$title,$checkitem,
$found);
+
CreateReserve($branch,$borrowernumber->{'borrowernumber'},$biblionumber,$const,address@hidden,$rank[0],$notes,$title,$checkitem,
$found);
} else {
-
CreateReserve(\$env,$branch,$borrowernumber->{'borrowernumber'},$biblionumber,'a',address@hidden,$rank[0],$notes,$title,$checkitem,
$found);
+
CreateReserve($branch,$borrowernumber->{'borrowernumber'},$biblionumber,'a',address@hidden,$rank[0],$notes,$title,$checkitem,
$found);
}
print $input->redirect("request.pl?biblionumber=$biblionumber");
Index: reserve/renewscript.pl
===================================================================
RCS file: /sources/koha/koha/reserve/renewscript.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- reserve/renewscript.pl 4 Apr 2007 16:46:23 -0000 1.6
+++ reserve/renewscript.pl 18 Apr 2007 17:00:15 -0000 1.7
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: renewscript.pl,v 1.6 2007/04/04 16:46:23 tipaul Exp $
+# $Id: renewscript.pl,v 1.7 2007/04/18 17:00:15 tipaul Exp $
#written 18/1/2000 by address@hidden
#script to renew items from the web
@@ -43,7 +43,6 @@
#
# renew items
#
-my %env;
my $cardnumber = $input->param("cardnumber");
my $borrowernumber = $input->param("borrowernumber");
Index: reserve/request.pl
===================================================================
RCS file: /sources/koha/koha/reserve/request.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- reserve/request.pl 4 Apr 2007 16:46:23 -0000 1.9
+++ reserve/request.pl 18 Apr 2007 17:00:15 -0000 1.10
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: request.pl,v 1.9 2007/04/04 16:46:23 tipaul Exp $
+# $Id: request.pl,v 1.10 2007/04/18 17:00:15 tipaul Exp $
#writen 2/1/00 by address@hidden
# Copyright 2000-2002 Katipo Communications
@@ -62,7 +62,6 @@
my $findborrower = $input->param('findborrower');
$findborrower =~ s|,| |g;
my $cardnumber = $input->param('cardnumber');
-my %env;
my $borrowerslist;
my $messageborrower;
@@ -70,7 +69,7 @@
if ($findborrower) {
my ( $count, $borrowers ) =
- BornameSearch( \%env, $findborrower, 'cardnumber', 'web' );
+ BornameSearch($findborrower, 'cardnumber', 'web' );
my @borrowers = @$borrowers;
@@ -351,7 +350,6 @@
}
if ( ( $res->{'found'} eq 'W' ) or ( $res->{'priority'} eq '0' ) ) {
- my %env;
my $item = $res->{'itemnumber'};
$item = getiteminformation($item,undef);
$reserve{'wait'}= 1;
Index: serials/routing-preview.pl
===================================================================
RCS file: /sources/koha/koha/serials/routing-preview.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- serials/routing-preview.pl 4 Apr 2007 16:46:23 -0000 1.4
+++ serials/routing-preview.pl 18 Apr 2007 17:00:15 -0000 1.5
@@ -44,7 +44,6 @@
my ($template, $loggedinuser, $cookie);
if($ok){
- my $env;
# get biblio information....
my $biblio = $subs->{'biblionumber'};
@@ -72,7 +71,7 @@
if($routinglist[$i]->{'borrowernumber'} == $data->{'borrowernumber'}){
UpdateReserve($routinglist[$i]->{'ranking'},$biblio,$routinglist[$i]->{'borrowernumber'},$branch);
} else {
-
CreateReserve(\$env,$branch,$routinglist[$i]->{'borrowernumber'},$biblio,$const,address@hidden,$routinglist[$i]->{'ranking'},$notes,$title);
+
CreateReserve($branch,$routinglist[$i]->{'borrowernumber'},$biblio,$const,address@hidden,$routinglist[$i]->{'ranking'},$notes,$title);
}
}
Index: tools/letter.pl
===================================================================
RCS file: /sources/koha/koha/tools/letter.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- tools/letter.pl 9 Mar 2007 15:14:47 -0000 1.2
+++ tools/letter.pl 18 Apr 2007 17:00:15 -0000 1.3
@@ -47,7 +47,7 @@
sub StringSearch {
- my ($env,$searchstring,$type)address@hidden;
+ my ($searchstring,$type)address@hidden;
my $dbh = C4::Context->dbh;
$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
@@ -252,8 +252,7 @@
$template->param(search => 1);
$template->param(searchfield => $searchfield);
}
- my $env;
- my ($count,$results)=StringSearch($env,$searchfield,'web');
+ my ($count,$results)=StringSearch($searchfield,'web');
my $toggle="white";
my @loop_data =();
for (my $i=$offset; $i <
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha C4/Accounts.pm C4/Biblio.pm C4/Circulation...,
paul poulain <=