/[webpac]/branches/hidra/all2xml.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/hidra/all2xml.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 652 by dpavlin, Thu Jan 27 21:17:47 2005 UTC revision 658 by dpavlin, Fri Feb 4 15:00:24 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use Biblio::Isis;  use Biblio::Isis 0.12;
5  use Getopt::Std;  use Getopt::Std;
6  use Data::Dumper;  use Data::Dumper;
7  use XML::Simple;  use XML::Simple;
# Line 738  print STDERR "using: $type...\n"; Line 738  print STDERR "using: $type...\n";
738                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);
739                  my $db = new Biblio::Isis( isisdb => $isis_db );                  my $db = new Biblio::Isis( isisdb => $isis_db );
740    
741                  my $max_rowid = $db->count;                  if (! $db) {
   
                 if (! $max_rowid) {  
742                          print STDERR "FATAL: can't read ISIS database: $isis_db, skipping...\n";                          print STDERR "FATAL: can't read ISIS database: $isis_db, skipping...\n";
743                          next;                          next;
744                  }                  }
745    
746                    my $max_rowid = $db->count;
747    
748                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";
749    
750                  $path = $database;                  $path = $database;

Legend:
Removed from v.652  
changed lines
  Added in v.658

  ViewVC Help
Powered by ViewVC 1.1.26