--- loncom/interface/lonhtmlcommon.pm	2004/02/20 17:03:38	1.55
+++ loncom/interface/lonhtmlcommon.pm	2004/02/24 23:19:15	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.55 2004/02/20 17:03:38 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.56 2004/02/24 23:19:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -676,7 +676,7 @@ sub Create_PrgWin {
 	}
 	if (!$inputname) {
 	    $prog_state{'inputname'}=&get_uniq_name();
-	    &r_print($r,'<input type="text" name="'.$prog_state{'inputname'}.
+	    &r_print($r,$heading.' <input type="text" name="'.$prog_state{'inputname'}.
 		     '" size="'.$width.'" />');
 	} else {
 	    $prog_state{'inputname'}=$inputname;