version 1.197, 2009/01/12 01:37:57
|
version 1.200, 2009/01/22 14:44:40
|
Line 1308 returns: nothing
|
Line 1308 returns: nothing
|
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_; |
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><ol id="LC_MenuBreadcrumbs">'; |
my $Str1 = '<ol id="LC_MenuBreadcrumbs">'; |
|
my $Str = ''; |
# |
# |
# Make the faq and bug data cascade |
# Make the faq and bug data cascade |
my $faq = ''; |
my $faq = ''; |
my $bug = ''; |
my $bug = ''; |
my $help=''; |
my $help=''; |
# Crumb Symbol |
# Crumb Symbol |
my $crumbsymbol = ' ▶ '; |
my $crumbsymbol = '▶ '; |
# The last breadcrumb does not have a link, so handle it separately. |
# The last breadcrumb does not have a link, so handle it separately. |
my $last = pop(@Crumbs); |
my $last = pop(@Crumbs); |
# |
# |
Line 1338 returns: nothing
|
Line 1339 returns: nothing
|
no_mt =>$no_mt_descr, |
no_mt =>$no_mt_descr, |
}); |
}); |
} |
} |
my $links .= |
my $links .= '<li>'. |
join($crumbsymbol, |
join('</li><li>'.$crumbsymbol, |
map { |
map { |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
$help = $_->{'help'} if (exists($_->{'help'})); |
$help = $_->{'help'} if (exists($_->{'help'})); |
my $result = '<li><a href="'.$_->{'href'}.'" '; |
my $result = '<a href="'.$_->{'href'}.'" '; |
if (defined($_->{'target'}) && $_->{'target'} ne '') { |
if (defined($_->{'target'}) && $_->{'target'} ne '') { |
$result .= 'target="'.$_->{'target'}.'" '; |
$result .= 'target="'.$_->{'target'}.'" '; |
} |
} |
if ($_->{'no_mt'}) { |
if ($_->{'no_mt'}) { |
$result .='title="'.$_->{'title'}.'">'. |
$result .='title="'.$_->{'title'}.'">'. |
$_->{'text'}.'</a></li>'; |
$_->{'text'}.'</a>'; |
} else { |
} else { |
$result .='title="'.&mt($_->{'title'}).'">'. |
$result .='title="'.&mt($_->{'title'}).'">'. |
&mt($_->{'text'}).'</a></li>'; |
&mt($_->{'text'}).'</a>'; |
} |
} |
$result; |
$result; |
} @Crumbs |
} @Crumbs |
); |
).'</li>'; |
$links .= $crumbsymbol if ($links ne ''); |
$links .= '<li>'.$crumbsymbol if ($links ne ''); |
if ($last->{'no_mt'}) { |
if ($last->{'no_mt'}) { |
$links .= '<li><b>'.$last->{'text'}.'</b></li>'; |
$links .= '<b>'.$last->{'text'}.'</b></li>'; |
} else { |
} else { |
$links .= '<li><b>'.&mt($last->{'text'}).'</b></li>'; |
$links .= '<b>'.&mt($last->{'text'}).'</b></li>'; |
} |
} |
# |
# |
my $icons = ''; |
my $icons = ''; |
Line 1382 returns: nothing
|
Line 1383 returns: nothing
|
$faq,$bug); |
$faq,$bug); |
} |
} |
# |
# |
$Str .= $links.'</ol></td>'; |
$Str1 .= $links.'</ol>'; |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td class="'.$css_class.'_component">'; |
$Str .= "\n".'<table class="'.$css_class.'">' |
|
.'<tr><td class="'.$css_class.'_component">'; |
if ($no_mt) { |
if ($no_mt) { |
$Str .= $component; |
$Str .= $component; |
} else { |
} else { |
Line 1394 returns: nothing
|
Line 1396 returns: nothing
|
if ($icons ne '') { |
if ($icons ne '') { |
$Str .= ' '.$icons; |
$Str .= ' '.$icons; |
} |
} |
$Str .= '</td>'; |
$Str .= '</td></tr></table>'."\n"; |
} |
} |
$Str .= '</tr></table>'."\n"; |
|
# |
# |
# Return the @Crumbs stack to what we started with |
# Return the @Crumbs stack to what we started with |
push(@Crumbs,$last); |
push(@Crumbs,$last); |
shift(@Crumbs); |
shift(@Crumbs); |
# |
# |
return $Str; |
return "$Str\n$Str1"; |
} |
} |
|
|
sub clear_breadcrumbs { |
sub clear_breadcrumbs { |
Line 1552 sub role_select_row {
|
Line 1553 sub role_select_row {
|
$output = &row_title($title,$css_class); |
$output = &row_title($title,$css_class); |
} |
} |
$output .= qq| |
$output .= qq| |
<select name="roles" multiple >\n|; |
<select name="roles" multiple="multiple">\n|; |
foreach my $role (@$roles) { |
foreach my $role (@$roles) { |
my $plrole; |
my $plrole; |
if ($role eq 'ow') { |
if ($role eq 'ow') { |
Line 1679 sub status_select_row {
|
Line 1680 sub status_select_row {
|
$output = &row_title($title,$css_class,'LC_pick_box_select'); |
$output = &row_title($title,$css_class,'LC_pick_box_select'); |
} |
} |
$output .= qq| |
$output .= qq| |
<select name="types" multiple>\n|; |
<select name="types" multiple="multiple">\n|; |
foreach my $status_type (sort(keys(%{$types}))) { |
foreach my $status_type (sort(keys(%{$types}))) { |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
} |
} |