--- trunk/lib/WebPAC/Input/ISI.pm	2007/11/28 22:52:01	1077
+++ trunk/lib/WebPAC/Input/ISI.pm	2009/05/27 09:31:35	1194
@@ -57,8 +57,9 @@
 
 my $subfields = {
 	'CR' => sub {
-		my @v = split(/, /, shift);
-		my $f;
+		my $full_cr = shift;
+		my @v = split(/, /, $full_cr);
+		my $f = { full => $full_cr };
 		foreach ( qw/author year reference volume page/ ) {
 			if ( my $tmp = shift @v ) {
 				$f->{$_} = $tmp;