--- loncom/interface/lonsimplepage.pm 2008/12/03 22:00:41 1.59
+++ loncom/interface/lonsimplepage.pm 2009/05/20 02:37:30 1.59.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Page Editor
#
-# $Id: lonsimplepage.pm,v 1.59 2008/12/03 22:00:41 schafran Exp $
+# $Id: lonsimplepage.pm,v 1.59.2.1 2009/05/20 02:37:30 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -138,7 +138,7 @@ sub handler {
# --------------------------------------- There is such a user, get environment
if ($target ne 'tex') {
- my $title = 'Course Page';
+ my $title = 'Simple Course Page';
if ($group ne '') {
$title = 'Group Page';
}
@@ -391,11 +391,11 @@ sub display_group_links {
href => '/adm/groupboards?group='.$group.$refarg,
);
%{$menu{'chat'}} = (
- text => 'Group Chat',
+ text => 'Group Chat Room',
href => "javascript:group_chat('$group')",
);
%{$menu{'files'}} = (
- text => 'File Repository',
+ text => 'Group Portfolio',
href => '/adm/coursegrp_portfolio?group='.$group.
$refarg,
);
@@ -409,16 +409,27 @@ sub display_group_links {
}
}
if (@available > 0) {
- my $output = '
';
+ my $output = '';
+ if ($target eq 'tex') {
+ $output = '';
+ } else {
+ $output = &Apache::loncommon::start_data_table();
+ }
foreach my $tool (@available) {
if ($target eq 'tex') {
- $output .= ''.&mt($menu{$tool}{text}).' | ';
+ $output .= ''.&mt($menu{$tool}{text}).' |
';
} else {
- $output .= ''.
- &mt($menu{$tool}{text}).' | ';
+ $output .= &Apache::loncommon::start_data_table_row()
+ .''
+ .&mt($menu{$tool}{text}).' | '
+ .&Apache::loncommon::end_data_table_row();
}
}
- $output .= '
';
+ if ($target eq 'tex') {
+ $output .= '
';
+ } else {
+ $output .= &Apache::loncommon::end_data_table();
+ }
if ($target eq 'tex') {
$r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'
'.$output));
} else {
@@ -429,7 +440,7 @@ sub display_group_links {
if ($context eq 'edit') {
$output = &mt('No group functionality.');
} else {
- $output = &mt('No group functionality (e.g., e-mail, discussion, chat or file upload) is currently available to you in this group: [_1].',''.&unescape($groupinfo{'description'}).'');
+ $output = &mt('No group functionality (e.g., e-mail, discussion, chat room or file upload) is currently available to you in this group: [_1].',''.&unescape($groupinfo{'description'}).'');
}
if ($target eq 'tex') {
$r->print(&Apache::lonxml::xmlparse($r,'tex',$output));
@@ -447,11 +458,12 @@ sub grouppage_breadcrumbs {
text=>"Groups",
title=>"Display Groups"},
{href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
- text=>"Group: $description",
- title=>"Go to group's home page"},
+ text=>&mt('Group:')." $description",
+ title=>&mt("Go to group's home page"),
+ no_mt=>1,},
);
my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',
- $description));
+ $description),undef,undef,undef,undef,1);
return $output;
}