[Bast-commits] r8168 - ironman/IronMan-Web/script

[iain at dev.catalyst.perl.org]

Author: iain
Date: 2009-12-24 12:02:31 +0000 (Thu, 24 Dec 2009)
New Revision: 8168

Modified:
   ironman/IronMan-Web/script/import_csv.pl
Log:
now populates the filtered summary field

Modified: ironman/IronMan-Web/script/import_csv.pl
===================================================================
--- ironman/IronMan-Web/script/import_csv.pl	2009-12-24 11:34:45 UTC (rev 8167)
+++ ironman/IronMan-Web/script/import_csv.pl	2009-12-24 12:02:31 UTC (rev 8168)
@@ -21,7 +21,7 @@
 use DateTime::Format::HTTP;
 
 # UPDATE THESE PATHS #
-die "UPDATE YOUR PATHS AND REMOVE THIS LINE";
+#die "UPDATE YOUR PATHS AND REMOVE THIS LINE";
 my @files = </home/iain/Projects/ironman/csv/*>;
 my $schema = IronMan::Schema->connect('dbi:SQLite:/home/iain/Projects/ironman/subscriptions.db');
 
@@ -99,6 +99,7 @@
                         title     => $row->[1],
                         url       => $row->[2],
                         summary   => $row->[4],
+                        summary_filtered => $row->[4],
                     });
                      
                     # track the most recent post date
@@ -127,6 +128,7 @@
                             posted_on => $new_date,
                             body      => '',
                             summary   => $row->[4],
+                            summary_filtered => $row->[4],
                         }
                     );
                 };