loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.189, 2005/03/15 16:09:20	version 1.190, 2005/04/04 23:51:54
Line 852 sub checkonthis {	Line 852 sub checkonthis {
my ($r,$source)=@_;	my ($r,$source)=@_;
my $uri=&Apache::lonnet::hreflocation($source);	my $uri=&Apache::lonnet::hreflocation($source);
$uri=~s/\/$//;	$uri=~s/\/$//;
my ($errorcount,$warningcount)=split(/:/,	my ($errorcount,$warningcount);
&Apache::lonnet::ssi_body($uri,	my $result=&Apache::lonnet::ssi_body($uri,
('return_only_error_and_warning_counts' => 1)));	('grade_target'=>'web',
	'return_only_error_and_warning_counts' => 1));
	my ($errorcount,$warningcount)=split(':',$result);
if (($errorcount) \|\| ($warningcount)) {	if (($errorcount) \|\| ($warningcount)) {
$r->print('<br /><tt>'.$uri.'</tt>: ');	$r->print('<br /><tt>'.$uri.'</tt>: ');
if ($errorcount) {	if ($errorcount) {
Line 868 sub checkonthis {	Line 870 sub checkonthis {
&mt('warning(s)').'</font>');	&mt('warning(s)').'</font>');
}	}
} else {	} else {
$r->print('<font color="green">'.&mt('ok').'</font>');	#$r->print('<font color="green">'.&mt('ok').'</font>');
}	}
$r->rflush();	$r->rflush();
return ($warningcount,$errorcount);	return ($warningcount,$errorcount);