loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.550, 2014/08/25 00:20:55	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 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;