202 |
|
|
203 |
my $rec = $webpac->fetch_rec; |
my $rec = $webpac->fetch_rec; |
204 |
|
|
205 |
|
You should rearly have the need to call this function directly. Instead use |
206 |
|
C<fetch_data_structure> which returns normalised data. |
207 |
|
|
208 |
=cut |
=cut |
209 |
|
|
210 |
sub fetch_rec { |
sub fetch_rec { |
237 |
} |
} |
238 |
} |
} |
239 |
|
|
240 |
|
=head2 fetch_data_structure |
241 |
|
|
242 |
|
Fetch data structure of next record from database. |
243 |
|
|
244 |
|
my @ds = $webpac->fetch_data_structure; |
245 |
|
|
246 |
|
=cut |
247 |
|
|
248 |
|
sub fetch_data_structure { |
249 |
|
my $self = shift; |
250 |
|
|
251 |
|
return $self->data_structure( |
252 |
|
$self->fetch_rec(@_) |
253 |
|
); |
254 |
|
} |
255 |
|
|
256 |
=head2 mfn |
=head2 mfn |
257 |
|
|
258 |
Returns current record number (MFN). |
Returns current record number (MFN). |