/[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 1216 by dpavlin, Tue Jun 2 13:17:24 2009 UTC revision 1367 by dpavlin, Thu Dec 15 21:40:37 2011 UTC
# Line 123  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 145  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 153  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

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

  ViewVC Help
Powered by ViewVC 1.1.26