[popfile-commit] engine/UI HTML.pm,1.174,1.175

[<jgr...@us...>]

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 {