[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});