loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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'});