Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
my @errors_loop = map{{error => $_}}@errors;
# Parameters
my @errors_loop = map{{error => $_}}@errors;
# Parameters
errors => \@errors_loop,
result => 1,
biblio1 => $input->param('biblio1')
errors => \@errors_loop,
result => 1,
biblio1 => $input->param('biblio1')
#-------------------------
#-------------------------
# Ask the user to choose which record will be the kept
if (not $mergereference) {
# Ask the user to choose which record will be the kept
if (not $mergereference) {
choosereference => 1,
biblio1 => $biblionumber[0],
biblio2 => $biblionumber[1],
title1 => $data1->{'title'},
title2 => $data2->{'title'}
choosereference => 1,
biblio1 => $biblionumber[0],
biblio2 => $biblionumber[1],
title1 => $data1->{'title'},
title2 => $data2->{'title'}
} else {
if (scalar(@biblionumber) != 2) {
} else {
if (scalar(@biblionumber) != 2) {
my @errors_loop = map{{error => $_}}@errors;
# Parameters
my @errors_loop = map{{error => $_}}@errors;
# Parameters
errors => \@errors_loop,
biblio1 => $mergereference,
biblio2 => $notreference,
errors => \@errors_loop,
biblio1 => $mergereference,
biblio2 => $notreference,
record1 => @record1,
record2 => @record2,
framework => $framework
record1 => @record1,
record2 => @record2,
framework => $framework
}
}
output_html_with_http_headers $input, $cookie, $template->output;
}
}
output_html_with_http_headers $input, $cookie, $template->output;