--- trunk/lib/WebPAC/Input/ISIS.pm	2005/12/18 21:06:46	286
+++ trunk/lib/WebPAC/Input/ISIS.pm	2005/12/31 16:28:18	336
@@ -3,14 +3,7 @@
 use warnings;
 use strict;
 
-require Exporter;
-use vars qw/@ISA @EXPORT/;
-@ISA = qw/Exporter/;
-@EXPORT = qw/init open_db fetch_rec/;
-
-use blib;
 use WebPAC::Input;
-#use base qw/WebPAC::Input/;
 
 =head1 NAME
 
@@ -44,7 +37,7 @@
 sub init {
 	my $self = shift;
 
-	eval "use Biblio::Isis 0.13;";
+	eval "use Biblio::Isis;";
 	unless ($@) { 
 		$self->{have_biblio_isis} = 1
 	} else {
@@ -137,7 +130,7 @@
 					} else {
 						$val = $l;
 					}
-					push @{$rec->{$k}}, $val;
+					push @{$rec->{"$k"}}, $val;
 				}
 			} else {
 				push @{$rec->{'000'}}, $mfn;