loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.522.2.19, 2016/10/25 18:54:48	version 1.522.2.20, 2016/10/27 15:26:35
Line 2026 sub assessparms {	Line 2026 sub assessparms {

$csec=$env{'form.csec'};	$csec=$env{'form.csec'};
$cgroup=$env{'form.cgroup'};	$cgroup=$env{'form.cgroup'};
	my $noeditgrp;
	if ($cgroup ne '') {
	unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
	if (($env{'request.course.groups'} eq '') \|\|
	(!grep(/^\Q$cgroup\E$/,split(/,/,$env{'request.course.groups'})))) {
	$noeditgrp = 1;
	}
	}
	}

if ($udom=$env{'form.udom'}) {	if ($udom=$env{'form.udom'}) {
} elsif ($udom=$env{'request.role.domain'}) {	} elsif ($udom=$env{'request.role.domain'}) {
Line 3161 sub listdata {	Line 3170 sub listdata {
unless ($readonly) {	unless ($readonly) {
$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.	$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
$thistype.'" />');	$thistype.'" />');
	}
$r->print('</td>'.&Apache::loncommon::end_data_table_row());	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
}	}
}	}
Line 3870 ENDMAINFORMHEAD	Line 3880 ENDMAINFORMHEAD
},	},
{ linktext => $linktext{'resettimes'},	{ linktext => $linktext{'resettimes'},
url => $url{'resettimes'},	url => $url{'resettimes'},
permission => ($vgr \|\| $mgr)	permission => ($vgr \|\| $mgr),
linktitle => $linktitle{'resettimes'},	linktitle => $linktitle{'resettimes'},
icon => 'start-here.png',	icon => 'start-here.png',
},	},