loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.200, 2002/10/11 20:09:36	version 1.202, 2002/10/14 20:44:16
Line 385 sub registerurl {	Line 385 sub registerurl {
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }	if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
my $newmail='';	my $newmail='';
if (&Apache::lonmsg::newmail()) {	if (&Apache::lonmsg::newmail()) {
$newmail='menu.setstatus("you have","got mail");';	$newmail='menu.setstatus("you have","messages");';
}	}
my $timesync='menu.syncclock(1000*'.time.');';	my $timesync='menu.syncclock(1000*'.time.');';
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {	if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {
Line 1325 ENDNOTFOUND	Line 1325 ENDNOTFOUND
sub debug {	sub debug {
if ($Apache::lonxml::debug eq 1) {	if ($Apache::lonxml::debug eq 1) {
$\|=1;	$\|=1;
print("DEBUG:".&HTML::Entities::encode($_[0])."<br />\n");	print('<font size="-2"<pre>DEBUG:'.&HTML::Entities::encode($_[0])."</pre></font>\n");
}	}
}	}