5 |
|
|
6 |
use WebPAC::Common; |
use WebPAC::Common; |
7 |
use base qw/WebPAC::Input WebPAC::Common/; |
use base qw/WebPAC::Input WebPAC::Common/; |
8 |
|
use Text::Iconv; |
9 |
|
|
10 |
=head1 NAME |
=head1 NAME |
11 |
|
|
203 |
|
|
204 |
my $rec = $webpac->fetch_rec; |
my $rec = $webpac->fetch_rec; |
205 |
|
|
206 |
|
You should rearly have the need to call this function directly. Instead use |
207 |
|
C<fetch_data_structure> which returns normalised data. |
208 |
|
|
209 |
=cut |
=cut |
210 |
|
|
211 |
sub fetch_rec { |
sub fetch_rec { |
238 |
} |
} |
239 |
} |
} |
240 |
|
|
241 |
|
=head2 fetch_data_structure |
242 |
|
|
243 |
|
Fetch data structure of next record from database. |
244 |
|
|
245 |
|
my @ds = $webpac->fetch_data_structure; |
246 |
|
|
247 |
|
=cut |
248 |
|
|
249 |
|
sub fetch_data_structure { |
250 |
|
my $self = shift; |
251 |
|
|
252 |
|
return $self->data_structure( |
253 |
|
$self->fetch_rec(@_) |
254 |
|
); |
255 |
|
} |
256 |
|
|
257 |
=head2 mfn |
=head2 mfn |
258 |
|
|
259 |
Returns current record number (MFN). |
Returns current record number (MFN). |