[svn:p5ee] r13477 - p5ee/trunk/App-Repository/lib/App
[email protected] Fri, 6 Nov 2009 05:17:05 -0800 (PST)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
Author: spadkins
Date: Fri Nov 6 05:17:01 2009
New Revision: 13477
Modified:
p5ee/trunk/App-Repository/lib/App/Repository.pm
Log:
fixed a bug with delete() and update() for redirected repositories and tables
Modified: p5ee/trunk/App-Repository/lib/App/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository.pm Fri Nov 6 05:17:01 2009
@@ -2305,10 +2305,10 @@
my ($retval);
if (defined $repname && $repname ne $self->{name}) {
my $rep = $self->{context}->repository($repname);
- $retval = $rep->delete($realtable, $cols, $row, $options);
+ $retval = $rep->delete($realtable, $params, $cols, $row, $options);
}
elsif (defined $realtable && $realtable ne $table) {
- $retval = $self->delete($realtable, $cols, $row, $options);
+ $retval = $self->delete($realtable, $params, $cols, $row, $options);
}
else {
$self->_load_table_metadata($table) if (! defined $self->{table}{$table}{loaded});
@@ -2327,10 +2327,10 @@
my ($retval);
if (defined $repname && $repname ne $self->{name}) {
my $rep = $self->{context}->repository($repname);
- $retval = $rep->update($realtable, $cols, $row, $options);
+ $retval = $rep->update($realtable, $params, $cols, $row, $options);
}
elsif (defined $realtable && $realtable ne $table) {
- $retval = $self->update($realtable, $cols, $row, $options);
+ $retval = $self->update($realtable, $params, $cols, $row, $options);
}
else {
$self->_load_table_metadata($table) if (! defined $self->{table}{$table}{loaded});