|
Lines 1406-1411
sub merge {
Link Here
|
| 1406 |
my $authfrom = Koha::Authorities->find($mergefrom); |
1406 |
my $authfrom = Koha::Authorities->find($mergefrom); |
| 1407 |
my $authto = Koha::Authorities->find($mergeto); |
1407 |
my $authto = Koha::Authorities->find($mergeto); |
| 1408 |
my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef; |
1408 |
my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef; |
|
|
1409 |
if ($mergefrom == $mergeto && $authtypefrom ne GuessAuthTypeCode($MARCfrom)) { |
| 1410 |
$authtypefrom = GuessAuthTypeCode($MARCfrom); |
| 1411 |
} |
| 1409 |
my $authtypeto = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef; |
1412 |
my $authtypeto = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef; |
| 1410 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
1413 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
| 1411 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
1414 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
| 1412 |
- |
|
|