source: LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Onlyaddress.pm @ 565

package LATMOS::Accounts::Bases::Sql::Onlyaddress;

use strict;
use warnings;

use base qw(LATMOS::Accounts::Bases::Sql::Address);

our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];

sub list {
    my ($class, $base) = @_;

    my $sth = $base->db->prepare_cached(
        sprintf(
            q{select %s as k from %s where ikey not in (select okey from %s where attr = 'isMainAddress') %s order by %s},
            $base->db->quote_identifier($class->key_field),
            $base->db->quote_identifier($class->object_table),
            $base->db->quote_identifier($class->object_table. '_attributes'), # attr
            ($base->{wexported} ? '' : 'and exported = true'),
            $base->db->quote_identifier($class->key_field),
        )
    );
    $sth->execute;
    my @keys;
    while(my $res = $sth->fetchrow_hashref) {
        push(@keys, $res->{k});
    }
    @keys
}

sub list_from_rev {
    my ($class, $base, $rev) = @_;

    my $sth = $base->db->prepare_cached(
        sprintf(
            q{select %s as k from %s where ikey not in (select okey from %s
            where attr = 'isMainAddress') and rev > ? %s order by %s},
            $base->db->quote_identifier($class->key_field),
            $base->db->quote_identifier($class->object_table),
            $base->db->quote_identifier($class->object_table. '_attributes'), # attr
            ($base->{wexported} ? '' : 'and exported = true'),
            $base->db->quote_identifier($class->key_field),
        )
    );
    $sth->execute($rev);
    my @keys;
    while(my $res = $sth->fetchrow_hashref) {
        push(@keys, $res->{k});
    }
    @keys
}

sub new {
    my ($class, $base, $id) = @_;
    my $sth = $base->db->prepare_cached(
        sprintf(q{select 1 from %s where %s = ? %s and ikey not in (select okey from %s where attr = 'isMainAddress')},
            $base->db->quote_identifier($class->object_table),
            $base->db->quote_identifier($class->key_field),
            ($base->{wexported} ? '' : 'and exported = true'),
            $base->db->quote_identifier($class->object_table. '_attributes'),
        ),
    );
    my $count = $sth->execute($id);
    $sth->finish;
    $count == 1 or return;
    $class->SUPER::new($base, $id);
}

1;