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

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

revision 901 by dpavlin, Wed Oct 10 20:05:45 2007 UTC revision 904 by dpavlin, Fri Oct 12 12:07:35 2007 UTC
# Line 6  use strict; Line 6  use strict;
6  use WebPAC::Input;  use WebPAC::Input;
7  use base qw/WebPAC::Common/;  use base qw/WebPAC::Common/;
8    
9    use Data::Dump qw/dump/;
10    
11  =head1 NAME  =head1 NAME
12    
13  WebPAC::Input::ISI - support for ISI Export Format  WebPAC::Input::ISI - support for ISI Export Format
14    
15  =head1 VERSION  =head1 VERSION
16    
17  Version 0.01  Version 0.02
18    
19  =cut  =cut
20    
21  our $VERSION = '0.01';  our $VERSION = '0.02';
   
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
24    
# Line 117  sub new { Line 118  sub new {
118                                  $v = $1;                                  $v = $1;
119                  } elsif ( $line eq 'ER' ) {                  } elsif ( $line eq 'ER' ) {
120                          # join tags                          # join tags
121                          foreach ( qw/AB/ ) {                          foreach ( qw/AB DE ID TI/ ) {
122                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
123                          }                          }
124                          push @{ $self->{_rec} }, $rec;                          push @{ $self->{_rec} }, $rec;
# Line 131  sub new { Line 132  sub new {
132                          $log->logdie("can't parse +$. $arg->{path} : $line");                          $log->logdie("can't parse +$. $arg->{path} : $line");
133                  }                  }
134    
135                  $v = $subfields->{$tag}->($v) if defined $subfields->{$tag};                  if ( defined $v ) {
136                            $v = $subfields->{$tag}->($v) if defined $subfields->{$tag};
137    
138                  push @{ $rec->{$tag} }, $v;                          $log->debug("$tag: ", sub { dump( $v ) });
139                            push @{ $rec->{$tag} }, $v;
140                    }
141    
142          }          }
143    
Legend:
Removed from v.901  
changed lines
  Added in v.904
  ViewVC Help
Powered by ViewVC 1.1.26