Author: spadkins
Date: Mon Oct 2 14:00:42 2006
New Revision: 7867
Modified:
p5ee/trunk/App-Repository/lib/App/RepositoryObject.pm
Log:
allow set([column_list]) to use object attribute values by default
Modified: p5ee/trunk/App-Repository/lib/App/RepositoryObject.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/RepositoryObject.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/RepositoryObject.pm Mon Oct 2 14:00:42 2006
@@ -131,6 +131,7 @@
sub set {
my ($self, $attrib, $value, $options) = @_;
die "Can't set values: _key not defined on object[$self->{_table}]" if (! defined $self->{_key});
+ $value = $self if (! defined $value && ref($attrib) eq "ARRAY");
my $nrows = $self->{_repository}->set($self->{_table}, $self->{_key}, $attrib, $value);
if (ref($attrib) eq "ARRAY") {
for (my $i = 0; $i <= $#$attrib; $i++) {
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.