--- loncom/interface/lonmsgdisplay.pm 2019/08/13 21:03:34 1.181.2.4 +++ loncom/interface/lonmsgdisplay.pm 2015/06/18 20:19:06 1.182 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.181.2.4 2019/08/13 21:03:34 raeburn Exp $ +# $Id: lonmsgdisplay.pm,v 1.182 2015/06/18 20:19:06 musolffc Exp $ # # Copyright Michigan State University Board of Trustees # @@ -102,8 +102,6 @@ use HTML::TokeParser(); use Apache::Constants qw(:common); use Apache::loncommon(); use Apache::lonhtmlcommon(); -use Apache::longroup; -use Apache::lonnavmaps; use Apache::lontexconvert(); use HTML::Entities(); use Apache::lonlocal; @@ -775,24 +773,14 @@ sub groupmail_header { text=>"Groups", title=>$brtitle}); } - my $view_permission = - &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); - my $navmap=Apache::lonnavmaps::navmap->new(); - my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg); - if ($grouppagelink) { - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>$grouppagelink, - text=>"Group: $description", - title=>"Go to group's home page"},); - } else { - &Apache::lonhtmlcommon::add_breadcrumb - ({text=>"Group: $description",}); - } &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"/adm/email?compose=group&group=". - "$env{'form.group'}&$refarg", - text=>"Send a Message in a Group", - title=>"Compose Group Message"},); + ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", + text=>"Group: $description", + title=>"Go to group's home page"}, + {href=>"/adm/email?compose=group&group=". + "$env{'form.group'}&$refarg", + text=>"Send a Message in a Group", + title=>"Compose Group Message"},); if ($action eq 'sending') { &Apache::lonhtmlcommon::add_breadcrumb ({text=>"Messages being sent.", @@ -1417,9 +1405,9 @@ sub compout { ); if (!$forwarding && !$multiforward) { $attachrow = '
'.&mt('Attachment not included - exceeded permitted length').'