Changeset 172 for LATMOS-Accounts-Web/lib

Timestamp:

05/23/09 16:57:05 (15 years ago)

Author:

nanardon

Message:

• support unexported objects

Location:

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model

Files:

• Accounts.pm (modified) (1 diff)
• AttrForms.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -25 +25 @@
 sub db {
     my ($self) = @_;
-    LATMOS::Accounts->new(LATMOS::Accounts::Web->config->{config})
-        ->default_base
+    my $base = LATMOS::Accounts
+        ->new(LATMOS::Accounts::Web->config->{config})
+        ->default_base;
+    $base->{wexported} = 1;
+    $base
 }
 

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -249 +249 @@
                 : $self->{c}->req->param($_)
         } grep { 
+            ($attrs->{$_}[1] || '') eq 'checkbox' ||
             exists $self->{c}->req->params->{$_}
         } $self->attributes