oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added UI Level to Article, and fixed some form bugs.

Browse source
This commit is contained in:
JT Smith 2002-10-05 22:07:20 +00:00
parent 95c08144f0
commit 428200daad
5 changed files with 138 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Form.pm
View file

@ -453,7 +453,7 @@ sub group {
=cut
sub hidden {
return '<input type="hidden" name="'.$_[0]->{name}.'" value="'._fixQuotes($_[0]->{value}).'">';
return '<input type="hidden" name="'.$_[0]->{name}.'" value="'._fixQuotes($_[0]->{value}).'">'."\n";
}
@ -465,6 +465,10 @@ sub hidden {
the HTMLForm package, but we decided to make it a public method
in case anybody else had a use for it.
=item name
The name of this field.
=item options
A hash reference where the key is the "name" of the hidden field.
@ -479,16 +483,16 @@ sub hidden {
sub hiddenList {
my ($output, $key, $item);
foreach $key (keys %{$_[0]->{options}}) {
foreach $item (@$_[0]->{value}) {
foreach $item (@{$_[0]->{value}}) {
if ($item eq $key) {
$output .= hidden({
name=>$key,
value=>$item
name=>$_[0]->{name},
value=>$key
});
}
}
}
return $output;
return $output."\n";
}