/[webpac2]/trunk/lib/WebPAC/Normalize.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/Normalize.pm

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

revision 1118 by dpavlin, Sun Oct 26 15:57:37 2008 UTC revision 1367 by dpavlin, Thu Dec 15 21:40:37 2011 UTC
# Line 21  our @EXPORT = qw/ Line 21  our @EXPORT = qw/
21          get set          get set
22          count          count
23    
24            row
25            rec_array
26    
27  /;  /;
28    
29  use warnings;  use warnings;
# Line 120  sub data_structure { Line 123  sub data_structure {
123          $load_row_coderef = $arg->{load_row_coderef};          $load_row_coderef = $arg->{load_row_coderef};
124    
125          no strict 'subs';          no strict 'subs';
126          no warnings 'redefine';          no warnings 'all';
127          eval "$arg->{rules};";          eval "$arg->{rules};";
128          die "error evaling $arg->{rules}: $@\n" if ($@);          die "error evaling $arg->{rules}: $@\n" if ($@);
129    
# Line 142  sub _set_ds { Line 145  sub _set_ds {
145          $WebPAC::Normalize::MARC::rec = $rec;          $WebPAC::Normalize::MARC::rec = $rec;
146  }  }
147    
148  =head2  =head2 _get_rec
149    
150    my $rec = _get_rec();    my $rec = _get_rec();
151    
# Line 150  sub _set_ds { Line 153  sub _set_ds {
153    
154  sub _get_rec { $rec };  sub _get_rec { $rec };
155    
156    =head2 _set_rec
157    
158      _set_rec( $rec );
159    
160    =cut
161    
162    sub _set_rec { $rec = $_[0] }
163    
164  =head2 _set_config  =head2 _set_config
165    
166  Set current config hash  Set current config hash
# Line 346  Insert into lists which will be automati Line 357  Insert into lists which will be automati
357    
358  sub sorted { to( 'sorted', @_ ) }  sub sorted { to( 'sorted', @_ ) }
359    
360    =head2 row
361    
362    Insert new row of data into output module
363    
364      row( column => 'foo', column2 => 'bar' );
365    
366    =cut
367    
368    use Data::Dump qw/dump/;
369    
370    sub row {
371            die "array doesn't have odd number of elements but $#_: ",dump( @_ ) if $#_ % 2 == 1;
372            my $table = shift @_;
373            push @{ $out->{'_rows'}->{$table} }, {@_};
374    }
375    
376    
377  =head1 Functions to extract data from input  =head1 Functions to extract data from input
378    
# Line 931  sub count { Line 958  sub count {
958          return @_ . '';          return @_ . '';
959  }  }
960    
961    =head2 rec_array
962    
963    Always return field as array
964    
965      foreach my $d ( rec_array('field') ) {
966            warn $d;
967      }
968    
969    =cut
970    
971    sub rec_array {
972            my $d = $rec->{ $_[0] };
973            return @$d if ref($d) eq 'ARRAY';
974            return ($d);
975    }
976    
977  # END  # END
978  1;  1;

Legend:
Removed from v.1118  
changed lines
  Added in v.1367

  ViewVC Help
Powered by ViewVC 1.1.26