version 1.148, 2009/12/16 13:00:45
|
version 1.151, 2010/04/28 14:55:58
|
Line 405 sub StudentDataSelect {
|
Line 405 sub StudentDataSelect {
|
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Deal with 'all' |
# Deal with 'all' |
$Str .= ' <option value="all" '; |
$Str .= ' <option value="all"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($_ eq 'all') { |
if ($_ eq 'all') { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 416 sub StudentDataSelect {
|
Line 416 sub StudentDataSelect {
|
# |
# |
# Loop through the student data fields |
# Loop through the student data fields |
foreach my $item (@StudentDataOrder) { |
foreach my $item (@StudentDataOrder) { |
$Str .= ' <option value="'.$item.'" '; |
$Str .= ' <option value="'.$item.'"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($item eq $_ ) { |
if ($item eq $_ ) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 506 sub map_select {
|
Line 506 sub map_select {
|
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Put in option for 'all' |
# Put in option for 'all' |
$form .= ' <option value="all" '; |
$form .= ' <option value="all"'; |
if ($selected_maps[0] eq 'all') { |
if ($selected_maps[0] eq 'all') { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
} |
} |
$form .= ">all</option>\n"; |
$form .= ">all</option>\n"; |
# |
# |
Line 521 sub map_select {
|
Line 521 sub map_select {
|
$navmap = shift(@sequences); |
$navmap = shift(@sequences); |
} |
} |
foreach my $seq (@sequences){ |
foreach my $seq (@sequences){ |
$form .= ' <option value="'.$seq->symb.'" '; |
$form .= ' <option value="'.$seq->symb.'"'; |
foreach (@selected_maps) { |
foreach (@selected_maps) { |
if ($seq->symb eq $_) { |
if ($seq->symb eq $_) { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 556 sub SectionSelect {
|
Line 556 sub SectionSelect {
|
# |
# |
# Loop through the sequences |
# Loop through the sequences |
foreach my $s (@Sections) { |
foreach my $s (@Sections) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach (&get_selected_sections()) { |
foreach (&get_selected_sections()) { |
if ($s eq $_) { |
if ($s eq $_) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 591 sub GroupSelect {
|
Line 591 sub GroupSelect {
|
# |
# |
# Loop through the groups |
# Loop through the groups |
foreach my $s (@Groups) { |
foreach my $s (@Groups) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach my $group (&get_selected_groups()) { |
foreach my $group (&get_selected_groups()) { |
if ($s eq $group) { |
if ($s eq $group) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 749 sub CreateMainMenu {
|
Line 749 sub CreateMainMenu {
|
|
|
{url => '/adm/statistics?reportSelected=problem_analysis', |
{url => '/adm/statistics?reportSelected=problem_analysis', |
permission => 'F', |
permission => 'F', |
icon => 'edit-find.png', |
icon => 'prob_ana.png', |
linktext => ('Detailed Problem Analysis'), |
linktext => ('Detailed Problem Analysis'), |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
]}, |
]}, |
Line 777 sub CreateMainMenu {
|
Line 777 sub CreateMainMenu {
|
|
|
{url => '/adm/statistics?reportSelected=survey_reports', |
{url => '/adm/statistics?reportSelected=survey_reports', |
permission => 'F', |
permission => 'F', |
icon => 'docs.png', |
icon => 'survey_rep.png', |
linktext => ('Survey Reports'), |
linktext => ('Survey Reports'), |
linktitle => ('Prepare reports on survey results.')}, |
linktitle => ('Prepare reports on survey results.')}, |
]}); |
]}); |
Line 881 ENDSTYLE
|
Line 881 ENDSTYLE
|
my $GoToPage = $env{'form.reportSelected'}; |
my $GoToPage = $env{'form.reportSelected'}; |
# |
# |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$GoToPage.'">'); |
$GoToPage.'" />'); |
if($GoToPage eq 'activitylog') { |
if($GoToPage eq 'activitylog') { |
# &Apache::lonproblemstatistics::Activity(); |
# &Apache::lonproblemstatistics::Activity(); |
} elsif($GoToPage eq 'problem_statistics') { |
} elsif($GoToPage eq 'problem_statistics') { |