version 1.53, 2004/02/20 16:21:49
|
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">'. |
Line 905 returns: nothing
|
Line 910 returns: nothing
|
); |
); |
$links .= '->' if ($links ne ''); |
$links .= '->' if ($links ne ''); |
$links .= '<b>'.$last->{'text'}.'</b>'; |
$links .= '<b>'.$last->{'text'}.'</b>'; |
|
# |
|
my $icons = ''; |
|
if (exists($last->{'faq'})) { |
|
$icons .= &Apache::loncommon::help_open_faq($last->{'faq'}); |
|
} |
if (exists($last->{'bug'})) { |
if (exists($last->{'bug'})) { |
$links = &Apache::loncommon::help_open_bug($last->{'bug'}).$links; |
$icons .= &Apache::loncommon::help_open_bug($last->{'bug'}); |
} |
} |
if (exists($last->{'faq'})) { |
if ($icons ne '') { |
$links = &Apache::loncommon::help_open_faq($last->{'faq'}).$links; |
$Str .= $icons.' '; |
} |
} |
|
# |
$Str .= $links.'</font></td>'; |
$Str .= $links.'</font></td>'; |
|
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td align="right" bgcolor="'.$color.'">'. |
$Str .= '<td align="right" bgcolor="'.$color.'">'. |
'<font size="+1">'.$component.'</font>'; |
'<font size="+1">'.$component.'</font>'; |