loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.131, 2001/09/28 18:20:06	version 1.133, 2001/10/03 12:34:10
Line 219 sub maketoken {	Line 219 sub maketoken {
}	}

sub printtokenheader {	sub printtokenheader {
my ($target,$token,$symb,$tuname,$tudom,$tcrsid)=@_;	my ($target,$token,$tsymb,$tcrsid,$tudom,$tuname)=@_;
unless ($token) { return ''; }	unless ($token) { return ''; }

unless ($symb) {	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
$symb=&Apache::lonnet::symbread();	unless ($tsymb) {
	$tsymb=$symb;
}	}
unless ($tuname) {	unless ($tuname) {
$tuname=$ENV{'user.name'};	$tuname=$name;
$tudom=$ENV{'user.domain'};	$tudom=$domain;
$tcrsid=$ENV{'request.course.id'};	$tcrsid=$courseid;
}	}

my %reply=&Apache::lonnet::get('environment',	my %reply=&Apache::lonnet::get('environment',
Line 1105 sub get_param {	Line 1106 sub get_param {
}	}
}	}

	sub get_param_var {
	my ($param,$parstack,$safeeval,$context) = @_;
	if ( ! $context ) { $context = -1; }
	my $args ='';
	if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
	if ( $args !~ /my \$$param=\"/ ) { return undef; }
	my $value=&Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #'
	if ($value =~ /^[\$\@\%]/) {
	return &Apache::run::run("return $value",$safeeval,1);
	} else {
	return $value;
	}
	}

sub register_insert {	sub register_insert {
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');	my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');
my $i;	my $i;