|
Lines 60-66
if($op && $op eq "save") {
Link Here
|
| 60 |
my @mappings; |
60 |
my @mappings; |
| 61 |
my $i = 0; |
61 |
my $i = 0; |
| 62 |
while($i < @marcfields and $i < @marcsubfields and $i < @marcvalues) { |
62 |
while($i < @marcfields and $i < @marcsubfields and $i < @marcvalues) { |
| 63 |
if($marcfields[$i] and $marcsubfields[$i]) { |
63 |
if($marcfields[$i] ne '' and $marcsubfields[$i] ne '' ) { |
| 64 |
push @mappings, { |
64 |
push @mappings, { |
| 65 |
marcfield => $marcfields[$i], |
65 |
marcfield => $marcfields[$i], |
| 66 |
marcsubfield => $marcsubfields[$i], |
66 |
marcsubfield => $marcsubfields[$i], |
| 67 |
- |
|
|