gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug #175.

This commit is contained in:
wolfpac444 2003-03-16 22:06:54 +00:00
parent 0ce65b684a
commit 9b85fd2b09
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
misc/Install.pm
View File

@ -510,11 +510,18 @@ sub showmessage {
$response=<STDIN>;
chomp $response;
(length($response)) || ($response=$defaultresponse);
unless ($options=~/$response/) {
($noclear) || (system('clear'));
print "Invalid Response. Choose from [$options].\n\n";
print $message;
}
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;
} elsif ($responsetype =~/^free$/i) {