version 1.184, 2008/11/21 15:22:04
|
version 1.189, 2008/12/01 21:54:23
|
Line 1708 sub email_default_row {
|
Line 1708 sub email_default_row {
|
|
|
sub submit_row { |
sub submit_row { |
my ($title,$cmd,$submit_text,$css_class) = @_; |
my ($title,$cmd,$submit_text,$css_class) = @_; |
|
$submit_text = &mt($submit_text); |
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
$output .= qq| |
$output .= qq| |
<br /> |
<br /> |
Line 2020 END
|
Line 2021 END
|
# permission => 'Contains permissions as returned from lonnet::allowed(), |
# permission => 'Contains permissions as returned from lonnet::allowed(), |
# must evaluate to true in order to activate the link', |
# must evaluate to true in order to activate the link', |
# icon => 'icon filename', |
# icon => 'icon filename', |
|
# alttext => 'alt text for the icon', |
# help => 'Name of the corresponding helpfile', |
# help => 'Name of the corresponding helpfile', |
# linktitle => 'Description of the link (used for title tag)' |
# linktitle => 'Description of the link (used for title tag)' |
# }, |
# }, |
Line 2037 END
|
Line 2039 END
|
# Don't rely on its current functionality as it might be |
# Don't rely on its current functionality as it might be |
# changed or removed. |
# changed or removed. |
# TODO: |
# TODO: |
# add icon field |
|
# add alt tag for icon |
|
# check for empty values |
# check for empty values |
# -------------------------- |
# -------------------------- |
|
|
sub generate_menu { |
sub generate_menu { |
my @menu = @_; |
my @menu = @_; |
my $menu_html = ''; |
my $menu_html = qq|<div class="columnSection">|; |
|
|
foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished. |
foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished. |
$menu_html .='<div class="DivContentBox"><h3 class="">'.$category->{'categorytitle'}.'</h3><ul class="ListStyleNormal">'; |
$menu_html .='<div class="ContentBox"> |
foreach my $item (@{ $category->{items} }) { |
<h3 class="">'.mt($category->{'categorytitle'}).'</h3> |
next if (! $item->{'permission'}); |
<ul class="ListStyleNormal">'; |
$menu_html .= '<li class="">'. |
foreach my $item ( @{ $category->{items} } ) { |
qq{<a href="$item->{'url'}" title="$item->{'linktitle'}">}; |
next unless $item->{'permission'}; |
|
$menu_html .= qq|<li class="LC_menubuttons_inline_text"><a href="$item->{'url'}" title="|.mt($item->{'linktitle'}).'">'; |
if($item->{'icon'}){ |
if($item->{'icon'}){ |
$menu_html .= qq{<img class = "" src="/res/adm/pages/$item->{'icon'}" alt=""/>} |
$menu_html .= qq|<img class ="noBorder" src="/res/adm/pages/$item->{'icon'}" alt="|; |
|
if($item->{'alttext'}){ |
|
$menu_html .= $item->{'alttext'}.'"/></a>'; |
|
} else { #use linktext as alt text for the icon |
|
$menu_html .= qq|$item->{'linktext'}"/></a>|; |
|
} |
} |
} |
$menu_html .= &mt($item->{'linktext'}).'</a>'; |
$menu_html .= qq|<a href="$item->{'url'}" title="|.mt($item->{'linktitle'}).'">'; |
# if (exists($item->{'help'})) { |
$menu_html .= mt($item->{'linktext'}).'</a>'; |
# $menu_html .= &Apache::loncommon::help_open_topic($item->{'help'}); |
if (exists($item->{'help'})) { |
# } |
$menu_html .= Apache::loncommon::help_open_topic($item->{'help'}); |
|
} |
$menu_html .= '</li>'; |
$menu_html .= '</li>'; |
} |
} |
$menu_html .= '</div>'; |
$menu_html .= '</div>'; |
} |
} |
|
$menu_html .= qq|</div>|; |
return $menu_html; |
return $menu_html; |
} |
} |
|
|