Daje-Database-Model

 view release on metacpan or  search on metacpan

lib/Daje/Database/Model/Super/Common/Base.pm  view on Meta::CPAN

            if $primary_key and $primary_key->rows > 0;
    } catch ($e) {
        $result->{error} = $e;
        $result->{result} = 0;
        $result->{data} = {};
    };

    return $result;
}

sub update($self, $table, $data, $keys) {
    my $result->{result} = 1;
    try {
        $self->db->update($table, $data, $keys);
    } catch($e) {
        $result->{error} = $e;
        $result->{result} = 0;
    }
    return $result;
}

lib/Daje/Database/Model/Super/Companies.pm  view on Meta::CPAN

sub insert_companies($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}


sub update_companies($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}


sub load_list($self, $key_value) {
    my $result = $self->load_a_list(
        $self->table_name,
        $self->fields,
        $key_value

lib/Daje/Database/Model/Super/CompaniesUsers.pm  view on Meta::CPAN

sub insert_companies_users($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}


sub update_companies_users($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}


sub load_list($self, $key_value) {
    my $result = $self->load_a_list(
        $self->table_name,
        $self->fields,
        $key_value

lib/Daje/Database/Model/Super/CompanyType.pm  view on Meta::CPAN

}



sub insert_company_type($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}


sub update_company_type($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}


sub load_list($self, $key_value) {
    my $result = $self->load_a_list(
        $self->table_name,
        $self->fields,
        $key_value

lib/Daje/Database/Model/Super/Users.pm  view on Meta::CPAN

sub insert_users($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}


sub update_users($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}


sub load_list($self, $key_value) {
    my $result = $self->load_a_list(
        $self->table_name,
        $self->fields,
        $key_value

lib/Daje/Database/Model/Super/Workflow.pm  view on Meta::CPAN

}



sub insert_workflow($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}


sub update_workflow($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}


sub load_list($self, $key_value) {
    my $result = $self->load_a_list(
        $self->table_name,
        $self->fields,
        $key_value