--- loncom/interface/lonhtmlcommon.pm	2006/05/01 19:07:16	1.126
+++ loncom/interface/lonhtmlcommon.pm	2006/05/12 16:45:41	1.128
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.126 2006/05/01 19:07:16 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.128 2006/05/12 16:45:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,6 +178,7 @@ sub get_recent {
 sub textbox {
     my ($name,$value,$size,$special) = @_;
     $size = 40 if (! defined($size));
+    $value = &HTML::Entities::encode($value,'<>&"');
     my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.
         'value="'.$value.'" '.$special.' />';
     return $Str;
@@ -1165,8 +1166,7 @@ returns: nothing
     my @Crumbs;
     
     sub breadcrumbs {
-        my (undef,$component,$component_help,undef,undef,$menulink,
-	    $helplink) = @_;
+        my ($component,$component_help,$menulink,$helplink) = @_;
         #
         my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>';
         #