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