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

(-)a/misc/migration_tools/merge_authority.pl (-3 / +5 lines)
Lines 55-62 $|=1; # flushes output Link Here
55
my $authfrom = GetAuthority($mergefrom);
55
my $authfrom = GetAuthority($mergefrom);
56
my $authto = GetAuthority($mergeto);
56
my $authto = GetAuthority($mergeto);
57
57
58
my $authtypecodefrom = $mergefrom->authtypecode;
58
die "Authority $mergefrom does not exist" unless $authfrom;
59
my $authtypecodeto   = $mergeto->authtypecode;
59
die "Authority $mergeto does not exist"   unless $authto;
60
61
my $authtypecodefrom = Koha::Authorities->find($mergefrom)->authtypecode;
62
my $authtypecodeto = Koha::Authorities->find($mergeto)->authtypecode;
60
63
61
unless ($noconfirm || $batch) {
64
unless ($noconfirm || $batch) {
62
    print "************\n";
65
    print "************\n";
63
- 

Return to bug 16010