Lines 176-182
if ($op eq "add") {
Link Here
|
176 |
exit; |
176 |
exit; |
177 |
} else { |
177 |
} else { |
178 |
# it may be a duplicate, warn the user and do nothing |
178 |
# it may be a duplicate, warn the user and do nothing |
179 |
$editor->build_tabs($template, $record, $encoding); |
179 |
$template->param( BIG_LOOP => $editor->build_tabs($record, $encoding) ); |
180 |
$template->param(authid =>$authid, |
180 |
$template->param(authid =>$authid, |
181 |
duplicateauthid => $duplicateauthid, |
181 |
duplicateauthid => $duplicateauthid, |
182 |
duplicateauthvalue => $duplicateauthvalue->{'authorized'}->[0]->{'heading'}, |
182 |
duplicateauthvalue => $duplicateauthvalue->{'authorized'}->[0]->{'heading'}, |
Lines 196-202
if ($op eq "duplicate")
Link Here
|
196 |
{ |
196 |
{ |
197 |
$authid = ""; |
197 |
$authid = ""; |
198 |
} |
198 |
} |
199 |
$editor->build_tabs ($template, $record, $encoding); |
199 |
$template->param( BIG_LOOP => $editor->build_tabs($record, $encoding) ); |
200 |
$template->param(oldauthtypetagfield=>$oldauthtypetagfield, oldauthtypetagsubfield=>$oldauthtypetagsubfield, |
200 |
$template->param(oldauthtypetagfield=>$oldauthtypetagfield, oldauthtypetagsubfield=>$oldauthtypetagsubfield, |
201 |
oldauthnumtagfield=>$oldauthnumtagfield, oldauthnumtagsubfield=>$oldauthnumtagsubfield, |
201 |
oldauthnumtagfield=>$oldauthnumtagfield, oldauthnumtagsubfield=>$oldauthnumtagsubfield, |
202 |
authid => $authid , authtypecode=>$authtypecode, ); |
202 |
authid => $authid , authtypecode=>$authtypecode, ); |