[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 19 Apr 2004 16:43:53 -0000


matthew		Mon Apr 19 12:43:53 2004 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  &pretty_input now takes $size parameter which controls the size of the
  text input field it returns.
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.73 loncom/interface/lonmeta.pm:1.74
--- loncom/interface/lonmeta.pm:1.73	Fri Apr 16 17:43:56 2004
+++ loncom/interface/lonmeta.pm	Mon Apr 19 12:43:53 2004
@@ -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 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 @@
     $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);