--- loncom/interface/lonmsgdisplay.pm 2009/04/25 20:22:07 1.122
+++ loncom/interface/lonmsgdisplay.pm 2009/08/13 16:58:36 1.124.4.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.122 2009/04/25 20:22:07 www Exp $
+# $Id: lonmsgdisplay.pm,v 1.124.4.1 2009/08/13 16:58:36 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -173,6 +173,7 @@ sub folderlist {
$formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash'];
my $output = qq||;
my %show = ('select_form_order' => [10,20,50,100,200],
map {$_=>$_} (10,20,50,100,200));
@@ -239,7 +241,7 @@ function folder_choice(targetform,caller
'.$lt{'actn'}.' '.
&Apache::loncommon::select_form('view','folderaction',%actions).'
| '.
- '
+ '
|
@@ -247,7 +249,7 @@ function folder_choice(targetform,caller
@@ -295,11 +297,11 @@ sub scrollbuttons {
}
return
''.&mt('Page').': '.
- ''.
- ''.
- ' of '.$maxdis.
- ''.
- ' '.
+ ''.
+ ''.
+ ' of '.$maxdis.
+ ''.
+ ' '.
&mt('[_1] messages: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'';
}
# =============================================================== Status Change
@@ -670,6 +672,7 @@ sub disgroup {
sub group_check_uncheck {
my $output = qq|
|;
}
@@ -762,7 +766,7 @@ sub discrit {
.''
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
.' '
- .' | ');
}
my $showstatus;
my %statushash = &get_msgstatus_types();
@@ -1346,6 +1351,7 @@ sub compout {
$sendmode = ''."\n";
$broadcast_js = qq|
|;
@@ -1415,7 +1422,9 @@ function courseRecipients() {
my $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<"ENDREPSCRIPT");
ENDREPSCRIPT
}
@@ -1867,7 +1876,7 @@ sub facetoface {
return;
}
my $crstype = &Apache::loncommon::course_type();
- my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders'
+ my $leaders = ($crstype eq 'Community') ? 'coordinators and leaders'
: 'faculty and staff';
&printheader($r,
'/adm/email?recordftf=query',
@@ -1890,21 +1899,23 @@ sub facetoface {
'subm' => 'Retrieve discussion and message records',
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
'post' => 'Post this Record');
- $r->print(<<"ENDTREC");
-$lt{'head'}
-
-ENDTREC
+
+ $r->print(''.$lt{'head'}.'
'
+ .'