version 1.223, 2009/06/10 13:32:38
|
version 1.227, 2009/07/14 17:56:13
|
Line 513 ENDJS
|
Line 513 ENDJS
|
# Day |
# Day |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />}; |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />}; |
# Year |
# Year |
my $yearselector = qq{<input type="year" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />}; |
my $yearselector = qq{<input type="text" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />}; |
# |
# |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
if ($includeempty) { |
if ($includeempty) { |
Line 609 Inputs:
|
Line 609 Inputs:
|
|
|
=item $dname |
=item $dname |
|
|
The name passed to &datesetter, which prefixes the form elements. |
The name passed to &date_setter, which prefixes the form elements. |
|
|
=item $defaulttime |
=item $defaulttime |
|
|
Line 1435 returns: nothing
|
Line 1435 returns: nothing
|
unless ($CourseBreadcrumbs) { |
unless ($CourseBreadcrumbs) { |
$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" }); |
$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" }); |
} else { |
} else { |
$links = htmltag('ul', $links, { id => "LC_CourseBreadcrumbs" }); |
$links = htmltag('ul', $links, { class => "LC_CourseBreadcrumbs" }); |
} |
} |
|
|
if ($component) { |
if ($component) { |
Line 1447 returns: nothing
|
Line 1447 returns: nothing
|
} |
} |
|
|
$links = htmltag('div', $links, |
$links = htmltag('div', $links, |
{ id => "LC_head_subbox" }) unless ($CourseBreadcrumbs) ; |
{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ; |
|
|
# Return the @Crumbs stack to what we started with |
# Return the @Crumbs stack to what we started with |
push(@Crumbs,$last); |
push(@Crumbs,$last); |
Line 2205 sub generate_menu {
|
Line 2205 sub generate_menu {
|
return $div->(join('', @categories), {class => "LC_columnSection"}); |
return $div->(join('', @categories), {class => "LC_columnSection"}); |
} |
} |
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &start_funclist |
|
|
|
Start list of available functions |
|
|
|
Typically used to offer a simple list of available functions |
|
at top or bottom of page. |
|
All available functions/actions for the current page |
|
should be included in this list. |
|
|
|
If the optional headline text is not provided, a default text will be used. |
|
|
|
|
|
Related routines: |
|
=over 4 |
|
add_item_funclist |
|
end_funclist |
|
=back |
|
|
|
|
|
Inputs: (optional) headline text |
|
|
|
Returns: HTML code with function list start |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
|
|
sub start_funclist { |
|
my($legendtext)=@_; |
|
$legendtext=&mt('Functions') if !$legendtext; |
|
return "<fieldset>\n<legend>$legendtext</legend>\n" |
|
.'<ul class="LC_funclist">'."\n"; |
|
} |
|
|
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &add_item_funclist |
|
|
|
Adds an item to the list of available functions |
|
|
|
Related routines: |
|
=over 4 |
|
start_funclist |
|
end_funclist |
|
=back |
|
|
|
Inputs: content item with text and link to function |
|
|
|
Returns: HTML code with list item for funclist |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
|
|
sub add_item_funclist { |
|
my($content) = @_; |
|
return '<li>'.$content.'</li>'."\n"; |
|
} |
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &end_funclist |
|
|
|
End list of available functions |
|
|
|
Related routines: |
|
=over 4 |
|
start_funclist |
|
add_item_funclist |
|
=back |
|
|
|
Inputs: ./. |
|
|
|
Returns: HTML code with function list end |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
|
|
sub end_funclist { |
|
my($r)=@_; |
|
return "</ul>\n</fieldset>\n"; |
|
} |
|
|
1; |
1; |
|
|
__END__ |
__END__ |