version 1.74, 2004/04/19 16:43:53
|
version 1.75, 2004/04/19 16:47:43
|
Line 346 sub relatedfield {
|
Line 346 sub relatedfield {
|
sub prettyinput { |
sub prettyinput { |
my ($type,$value,$fieldname,$formname, |
my ($type,$value,$fieldname,$formname, |
$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_; |
$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_; |
|
if (! defined($size)) { |
|
$size = 80; |
|
} |
# Language |
# Language |
if ($type eq 'language') { |
if ($type eq 'language') { |
return &selectbox($fieldname, |
return &selectbox($fieldname, |