View | Details | Raw Unified | Return to bug 7419
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-3 / +6 lines)
Lines 1382-1392 Then we should add some new parameter : bibliotargettag, authtargettag Link Here
1382
=cut
1382
=cut
1383
1383
1384
sub merge {
1384
sub merge {
1385
    my ($mergefrom,$MARCfrom,$mergeto,$MARCto) = @_;
1385
    my ($mergefrom, $MARCfrom, $mergeto, $MARCto) = @_;
1386
    my @editedbiblios;
1386
    my @editedbiblios;
1387
    my $dbh=C4::Context->dbh;
1387
    my $dbh = C4::Context->dbh;
1388
    my $authtypecodefrom = GetAuthTypeCode($mergefrom);
1388
    my $authtypecodefrom = GetAuthTypeCode($mergefrom);
1389
    my $authtypecodeto = GetAuthTypeCode($mergeto);
1389
    my $authtypecodeto = GetAuthTypeCode($mergeto);
1390
1391
    $MARCfrom ||= GetAuthority($mergefrom);
1392
    $MARCto ||= GetAuthority($mergeto);
1393
1390
#     warn "mergefrom : $authtypecodefrom $mergefrom mergeto : $authtypecodeto $mergeto ";
1394
#     warn "mergefrom : $authtypecodefrom $mergefrom mergeto : $authtypecodeto $mergeto ";
1391
    # return if authority does not exist
1395
    # return if authority does not exist
1392
    return "error MARCFROM not a marcrecord ".Data::Dumper::Dumper($MARCfrom) if scalar($MARCfrom->fields()) == 0;
1396
    return "error MARCFROM not a marcrecord ".Data::Dumper::Dumper($MARCfrom) if scalar($MARCfrom->fields()) == 0;
1393
- 

Return to bug 7419