[Rt-commit] [svn] r1186 - rtfm/trunk/tools

[alexmv at pallas.eruditorum.org]

Author: alexmv
Date: Wed Jul  7 21:40:56 2004
New Revision: 1186

Modified:
   rtfm/trunk/tools/factory.mysql
Log:
 * DBD::MySQL's ->tables apparent;y lists them quoted with backticks
   these days, for some obscure reason.

 * Spacing nitpicks


Modified: rtfm/trunk/tools/factory.mysql
==============================================================================
--- rtfm/trunk/tools/factory.mysql	(original)
+++ rtfm/trunk/tools/factory.mysql	Wed Jul  7 21:40:56 2004
@@ -28,11 +28,11 @@
 #get all tables out of database
 my @tables = $dbh->tables();
 
- at tables = grep { /^FM_/i } @tables;
+ at tables = grep { /^FM_/i } map {s/`(.*)`/$1/; $_} @tables;
 my ( %tablemap, $typemap, %modulemap );
 
 foreach my $table (@tables) {
-        print "We're looking at $table\n";
+    print "We're looking at $table\n";
 
     $table =~ s/customfield/CustomField/gi;
     $table =~ s/value/Value/gi;
@@ -65,7 +65,7 @@
 foreach my $table (@tables) {
     next if ($table eq 'sessions');
 
-        print "We're looking at $table\n";
+    print "We're looking at $table\n";
 
 
     my $tablesingle = $table;
@@ -155,10 +155,10 @@
 
 ";
 
-print "Checking module map for $field\n";
+        print "Checking module map for $field\n";
 
         if ( $modulemap{$field} ) {
-print " found it!\n";
+            print " found it!\n";
             $FieldsPod .= "
 =item ${field}Obj