loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.125, 2003/05/13 01:18:37	version 1.127, 2003/05/14 17:16:20
Line 61 BEGIN {	Line 61 BEGIN {
}	}

sub get_target {	sub get_target {
if ($ENV{'request.state'} eq "published") {	if (($ENV{'request.state'} eq "published") \|\|
	($ENV{'request.state'} eq "uploaded")) {
if ( defined($ENV{'form.grade_target'} )	if ( defined($ENV{'form.grade_target'} )
&& ($ENV{'form.grade_target'} eq 'tex')) {	&& ($ENV{'form.grade_target'} eq 'tex')) {
return ($ENV{'form.grade_target'});	return ($ENV{'form.grade_target'});
Line 285 sub showhashsubset {	Line 286 sub showhashsubset {

sub setuppermissions {	sub setuppermissions {
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});	$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});	my $viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
	if (! $viewgrades &&
	exists($ENV{'request.course.sec'}) &&
	$ENV{'request.course.sec'} !~ /^\s*$/) {
	$viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}.
	'/'.$ENV{'request.course.sec'});
	}
	$Apache::lonhomework::viewgrades = $viewgrades;
return ''	return ''
}	}