--- loncom/interface/lonhtmlcommon.pm 2008/11/11 20:12:17 1.183 +++ loncom/interface/lonhtmlcommon.pm 2008/11/21 15:22:04 1.184 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.183 2008/11/11 20:12:17 droeschl Exp $ +# $Id: lonhtmlcommon.pm,v 1.184 2008/11/21 15:22:04 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2019,6 +2019,7 @@ END # url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething', # permission => 'Contains permissions as returned from lonnet::allowed(), # must evaluate to true in order to activate the link', +# icon => 'icon filename', # help => 'Name of the corresponding helpfile', # linktitle => 'Description of the link (used for title tag)' # }, @@ -2035,6 +2036,10 @@ END # subject to change during this project. # Don't rely on its current functionality as it might be # changed or removed. +# TODO: +# add icon field +# add alt tag for icon +# check for empty values # -------------------------- sub generate_menu { @@ -2042,15 +2047,18 @@ sub generate_menu { my $menu_html = ''; foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished. - $menu_html .='

'.$category->{'categorytitle'}.'