loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.171, 2005/03/10 16:11:32	version 1.172, 2005/03/16 21:35:17
Line 1501 sub checkonthis {	Line 1501 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 eq '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 1540 sub checkonthis {	Line 1540 sub checkonthis {
&checkonthis($r,$_,$level+1);	&checkonthis($r,$_,$level+1);
}	}
}	}
} elsif ($result eq 'HTTP_SERVICE_UNAVAILABLE') {	} elsif ($result eq '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 eq 'HTTP_NOT_FOUND') {	} elsif ($result eq '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 {