--- loncom/homework/grades.pm 2007/10/08 21:05:54 1.445 +++ loncom/homework/grades.pm 2007/10/08 22:29:59 1.446 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.445 2007/10/08 21:05:54 banghart Exp $ +# $Id: grades.pm,v 1.446 2007/10/08 22:29:59 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7031,9 +7031,10 @@ sub grading_menu { } else { $Str .='

{'jscript'}. - ' nohref="nohref" >'. + ' href="javascript:checkChoice2(document.forms.gradingMenu,\'5\',\'verify\')" >'. $menudata->{'name'}."

\n"; - $Str .= ' receipt: '.&Apache::lonnet::recprefix($env{'request.course.id'}). + $Str .= (' 'x8). + ' receipt: '.&Apache::lonnet::recprefix($env{'request.course.id'}). '-'; } $Str .= ' '.(' 'x8).$menudata->{'short_description'}. @@ -7198,15 +7199,15 @@ GRADINGMENUJS ''."\n". ''."\n"; - $result.='
'."\n". - '
'."\n". + $result.=''; + $result.= '
'."\n". + ''."\n". '
'."\n". ' Select a Grading/Viewing Option
'."\n"; $result.=''; $result.=''."\n"; $result.=''; -# $result.=''; + $result.=''; $result.=''."\n"; $result.=''; $result.='
'.&mt('Sections').'Groups'.&mt('Groups').''.&mt('Access Status').'
'."\n". @@ -7218,8 +7219,8 @@ GRADINGMENUJS } } $result.= '   '; -# $result.= ''."\n"; -# $result.='Put group select here'."\n"; + $result.= ''."\n"; + $result.= &Apache::lonstatistics::GroupSelect('group','multiple',3); $result.=''."\n"; $result.=&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,3,undef,'mult'); @@ -7254,38 +7255,38 @@ GRADINGMENUJS ''. '
'."\n"; - $result.='
'; - - $result.=''; - $result.=''."\n"; - - $result.=''."\n"; - - $result.=''."\n"; - - if ((&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && ($symb)) { - $result.=''."\n"; - } - $result.=''."\n"; - $result.=''."\n"; + $result.=''; #
'. - ''. - ' '.&mt('scores from file').'
'. - ''. - ' '.&mt('clicker file').'
'. - ' scantron forms
'. - ''. - ' '.&mt('receipt').': '. - &Apache::lonnet::recprefix($env{'request.course.id'}). - '-'. - '
'. - ' access times.
'. - ' saved CODEs.
'; - $result.='
'."\n". - '
'."\n". +# $result.=''; +# $result.=''."\n"; +# +# $result.=''."\n"; +# +# $result.=''."\n"; +# +# if ((&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && ($symb)) { +# $result.=''."\n"; +# } +# $result.=''."\n"; +# $result.=''."\n"; +# +# $result.='
'. +# ''. +# ' '.&mt('scores from file').'
'. +# ''. +# ' '.&mt('clicker file').'
'. +# ' scantron forms
'. +# ''. +# ' '.&mt('receipt').': '. +# &Apache::lonnet::recprefix($env{'request.course.id'}). +# '-'. +# '
'. +# ' access times.
'. +# ' saved CODEs.
'."\n".'
'."\n". '
'."\n"; return $result; } @@ -7797,7 +7798,6 @@ ENDHEADER sub handler { my $request=$_[0]; - &reset_caches(); if ($env{'browser.mathml'}) { &Apache::loncommon::content_type($request,'text/xml'); @@ -7807,7 +7807,6 @@ sub handler { $request->send_http_header; return '' if $request->header_only; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); - &Apache::lonnet::logthis("receipt is ".$env{'form.receipt'}); my $symb=&get_symb($request,1); my @commands=&Apache::loncommon::get_env_multiple('form.command'); my $command=$commands[0];