loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.223 and 1.226

-version 1.223, 2009/06/10 13:32:38
+version 1.226, 2009/07/02 17:22:33
  Line 513  ENDJS
      # Day
      my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />};
      # 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 >};
      if ($includeempty) {
  Line 609  Inputs:
  =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
  Line 1447  returns: nothing
          }
          $links = htmltag('div', $links,
-                         { id => "LC_head_subbox" }) unless ($CourseBreadcrumbs) ;
+                         { id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
          # Return the @Crumbs stack to what we started with
          push(@Crumbs,$last);
  Line 2205  sub generate_menu {
      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";
+ }
 ;
  __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.223
changed lines
	Added in v.1.226