loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.252, 2009/03/09 20:10:55	version 1.253, 2009/03/18 13:46:20
Line 1282 END	Line 1282 END
$keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"';	$keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"';
if ($metadatafields{'keywords'}) {	if ($metadatafields{'keywords'}) {
if ($metadatafields{'keywords'}=~/\Q$word\E/) {	if ($metadatafields{'keywords'}=~/\Q$word\E/) {
$keywordout.=' checked="on"';	$keywordout.=' checked="checked"';
$env{'form.keywords'}.=$word.',';	$env{'form.keywords'}.=$word.',';
}	}
} elsif (&Apache::loncommon::keyword($word)) {	} elsif (&Apache::loncommon::keyword($word)) {
$keywordout.=' checked="on"';	$keywordout.=' checked="checked"';
$env{'form.keywords'}.=$word.',';	$env{'form.keywords'}.=$word.',';
}	}
$keywordout.=' />'.$word.'</label></td>';	$keywordout.=' />'.$word.'</label></td>';