r29157@andreas-marienborgs-computer: andreas | 2008-10-20 08:58:41 +0200

 Try to handle checkboxes in a better way. This still needs a better general FormFu solution I think


git-svn-id: file:///home/cafranks/github/googlecode/trunk/HTML-FormFu-Model-LDAP@1222 3452f2c1-2087-41cb-87be-0eefa6d42935

Author: omega

Changes

@@ -1,5 +1,11 @@
 Revision history for HTML-FormFu-Model-LDAP
-
+0.0103  2008-10-08 12:27:00+0200
+        I hate checkboxes and everything related to them. 
+        God damn piece of crap design.
+        
+0.0102
+        Fix checkbox support to default_values (on as a value)
+        Fix checkbox/remove support in general by issuing remove for undef values
 0.0.1  Thu Feb 14 12:19:51 2008
        Initial release.
 

lib/HTML/FormFu/Model/LDAP.pm

@@ -5,7 +5,7 @@ use warnings;
 use base 'HTML::FormFu::Model';
 
 use Data::Dumper;
-our $VERSION = '0.0101';
+our $VERSION = '0.0103';
 use Encode;
 
 sub default_values {
@@ -18,6 +18,7 @@ sub default_values {
     foreach my $e (@$elements) {
         my $name = $e->name();
         my $val  = $ldap_entry->get_value($name);
+        warn "decoding!" if $cfg->{decode};
         $val = decode_utf8($val) if $cfg->{decode};
         if ( $name && $val ) {
             $e->default($val);
@@ -66,9 +67,12 @@ sub update {
               )
               ? $form->param_value( $attr->{name} )
               : undef;
-
+            #warn $attr->{name} . ": " . ($value ? $value : "undef");
             if ( defined $value ) {
                 $ldap_entry->replace( $attr->{name}, $value );
+            } elsif ($nested_name) {
+                # This exists in the form, so we should remove it?
+                $ldap_entry->delete( $attr->{name}) if $ldap_entry->exists( $attr->{name} );
             }
         }
     }