Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv31054
Modified Files:
HTML.pm
Log Message:
Fix bug where rename wouldn't work with numbers in the names
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.174
retrieving revision 1.175
diff -C2 -d -r1.174 -r1.175
*** HTML.pm 29 Jun 2003 21:01:39 -0000 1.174
--- HTML.pm 6 Jul 2003 01:02:09 -0000 1.175
***************
*** 1841,1846 ****
}
if ( ( defined($self->{form_}{cname}) ) && ( $self->{form_}{cname} ne '' ) ) {
! if ( $self->{form_}{cname} =~ /[^[:lower:]\-_0-9]/ ) {
$create_message = "<blockquote><div class=\"error01\">$self->{language__}{Bucket_Error1}</div></blockquote>";
} else {
--- 1841,1851 ----
}
+ # This regular expression defines the characters that are NOT valid
+ # within a bucket name
+
+ my $invalid_bucket_chars = '[^[:lower:]\-_0-9]';
+
if ( ( defined($self->{form_}{cname}) ) && ( $self->{form_}{cname} ne '' ) ) {
! if ( $self->{form_}{cname} =~ /$invalid_bucket_chars/ ) {
$create_message = "<blockquote><div class=\"error01\">$self->{language__}{Bucket_Error1}</div></blockquote>";
} else {
***************
*** 1861,1865 ****
if ( ( defined($self->{form_}{newname}) ) && ( $self->{form_}{oname} ne '' ) ) {
! if ( $self->{form_}{newname} =~ /[^[:lower:]\-_]/ ) {
$rename_message = "<blockquote><div class=\"error01\">$self->{language__}{Bucket_Error1}</div></blockquote>";
} else {
--- 1866,1870 ----
if ( ( defined($self->{form_}{newname}) ) && ( $self->{form_}{oname} ne '' ) ) {
! if ( $self->{form_}{newname} =~ /$invalid_bucket_chars/ ) {
$rename_message = "<blockquote><div class=\"error01\">$self->{language__}{Bucket_Error1}</div></blockquote>";
} else {
|
