version 1.79, 2003/08/27 21:33:33
|
version 1.81, 2003/09/29 16:20:18
|
Line 83 use Apache::lonproblemstatistics();
|
Line 83 use Apache::lonproblemstatistics();
|
use Apache::lonstudentassessment(); |
use Apache::lonstudentassessment(); |
use Apache::lonpercentage; |
use Apache::lonpercentage; |
use Apache::lonmysql; |
use Apache::lonmysql; |
|
use Apache::lonlocal; |
use Time::HiRes; |
use Time::HiRes; |
|
|
####################################################### |
####################################################### |
Line 797 sub SectionSelect {
|
Line 798 sub SectionSelect {
|
return $Str; |
return $Str; |
} |
} |
|
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &CreateAndParseOutputSelector() |
|
|
|
Construct a selection list of options for output and parse output selections. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub OutputDescriptions { |
|
my (@OutputOptions) = @_; |
|
my $Str = ''; |
|
$Str .= "<h2>Output Modes</h2>\n"; |
|
$Str .= "<dl>\n"; |
|
foreach my $outputmode (@OutputOptions) { |
|
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
|
$Str .=" <dd>".$outputmode->{'description'}."</dd>\n"; |
|
} |
|
$Str .= "</dl>\n"; |
|
return $Str; |
|
} |
|
|
|
sub CreateAndParseOutputSelector { |
|
my ($elementname,$default,@OutputOptions) = @_; |
|
my $output_mode; |
|
my $show; |
|
my $Str = ''; |
|
# |
|
# Format for output options is 'mode, restrictions'; |
|
my $selected = $default; |
|
if (exists($ENV{'form.'.$elementname})) { |
|
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) { |
|
$selected = $ENV{'form.'.$elementname}->[0]; |
|
} else { |
|
$selected = $ENV{'form.'.$elementname}; |
|
} |
|
} |
|
# |
|
# Set package variables describing output mode |
|
$output_mode = 'html'; |
|
$show = 'all'; |
|
foreach my $option (@OutputOptions) { |
|
next if ($option->{'value'} ne $selected); |
|
$output_mode = $option->{'mode'}; |
|
$show = $option->{'show'}; |
|
} |
|
# |
|
# Build the form element |
|
$Str = qq/<select size="5" name="$elementname">/; |
|
foreach my $option (@OutputOptions) { |
|
if (exists($option->{'special'}) && |
|
$option->{'special'} =~ /do not show/) { |
|
next; |
|
} |
|
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
|
$Str .= " selected " if ($option->{'value'} eq $selected); |
|
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
|
} |
|
$Str .= "\n</select>"; |
|
return ($Str,$output_mode,$show); |
|
} |
|
|
############################################### |
############################################### |
############################################### |
############################################### |
|
|