Lines 631-649
if ($op eq "add") {
Link Here
|
631 |
} |
631 |
} |
632 |
exit; |
632 |
exit; |
633 |
} else { |
633 |
} else { |
634 |
if ($op eq "duplicate") |
634 |
if ( $op eq "duplicate" ) { |
635 |
{ |
635 |
$authid = ""; |
636 |
$authid = ""; |
636 |
} |
637 |
} |
|
|
638 |
if($changed_authtype eq "changed"){ |
639 |
$record = TransformHtmlToMarc( $input, 0 ); |
640 |
} |
641 |
|
637 |
|
642 |
build_tabs ($template, $record, $dbh, $input); |
638 |
if ( $changed_authtype eq "changed" ) { |
643 |
build_hidden_data; |
639 |
$record = TransformHtmlToMarc( $input, 0 ); |
644 |
$template->param(oldauthtypetagfield=>$oldauthtypetagfield, oldauthtypetagsubfield=>$oldauthtypetagsubfield, |
640 |
} |
645 |
oldauthnumtagfield=>$oldauthnumtagfield, oldauthnumtagsubfield=>$oldauthnumtagsubfield, |
641 |
|
646 |
authid => $authid , authtypecode=>$authtypecode, ); |
642 |
build_tabs( $template, $record, $dbh, $input ); |
|
|
643 |
build_hidden_data; |
644 |
$template->param( |
645 |
oldauthtypetagfield => $oldauthtypetagfield, |
646 |
oldauthtypetagsubfield => $oldauthtypetagsubfield, |
647 |
oldauthnumtagfield => $oldauthnumtagfield, |
648 |
oldauthnumtagsubfield => $oldauthnumtagsubfield, |
649 |
authid => $authid, |
650 |
authtypecode => $authtypecode, |
651 |
); |
647 |
} |
652 |
} |
648 |
|
653 |
|
649 |
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypetext'] } ); |
654 |
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypetext'] } ); |
650 |
- |
|
|