view release on metacpan or  search on metacpan

lib/App/Widget/JSApp.pm  view on Meta::CPAN

######################################################################
## $Id: JSApp.pm 6633 2006-07-11 17:54:18Z spadkins $
######################################################################

package App::Widget::JSApp;
$VERSION = (q$Revision: 6633 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App::Widget;
@ISA = ( "App::Widget" );

use strict;

=head1 NAME

App::Widget::JSApp - Dynamic, client-side widgets for the App-Context Framework using the js-app Javascript distribution

=head1 SYNOPSIS

   use App::Widget::JSApp::DualListSelectWidget;

   ...

=cut

# NOTE: This might not get called by App::Widget::JSApp::TabbedAppFrame because
# it does multiple inheritance.
sub _init {
    &App::sub_entry if ($App::trace);
    my ($self) = @_;
    $self->{onload_handler} = "context.onLoad();" if (!$self->{onload_handler});
    $self->SUPER::_init();
    &App::sub_exit() if ($App::trace);
}

sub html {
    &App::sub_entry if ($App::trace);
    my $self = shift;
    my $name = $self->{name};
    my $context = $self->{context};

    $self->init_jsapp();

    my %jsapp_special = ( attrib => 1, domain => 1, conf => 1, values_labels => 1 );
    my (@attrib);
    foreach my $key (keys %$self) {
        if ($key =~ /^jsapp_(.+)/) {
            push(@attrib, $1, $self->{$key}) if (!$jsapp_special{$1});
        }
    }
    if (! defined $self->{jsapp_submittable} || $self->{jsapp_submittable}) {
        push(@attrib, "submittable", 1);
    }
    my $value = $context->so_get($name);
    $value = "" if (!defined $value);
    $value = join(",",@$value) if (ref($value) eq "ARRAY");
    push(@attrib, "default", $value);
    my $js_conf = "";
    if ($#attrib > -1) {
        $js_conf .= ", {" if (!$js_conf);
        for (my $i = 0; $i < $#attrib; $i += 2) {
            $js_conf .= "," if ($i > 0);
            $js_conf .= " \"$attrib[$i]\" : \"" . $self->escape_double_quoted_value($attrib[$i+1]) . "\"";
        }
    }
    if ($self->{jsapp_conf}) {
        $js_conf .= ($js_conf) ? ",\n" : ", {\n";
        $js_conf .= $self->{jsapp_conf};
    }

    if (defined $self->{jsapp_attrib}) {
        my ($value, $so_name);
        my $attribs = $self->{jsapp_attrib};
        foreach my $attrib (sort keys %$attribs) {
            $so_name = $attribs->{$attrib};
            $so_name = $attrib if (!$so_name || $so_name eq "1");
            $value = $context->so_get($so_name);
            $value = join(",",@$value) if (ref($value) eq "ARRAY");
            $js_conf .= ",\n    \"$attrib\" : \"" . $self->escape_double_quoted_value($value) . "\"";
        }
    }
 
    if (defined $self->{jsapp_domain}) {
        my ($value_domain, $values, $labels, $domain_alias);
        my ($values_text, $labels_text, $i);
        foreach my $domain_name (sort keys %{$self->{jsapp_domain}}) {

            $domain_alias = $self->{jsapp_domain}{$domain_name};
            $domain_alias = $domain_name if (!$domain_alias || $domain_alias eq "1");
            
            $value_domain = $context->value_domain($domain_name);
            ($values, $labels) = $value_domain->values_labels();