loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.64, 2002/10/04 15:35:26	version 1.65, 2002/10/04 15:38:22
Line 840 sub new_handle {	Line 840 sub new_handle {
my $date=localtime;	my $date=localtime;
$r->print("<h3>$date</h3>\n");	$r->print("<h3>$date</h3>\n");
$r->rflush();	$r->rflush();
$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.	if ($navmap->{LAST_CHECK}) {
timeToHumanString($navmap->{LAST_CHECK}).	$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.
'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>');	timeToHumanString($navmap->{LAST_CHECK}).
	'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>');
	} else {
	$r->print('<img src="/adm/lonMisc/chat.gif"> Discussions'.
	'<br><img src="/adm/lonMisc/feedback.gif"> New message (click to open)<p>');
	}
#if (($currenturl=~/^\/res/) &&	#if (($currenturl=~/^\/res/) &&
# ($currenturl!~/^\/res\/adm/)) {	# ($currenturl!~/^\/res\/adm/)) {
# $r->print('<a href="#curloc">Current Location</a><p>');	# $r->print('<a href="#curloc">Current Location</a><p>');