[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};