version 1.109, 2004/09/02 21:05:24
|
version 1.112, 2005/01/05 20:34:20
|
Line 786 sub SectionSelect {
|
Line 786 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); |
|
} |
|
|
|
############################################### |
############################################### |
############################################### |
############################################### |
|
|
Line 1081 sub CreateMainMenu {
|
Line 1015 sub CreateMainMenu {
|
{ internal_name => 'student_submission_reports', |
{ internal_name => 'student_submission_reports', |
name => &mt('Student Submission Reports'), |
name => &mt('Student Submission Reports'), |
short_description => |
short_description => |
&mt('Prepare Excel spreadsheets of student submissions.'), |
&mt('Prepare reports of student submissions.'), |
}, |
}, |
{ internal_name => 'survey_reports', |
{ internal_name => 'survey_reports', |
name => &mt('Survey Reports'), |
name => &mt('Survey Reports'), |
Line 1159 sub handler {
|
Line 1093 sub handler {
|
<style type="text/css"> |
<style type="text/css"> |
ul.sub_studentans { list-style-type: none } |
ul.sub_studentans { list-style-type: none } |
ul.sub_correctans { list-style-type: none } |
ul.sub_correctans { list-style-type: none } |
|
tr.even { background-color: \#CCCCCC } |
|
td.essay { border: 1px solid gray; } |
</style> |
</style> |
ENDSTYLE |
ENDSTYLE |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |