/[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 1018 by dpavlin, Fri Nov 9 23:46:44 2007 UTC revision 1019 by dpavlin, Sat Nov 10 00:05:36 2007 UTC
# Line 959  sub marc_template { Line 959  sub marc_template {
959    
960                  $fill_in = {};                  $fill_in = {};
961    
962                  foreach my $sf ( split(/\|/, $template ) ) {                  my @templates = split(/\|/, $template );
963                    @templates = ( $template );
964    
965                    foreach my $sf ( @templates ) {
966                          sub fill_in {                          sub fill_in {
967                                  my ( $r, $sf, $nr ) = @_;                                  my ( $r, $sf, $nr ) = @_;
968                                  my ( $from_sf, $from_nr ) = @{ $new_r->{ $sf }->[ $nr ] };                                  my ( $from_sf, $from_nr ) = @{ $new_r->{ $sf }->[ $nr ] };
Legend:
Removed from v.1018  
changed lines
  Added in v.1019
  ViewVC Help
Powered by ViewVC 1.1.26