loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.123 and 1.128

version 1.123, 2006/03/21 20:19:41	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 524 sub get_date_from_form {	Line 525 sub get_date_from_form {
if (($year<70) \|\| ($year>137)) { return undef; }	if (($year<70) \|\| ($year>137)) { return undef; }
if (defined($sec) && defined($min) && defined($hour) &&	if (defined($sec) && defined($min) && defined($hour) &&
defined($day) && defined($month) && defined($year) &&	defined($day) && defined($month) && defined($year) &&
eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {	eval('&timelocal($sec,$min,$hour,$day,$month,$year)')) {
return &timelocal($sec,$min,$hour,$day,$month,$year);	return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {	} else {
return undef;	return undef;
Line 1015 ENDLINK	Line 1016 ENDLINK

# ------------------------------------------------- Output headers for HTMLArea	# ------------------------------------------------- Output headers for HTMLArea

	{
	my @htmlareafields;
	sub init_htmlareafields {
	undef(@htmlareafields);
	}

	sub add_htmlareafields {
	my (@newfields) = @_;
	push(@htmlareafields,@newfields);
	}

	sub get_htmlareafields {
	return @htmlareafields;
	}
	}

sub htmlareaheaders {	sub htmlareaheaders {
if (&htmlareablocked()) { return ''; }	if (&htmlareablocked()) { return ''; }
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
Line 1149 returns: nothing	Line 1166 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($color,$component,$component_help,$function,$domain,$menulink,	my ($component,$component_help,$menulink,$helplink) = @_;
$helplink) = @_;
if (! defined($color)) {
if (! defined($function)) {
$function = &Apache::loncommon::get_users_function();
}
$color = &Apache::loncommon::designparm($function.'.tabbg',
$domain);
}
#	#
my $Str = "\n".	my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>';
'<table width="100%" border="0" cellpadding="0" cellspacing="0">'.
'<tr><td bgcolor="'.$color.'">'.
'<font size="-1">';
#	#
# Make the faq and bug data cascade	# Make the faq and bug data cascade
my $faq = '';	my $faq = '';
Line 1217 returns: nothing	Line 1223 returns: nothing
# $icons .= &Apache::loncommon::help_open_bug($bug);	# $icons .= &Apache::loncommon::help_open_bug($bug);
# }	# }
if ($helplink ne 'nohelp') {	if ($helplink ne 'nohelp') {
$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);	$icons .= &Apache::loncommon::help_open_menu(undef,$component,
	$component_help,
	undef,$faq,$bug);
}	}
if ($icons ne '') {	if ($icons ne '') {
$Str .= $icons.' ';	$Str .= $icons.' ';
}	}
#	#
$Str .= $links.'</font></td>';	$Str .= $links.'</td>';
#	#
if (defined($component)) {	if (defined($component)) {
$Str .= '<td align="right" bgcolor="'.$color.'">'.	$Str .= '<td class="LC_breadcrumb_component">'.
'<font size="+1">'.&mt($component).'</font></td>';	&mt($component).'</td>';
}	}
$Str .= '</tr></table>'."\n";	$Str .= '</tr></table>'."\n";
#	#

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.123
changed lines
	Added in v.1.128