--- loncom/interface/lonmeta.pm	2004/04/16 21:43:56	1.73
+++ loncom/interface/lonmeta.pm	2004/04/19 16:43:53	1.74
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.73 2004/04/16 21:43:56 matthew Exp $
+# $Id: lonmeta.pm,v 1.74 2004/04/19 16:43:53 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -345,7 +345,7 @@ sub relatedfield {
 
 sub prettyinput {
     my ($type,$value,$fieldname,$formname,
-	$relatedsearchflag,$relatedsep,$relatedvalue)=@_;
+	$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
     # Language
     if ($type eq 'language') {
 	return &selectbox($fieldname,
@@ -403,7 +403,7 @@ sub prettyinput {
     $value=~s/\s+/ /gs;
     $value=~s/\"/\&quod\;/gs;
     return 
-        '<input type="text" name="'.$fieldname.'" size="80" '.
+        '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
         'value="'.$value.'" />'.
         &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
                       $relatedvalue);