/[webpac]/trunk/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 /trunk/all2xml.pl

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

revision 641 by dpavlin, Sun Jan 23 02:02:10 2005 UTC revision 647 by dpavlin, Thu Jan 27 17:55:09 2005 UTC
# Line 23  my $config; Line 23  my $config;
23    
24  #use index_DBI;         # default DBI module for index  #use index_DBI;         # default DBI module for index
25  #use index_DBI_cache;   # faster DBI module using memory cache  #use index_DBI_cache;   # faster DBI module using memory cache
26  use index_DBI_tag;      # tag support for indexes  use index_DBI_filter;   # filter support for indexes
27  my $index;  my $index;
28    
29  my %opts;  my %opts;
# 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 || die "can't find maxmfn";                  my $max_rowid = $db->count;
742    
743                    if (! $max_rowid) {
744                            print STDERR "FATAL: can't read database: $isis_db, skipping...\n";
745                            next;
746                    }
747    
748                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";
749    
Legend:
Removed from v.641  
changed lines
  Added in v.647
  ViewVC Help
Powered by ViewVC 1.1.26