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

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


matthew		Mon Apr 19 12:47:43 2004 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  &pretty_input now has a default value for $size.  What a concept.
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.74 loncom/interface/lonmeta.pm:1.75
--- loncom/interface/lonmeta.pm:1.74	Mon Apr 19 12:43:53 2004
+++ loncom/interface/lonmeta.pm	Mon Apr 19 12:47:43 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.74 2004/04/19 16:43:53 matthew Exp $
+# $Id: lonmeta.pm,v 1.75 2004/04/19 16:47:43 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -346,6 +346,9 @@
 sub prettyinput {
     my ($type,$value,$fieldname,$formname,
 	$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
+    if (! defined($size)) {
+        $size = 80;
+    }
     # Language
     if ($type eq 'language') {
 	return &selectbox($fieldname,