/[Biblio-Isis]/trunk/lib/Biblio/Isis.pm
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/lib/Biblio/Isis.pm

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

revision 18 by dpavlin, Thu Dec 30 22:40:53 2004 UTC revision 23 by dpavlin, Fri Dec 31 04:21:21 2004 UTC
# Line 148  sub new { Line 148  sub new {
148          push @must_exist, "fdt" if ($self->{read_fdt});          push @must_exist, "fdt" if ($self->{read_fdt});
149    
150          foreach my $ext (@must_exist) {          foreach my $ext (@must_exist) {
151                  confess "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"});                  croak "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"});
152          }          }
153    
154          print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug});          print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug});
# Line 224  about your index (if debugging it for ex Line 224  about your index (if debugging it for ex
224  sub read_cnt  {  sub read_cnt  {
225          my $self = shift;          my $self = shift;
226    
227          confess "missing CNT file in ",$self->{isisdb} unless ($self->{cnt_file});          croak "missing CNT file in ",$self->{isisdb} unless ($self->{cnt_file});
228    
229          # Get the index information from $db.CNT          # Get the index information from $db.CNT
230        
# Line 520  sub to_hash { Line 520  sub to_hash {
520                          my $val;                          my $val;
521    
522                          # has identifiers?                          # has identifiers?
523                          ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([01 #])([01 #])//);                          ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([01 #])([01 #])\^/\^/);
524    
525                          # has subfields?                          # has subfields?
526                          if ($l =~ m/\^/) {                          if ($l =~ m/\^/) {
Legend:
Removed from v.18  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.26