loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.167 and 1.168

version 1.167, 2002/04/10 15:19:59	version 1.168, 2002/05/01 21:40:25
Line 336 sub registerurl {	Line 336 sub registerurl {
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }	if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {	if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {
my $hwkadd='';	my $hwkadd='';
if ($ENV{'REQUEST_URI'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
$hwkadd.=(<<ENDSUBM);	$hwkadd.=(<<ENDSUBM);
menu.switchbutton	menu.switchbutton(7,1,'subm.gif','view sub','missions','gocmd("/adm/grades","submission")');
(7,1,'subm.gif','view sub','missions',
'gocmd("/adm/grades","submission")');
ENDSUBM	ENDSUBM
}	}
if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) {
$hwkadd.=(<<ENDGRDS);	$hwkadd.=(<<ENDGRDS);
menu.switchbutton	menu.switchbutton(7,2,'pgrd.gif','problem','grades','gocmd("/adm/grades","viewgrades")');
(7,2,'pgrd.gif','problem','grades',
'gocmd("/adm/grades","viewgrades")');
ENDGRDS	ENDGRDS
}	}
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
$hwkadd.=(<<ENDPARM);	$hwkadd.=(<<ENDPARM);
menu.switchbutton	menu.switchbutton(7,3,'pparm.gif','problem','parms','gocmd("/adm/parmset","set")');
(7,3,'pparm.gif','problem','parms',
'gocmd("/adm/parmset","set")');
ENDPARM	ENDPARM
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.167
changed lines
	Added in v.1.168