loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.73, 2004/04/16 21:43:56	version 1.74, 2004/04/19 16:43:53
Line 345 sub relatedfield {	Line 345 sub relatedfield {

sub prettyinput {	sub prettyinput {
my ($type,$value,$fieldname,$formname,	my ($type,$value,$fieldname,$formname,
$relatedsearchflag,$relatedsep,$relatedvalue)=@_;	$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
# Language	# Language
if ($type eq 'language') {	if ($type eq 'language') {
return &selectbox($fieldname,	return &selectbox($fieldname,
Line 403 sub prettyinput {	Line 403 sub prettyinput {
$value=~s/\s+/ /gs;	$value=~s/\s+/ /gs;
$value=~s/\"/\&quod\;/gs;	$value=~s/\"/\&quod\;/gs;
return	return
'<input type="text" name="'.$fieldname.'" size="80" '.	'<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
'value="'.$value.'" />'.	'value="'.$value.'" />'.
&relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,	&relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
$relatedvalue);	$relatedvalue);