loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.227, 2009/03/21 21:37:13	version 1.229, 2009/04/04 20:06:37
Line 558 sub selectbox {	Line 558 sub selectbox {
foreach my $id (@idlist) {	foreach my $id (@idlist) {
$selout.='<option value="'.$id.'"';	$selout.='<option value="'.$id.'"';
if ($id eq $value) {	if ($id eq $value) {
$selout.=' selected>'.&{$functionref}($id).'</option>';	$selout.=' selected="selected">'.&{$functionref}($id).'</option>';
} else {	} else {
$selout.='>'.&{$functionref}($id).'</option>';	$selout.='>'.&{$functionref}($id).'</option>';
}	}
Line 578 sub relatedfield {	Line 578 sub relatedfield {
return $relatedsep.' ';	return $relatedsep.' ';
}	}
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.	return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
($relatedvalue?' checked="1"':'').' />';	($relatedvalue?' checked="checked"':'').' />';
}	}

sub prettyinput {	sub prettyinput {
Line 691 sub prettyinput {	Line 691 sub prettyinput {
# Obsolete	# Obsolete
if ($type eq 'obsolete') {	if ($type eq 'obsolete') {
return '<input type="checkbox" name="'.$fieldname.'"'.	return '<input type="checkbox" name="'.$fieldname.'"'.
($value?' checked="1"':'').' />'.	($value?' checked="checked"':'').' />'.
&relatedfield(0,$relatedsearchflag,$relatedsep);	&relatedfield(0,$relatedsearchflag,$relatedsep);
}	}
# Obsolete replacement file	# Obsolete replacement file