--- loncom/interface/lonhelper.pm 2005/10/17 20:21:31 1.125
+++ loncom/interface/lonhelper.pm 2005/10/17 21:14:55 1.126
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.125 2005/10/17 20:21:31 albertel Exp $
+# $Id: lonhelper.pm,v 1.126 2005/10/17 21:14:55 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2370,6 +2370,18 @@ BUTTONS
$result .= '' . $self->{ERROR_MSG} . '
';
}
+ my %defaultUsers;
+ if (defined($self->{DEFAULT_VALUE})) {
+ my $valueFunc = eval($self->{DEFAULT_VALUE});
+ die 'Error in default value code for variable ' .
+ $self->{'variable'} . ', Perl said: ' . $@ if $@;
+ my @defaultUsers = &$valueFunc($helper, $self);
+ if (!$self->{'multichoice'} && @defaultUsers) { # only allowed 1
+ @defaultUsers = ($defaultUsers[0]);
+ }
+ %defaultUsers = map { if ($_) {($_,1) } } @defaultUsers;
+ delete($defaultUsers{''});
+ }
my $choices = [];
# Load up the non-students, if necessary
@@ -2435,7 +2447,13 @@ BUTTONS
$result .= "