[Bast-commits] r3967 - in DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class: . ResultSet ResultSource/Table

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2008-01-22 20:31:11 +0000 (Tue, 22 Jan 2008)
New Revision: 3967

Added:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSet/
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSet/ForcePerObjectUpdate.pm
Modified:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partition.pm
Log:
fixed minor glitch and added ForcePerObjectUpdate

Added: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSet/ForcePerObjectUpdate.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSet/ForcePerObjectUpdate.pm	                        (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSet/ForcePerObjectUpdate.pm	2008-01-22 20:31:11 UTC (rev 3967)
@@ -0,0 +1,8 @@
+package DBIx::Class::ResultSet::ForcePerObjectUpdate;
+
+use base qw/DBIx::Class/;
+
+sub update { shift->update_all(@_) }
+sub delete { shift->delete_all(@_) }
+
+1;

Modified: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partition.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partition.pm	2008-01-22 19:31:36 UTC (rev 3966)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partition.pm	2008-01-22 20:31:11 UTC (rev 3967)
@@ -9,6 +9,7 @@
 __PACKAGE__->mk_group_accessors( 'simple' => qw/original_source_name/ );
 
 sub original_source {
+    local $_[0]->schema->{restricting_object};
     return $_[0]->schema->source($_[0]->original_source_name);
 }