--- loncom/interface/lonmeta.pm 2009/03/21 21:37:13 1.227
+++ loncom/interface/lonmeta.pm 2009/04/04 20:06:37 1.229
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.227 2009/03/21 21:37:13 bisitz Exp $
+# $Id: lonmeta.pm,v 1.229 2009/04/04 20:06:37 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -558,7 +558,7 @@ sub selectbox {
foreach my $id (@idlist) {
$selout.='';
+ $selout.=' selected="selected">'.&{$functionref}($id).'';
} else {
$selout.='>'.&{$functionref}($id).'';
}
@@ -578,7 +578,7 @@ sub relatedfield {
return $relatedsep.' ';
}
return $relatedsep.'';
+ ($relatedvalue?' checked="checked"':'').' />';
}
sub prettyinput {
@@ -691,7 +691,7 @@ sub prettyinput {
# Obsolete
if ($type eq 'obsolete') {
return ''.
+ ($value?' checked="checked"':'').' />'.
&relatedfield(0,$relatedsearchflag,$relatedsep);
}
# Obsolete replacement file