[Koha-cvs] CVS: koha/misc Install.pm,1.75,1.76

[Paul POULAIN]

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

Modified Files:
	Install.pm 
Log Message:
Adding "directory-select" feature to the "select sql file to insert to your DB".

Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -r1.75 -r1.76
*** Install.pm	22 Jun 2004 15:32:43 -0000	1.75
--- Install.pm	29 Jun 2004 08:34:05 -0000	1.76
***************
*** 1646,1650 ****
  	}
  
! 	my ($auto_install) = @_;
  	showmessage(getmessage('InstallFiles'),'none') unless ($auto_install->{NoPressEnter});
  
--- 1646,1650 ----
  	}
  
! # 	my ($auto_install) = @_;
  	showmessage(getmessage('InstallFiles'),'none') unless ($auto_install->{NoPressEnter});
  
***************
*** 1963,2002 ****
  	startsysout();	
  	system("$mysqldir/bin/mysql -u$user $database -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
! 	# CHECK for any other file to append...
! 	my @sql;
! 	push @sql,"FINISHED";
  	if (-d "scripts/misc/sql-datas") {
! 	    opendir D, "scripts/misc/sql-datas";
! 	    foreach my $sql (readdir D) {
! 			next unless ($sql =~ /.txt$/);
! 			push @sql, $sql;
! 	    }
! 	}
! 	my $loopend=0;
! 	while (not $loopend) {
! 		print heading("SELECT SQL FILE");
! 		print qq|
  Select a file to append to the Koha DB.
  enter a number. A detailled explanation of the file will be given
  if you confirm, the file will be added to the DB
  |;
! 		for (my $i=0;$i<=$#sql;$i++) {
! 			print "$i => ".$sql[$i]."\n";
! 		}
! 		my $response =<STDIN>;
! 		if ($response==0) {
! 			$loopend = 1;
! 		} else {
! 			# show the content of the file
! 			my $FileToUpload = $sql[$response];
! 			open FILE,"scripts/misc/sql-datas/$FileToUpload";
! 			my $content = <FILE>;
! 			print heading("INSERT $FileToUpload ?")."$content\n";
! 			# ask confirmation
! 			$response=showmessage(getmessage('ConfirmFileUpload'), 'yn', 'y');
! 			# if confirmed, upload the file in the DB
! 			unless ($response =~/^n/i) {
! 				$FileToUpload =~ s/\.txt/\.sql/;
! 				system("$mysqldir/bin/mysql -u$user $database <scripts/misc/sql-datas/$FileToUpload");
  			}
  		}
--- 1963,2034 ----
  	startsysout();	
  	system("$mysqldir/bin/mysql -u$user $database -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
! 	my @dirs;
  	if (-d "scripts/misc/sql-datas") {
! 		# ask for directory to look for files to append
! 		my @directories;
! 		push @directories,"FINISHED";
! 		if (-d "scripts/misc/sql-datas") {
! 			opendir D, "scripts/misc/sql-datas";
! 			foreach my $dir (readdir D) {
!  				next if ($dir =~ /^\./);
! 				push @directories, $dir;
! 			}
! 		}
! 		my $loopend=0;
! 		while (not $loopend) {
! 			print heading("SELECT SQL DIRECTORY");
! 			print qq|
! Select a directory. You will see every file included in this directory and be able to choose file(s) to import into Koha
! This is a VERY important feature. By selecting the proper options, you can get a pre-setup Koha, almost ready to be put in production.
! Choose wisely.
! |;
! 			for (my $i=0;$i<=$#directories;$i++) {
! 				print "$i => ".$directories[$i]."\n";
! 			}
! 			my $sqluploaddir =<STDIN>;
! 			if ($sqluploaddir==0) {
! 				$loopend = 1;
! 			} else {
! 				$sqluploaddir = $directories[$sqluploaddir];
! 				# CHECK for any other file to append...
! 				my @sql;
! 				push @sql,"FINISHED";
! 				if (-d "scripts/misc/sql-datas/$sqluploaddir") {
! 					opendir D, "scripts/misc/sql-datas/$sqluploaddir";
! 					foreach my $sql (readdir D) {
! 						next unless ($sql =~ /.txt$/);
! 						push @sql, $sql;
! 					}
! 				}
! 				$loopend=0;
! 				while (not $loopend) {
! 					print heading("SELECT SQL FILE");
! 					print qq|
  Select a file to append to the Koha DB.
  enter a number. A detailled explanation of the file will be given
  if you confirm, the file will be added to the DB
  |;
! 					for (my $i=0;$i<=$#sql;$i++) {
! 						print "$i => ".$sql[$i]."\n";
! 					}
! 					my $response =<STDIN>;
! 					if ($response==0) {
! 						$loopend = 1;
! 					} else {
! 						# show the content of the file
! 						my $FileToUpload = $sql[$response];
! 						open FILE,"scripts/misc/sql-datas/$sqluploaddir/$FileToUpload";
! 						my $content = <FILE>;
! 						print heading("INSERT $sqluploaddir/$FileToUpload ?")."$content\n";
! 						# ask confirmation
! 						$response=showmessage(getmessage('ConfirmFileUpload'), 'yn', 'y');
! 						# if confirmed, upload the file in the DB
! 						unless ($response =~/^n/i) {
! 							$FileToUpload =~ s/\.txt/\.sql/;
! 							system("$mysqldir/bin/mysql -u$user $database <scripts/misc/sql-datas/$sqluploaddir/$FileToUpload");
! 						}
! 					}
! 				}
! 				$loopend=0;
  			}
  		}