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); |