[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;