/[webpac2]/trunk/lib/WebPAC/Input/ISIS.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/ISIS.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by dpavlin, Sat Jul 16 14:44:38 2005 UTC revision 9 by dpavlin, Sat Jul 16 17:14:43 2005 UTC
# Line 5  use strict; Line 5  use strict;
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    
# Line 202  Fetch next record from database. It will Line 203  Fetch next record from database. It will
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 {
# Line 234  sub fetch_rec { Line 238  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).
Legend:
Removed from v.6  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26