[Koha-cvs] CVS: koha/acqui.simple addbookslccn.pl,1.8,1.9

[Andrew Arensburger]

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 address@hidden 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 address@hidden 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";