--- loncom/interface/lonhelper.pm 2003/04/30 18:40:49 1.14
+++ loncom/interface/lonhelper.pm 2003/04/30 19:08:15 1.15
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.14 2003/04/30 18:40:49 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.15 2003/04/30 19:08:15 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -988,8 +988,8 @@ sub render {
$result .= <
@@ -1455,10 +1455,35 @@ sub render {
my $var = $self->{'variable'};
my $curVal = $helper->{VARS}->{$var};
+ my $buttons = '';
+
+ if ($self->{'multichoice'}) {
+ $result = <
+SCRIPT
+ $buttons = <
+
+
+
+BUTTONS
+ }
+
if (defined $self->{ERROR_MSG}) {
$result .= '
' . $self->{ERROR_MSG} . '
';
}
+ $result .= $buttons;
+
my $filterFunc = $self->{FILTER_FUNC};
my $choiceFunc = $self->{CHOICE_FUNC};
my $valueFunc = $self->{VALUE_FUNC};
@@ -1500,6 +1525,8 @@ sub render {
'resource_no_folder_link' => 1,
'iterator_map' => $mapUrl }
);
+
+ $result .= $buttons;
return $result;
}
@@ -1591,8 +1618,8 @@ sub render {
$result = <
@@ -1792,16 +1819,16 @@ sub render {
$result = <
SCRIPT
- my $buttons = <