/[webpac2]/trunk/lib/WebPAC/Input/ISI.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/WebPAC/Input/ISI.pm

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

revision 1208 by dpavlin, Wed May 27 09:31:35 2009 UTC revision 1209 by dpavlin, Sat May 30 14:21:58 2009 UTC
# Line 12  use Data::Dump qw/dump/; Line 12  use Data::Dump qw/dump/;
12    
13  WebPAC::Input::ISI - support for ISI Export Format  WebPAC::Input::ISI - support for ISI Export Format
14    
 =head1 VERSION  
   
 Version 0.02  
   
15  =cut  =cut
16    
17  our $VERSION = '0.02';  our $VERSION = '0.03';
18    
19  =head1 SYNOPSIS  =head1 SYNOPSIS
20    
# Line 60  my $subfields = { Line 56  my $subfields = {
56                  my $full_cr = shift;                  my $full_cr = shift;
57                  my @v = split(/, /, $full_cr);                  my @v = split(/, /, $full_cr);
58                  my $f = { full => $full_cr };                  my $f = { full => $full_cr };
59                  foreach ( qw/author year reference volume page/ ) {                  foreach ( qw/author year reference volume page doi/ ) {
60                          if ( my $tmp = shift @v ) {                          if ( my $tmp = shift @v ) {
61                                  $f->{$_} = $tmp;                                  $f->{$_} = $tmp;
62                          }                          }
# Line 69  my $subfields = { Line 65  my $subfields = {
65                          delete $f->{author};                          delete $f->{author};
66                          $f->{institution} = $1;                          $f->{institution} = $1;
67                  }                  }
68                    $f->{doi} =~ s{DOI\s+}{} if $f->{doi}; # strip DOI prefix
69                  return $f;                  return $f;
70          },          },
71  };  };
# Line 119  sub new { Line 116  sub new {
116                                  $v = $2;                                  $v = $2;
117                  } elsif ( $line =~ /^\s{3}(.+)$/ ) {                  } elsif ( $line =~ /^\s{3}(.+)$/ ) {
118                                  $v = $1;                                  $v = $1;
119                                    if ( $tag eq 'CR' && $v =~ m{DOI$} ) {
120                                            my $doi = <$fh>;
121                                            chomp($doi);
122                                            $doi =~ s{^\s{3}}{ } || die "can't find DOI in: $doi";
123                                            $v .= $doi;
124                                    }
125                  } elsif ( $line eq 'ER' ) {                  } elsif ( $line eq 'ER' ) {
126                          # join tags                          # join tags
127                          foreach ( qw/AB DE ID TI/ ) {                          foreach ( qw/AB DE ID TI/ ) {
Legend:
Removed from v.1208  
changed lines
  Added in v.1209
  ViewVC Help
Powered by ViewVC 1.1.26