From 50ee02792a719f963fe1bc1c8ffa6cb8bae63b07 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Fri, 9 May 2003 18:32:26 +0000 Subject: [PATCH] added missing group sub --- lib/WebGUI/FormProcessor.pm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/lib/WebGUI/FormProcessor.pm b/lib/WebGUI/FormProcessor.pm index ff3ac0a00..a4e92ff37 100644 --- a/lib/WebGUI/FormProcessor.pm +++ b/lib/WebGUI/FormProcessor.pm @@ -264,6 +264,30 @@ sub float { } +#------------------------------------------------------------------- + +=head2 group ( name ) + +Returns a group Id. Defaults to 2 (registered users). + +=over + +=item name + +The name of the form variable to retrieve. + +=back + +=cut + +sub group { + my $value = selectList($_[0]); + if (defined $value) { + return $value; + } + return 2; +} + #------------------------------------------------------------------- =head2 hidden ( name )