version 1.73, 2011/03/09 01:46:08
|
version 1.74, 2011/03/11 02:39:53
|
Line 80 sub real_handler {
|
Line 80 sub real_handler {
|
|
|
&startGradeScreen($r,'quick'); |
&startGradeScreen($r,'quick'); |
|
|
$r->rflush(); |
my $cangrade=&Apache::lonnet::allowed('mgr'); |
|
# |
# my $uname='korte'; |
# Pick student |
# my $udom='gerd'; |
# |
|
|
my $uname; |
my $uname; |
my $udom; |
my $udom; |
|
my $stdid; |
|
if ($cangrade) { |
|
if ($env{'form.uname'}) { $uname=$env{'form.uname'}; } |
|
if ($env{'form.udom'}) { $udom=$env{'form.udom'}; } |
|
if ($env{'form.id'}) { $stdid=$env{'form.id'}; } |
|
if (($stdid) && ($udom)) { |
|
$uname=(&Apache::lonnet::idget($udom,$stdid))[1]; |
|
} |
|
$r->print('<form method="post" name="quickform" action="/adm/quickgrades">'); |
|
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
|
&Apache::loncommon::selectstudent_link('quickform','uname','udom'); |
|
$r->print("<p>\n".&Apache::loncommon::studentbrowser_javascript()."\n"); |
|
$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
|
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
|
,'<input type="text" value="'.$stdid.'" size="12" name="id" /> ' |
|
,$chooseopt).'<br />'. |
|
'<input type="submit" name="display" value="'.&mt('Update Display').'" /></p>'); |
|
} |
|
$r->rflush(); |
|
|
my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)= |
my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)= |
&getData($showPoints,$uname,$udom); |
&getData($showPoints,$uname,$udom); |
Line 98 sub real_handler {
|
Line 116 sub real_handler {
|
&outputTable($r,$showPoints,$notshowTotals, |
&outputTable($r,$showPoints,$notshowTotals, |
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted); |
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted); |
} |
} |
|
if ($cangrade) { $r->print("\n</form>\n"); } |
&endGradeScreen($r); |
&endGradeScreen($r); |
return OK; |
return OK; |
|
|
Line 430 sub outputCategories {
|
Line 449 sub outputCategories {
|
&Apache::lonnet::put('grading_categories',\%categories,$cdom,$cnum); |
&Apache::lonnet::put('grading_categories',\%categories,$cdom,$cnum); |
} |
} |
# new categories loaded now |
# new categories loaded now |
# Form only generated if user can change the grading categories |
|
if ($cangrade) { |
|
$r->print('<form method="post" name="quickform" action="/adm/quickgrades">'); |
|
} |
|
# |
|
&output_category_table($r,$cangrade,$navmap,%categories); |
&output_category_table($r,$cangrade,$navmap,%categories); |
# |
# |
if ($cangrade) { |
if ($cangrade) { |
$r->print('<input type="hidden" name="storemove" value="" />'. |
$r->print('<input type="hidden" name="storemove" value="" />'. |
'<input type="hidden" name="cmd" value="" />'. |
'<input type="hidden" name="cmd" value="" />'. |
'<input type="submit" name="storechanges" value="'.&mt("Save changes to grading categories").'" />'. |
'<input type="submit" name="storechanges" value="'.&mt("Save changes to grading categories").'" />'. |
'<script>function storecmd (cmd) { document.quickform.cmd.value=cmd; document.quickform.submit(); }</script>'. |
'<script>function storecmd (cmd) { document.quickform.cmd.value=cmd; document.quickform.submit(); }</script>'); |
'</form>'); |
|
} |
} |
} |
} |
|
|