Solstice::View::FormInput::FileUpload::Multiple - A view of an html file upload element

    use Solstice::View::FormInput::FileUpload::Multiple;

    my $view = Solstice::View::FormInput::FileUpload::Multiple->new();

package Solstice::View::FormInput::FileUpload::Multiple;

# $Id: Multiple.pm 63 2006-06-19 22:51:42Z jlaney $

use 5.006_000;
use strict;
use warnings;

use base qw(Solstice::View::FormInput);

use constant TRUE  => 1;
use constant FALSE => 0;

our $template = 'form_input/file_upload/multiple.html';

our ($VERSION) = ('$Revision: 63 $' =~ /^\$Revision:\s*([\d.]*)/);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    $self->_setTemplatePath('templates');

    return $self;
}

sub setStartCount {
    my $self = shift;
    $self->{'_start_count'} = shift;
}

sub getStartCount {
    my $self = shift;
    return $self->{'_start_count'};
}

sub setMaxCount {
    my $self = shift;
    $self->{'_max_count'} = shift;
}

sub getMaxCount {
    my $self = shift;
    return $self->{'_max_count'};
}

sub setUploadURL {
    my $self = shift;
    $self->{'_upload_url'} = shift;
}

sub getUploadURL {
    my $self = shift;
    return $self->{'_upload_url'};
}

sub addOnChangeEvent {
    my $self = shift;
    my $event = shift;
    
    my $events = $self->{'_onchange_events'} || [];
    push @$events, $event;
    $self->{'_onchange_events'} = $events;
}

sub getOnChangeEvents {
    my $self = shift;
    return $self->{'_onchange_events'} || [];
}

sub addOnUploadEvent {
    my $self = shift;
    my $event = shift;

    my $events = $self->{'_onupload_events'} || [];
    push @$events, $event;
    $self->{'_onupload_events'} = $events;
}

sub getOnUploadEvents {
    my $self = shift;
    return $self->{'_onupload_events'} || [];
}

sub addOnFormUpdateEvent {
    my $self = shift;
    my $event = shift;

    my $events = $self->{'_onformupdate_events'} || [];
    push @$events, $event;
    $self->{'_onformupdate_events'} = $events;
}

sub getOnFormUpdateEvents {
    my $self = shift;
    return $self->{'_onformupdate_events'} || [];
}

sub setIsDisabled {
    my $self = shift;
    $self->{'_disabled'} = shift;
}

sub getIsDisabled {
    my $self = shift;
    return $self->{'_disabled'};
}

sub setLabels {
    my $self = shift;
    $self->{'_labels'} = shift;
}

sub getLabels {
    my $self = shift;
    return $self->{'_labels'} || {};
}

sub generateParams {
    my $self = shift;

    my $lang_service = $self->getLangService();
    my $include_service = $self->getIncludeService();

    # File upload javascript
    $include_service->addIncludedFile({
        file => 'javascript/file_upload.js',
        type => 'text/javascript'
    });

    $include_service->addJSFile('javascript/iframe.js');

    # Initialization on body onload is here primarily for the benefit
    # of safari, since IE/Mozilla are happiest with immediate inline
    # initialization. At issue is the readiness of the iframe for 
    # writing the upload document.
    $self->getOnloadService()->addEvent('Solstice.FileUpload.initialize("'.$self->getName().'")');

    $self->setParam('name', $self->getName());
    $self->setParam('base_url', $self->getBaseURL());
    $self->setParam('start_count', $self->getStartCount() || 0);
    $self->setParam('max_count', $self->getMaxCount() || 999); 
    $self->setParam('class_name', $self->getClassName());
    $self->setParam('upload_url', $self->getUploadURL() || 
        ($self->getBaseURL().'file_upload.cgi'));
    $self->setParam('is_disabled', $self->getIsDisabled() ? 'true' : 'false');
    
    # Add any custom handlers
    for my $event (@{$self->getOnChangeEvents()}) {    
        $self->addParam('onchange_handlers', {event => $event});
    }
    for my $event (@{$self->getOnUploadEvents()}) {
        $self->addParam('onupload_handlers', {event => $event});
    }
    for my $event (@{$self->getOnFormUpdateEvents()}) {
        $self->addParam('onformupdate_handlers', {event => $event});
    }

    # Set the default/custom labels
    $self->setParams({
        add_label     => $lang_service->getString('upload_add_label'),
        another_label => $lang_service->getString('upload_another_label'),
        remove_label  => $lang_service->getString('upload_remove_label'),
        %{$self->getLabels()} # Label overrides
    });
    
    return TRUE;
}


1;
__END__