summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
13c3c3f)
my ($class,$r)=@_;
my @pcs = $class->primary_columns;
if ( $#pcs ) {
my ($class,$r)=@_;
my @pcs = $class->primary_columns;
if ( $#pcs ) {
@pks{@pcs}=(@{$r->{args}});
@pks{@pcs}=(@{$r->{args}});
- return $class->retrieve( %pks );
- }
+ return $class->retrieve( %pks );
+ }
return $class->retrieve( %$r->{args}->[0] );
}
return $class->retrieve( %$r->{args}->[0] );
}