[Koha-cvs] CVS: koha koha.upgrade,1.4,1.5

[Andrew Arensburger]

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

Modified Files:
        koha.upgrade 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: koha.upgrade
===================================================================
RCS file: /cvsroot/koha/koha/koha.upgrade,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** koha.upgrade        12 Oct 2002 06:09:03 -0000      1.4
--- koha.upgrade        13 Oct 2002 07:32:46 -0000      1.5
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl -w
  
+ # $Id$
+ 
  #use diagnostics;
  use strict; # please develop with the strict pragma
***************
*** 86,90 ****
  This upgrade script will make a backup copy of your files for you.
  
! Would you like to proceed?  ([Y]/N):  
  |;
  
--- 88,92 ----
  This upgrade script will make a backup copy of your files for you.
  
! Would you like to proceed?  ([Y]/N):
  |;
  
***************
*** 122,126 ****
  unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
  unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
! unless (eval {require Net::Z3950})        { 
      print qq|
  
--- 124,128 ----
  unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
  unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
! unless (eval {require Net::Z3950})        {
      print qq|
  
***************
*** 155,159 ****
  
  my $backupdir='/usr/local/koha/backups';
! print "Please specify a backup directory [$backupdir]: ";  
  
  $answer = <STDIN>;
--- 157,161 ----
  
  my $backupdir='/usr/local/koha/backups';
! print "Please specify a backup directory [$backupdir]: ";
  
  $answer = <STDIN>;
***************
*** 286,290 ****
      $opacdir='';
      while (!$intranetdir) {
!       print "Please specify the location of your INTRANET files: ";  
  
        $answer = <STDIN>;
--- 288,292 ----
      $opacdir='';
      while (!$intranetdir) {
!       print "Please specify the location of your INTRANET files: ";
  
        $answer = <STDIN>;
***************
*** 300,304 ****
      }
      while (!$opacdir) {
!       print "Please specify the location of your OPAC files: ";  
  
        $answer = <STDIN>;
--- 302,306 ----
      }
      while (!$opacdir) {
!       print "Please specify the location of your OPAC files: ";
  
        $answer = <STDIN>;
***************
*** 441,445 ****
  
  unless (-e "$kohalogdir") {
!     my $result = mkdir 0770, "$kohalogdir"; 
      if ($result==0) {
          my @dirs = split(m#/#, $kohalogdir);
--- 443,447 ----
  
  unless (-e "$kohalogdir") {
!     my $result = mkdir 0770, "$kohalogdir";
      if ($result==0) {
          my @dirs = split(m#/#, $kohalogdir);