version 1.312, 2008/09/11 14:47:21
|
version 1.313, 2008/09/15 15:34:10
|
Line 1990 sub checkonthis {
|
Line 1990 sub checkonthis {
|
$r->rflush(); |
$r->rflush(); |
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) { |
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) { |
$r->print("\n<br />"); |
$r->print("\n<br />"); |
|
if ($level==0) { |
|
$r->print("<br />"); |
|
} |
for (my $i=0;$i<=$level*5;$i++) { |
for (my $i=0;$i<=$level*5;$i++) { |
$r->print(' '); |
$r->print(' '); |
} |
} |
Line 1999 sub checkonthis {
|
Line 2002 sub checkonthis {
|
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('<span class="LC_success">'.&mt('ok').'</span>'); |
$r->rflush(); |
$r->rflush(); |
&Apache::lonnet::countacc($url); |
&Apache::lonnet::countacc($url); |
$url=~/\.(\w+)$/; |
$url=~/\.(\w+)$/; |
Line 2009 sub checkonthis {
|
Line 2012 sub checkonthis {
|
for (my $i=0;$i<=$level*5;$i++) { |
for (my $i=0;$i<=$level*5;$i++) { |
$r->print(' '); |
$r->print(' '); |
} |
} |
$r->print('- '.&mt('Rendering').': '); |
$r->print('- '.&mt('Rendering:').' '); |
my ($errorcount,$warningcount)=split(/:/, |
my ($errorcount,$warningcount)=split(/:/, |
&Apache::lonnet::ssi_body($url, |
&Apache::lonnet::ssi_body($url, |
('grade_target'=>'web', |
('grade_target'=>'web', |
Line 2018 sub checkonthis {
|
Line 2021 sub checkonthis {
|
($warningcount)) { |
($warningcount)) { |
if ($errorcount) { |
if ($errorcount) { |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'. |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'. |
$errorcount.' '. |
&mt('[quant,_1,error]',$errorcount).'</span>'); |
&mt('error(s)').'</span> '); |
|
} |
} |
if ($warningcount) { |
if ($warningcount) { |
$r->print('<span class="LC_warning">'. |
$r->print('<span class="LC_warning">'. |
$warningcount.' '. |
&mt('[quant,_1,warning]',$warningcount).'</span>'); |
&mt('warning(s)').'</span>'); |
|
} |
} |
} else { |
} else { |
$r->print('<span class="LC_success">'.&mt('ok').'</span>'); |
$r->print('<span class="LC_success">'.&mt('ok').'</span>'); |
Line 2042 sub checkonthis {
|
Line 2043 sub checkonthis {
|
$r->print('<span class="LC_error">'.&mt('connection down').'</span>'); |
$r->print('<span class="LC_error">'.&mt('connection down').'</span>'); |
} elsif ($result eq 'not_found') { |
} elsif ($result eq 'not_found') { |
unless ($url=~/\$/) { |
unless ($url=~/\$/) { |
$r->print('<span class="LC_error">'.&mt('not found').'</b></font>'); |
$r->print('<span class="LC_error">'.&mt('not found').'</b></span>'); |
} else { |
} else { |
$r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>'); |
$r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>'); |
} |
} |
} else { |
} else { |
$r->print('<span class="LC_error">'.&mt('access denied').'</span>'); |
$r->print('<span class="LC_error">'.&mt('access denied').'</span>'); |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
|
|