--- loncom/interface/groupboards.pm 2013/07/19 18:24:17 1.18
+++ loncom/interface/groupboards.pm 2020/09/08 23:54:40 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Group Bulletin Boards Manager
#
-# $Id: groupboards.pm,v 1.18 2013/07/19 18:24:17 bisitz Exp $
+# $Id: groupboards.pm,v 1.23 2020/09/08 23:54:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +33,8 @@ use Apache::Constants qw(:common :http);
use Apache::loncommon();
use Apache::lonnet;
use Apache::lonuserstate();
+use Apache::longroup;
+use Apache::lonnavmaps;
use LONCAPA::map();
use Apache::lonlocal;
use LONCAPA;
@@ -72,7 +74,7 @@ sub handler {
&Apache::lonhtmlcommon::clear_breadcrumbs();
if (!defined($group)) {
- $earlyout = &mt('No [_1] defined, so there are no [_1] discussion boards to display',$gpterm);
+ $earlyout = &mt("No $gpterm defined, so there are no $gpterm discussion boards to display");
$r->print(&display_error($cdom,$cnum,$group,$description,$gpterm,
$ucgpterm,$bodytitle,$earlyout,$refarg));
return OK;
@@ -96,7 +98,7 @@ sub handler {
'/'.$group);
}
if (!$can_view) {
- $earlyout=&mt('You do not have privileges to view discussion boards in this [_1]',$gpterm);
+ $earlyout=&mt("You do not have privileges to view discussion boards in this $gpterm");
$r->print(&display_error($cdom,$cnum,$group,$description,$gpterm,
$ucgpterm,$bodytitle,$earlyout,$refarg));
return OK;
@@ -119,8 +121,10 @@ sub handler {
'');
if ($lockfreed ne 'ok') {
$r->print(&mt('There was a problem removing a lockfile for the group ([_1]).',$description).'
'.
- &mt('This may prevent creation of additional bulletin boards in this group.').'
'.
- &mt('Please contact the domain coordinator for your LON-CAPA domain.'));
+ &mt('This may prevent creation of additional discussion boards in this group.').'
'.
+ &mt('Please contact the [_1]helpdesk[_2] for assistance.',
+ '','')
+ );
}
} else {
$r->print(&mt('There was a problem creating the new discussion board - [_1]',''.$outcome.'').'
'.
@@ -255,14 +259,27 @@ sub boards_header {
text=>"Groups",
title=>"View course groups"},);
}
+ 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=>&mt('Group').": $description",
+ title=>&mt("Go to group's home page"),
+ no_mt=>1});
+ } else {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({text=>&mt('Group').": $description",
+ no_mt=>1});
+ }
&Apache::lonhtmlcommon::add_breadcrumb
- ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
- text=>"$ucgpterm: $description",
- title=>"Go to group's home page"},
- {href=>"/adm/groupboards?group=$group&$refarg",
+ ({href=>"/adm/groupboards?group=$group&$refarg",
text=>"Discussion Boards",
title=>"Display group discussion boards"},);
- $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] discussion boards - [_2]',$gpterm,$description));
+ $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group discussion boards - [_1]',$description),
+ undef,undef,undef,undef,1);
return $output;
}