loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.126, 2006/05/01 19:07:16	version 1.128, 2006/05/12 16:45:41
Line 178 sub get_recent {	Line 178 sub get_recent {
sub textbox {	sub textbox {
my ($name,$value,$size,$special) = @_;	my ($name,$value,$size,$special) = @_;
$size = 40 if (! defined($size));	$size = 40 if (! defined($size));
	$value = &HTML::Entities::encode($value,'<>&"');
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.	my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.
'value="'.$value.'" '.$special.' />';	'value="'.$value.'" '.$special.' />';
return $Str;	return $Str;
Line 1165 returns: nothing	Line 1166 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my (undef,$component,$component_help,undef,undef,$menulink,	my ($component,$component_help,$menulink,$helplink) = @_;
$helplink) = @_;
#	#
my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>';	my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>';
#	#