--- loncom/interface/lonmsgdisplay.pm 2009/08/13 16:58:36 1.124.4.1 +++ loncom/interface/lonmsgdisplay.pm 2009/08/20 04:15:39 1.124.4.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.124.4.1 2009/08/13 16:58:36 raeburn Exp $ +# $Id: lonmsgdisplay.pm,v 1.124.4.2 2009/08/20 04:15:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2303,6 +2303,10 @@ sub displaymessage { &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'}); my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'}); +# Functions and Actions + my $li_start='• '; + my $li_end=' '; + # Prepare available functions my @functionlist; if (!$content{'noreplies'}) { @@ -2336,13 +2340,14 @@ sub displaymessage { my $legendtext='' .&mt('Functions') .''; + my $showfunctionlist = $li_start.join($li_end.$li_start,@functionlist).$li_end; $r->print('
' - .&Apache::lontemplate::start_functionslist($legendtext) - ); - foreach my $item (@functionlist) { - $r->print(&Apache::lontemplate::item_functionslist($item)); - } - $r->print(&Apache::lontemplate::end_functionslist() + .'
' + .'' + .$legendtext + .'' + .$showfunctionlist + .'
' .'
' ); @@ -2382,15 +2387,16 @@ sub displaymessage { # Print actions if (@actionlist) { + my $showactionlist = $li_start.join($li_end.$li_start,@actionlist).$li_end; $legendtext=&mt('[_1]Currently available actions[_2] (will open extra window):' ,'',''); $r->print('
' - .&Apache::lontemplate::start_functionslist($legendtext) - ); - foreach my $item (@actionlist) { - $r->print(&Apache::lontemplate::item_functionslist($item)); - } - $r->print(&Apache::lontemplate::end_functionslist() + .'
' + .'' + .$legendtext + .'' + .$showactionlist + .'
' .'
' ); }