X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=koha.upgrade;h=2edfe0565c364d73e2345321c5a1a68e571898dd;hb=f4e7e94f09bca840041847cc2c4f45a90c7d966c;hp=a9dee421e9401cb29a15bb085453ffe7335f1387;hpb=00564428aa4b704dfa73a332158aa8730f28bf21;p=koha_fer

diff --git a/koha.upgrade b/koha.upgrade
index a9dee421e9..2edfe0565c 100644
--- a/koha.upgrade
+++ b/koha.upgrade
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+# $Id$
+
 #use diagnostics;
 use strict; # please develop with the strict pragma
 
@@ -85,7 +87,7 @@ You are attempting to upgrade from Koha $kohaversion to $newversion.
 We recommend that you do a complete backup of all your files before upgrading.
 This upgrade script will make a backup copy of your files for you.
 
-Would you like to proceed?  ([Y]/N):  
+Would you like to proceed?  ([Y]/N):
 |;
 
 my $answer = <STDIN>;
@@ -121,8 +123,7 @@ my @missing = ();
 unless (eval {require DBI})               { push @missing,"DBI" };
 unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
 unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
-unless (eval {require Set::Scalar})       { push @missing,"Set::Scalar" };
-unless (eval {require Net::Z3950})        { 
+unless (eval {require Net::Z3950})        {
     print qq|
 
 The Net::Z3950 module is missing.  This module is necessary if you want to use
@@ -155,7 +156,7 @@ if (@missing > 0) {
 
 
 my $backupdir='/usr/local/koha/backups';
-print "Please specify a backup directory [$backupdir]: ";  
+print "Please specify a backup directory [$backupdir]: ";
 
 $answer = <STDIN>;
 chomp $answer;
@@ -286,7 +287,7 @@ if (!$opacdir || !$intranetdir) {
     $intranetdir='';
     $opacdir='';
     while (!$intranetdir) {
-	print "Please specify the location of your INTRANET files: ";  
+	print "Please specify the location of your INTRANET files: ";
 
 	$answer = <STDIN>;
 	chomp $answer;
@@ -300,7 +301,7 @@ if (!$opacdir || !$intranetdir) {
 	}
     }
     while (!$opacdir) {
-	print "Please specify the location of your OPAC files: ";  
+	print "Please specify the location of your OPAC files: ";
 
 	$answer = <STDIN>;
 	chomp $answer;
@@ -441,7 +442,7 @@ unless ($kohalogdir && -e $kohalogdir) {
 }
 
 unless (-e "$kohalogdir") {
-    my $result = mkdir 0770, "$kohalogdir"; 
+    my $result = mkdir 0770, "$kohalogdir";
     if ($result==0) {
         my @dirs = split(m#/#, $kohalogdir);
 	my $checkdir='';