[Koha-cvs] CVS: koha/acqui.simple addbooks.pl,1.5.2.3,1.5.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv27122

Modified Files:
      Tag: rel-1-2
	addbooks.pl 
Log Message:
Re-enabling the max(barcode) + 1 behaviour.  Checks that the last digit is a
number before adding 1.  If the last digit isn't a number, fall back to Roger's
behaviour of using biblionumber as barcode.


Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.5.2.3
retrieving revision 1.5.2.4
diff -C2 -r1.5.2.3 -r1.5.2.4
*** addbooks.pl	26 Jun 2002 21:58:45 -0000	1.5.2.3
--- addbooks.pl	27 Jun 2002 16:26:52 -0000	1.5.2.4
***************
*** 320,327 ****
  EOF
  	}
! #	my $sth=$dbh->prepare("select max(barcode) from items");
! #	$sth->execute;
! #	my ($maxbarcode) = $sth->fetchrow;
! #	$maxbarcode++;
  #       print STDERR "MaxBarcode: $maxbarcode \n";
  	print << "EOF";
--- 320,333 ----
  EOF
  	}
! 	my $sth=$dbh->prepare("select max(barcode) from items");
! 	$sth->execute;
! 	my ($maxbarcode) = $sth->fetchrow;
! 	if ($maxbarcode=~/\d$/) {
! 	    # maxbarcode ends in a digit
! 	    $maxbarcode++;
! 	} else {
! 	    $maxbarcode=$biblionumber;
! 	}
! 	$maxbarcode++;
  #       print STDERR "MaxBarcode: $maxbarcode \n";
  	print << "EOF";
***************
*** 333,338 ****
  <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
--- 339,344 ----
  <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