version 1.182, 2008/10/07 10:13:58
|
version 1.182.2.3, 2010/01/23 22:26:27
|
Line 391 sub date_setter {
|
Line 391 sub date_setter {
|
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
} |
} |
unless ($wasdefined) { |
unless ($wasdefined) { |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
|
if (($defhour) || ($defmin) || ($defsec)) { |
if (($defhour) || ($defmin) || ($defsec)) { |
|
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
$sec=($defsec?$defsec:0); |
$sec=($defsec?$defsec:0); |
$min=($defmin?$defmin:0); |
$min=($defmin?$defmin:0); |
$hour=($defhour?$defhour:0); |
$hour=($defhour?$defhour:0); |
Line 1092 sub crumbs {
|
Line 1092 sub crumbs {
|
my $output=''; |
my $output=''; |
unless ($noformat) { $output.='<br /><tt><b>'; } |
unless ($noformat) { $output.='<br /><tt><b>'; } |
$output.='<font size="'.$size.'">'.$prefix.'/'; |
$output.='<font size="'.$size.'">'.$prefix.'/'; |
if ($env{'user.adv'}) { |
if (($env{'user.adv'}) || ($env{'user.author'})) { |
my $path=$prefix.'/'; |
my $path=$prefix.'/'; |
foreach my $dir (split('/',$uri)) { |
foreach my $dir (split('/',$uri)) { |
if (! $dir) { next; } |
if (! $dir) { next; } |
Line 1278 Inputs: $component (the large text on th
|
Line 1278 Inputs: $component (the large text on th
|
$menulink (boolean, controls whether to include a link to /adm/menu) |
$menulink (boolean, controls whether to include a link to /adm/menu) |
$helplink (if 'nohelp' don't include the orange help link) |
$helplink (if 'nohelp' don't include the orange help link) |
$css_class (optional name for the class to apply to the table for CSS) |
$css_class (optional name for the class to apply to the table for CSS) |
|
$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component |
|
when including the text on the right. |
|
|
Returns a string containing breadcrumbs for the current page. |
Returns a string containing breadcrumbs for the current page. |
|
|
=item clear_breadcrumbs |
=item clear_breadcrumbs |
Line 1303 returns: nothing
|
Line 1306 returns: nothing
|
my @Crumbs; |
my @Crumbs; |
|
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($component,$component_help,$menulink,$helplink,$css_class) = @_; |
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_; |
# |
# |
$css_class ||= 'LC_breadcrumbs'; |
$css_class ||= 'LC_breadcrumbs'; |
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>'; |
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>'; |
Line 1383 returns: nothing
|
Line 1386 returns: nothing
|
$Str .= $links.'</td>'; |
$Str .= $links.'</td>'; |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td class="'.$css_class.'_component">'. |
$Str .= '<td class="'.$css_class.'_component">'; |
&mt($component); |
if ($no_mt) { |
|
$Str .= $component; |
|
} else { |
|
$Str .= &mt($component); |
|
} |
if ($icons ne '') { |
if ($icons ne '') { |
$Str .= ' '.$icons; |
$Str .= ' '.$icons; |
} |
} |