|
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, ); |