view release on metacpan or  search on metacpan

lib/App/Repository.pm  view on Meta::CPAN

        $retval = $self->delete($realtable, $cols, $row, $options);
    }
    else {
        $self->_load_table_metadata($table) if (! defined $self->{table}{$table}{loaded});
        $retval = $self->_delete($table,$params,$cols,$row,$options);
    }
    &App::sub_exit($retval) if ($App::trace);
    return($retval);
}

sub update {
    &App::sub_entry if ($App::trace);
    my ($self, $table, $params, $cols, $row, $options) = @_;
    die "update(): params undefined" if (!defined $params);
    my $repname = $self->{table}{$table}{repository};
    my $realtable = $self->{table}{$table}{table} || $table;
    my ($retval);
    if (defined $repname && $repname ne $self->{name}) {
        my $rep = $self->{context}->repository($repname);
        $retval = $rep->update($realtable, $cols, $row, $options);
    }

lib/App/SessionObject/RepositoryObjectSet.pm  view on Meta::CPAN

            }
        }
    }
    if ($redefined) {
        $self->{params} = { %$params };
        $self->_clear_cache();
    }
    &App::sub_exit() if ($App::trace);
}

sub update_params {
    &App::sub_entry if ($App::trace);
    my ($self, $params) = @_;
    my $self_params = $self->{params};
    die "params must be set before update_params() is called" if (!$self_params);
    my $param_changed = 0;
    foreach my $key (keys %$self_params) {
        if (exists $params->{$key} &&
            $self_params->{$key} ne $params->{$key}) {
            $self_params->{$key} = $params->{$key};
            $param_changed = 1;