[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc Install.pm,1.29,1.30
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha/misc Install.pm,1.29,1.30 |
Date: |
Sun, 16 Mar 2003 14:06:57 -0800 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc Install.pm,1.29,1.30,
Mike Hansen <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/images modify-user-flags.gif,NONE,1.1 password-mem.gif,NONE,1.1
- Next by Date:
[Koha-cvs] CVS: koha/misc Install.pm,1.30,1.31
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/images modify-user-flags.gif,NONE,1.1 password-mem.gif,NONE,1.1
- Next by thread:
[Koha-cvs] CVS: koha/misc Install.pm,1.30,1.31
- Index(es):