loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.374, 2005/05/28 01:32:33	version 1.376, 2005/06/15 13:06:41
Line 1065 sub parstring {	Line 1065 sub parstring {

sub writeallows {	sub writeallows {
unless ($#extlinks>=0) { return; }	unless ($#extlinks>=0) { return; }
my $thisurl='/res/'.&Apache::lonnet::declutter(shift);	my $thisurl = &Apache::lonnet::declutter(shift);
	if ($thisurl =~ /^uploaded/) {
	$thisurl = '/'.$thisurl;
	} else {
	$thisurl='/res/'.$thisurl;
	}
if ($env{'httpref.'.$thisurl}) {	if ($env{'httpref.'.$thisurl}) {
$thisurl=$env{'httpref.'.$thisurl};	$thisurl=$env{'httpref.'.$thisurl};
}	}
Line 1455 sub warning {	Line 1460 sub warning {

if ($env{'form.grade_target'} ne 'tex') {	if ($env{'form.grade_target'} ne 'tex') {
if ( &show_error_warn_msg() ) {	if ( &show_error_warn_msg() ) {
my $request=$Apache::lonxml::request;
if (!$request) { $request=Apache->request; }
push(@Apache::lonxml::warning_messages,	push(@Apache::lonxml::warning_messages,
$Apache::lonxml::warnings_error_header.	$Apache::lonxml::warnings_error_header.
"<b>W</b>ARNING<b>:</b>".join('<br />',@_)."<br />\n");	"<b>W</b>ARNING<b>:</b>".join('<br />',@_)."<br />\n");