migrate Wizard getForm to FormBuilder

This commit is contained in:
Doug Bell 2011-02-16 17:11:11 -06:00
parent 2170509c0f
commit 37f392b4c8
4 changed files with 59 additions and 54 deletions

View file

@ -188,17 +188,21 @@ sub www_pickStyle {
$synopsis =~ s{(https?://\S+)}{<a href="$1">$1</a>}g;
$synopsis = WebGUI::HTML::format( $synopsis );
$f->raw(
'<div class="stylePicker' . $class . '"><label><input type="radio" name="styleTemplateId" value="' . $style->getId . '"/>'
. '<img src="' . $style->getExampleImageUrl . '" height="150" />'
. '<div class="title">' . $style->getTitle . '</div>'
. '<div class="synopsis">' . $synopsis . '</div></label>'
. '</div>'
my $label = '<img src="' . $style->getExampleImageUrl . '" height="150" />'
. '<div class="title">' . $style->getTitle . '</div>'
. '<div class="synopsis">' . $synopsis . '</div></label>'
;
$f->addField( "radio",
name => "styleTemplateId",
value => $style->getId,
subtext => $label,
rowClass => 'stylePicker' . $class,
extras => 'onclick="this.form.submit()"',
);
}
$f->submit;
$output .= $f->print;
$output .= $f->toHtml;
return $output . '<div style="clear: both;">&nbsp;</div>';
}