fix pod

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@508 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index c8bd312..b41212e 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -52,7 +52,7 @@ path to YAML configuration file
 
 =item --force-set
 
-force conversion C<normalize->path> in C<config.yml> from
+force conversion C<< normalize->path >> in C<config.yml> from
 C<.xml> to C<.pl>
 
 =item --stats
@@ -246,13 +246,24 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
                                push @{ $row->{'000'} }, $pos;
                        }
 
-                       my $ds = $n ? $n->data_structure($row) :
-                               WebPAC::Normalize::Set::data_structure(
+                               
+                       my $ds;
+                       if ($n) {
+                               $ds = $n->data_structure($row);
+                       } else {
+                               $ds = WebPAC::Normalize::Set::data_structure(
                                        row => $row,
                                        rules => $rules,
                                        lookup => $lookup->lookup_hash,
                                );
 
+                               $db->save_ds(
+                                       id => $mfn,
+                                       ds => $ds,
+                                       prefix => $input->{name},
+                               ) if ($ds);
+                       }
+
                        $indexer->add(
                                id => $input->{name} . "/" . $mfn,
                                ds => $ds,