loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.265, 2003/06/20 14:45:48	version 1.266.2.1, 2003/08/07 19:31:16
Line 70 use Math::Cephes();	Line 70 use Math::Cephes();
use Math::Random();	use Math::Random();
use Opcode();	use Opcode();


sub register {	sub register {
my ($space,@taglist) = @_;	my ($space,@taglist) = @_;
foreach my $temptag (@taglist) {	foreach my $temptag (@taglist) {
Line 95 use Apache::run();	Line 96 use Apache::run();
use Apache::londefdef();	use Apache::londefdef();
use Apache::scripttag();	use Apache::scripttag();
use Apache::edit();	use Apache::edit();
	use Apache::inputtags();
	use Apache::outputtags();
use Apache::lonnet();	use Apache::lonnet();
use Apache::File();	use Apache::File();
use Apache::loncommon();	use Apache::loncommon();
Line 1440 sub whichuser {	Line 1443 sub whichuser {
my ($symb,$courseid,$domain,$name,$publicuser);	my ($symb,$courseid,$domain,$name,$publicuser);
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('mgr',$tmp_courseid);	my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
if ($allowed) {	if ($allowed) {
$symb=$ENV{'form.grade_symb'};	$symb=$ENV{'form.grade_symb'};
$courseid=$ENV{'form.grade_courseid'};	$courseid=$ENV{'form.grade_courseid'};