From 3f0d06fbcdf5393463d986f3d66550c8e438c5e4 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Dec 2004 10:28:42 +0000
Subject: [PATCH] defaulting variables to avoir Perl warnings

---
 misc/Install.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 18f1bb5174..43237d2ce9 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -1886,7 +1886,7 @@ sub populatedatabase {
 	my ($auto_install) = @_;
 	my $input;
 	my $response;
-	my $branch;
+	my $branch='MAIN';
 	if ($auto_install->{BranchName}) {
 		$branch=$auto_install->{BranchName};
 		print ON_YELLOW.BLACK."auto-setting a branch : $branch".RESET."\n";
@@ -1918,8 +1918,8 @@ sub populatedatabase {
 		system("$mysqldir/bin/mysql -u$user $database -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
 		system("$mysqldir/bin/mysql -u$user $database -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
 
-		my $printername;
-		my $printerqueue;
+		my $printername='lp';
+		my $printerqueue='/dev/lp0';
 		if ($auto_install->{PrinterName}) {
 			$printername=$auto_install->{PrinterName};
 			print ON_YELLOW.BLACK."auto-setting a printer : $printername".RESET."\n";
-- 
2.39.5