--- trunk/lib/WebPAC/DB.pm 2005/11/19 23:48:19 69 +++ trunk/lib/WebPAC/DB.pm 2005/11/19 23:48:24 70 @@ -110,13 +110,13 @@ Retrive from disk one data_structure records using field 000 as key - my @ds = $db->load_ds($rec); + my $ds = $db->load_ds($rec); This function will also perform basic sanity checking on returned data and disable caching if data is corrupted (or changed since last update). -Returns array or undef if cacheing is disabled or unavailable. +Returns hash or undef if cacheing is disabled or unavailable. =cut @@ -154,7 +154,7 @@ } }; if ($ok && $ds_ref->{'ds'}) { - return @{ $ds_ref->{'ds'} }; + return $ds_ref->{'ds'}; } else { $log->warn("cache entry $cache_path corrupt. Use rm $cache_path/* to re-create it on next run!"); undef $self->{'path'}; @@ -173,7 +173,7 @@ Store data_structure on disk. $db->save_ds( - ds => \@ds, + ds => $ds, current_filename => $self->{'current_filename'}, headline => $self->{'headline'}, );