--- loncom/interface/lonsimplepage.pm 2009/05/20 02:37:30 1.59.2.1
+++ loncom/interface/lonsimplepage.pm 2008/12/17 00:44:53 1.61
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Page Editor
#
-# $Id: lonsimplepage.pm,v 1.59.2.1 2009/05/20 02:37:30 raeburn Exp $
+# $Id: lonsimplepage.pm,v 1.61 2008/12/17 00:44:53 ehlerst Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,7 @@ package Apache::lonsimplepage;
use strict;
use Apache::Constants qw(:common);
use Apache::loncommon;
+use Apache::lontemplate;
use Apache::lonnet;
use Apache::lontexconvert;
use Apache::lonfeedback;
@@ -138,7 +139,7 @@ sub handler {
# --------------------------------------- There is such a user, get environment
if ($target ne 'tex') {
- my $title = 'Simple Course Page';
+ my $title = 'Course Page';
if ($group ne '') {
$title = 'Group Page';
}
@@ -215,11 +216,11 @@ sub handler {
if ($forcestudent or $target eq 'tex') { $allowed=0; }
if ($allowed) {
- $r->print('
'.
- &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))
- .'
'
+ $r->print(''.'
'
.''.&mt('Show Student View').''.
- &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
');
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))
+ .'
');
} elsif ($privileged and $target ne 'tex') {
my $edittext = &mt('Edit');
if ($group ne '') {
@@ -270,17 +271,17 @@ sub handler {
if ((($syllabus{'uploaded.lastmodified'}) &&
(($group ne '' && ($group_home_view || $group_edit_perm ||
$group_view_perm)) || ($group eq ''))) || ($allowed)) {
+ my $image;
if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/smppg',
$syllabus{'uploaded.photourl'});
- my $image='
';
if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);
- }
- $r->print($image);
- }
+ }
+ }
if ($allowed) {
$r->print(
'');
@@ -391,11 +403,11 @@ sub display_group_links {
href => '/adm/groupboards?group='.$group.$refarg,
);
%{$menu{'chat'}} = (
- text => 'Group Chat Room',
+ text => 'Group Chat',
href => "javascript:group_chat('$group')",
);
%{$menu{'files'}} = (
- text => 'Group Portfolio',
+ text => 'File Repository',
href => '/adm/coursegrp_portfolio?group='.$group.
$refarg,
);
@@ -409,27 +421,16 @@ sub display_group_links {
}
}
if (@available > 0) {
- my $output = '';
- if ($target eq 'tex') {
- $output = '';
- } else {
- $output = &Apache::loncommon::start_data_table();
- }
+ my $output = '';
foreach my $tool (@available) {
if ($target eq 'tex') {
- $output .= '
'.&mt($menu{$tool}{text}).' |
';
+ $output .= ''.&mt($menu{$tool}{text}).' | ';
} else {
- $output .= &Apache::loncommon::start_data_table_row()
- .''
- .&mt($menu{$tool}{text}).' | '
- .&Apache::loncommon::end_data_table_row();
+ $output .= ''.
+ &mt($menu{$tool}{text}).' | ';
}
}
- if ($target eq 'tex') {
- $output .= '
';
- } else {
- $output .= &Apache::loncommon::end_data_table();
- }
+ $output .= '
';
if ($target eq 'tex') {
$r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'
'.$output));
} else {
@@ -440,7 +441,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 room 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 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));
@@ -458,12 +459,11 @@ sub grouppage_breadcrumbs {
text=>"Groups",
title=>"Display Groups"},
{href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
- text=>&mt('Group:')." $description",
- title=>&mt("Go to group's home page"),
- no_mt=>1,},
+ text=>"Group: $description",
+ title=>"Go to group's home page"},
);
my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',
- $description),undef,undef,undef,undef,1);
+ $description));
return $output;
}