[LON-CAPA-cvs] cvs: loncom /interface lonmysql.pm

[matthew]

matthew		Mon Feb 21 13:08:19 2005 EDT

  Modified files:              
    /loncom/interface	lonmysql.pm 
  Log:
  &fix_table_name MySQL barfs on 1234E5678 as well as 1234e5678.
  
  
Index: loncom/interface/lonmysql.pm
diff -u loncom/interface/lonmysql.pm:1.27 loncom/interface/lonmysql.pm:1.28
--- loncom/interface/lonmysql.pm:1.27	Mon Feb 21 12:23:32 2005
+++ loncom/interface/lonmysql.pm	Mon Feb 21 13:08:19 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # MySQL utility functions
 #
-# $Id: lonmysql.pm,v 1.27 2005/02/21 17:23:32 matthew Exp $
+# $Id: lonmysql.pm,v 1.28 2005/02/21 18:08:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1208,7 +1208,7 @@
 ##########################################
 sub fix_table_name {
     my ($name) = @_;
-    $name =~ s/^(\d+e\d+)/_$1/;
+    $name =~ s/^(\d+[eE]\d+)/_$1/;
     return $name;
 }