File Coverage

blib/lib/Net/LDAP/HTMLWidget.pm

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	18	0.0
condition	0	24	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	83	16.8

package Net::LDAP::HTMLWidget;
use strict;
use warnings;

our $VERSION = '0.07';
# pod after __END__
use Carp qw(croak);
our $DECODE = 0;

sub fill_widget {
    my ($self,$entry,$widget)=@_;
    if (ref($entry) and $entry->isa('HTML::Widget')) {
        $widget = $entry;
        $entry = $self;
    }
    my @elements = $widget->find_elements;
    foreach my $element ( @elements ) {
        my $name=$element->name;
        next unless $name && $entry->exists($name) && $element->can('value');
        my $v = $entry->get_value($name);
        if ($DECODE) {
            $v = Encode::decode($DECODE, $v);
        }
	    $element->value( $v );
    }
}


sub populate_from_widget {
    my ($self,$entry,$result,$ldap)=@_;
    if (ref($entry) and $entry->isa('HTML::Widget::Result')) {
        $ldap = $result;
        $result = $entry;
        $entry = $self;
    }

    $ldap = $self if (ref $self && ($self->isa('Net::LDAP') || $self->isa('Catalyst::Model::LDAP::Connection')));
    $ldap = $self->_ldap_client if (ref($self) and $self->isa('Catalyst::Model::LDAP::Entry') && $self->_ldap_client);

    croak("No LDAP connection: " . ref($self)) unless $ldap;

    foreach my $oc ( ref $entry->get_value('objectClass')
        ? @{$entry->get_value('objectClass')}
        : ($entry->get_value('objectClass'))) {
	        foreach my $attr ($ldap->schema->must($oc),$ldap->schema->may($oc)) {
	            $entry->replace($attr->{name}, $result->param($attr->{name}))
		            if defined $result->param($attr->{name});
	        }
    }
    return $entry->update($ldap);
}


1;

__END__