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