loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.242, 2008/08/01 17:29:57	version 1.243, 2008/08/01 18:09:38
Line 1248 END	Line 1248 END
my $colcount=0;	my $colcount=0;

foreach (sort keys %keywords) {	foreach (sort keys %keywords) {
$keywordout.='<td><label><input type="checkbox" name="keywords" value="'.$_.'"';	$colcount++;
	$keywordout.='<td><label>'.$colcount.'<input type="checkbox" name="keywords" value="'.$_.'"';
if ($metadatafields{'keywords'}) {	if ($metadatafields{'keywords'}) {
if ($metadatafields{'keywords'}=~/\Q$_\E/) {	if ($metadatafields{'keywords'}=~/\Q$_\E/) {
$keywordout.=' checked="on"';	$keywordout.=' checked="on"';
Line 1259 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.=&Apache::loncommon::end_data_table_row()	$keywordout.=&Apache::loncommon::end_data_table_row()