[Koha-cvs] CVS: koha/misc Install.pm,1.29,1.30

[Mike Hansen]

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

Modified Files:
	Install.pm 
Log Message:
Fixed bug #175.


Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** Install.pm	4 Feb 2003 15:12:12 -0000	1.29
--- Install.pm	16 Mar 2003 22:06:54 -0000	1.30
***************
*** 511,519 ****
  	    chomp $response;
  	    (length($response)) || ($response=$defaultresponse);
! 	    unless ($options=~/$response/) {
! 		($noclear) || (system('clear'));
! 		print "Invalid Response.  Choose from [$options].\n\n";
! 		print $message;
! 	    }
  	}
  	return $response;
--- 511,526 ----
  	    chomp $response;
  	    (length($response)) || ($response=$defaultresponse);
!             if ( $response=~/.*[\:\(\)\^\$\*\!\\].*/ ) {
!                 ($noclear) || (system('clear'));
!                 print "Response contains invalid characters.  Choose from [$options].\n\n";
!                 print $message;
!                 $response='\0';
!             } else {
!                 unless ($options=~/$response/) {
!                     ($noclear) || (system('clear'));
!                     print "Invalid Response.  Choose from [$options].\n\n";
!                     print $message;
!                 }
!             }
  	}
  	return $response;