[Koha-cvs] CVS: koha/misc Install.pm,1.82,1.83

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11564/misc

Modified Files:
        Install.pm 
Log Message:
defaulting variables to avoir Perl warnings

Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -r1.82 -r1.83
*** Install.pm  24 Nov 2004 16:05:35 -0000      1.82
--- Install.pm  8 Dec 2004 10:28:42 -0000       1.83
***************
*** 1887,1891 ****
        my $input;
        my $response;
!       my $branch;
        if ($auto_install->{BranchName}) {
                $branch=$auto_install->{BranchName};
--- 1887,1891 ----
        my $input;
        my $response;
!       my $branch='MAIN';
        if ($auto_install->{BranchName}) {
                $branch=$auto_install->{BranchName};
***************
*** 1919,1924 ****
                system("$mysqldir/bin/mysql -u$user $database -e \"insert into 
branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
  
!               my $printername;
!               my $printerqueue;
                if ($auto_install->{PrinterName}) {
                        $printername=$auto_install->{PrinterName};
--- 1919,1924 ----
                system("$mysqldir/bin/mysql -u$user $database -e \"insert into 
branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
  
!               my $printername='lp';
!               my $printerqueue='/dev/lp0';
                if ($auto_install->{PrinterName}) {
                        $printername=$auto_install->{PrinterName};