loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.549, 2014/07/27 11:20:13	version 1.551, 2014/12/15 17:39:24
Line 229 sub xmlend {	Line 229 sub xmlend {
}	}

sub printalltags {	sub printalltags {
my $temp;	foreach my $temp (sort(keys(%Apache::lonxml::alltags))) {
foreach $temp (sort keys %Apache::lonxml::alltags) {	&Apache::lonxml::debug("$temp -- ".
&Apache::lonxml::debug("$temp -- ".	join(',',@{ $Apache::lonxml::alltags{$temp} }));
join(',',@{ $Apache::lonxml::alltags{$temp} }));	}
}
}	}

sub xmlparse {	sub xmlparse {
Line 1327 sub extlink {	Line 1326 sub extlink {
if (!$exact) {	if (!$exact) {
$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);	$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);
}	}
push(@Apache::lonxml::extlinks,$res)	push(@Apache::lonxml::extlinks,$res);
}	}

sub writeallows {	sub writeallows {
Line 2054 sub error {	Line 2053 sub error {
my $declutter=&Apache::lonnet::declutter($env{'request.filename'});	my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
my $baseurl = &Apache::lonnet::clutter($declutter);	my $baseurl = &Apache::lonnet::clutter($declutter);
my @userlist;	my @userlist;
foreach (keys %users) {	foreach (keys(%users)) {
my ($user,$domain) = split(/:/, $_);	my ($user,$domain) = split(/:/, $_);
push(@userlist,"$user:$domain");	push(@userlist,"$user:$domain");
my $key=$declutter.'_'.$user.'_'.$domain;	my $key=$declutter.'_'.$user.'_'.$domain;