--- trunk/lib/WebPAC/Input/ISIS.pm	2005/07/16 14:44:38	6
+++ trunk/lib/WebPAC/Input/ISIS.pm	2005/07/16 17:14:43	9
@@ -5,6 +5,7 @@
 
 use WebPAC::Common;
 use base qw/WebPAC::Input WebPAC::Common/;
+use Text::Iconv;
 
 =head1 NAME
 
@@ -202,6 +203,9 @@
 
  my $rec = $webpac->fetch_rec;
 
+You should rearly have the need to call this function directly. Instead use
+C<fetch_data_structure> which returns normalised data.
+
 =cut
 
 sub fetch_rec {
@@ -234,6 +238,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).