--- branches/Sack/lib/WebPAC/Input/ISI.pm 2009/09/21 20:55:11 1313 +++ branches/Sack/lib/WebPAC/Input/ISI.pm 2009/09/23 14:43:13 1314 @@ -55,7 +55,7 @@ =cut -my $subfields = { +our $subfields = { 'CR' => sub { my $full_cr = shift; my @v = split(/, /, $full_cr);