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