loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.332, 2004/07/26 16:23:47	version 1.332.2.2, 2004/10/18 19:50:43
Line 1157 $cleanbut	Line 1157 $cleanbut
<input type="submit" name="savethisfile" accesskey="s" value="$lt{'st'}" />	<input type="submit" name="savethisfile" accesskey="s" value="$lt{'st'}" />
<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />	<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
BUTTONS	BUTTONS
	$buttons.=&Apache::lonhtmlcommon::htmlareaselectactive('filecont');
my $editfooter=(<<ENDFOOTER);	my $editfooter=(<<ENDFOOTER);
$initialize	$initialize
<hr />	<hr />
Line 1528 sub whichuser {	Line 1529 sub whichuser {
if (defined($ENV{'form.grade_symb'})) {	if (defined($ENV{'form.grade_symb'})) {
my $tmp_courseid=$ENV{'form.grade_courseid'};	my $tmp_courseid=$ENV{'form.grade_courseid'};
my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);	my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
	if (!$allowed &&
	exists($ENV{'request.course.sec'}) &&
	$ENV{'request.course.sec'} !~ /^\s*$/) {
	$allowed=&Apache::lonnet::allowed('vgr',$ENV{'form.grade_courseid'}.
	'/'.$ENV{'request.course.sec'});
	}
if ($allowed) {	if ($allowed) {
$symb=$ENV{'form.grade_symb'};	$symb=$ENV{'form.grade_symb'};
$courseid=$ENV{'form.grade_courseid'};	$courseid=$ENV{'form.grade_courseid'};