/[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 19 by dpavlin, Thu Dec 30 23:16:20 2004 UTC revision 23 by dpavlin, Fri Dec 31 04:21:21 2004 UTC
# 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.19  
changed lines
  Added in v.23

  ViewVC Help
Powered by ViewVC 1.1.26