loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2005/02/21 00:32:45	version 1.169, 2005/03/02 22:26:36
Line 1489 sub checkonthis {	Line 1489 sub checkonthis {
if ($url=~/^\/res\//) {	if ($url=~/^\/res\//) {
my $result=&Apache::lonnet::repcopy(	my $result=&Apache::lonnet::repcopy(
&Apache::lonnet::filelocation('',$url));	&Apache::lonnet::filelocation('',$url));
if ($result==OK) {	if ($result eq 'OK') {
$r->print('<font color="green">'.&mt('ok').'</font>');	$r->print('<font color="green">'.&mt('ok').'</font>');
$r->rflush();	$r->rflush();
&Apache::lonnet::countacc($url);	&Apache::lonnet::countacc($url);
Line 1532 sub checkonthis {	Line 1532 sub checkonthis {
&checkonthis($r,$_,$level+1);	&checkonthis($r,$_,$level+1);
}	}
}	}
} elsif ($result==HTTP_SERVICE_UNAVAILABLE) {	} elsif ($result eq 'HTTP_SERVICE_UNAVAILABLE') {
$r->print('<font color="red"><b>'.&mt('connection down').'</b></font>');	$r->print('<font color="red"><b>'.&mt('connection down').'</b></font>');
} elsif ($result==HTTP_NOT_FOUND) {	} elsif ($result eq 'HTTP_NOT_FOUND') {
unless ($url=~/\$/) {	unless ($url=~/\$/) {
$r->print('<font color="red"><b>'.&mt('not found').'</b></font>');	$r->print('<font color="red"><b>'.&mt('not found').'</b></font>');
} else {	} else {