--- trunk/lib/WebPAC/Input/ISIS.pm 2005/07/16 14:44:38 6 +++ trunk/lib/WebPAC/Input/ISIS.pm 2005/07/16 16:48:35 8 @@ -202,6 +202,9 @@ my $rec = $webpac->fetch_rec; +You should rearly have the need to call this function directly. Instead use +C which returns normalised data. + =cut sub fetch_rec { @@ -234,6 +237,22 @@ } } +=head2 fetch_data_structure + +Fetch data structure of next record from database. + + my @ds = $webpac->fetch_data_structure; + +=cut + +sub fetch_data_structure { + my $self = shift; + + return $self->data_structure( + $self->fetch_rec(@_) + ); +} + =head2 mfn Returns current record number (MFN).