--- 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('