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.319, 2010/03/16 19:55:37
Line 170 sub setup_vars {	Line 170 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'});