[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)\"");