if($op && $op eq "save") {
my @marcfields = $input->param('marcfield');
my @marcsubfields = $input->param('marcsubfield');
if($op && $op eq "save") {
my @marcfields = $input->param('marcfield');
my @marcsubfields = $input->param('marcsubfield');
my @marcvalues = $input->param('marcvalue');
my @mappings;
my $i = 0;
while($i < @marcfields and $i < @marcsubfields and $i < @marcvalues) {
my @marcvalues = $input->param('marcvalue');
my @mappings;
my $i = 0;
while($i < @marcfields and $i < @marcsubfields and $i < @marcvalues) {
push @mappings, {
marcfield => $marcfields[$i],
marcsubfield => $marcsubfields[$i],
push @mappings, {
marcfield => $marcfields[$i],
marcsubfield => $marcsubfields[$i],