gistfile1.txt

Asset/Sku/Ad.pm:

in view():
    my %var = (
... stuff...
        formImage           => WebGUI::Form::Image($session, {
                                  -name           => "formImage",
                                  -value          => $options->{image} || $form->get('formImage','image'),
                                  -size           => 40
                                  -forceImageOnly => 1,
                                 }),
... stuff...
    );
... stuff...
    return $self->processTemplate(\%var,undef,$self->{_viewTemplate});

in www_addToCart():

    my $imageStorageId = $form->process('formImage', 'image');