Skip to content

Commit 9977268

Browse files
committed
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
1 parent 98673a1 commit 9977268

2 files changed

Lines changed: 13 additions & 3 deletions

File tree

Changes

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,11 @@
11
Revision history for HTML-FormFu-Model-LDAP
2-
2+
0.0103 2008-10-08 12:27:00+0200
3+
I hate checkboxes and everything related to them.
4+
God damn piece of crap design.
5+
6+
0.0102
7+
Fix checkbox support to default_values (on as a value)
8+
Fix checkbox/remove support in general by issuing remove for undef values
39
0.0.1 Thu Feb 14 12:19:51 2008
410
Initial release.
511

lib/HTML/FormFu/Model/LDAP.pm

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ use warnings;
55
use base 'HTML::FormFu::Model';
66

77
use Data::Dumper;
8-
our $VERSION = '0.0101';
8+
our $VERSION = '0.0103';
99
use Encode;
1010

1111
sub default_values {
@@ -18,6 +18,7 @@ sub default_values {
1818
foreach my $e (@$elements) {
1919
my $name = $e->name();
2020
my $val = $ldap_entry->get_value($name);
21+
warn "decoding!" if $cfg->{decode};
2122
$val = decode_utf8($val) if $cfg->{decode};
2223
if ( $name && $val ) {
2324
$e->default($val);
@@ -66,9 +67,12 @@ sub update {
6667
)
6768
? $form->param_value( $attr->{name} )
6869
: undef;
69-
70+
#warn $attr->{name} . ": " . ($value ? $value : "undef");
7071
if ( defined $value ) {
7172
$ldap_entry->replace( $attr->{name}, $value );
73+
} elsif ($nested_name) {
74+
# This exists in the form, so we should remove it?
75+
$ldap_entry->delete( $attr->{name}) if $ldap_entry->exists( $attr->{name} );
7276
}
7377
}
7478
}

0 commit comments

Comments
 (0)