view release on metacpan or  search on metacpan

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

        $table, $data,
            { returning => $primary_key_name }
    );
    $result->{data} = {};
    $result->{data} = $primary_key->hash
        if $primary_key and $primary_key->rows > 0;
    $result->{result} = 1;
    return $result;
}

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

sub delete($self, $table, $keys) {
    my $result->{result} = 0;
    $self->db->delete($table, $keys);

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

# ======
#
# janeskil1525 E<lt>janeskil1525@gmail.comE<gt>
#
#

use POSIX qw {strftime};

has 'users_pkey' => 'System';

sub update_defaults($self, $data) {
    $data->{editnum}++;
    $data->{moddatetime} = strftime("%F %T", localtime);
    $data->{modby} = $self->users_pkey();

    return $data;
}

sub insert_defaults($self, $data) {
    delete %$data{$self->primary_key_name()} if exists $data->{$self->primary_key_name()};
    delete %$data{editnum} if exists $data->{editnum};