[Koha-cvs] CVS: koha/acqui.simple addbookslccn.pl,1.8,1.9
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:38:52 CEST 2002
Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv5366
Modified Files:
addbookslccn.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** addbookslccn.pl 5 Oct 2002 09:55:46 -0000 1.8
--- addbookslccn.pl 13 Oct 2002 07:38:50 -0000 1.9
***************
*** 1,9 ****
#!/usr/bin/perl
#
# Modified saas at users.sf.net 12:00 01 April 2001
# The biblioitemnumber was not correctly initialised
# The max(barcode) value was broken - koha 'barcode' is a string value!
! # - If left blank, barcode value now defaults to max(biblionumber)
#
--- 1,11 ----
#!/usr/bin/perl
+ # $Id$
+
#
# Modified saas at users.sf.net 12:00 01 April 2001
# The biblioitemnumber was not correctly initialised
# The max(barcode) value was broken - koha 'barcode' is a string value!
! # - If left blank, barcode value now defaults to max(biblionumber)
#
***************
*** 346,356 ****
<input type=hidden name=biblioitemnumber value=$biblioitemnumber>
<table>
! <!-- tr><td>BARCODE</td><td><input name=barcode size=10 value=\$maxbarcode -->
! <tr><td>BARCODE</td><td><input name=barcode size=10 value=$biblionumber>
Home Branch: <select name=homebranch>
EOF
! my $branches=getbranches();
! foreach my $key (sort(keys %$branches)) {
! print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
}
print << "EOF";
--- 348,358 ----
<input type=hidden name=biblioitemnumber value=$biblioitemnumber>
<table>
! <!-- tr><td>BARCODE</td><td><input name=barcode size=10 value=\$maxbarcode -->
! <tr><td>BARCODE</td><td><input name=barcode size=10 value=$biblionumber>
Home Branch: <select name=homebranch>
EOF
! my $branches=getbranches();
! foreach my $key (sort(keys %$branches)) {
! print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
}
print << "EOF";
More information about the Koha-cvs
mailing list