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 |
- |
|
|