loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.54, 2004/02/20 16:44:43	version 1.56, 2004/02/24 23:19:15
Line 60 use Time::HiRes;	Line 60 use Time::HiRes;
use Apache::lonlocal;	use Apache::lonlocal;
use strict;	use strict;


##############################################	##############################################
##############################################	##############################################

Line 677 sub Create_PrgWin {	Line 676 sub Create_PrgWin {
}	}
if (!$inputname) {	if (!$inputname) {
$prog_state{'inputname'}=&get_uniq_name();	$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.'" />');	'" size="'.$width.'" />');
} else {	} else {
$prog_state{'inputname'}=$inputname;	$prog_state{'inputname'}=$inputname;
Line 879 returns: nothing	Line 878 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($color,$component,$component_help) = @_;	my ($color,$component,$component_help,$function,$domain) = @_;
$color = '#CCCCFF' if (! defined($color));	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 width="100%" border="0" cellpadding="0" cellspacing="0">'.	'<table width="100%" border="0" cellpadding="0" cellspacing="0">'.