Parent Directory | Revision Log | 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 ] }; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |