loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.455, 2007/10/11 23:18:46	version 1.457, 2007/10/12 20:06:52
Line 35 use Apache::loncommon;	Line 35 use Apache::loncommon;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::lonhomework;	use Apache::lonhomework;
	use Apache::lonpickcode;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
Line 4893 SCANTRONFORM	Line 4894 SCANTRONFORM
</tr>	</tr>
SCANTRONFORM	SCANTRONFORM

$r->print(<<SCANTRONFORM);	$r->print('<tr><td bgcolor="#777777">');
</table>	&Apache::lonpickcode::code_list($r,2);
$grading_menu_button	$r->print('</td></tr></table>');
SCANTRONFORM	$r->print($grading_menu_button);

return	return
}	}

Line 7226 sub grading_menu {	Line 7226 sub grading_menu {
name => &mt('Grade/Manage Scantron Forms'),	name => &mt('Grade/Manage Scantron Forms'),
short_description =>	short_description =>
&mt('')});	&mt('')});
$fields{'command'} = 'codelist';
$url = &Apache::lonhtmlcommon::build_url('/adm/pickcode',\%fields);
push (@menu, { url => $url,
name => &mt('View Saved CODEs'),
short_description =>
&mt('')});
$fields{'command'} = 'verify';	$fields{'command'} = 'verify';
$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);	$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
push (@menu, { url => "",	push (@menu, { url => "",