[Koha-cvs] CVS: koha Install.pm,1.1.2.24,1.1.2.25

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv26121

Modified Files:
      Tag: rel-1-2
	Install.pm 
Log Message:
bug fix


Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/Attic/Install.pm,v
retrieving revision 1.1.2.24
retrieving revision 1.1.2.25
diff -C2 -r1.1.2.24 -r1.1.2.25
*** Install.pm	9 Dec 2002 21:31:55 -0000	1.1.2.24
--- Install.pm	9 Dec 2002 23:39:12 -0000	1.1.2.25
***************
*** 1234,1238 ****
  	    $branchcode=uc($branchcode);
  	    $branchcode=substr($branchcode,0,4);
! 	    $branchcode || $branchcode='DEF';
  
  	    system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
--- 1234,1238 ----
  	    $branchcode=uc($branchcode);
  	    $branchcode=substr($branchcode,0,4);
! 	    $branchcode or $branchcode='DEF';
  
  	    system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");