version 1.318, 2010/03/10 21:25:36
|
version 1.320, 2010/07/10 13:51:05
|
Line 111 sub get_target {
|
Line 111 sub get_target {
|
} elsif ( $env{'form.grade_target'} eq 'webgrade' |
} elsif ( $env{'form.grade_target'} eq 'webgrade' |
&& ($Apache::lonhomework::queuegrade eq 'F' )) { |
&& ($Apache::lonhomework::queuegrade eq 'F' )) { |
return ($env{'form.grade_target'}); |
return ($env{'form.grade_target'}); |
} |
} elsif ($env{'form.grade_target'} eq 'answer') { |
|
if ($env{'form.answer_output_mode'} eq 'tex') { |
|
return ($env{'form.grade_target'}); |
|
} |
|
} |
if ($env{'form.webgrade'} && |
if ($env{'form.webgrade'} && |
($Apache::lonhomework::modifygrades eq 'F' |
($Apache::lonhomework::modifygrades eq 'F' |
|| $Apache::lonhomework::queuegrade eq 'F' )) { |
|| $Apache::lonhomework::queuegrade eq 'F' )) { |
Line 170 sub setup_vars {
|
Line 174 sub setup_vars {
|
# return ';$external::target='.$target.';'; |
# return ';$external::target='.$target.';'; |
} |
} |
|
|
sub createmenu { |
|
my ($which,$request)=@_; |
|
if ($which eq 'grade') { |
|
$request->print('<script type="text/javascript" language="JavaScript"> |
|
hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote", |
|
"height=350,width=150,menubar=no"); |
|
</script>'); |
|
} |
|
} |
|
|
|
sub proctor_checked_in { |
sub proctor_checked_in { |
my ($slot_name,$slot,$type)=@_; |
my ($slot_name,$slot,$type)=@_; |
my @possible_proctors=split(",",$slot->{'proctor'}); |
my @possible_proctors=split(",",$slot->{'proctor'}); |