[Koha-cvs] CVS: koha installer.pl,1.2.2.25,1.2.2.26

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv21598

Modified Files:
      Tag: rel-1-2
        installer.pl 
Log Message:
Added section to add a branch and printer in installer.pl.
This isn't strictly a bug fix, but it is causing a lot of problems on
new installs, so I think it should go in.


Index: installer.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer.pl,v
retrieving revision 1.2.2.25
retrieving revision 1.2.2.26
diff -C2 -r1.2.2.25 -r1.2.2.26
*** installer.pl        24 Jun 2002 19:42:55 -0000      1.2.2.25
--- installer.pl        25 Jun 2002 16:11:33 -0000      1.2.2.26
***************
*** 499,503 ****
  my $result=system("$mysqldir/bin/mysqladmin -u$mysqluser -p$mysqlpass create 
$dbname");
  if ($result) {
!     print "\nCouldn't connect to the MySQL server for the reason given 
above.";
      print "Press <ENTER> to continue...";
      <STDIN>;
--- 499,504 ----
  my $result=system("$mysqldir/bin/mysqladmin -u$mysqluser -p$mysqlpass create 
$dbname");
  if ($result) {
!     print "\nCouldn't connect to the MySQL server for the reason given 
above.\n";
!     print "This is a serious problem, the database will not get 
installed.\n";
      print "Press <ENTER> to continue...";
      <STDIN>;
***************
*** 510,513 ****
--- 511,562 ----
  
      system ("perl -I $kohadir/modules scripts/updater/updatedatabase");
+ 
+ 
+ 
+ 
+     print "\n\nWould you like to add a branch and printer? [Y]/N: ";
+     chomp($input = <STDIN>);
+ 
+ 
+     unless ($input =~/^n/i) {
+       my $branch='Main Library';
+       print "Enter a name for the library branch [$branch]: ";
+       chomp($input = <STDIN>);
+       if ($input) {
+           $branch=$input;
+       }
+       $branch=~s/[^A-Za-z0-9\s]//g;
+       my $branchcode=$branch;
+       $branchcode=~s/[^A-Za-z0-9]//g;
+       $branchcode=uc($branchcode);
+       $branchcode=substr($branchcode,0,4);
+       print "Enter a four letter code for your branch [$branchcode]: ";
+       chomp($input = <STDIN>);
+       if ($input) {
+           $branchcode=$input;
+       }
+       $branchcode=~s/[^A-Z]//g;
+       $branchcode=uc($branchcode);
+       $branchcode=substr($branchcode,0,4);
+       print "Adding branch '$branch' with code '$branchcode'.\n";
+       system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass Koha -e \"insert 
into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 
1)\"");
+       my $printername='Library Printer';
+       print "Enter a name for the printer [$printername]: ";
+       chomp($input = <STDIN>);
+       if ($input) {
+           $printername=$input;
+       }
+       $printername=~s/[^A-Za-z0-9\s]//g;
+       my $printerqueue='lp';
+       print "Enter the queue for the printer [$printerqueue]: ";
+       chomp($input = <STDIN>);
+       if ($input) {
+           $printerqueue=$input;
+       }
+       $printerqueue=~s/[^A-Za-z0-9]//g;
+       system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass Koha -e \"insert 
into printers (printername,printqueue,printtype) values ('$printername', 
'$printerqueue', '')\"");
+     }
+ 
+ 
  }