version 1.240, 2008/07/26 16:03:46
|
version 1.244, 2008/08/01 18:11:19
|
Line 123 use Apache::loncacc;
|
Line 123 use Apache::loncacc;
|
use DBI; |
use DBI; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonhtmlcommon; |
use Apache::lonmysql; |
use Apache::lonmysql; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::loncfile; |
use Apache::loncfile; |
Line 886 sub checkonthis {
|
Line 887 sub checkonthis {
|
'return_only_error_and_warning_counts' => 1)); |
'return_only_error_and_warning_counts' => 1)); |
my ($errorcount,$warningcount)=split(':',$result); |
my ($errorcount,$warningcount)=split(':',$result); |
if (($errorcount) || ($warningcount)) { |
if (($errorcount) || ($warningcount)) { |
$r->print('<br /><tt>'.$uri.'</tt>: '); |
$r->print('<h3>'.&mt('Warnings and Errors').'</h3>'); |
if ($errorcount) { |
$r->print('<tt>'.$uri.'</tt>:'); |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error"><b>'. |
$r->print('<ul>'); |
$errorcount.' '. |
if ($warningcount) { |
&mt('error(s)').'</b></span> '); |
$r->print('<li><div class="LC_warning">' |
} |
.&mt('[quant,_1,warning]',$warningcount) |
if ($warningcount) { |
.'</div></li>'); |
$r->print('<font color="blue">'. |
} |
$warningcount.' '. |
if ($errorcount) { |
&mt('warning(s)').'</font>'); |
$r->print('<li><div class="LC_error">' |
} |
.&mt('[quant,_1,error]',$errorcount) |
|
.' <img src="/adm/lonMisc/bomb.gif" />' |
|
.'</div></li>'); |
|
} |
|
$r->print('</ul>'); |
} else { |
} else { |
#$r->print('<font color="green">'.&mt('ok').'</font>'); |
#$r->print('<font color="green">'.&mt('ok').'</font>'); |
} |
} |
Line 1237 END
|
Line 1242 END
|
.'<input type="button" value="'.&mt('check all').'" onclick="javascript:checkAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('check all').'" onclick="javascript:checkAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('uncheck all').'" onclick="javascript:uncheckAll(document.pubform.keywords)" />' |
.'<input type="button" value="'.&mt('uncheck all').'" onclick="javascript:uncheckAll(document.pubform.keywords)" />' |
.'</p><br />' |
.'</p><br />' |
.'<table border="2"><tr>'; |
.&Apache::loncommon::start_data_table() |
|
.&Apache::loncommon::start_data_table_row(); |
|
|
my $colcount=0; |
my $colcount=0; |
|
|
foreach (sort keys %keywords) { |
foreach (sort keys %keywords) { |
|
$colcount++; |
$keywordout.='<td><label><input type="checkbox" name="keywords" value="'.$_.'"'; |
$keywordout.='<td><label><input type="checkbox" name="keywords" value="'.$_.'"'; |
if ($metadatafields{'keywords'}) { |
if ($metadatafields{'keywords'}) { |
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
if ($metadatafields{'keywords'}=~/\Q$_\E/) { |
Line 1252 END
|
Line 1260 END
|
$env{'form.keywords'}.=$_.','; |
$env{'form.keywords'}.=$_.','; |
} |
} |
$keywordout.=' />'.$_.'</label></td>'; |
$keywordout.=' />'.$_.'</label></td>'; |
if ($colcount>10) { |
if ($colcount>=10) { |
$keywordout.="</tr><tr>\n"; |
$keywordout.=&Apache::loncommon::end_data_table_row() |
|
.&Apache::loncommon::start_data_table_row(); |
$colcount=0; |
$colcount=0; |
} |
} |
$colcount++; |
|
} |
} |
|
# Proper end of started table row: |
|
if ($colcount != 0) { # has still to be improved: if amount of keywords mod 10 == 0, then do not start another table row |
|
while ($colcount<10) { |
|
$keywordout.='<td> </td>'; |
|
$colcount++; |
|
} |
|
} |
|
|
$env{'form.keywords'}=~s/\,$//; |
$env{'form.keywords'}=~s/\,$//; |
|
|
$keywordout.='</tr></table>' |
$keywordout.=&Apache::loncommon::end_data_table_row() |
|
.&Apache::loncommon::end_data_table() |
.&Apache::lonhtmlcommon::row_closure(); |
.&Apache::lonhtmlcommon::row_closure(); |
|
|
$intr_scrout.=$keywordout; |
$intr_scrout.=$keywordout; |