[Koha-cvs] CVS: koha/misc Install.pm,1.21,1.22

[Andrew Arensburger]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv6264

Modified Files:
        Install.pm 
Log Message:
Emacs's colorization was being confused by single quotes in strings.
Added comments to fix this.


Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** Install.pm  25 Jan 2003 17:39:10 -0000      1.21
--- Install.pm  25 Jan 2003 17:50:48 -0000      1.22
***************
*** 144,148 ****
  perl -MCPAN -e 'install Net::Z3950'
  
! Press the <ENTER> key to continue: |;
  
  $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
--- 144,148 ----
  perl -MCPAN -e 'install Net::Z3950'
  
! Press the <ENTER> key to continue: |; #'
  
  $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
***************
*** 180,184 ****
  directory will be auto-created for you if it doesn't exist.
  
! OPAC Directory [%s]: |;
  
  $messages->{'GetIntranetDir'}->{en} =
--- 180,184 ----
  directory will be auto-created for you if it doesn't exist.
  
! OPAC Directory [%s]: |;       #'
  
  $messages->{'GetIntranetDir'}->{en} =
***************
*** 187,191 ****
  files in.  This directory will be auto-created for you if it doesn't exist.
  
! Intranet Directory [%s]: |;
  
  $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
--- 187,191 ----
  files in.  This directory will be auto-created for you if it doesn't exist.
  
! Intranet Directory [%s]: |;   #'
  
  $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
***************
*** 484,487 ****
--- 484,488 ----
  
  =cut
+ #'
  
  sub showmessage {
***************
*** 1195,1199 ****
  in place.
  
! Would you like to do this ([Y]/N): |;
  
  $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet 
access [%s]: ";
--- 1196,1200 ----
  in place.
  
! Would you like to do this ([Y]/N): |; #'
  
  $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet 
access [%s]: ";
***************
*** 1304,1308 ****
  mysql server's root user password:
  
! Enter MySQL root user password: |;
  
  $messages->{'InvalidMysqlRootPassword'}->{en}="Invalid Password.  Please try 
again.";
--- 1305,1309 ----
  mysql server's root user password:
  
! Enter MySQL root user password: |;    #'
  
  $messages->{'InvalidMysqlRootPassword'}->{en}="Invalid Password.  Please try 
again.";
***************
*** 1318,1322 ****
  This is a serious problem, the database will not get installed.
  
! Press <ENTER> to continue: |;
  
  $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
--- 1319,1323 ----
  This is a serious problem, the database will not get installed.
  
! Press <ENTER> to continue: |; #'
  
  $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
***************
*** 1327,1331 ****
  data, you probably don't want this sample data installed.
  
! Would you like to install the sample data? Y/[N]: |;
  
  $messages->{'SampleDataInstalled'}->{en} =
--- 1328,1332 ----
  data, you probably don't want this sample data installed.
  
! Would you like to install the sample data? Y/[N]: |;  #'
  
  $messages->{'SampleDataInstalled'}->{en} =
***************
*** 1387,1390 ****
--- 1388,1392 ----
  
  EOP
+ #'
        }
      }
***************
*** 1576,1579 ****
--- 1578,1582 ----
  Press Enter to continue.
  EOF
+ #'
  }