my $search_options->{columns} = [qw/ authid authtypecode marcxml /];

    my $search_options->{columns} = [qw/ authid /];

        my $row = $rs->next();

        # Warn and skip bad records, otherwise we break the loop

        return if !$row;

        while (1) {

        my $authid       = $row->authid;

            my $row = $rs->next();

        my $authtypecode = $row->authtypecode;

            return if !$row;

        my $marcxml      = $row->marcxml;

            my $auth = __PACKAGE__->get_from_authid($row->authid);

        my $record = eval {

            if (!$auth) {

            MARC::Record->new_from_xml(

                warn "Something went wrong reading record for authority $row->authid: $@\n";

                StripNonXmlChars($marcxml),

                next;

                'UTF-8',

            }

                (

            return $auth;

                    C4::Context->preference("marcflavour") eq "UNIMARC"

        }

                    ? "UNIMARCAUTH"

    };

                    : C4::Context->preference("marcflavour")

    return Koha::MetadataIterator->new($next_func);

                )

            );

        };

        confess "$@" if ($@);

        $record->encoding('UTF-8');

        # I'm not sure why we don't use the authtypecode from the database,

        # but this is how the original code does it.

        require C4::AuthoritiesMarc;

        $authtypecode = C4::AuthoritiesMarc::GuessAuthTypeCode($record);

        my $auth = __PACKAGE__->new( $record, { authid => $authid, id => $authid, authtypecode => $authtypecode } );

        return $auth;

      };

      return Koha::MetadataIterator->new($next_func);