@@ -, +, @@ migration script Bug 15381: Remove GetAuthType and GetAuthTypeCode at misc/migration_tools/merge_authority.pl line 58. --- misc/migration_tools/merge_authority.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/misc/migration_tools/merge_authority.pl +++ a/misc/migration_tools/merge_authority.pl @@ -55,8 +55,11 @@ $|=1; # flushes output my $authfrom = GetAuthority($mergefrom); my $authto = GetAuthority($mergeto); -my $authtypecodefrom = $mergefrom->authtypecode; -my $authtypecodeto = $mergeto->authtypecode; +die "Authority $mergefrom does not exist" unless $authfrom; +die "Authority $mergeto does not exist" unless $authto; + +my $authtypecodefrom = Koha::Authorities->find($mergefrom)->authtypecode; +my $authtypecodeto = Koha::Authorities->find($mergeto)->authtypecode; unless ($noconfirm || $batch) { print "************\n"; --