--- loncom/interface/lonstatistics.pm 2003/05/29 21:38:32 1.72 +++ loncom/interface/lonstatistics.pm 2003/06/03 18:10:33 1.74 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.72 2003/05/29 21:38:32 matthew Exp $ +# $Id: lonstatistics.pm,v 1.74 2003/06/03 18:10:33 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -859,16 +859,14 @@ sub CreateMainMenu { # $Str .= '<table border="0"><tbody><tr>'."\n"; $Str .= '<td></td>'."\n"; - $Str .= '<td></td>'."\n"; $Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; + $Str .= '<td></td>'."\n"; + $Str .= '<td></td>'."\n"; $Str .= '<tr>'."\n"; # $Str .= '<td align="center">'. '<input type="submit" name="Refresh" value="Update Display" />'. "</td>\n"; - $Str .= '<td align="center">'. - '<input type="submit" name="ClearCache" value="Clear Caches" />'. - "</td>\n"; # $Str .= '<td align="center">'; $Str .= '<select name="reportSelected" >'."\n"; @@ -881,6 +879,10 @@ sub CreateMainMenu { } $Str .= '</select></td>'."\n"; # + $Str .= '<td>'.(' 'x30).'</td>'; + $Str .= '<td align="center">'. + '<input type="submit" name="ClearCache" value="Clear Caches" />'. + "</td>\n"; $Str .= '</tr></tbody></table>'."\n"; $Str .= '<hr>'."\n"; # @@ -974,8 +976,8 @@ END my %reports = ('classlist' => 'Class list', 'problem_statistics' => 'Problem Statistics', 'student_assessment' => 'Problem Status Chart', - 'percentage' => 'Correct-problems Plot', - 'option_response' => 'Option Response Analysis', +# 'percentage' => 'Correct-problems Plot', +# 'option_response' => 'Option Response Analysis', # 'activitylog' => 'Activity Log', ); $r->print(&CreateMainMenu($ENV{'form.status'},