--- loncom/publisher/lonpublisher.pm 2008/07/26 16:03:46 1.240 +++ loncom/publisher/lonpublisher.pm 2008/08/01 17:29:57 1.242 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.240 2008/07/26 16:03:46 raeburn Exp $ +# $Id: lonpublisher.pm,v 1.242 2008/08/01 17:29:57 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -123,6 +123,7 @@ use Apache::loncacc; use DBI; use Apache::lonnet; use Apache::loncommon(); +use Apache::lonhtmlcommon; use Apache::lonmysql; use Apache::lonlocal; use Apache::loncfile; @@ -886,17 +887,21 @@ sub checkonthis { 'return_only_error_and_warning_counts' => 1)); my ($errorcount,$warningcount)=split(':',$result); if (($errorcount) || ($warningcount)) { - $r->print('
'.$uri.': '); - if ($errorcount) { - $r->print(''. - $errorcount.' '. - &mt('error(s)').' '); - } - if ($warningcount) { - $r->print(''. - $warningcount.' '. - &mt('warning(s)').''); - } + $r->print('

'.&mt('Warnings and Errors').'

'); + $r->print(''.$uri.':'); + $r->print(''); } else { #$r->print(''.&mt('ok').''); } @@ -1237,7 +1242,9 @@ END .'' .'' .'


' - .''; + .&Apache::loncommon::start_data_table() + .&Apache::loncommon::start_data_table_row(); + my $colcount=0; foreach (sort keys %keywords) { @@ -1260,7 +1267,8 @@ END } $env{'form.keywords'}=~s/\,$//; - $keywordout.='
' + $keywordout.=&Apache::loncommon::end_data_table_row() + .&Apache::loncommon::end_data_table() .&Apache::lonhtmlcommon::row_closure(); $intr_scrout.=$keywordout;