[svn:dbi] r15405 - dbi/branches/sqlengine/lib/DBI/DBD

[REHSACK]

Author: REHSACK
Date: Mon Oct  1 04:34:05 2012
New Revision: 15405

Modified:
   dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm

Log:
- allow more than one attribute being reset on user meta information update
- fix "meta for table not found" error message


Modified: dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm     (original)
+++ dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm     Mon Oct  1 04:34:05 2012
@@ -1482,7 +1482,11 @@
 sub register_reset_on_modify
 {
     my ( $proto, $extra_resets ) = @_;
-    %reset_on_modify = ( %reset_on_modify, %$extra_resets );
+    foreach my $cv (keys %$extra_resets)
+    {
+       #%reset_on_modify = ( %reset_on_modify, %$extra_resets );
+       push @{$reset_on_modify{$cv}}, ref $extra_resets->{$cv} ? 
@{$extra_resets->{$cv}} : ($extra_resets->{$cv});
+    }
     return;
 }    # register_reset_on_modify
 
@@ -1516,7 +1520,7 @@
 {
     my ( $class, $meta, $attrib, $value ) = @_;
     defined $reset_on_modify{$attrib}
-      and delete $meta->{ $reset_on_modify{$attrib} }
+      and delete @$meta{ @{$reset_on_modify{$attrib}} }
       and $meta->{initialized} = 0;
 }    # table_meta_attr_changed
 
@@ -1530,7 +1534,7 @@
     my $dbh = $data->{Database};
 
     my ( $tblnm, $meta ) = $className->get_table_meta( $dbh, $attrs->{table}, 
1 )
-      or croak "Cannot find appropriate file for table '$attrs->{table}'";
+      or croak "Cannot find appropriate table '$attrs->{table}'";
     $attrs->{table} = $tblnm;
 
     # Being a bit dirty here, as SQL::Statement::Structure does not offer