[BACK]Return to makemeta-vlp.pl CVS log [TXT] [DIR] Up to [Repository] / foxridge-archiver

Diff for /foxridge-archiver/makemeta-vlp.pl between versions 1.2 and 1.3

version 1.2, 2005/09/20 17:44:48 version 1.3, 2006/06/13 15:04:27
Line 10  use MPIWGStor; Line 10  use MPIWGStor;
 $|=1;  $|=1;
   
 # program version  # program version
 my $version = "0.2 (19.9.2005 ROC)";  my $version = "0.2.1 (12.6.2006 ROC)";
 my $help =   my $help = 
 "use: makemeta-vlp [options] file.xml  "use: makemeta-vlp [options] file.xml
 options:  options:
Line 47  my %subtype_map = ( Line 47  my %subtype_map = (
     'NumberOfVolumes' => 'meta/bib/number-of-volumes',      'NumberOfVolumes' => 'meta/bib/number-of-volumes',
     'Pages' => 'meta/bib/number-of-pages'      'Pages' => 'meta/bib/number-of-pages'
     },      },
       '(Book)' => {
       '_name' => 'book',
       'Author' => 'meta/bib/author',
       'Title' => 'meta/bib/title',
       'Year' => 'meta/bib/year',
       'Place_Published' => 'meta/bib/city',
       'Publisher' => 'meta/bib/publisher',
       'Edition' => 'meta/bib/edition',
       'Volume' => 'meta/bib/volume',
       'NumberOfVolumes' => 'meta/bib/number-of-volumes',
       'Pages' => 'meta/bib/number-of-pages',
       '#Cover pages only, book sections have been extracted' => 'meta/bib/comment'
       },
     'Book Section' => {      'Book Section' => {
     '_name' => 'inbook',      '_name' => 'inbook',
     'Author' => 'meta/bib/author',      'Author' => 'meta/bib/author',
     'Title' => 'meta/bib/title',      'Title' => 'meta/bib/title',
     'Year' => 'meta/bib/year',      'Year' => 'meta/bib/year',
     'Secondary_Title' => 'meta/bib/book-title',      'SecondaryTitle' => 'meta/bib/book-title',
     'SecondaryAuthor' => 'meta/bib/editor',      'SecondaryAuthor' => 'meta/bib/editor',
     'Volume' => 'meta/bib/volume',      'Volume' => 'meta/bib/volume',
     'NumberOfVolumes' => 'meta/bib/number-of-volumes',      'NumberOfVolumes' => 'meta/bib/number-of-volumes',
Line 301  sub convert_bib { Line 314  sub convert_bib {
         $cnt++;          $cnt++;
         }          }
     }      }
       # append additional constant fields (beginning with #)
       foreach my $k (keys %{$subtype_map{$type}}) {
           if ($k =~ /^\#(.*)/) {
           my $val = $1;
           create_text_path($subtype_map{$type}->{$k}, $val, $index_root, $namespace);
           }
       }
     }      }
     return $cnt;      return $cnt;
 }  }
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>