--- loncom/interface/lonmsg.pm 2004/03/01 16:19:45 1.89
+++ loncom/interface/lonmsg.pm 2004/03/01 18:30:50 1.90
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.89 2004/03/01 16:19:45 www Exp $
+# $Id: lonmsg.pm,v 1.90 2004/03/01 18:30:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -944,16 +944,6 @@ $content{'sendername'}.'@'.
}
}
-# ---------------------------------------------------------------- Print header
-
-sub printheader {
- my ($r,$url,$desc,$baseurl)=@_;
- &Apache::lonhtmlcommon::add_breadcrumb
- ({href=>$url,
- text=>$desc});
- &header($r,$baseurl);
-}
-
# ---------------------------------------------------------------- Face to face
sub facetoface {
@@ -1026,11 +1016,70 @@ ENDRHEAD
ENDBFORM
}
}
+# ----------------------------------------------------------- Display a message
+
+sub displaymessage {
+ my ($r,$msgid)=@_;
+ &statuschange($msgid,'read');
+ my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
+ my %content=&unpackagemsg($message{$msgid});
+# info to generate "next" and "previous" buttons
+ my @messages=&sortedmessages();
+ my $counter=0;
+ $r->print('');
+ my $escmsgid=&Apache::lonnet::escape($msgid);
+ foreach (@messages) {
+ if ($_->[5] eq $escmsgid){
+ last;
+ }
+ $counter++;
+ }
+ $r->print('');
+ my $number_of_messages = scalar(@messages); #subtract 1 for last index
+# start output
+ &printheader($r,'/adm/email?display='.$msgid,'Display a Message','',$content{'baseurl'});
+ my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
+# Functions
+ $r->print('');
+ $r->print('
'.&mt('Subject').': '.$content{'subject'}.
+ '
'.&mt('From').': '.
+ &Apache::loncommon::aboutmewrapper(
+ &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
+ $content{'sendername'},$content{'senderdomain'}).' ('.
+ $content{'sendername'}.' at '.
+ $content{'senderdomain'}.') '.
+ ($content{'courseid'}?'
'.&mt('Course').': '.$courseinfo{'description'}.
+ ($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):'').
+ '
'.&mt('Time').': '.$content{'time'}.
+ ''.
+ &Apache::lontexconvert::msgtexconverted($content{'message'},1).
+ '
'.$content{'citation'}.'');
+ return;
+}
# ================================================================== The Header
sub header {
- my ($r,$baseurl)=@_;
+ my ($r,$title,$baseurl)=@_;
$r->print('Communication and Messages');
if ($baseurl) {
$r->print("");
@@ -1038,10 +1087,21 @@ sub header {
$r->print(&Apache::loncommon::studentbrowser_javascript().''.
&Apache::loncommon::bodytag('Communication and Messages'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,'Communication and Messages'));
+ (undef,($title?$title:'Communication and Messages')));
}
+# ---------------------------------------------------------------- Print header
+
+sub printheader {
+ my ($r,$url,$desc,$title,$baseurl)=@_;
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>$url,
+ text=>$desc});
+ &header($r,$title,$baseurl);
+}
+
+
# ===================================================================== Handler
sub handler {
@@ -1074,64 +1134,7 @@ sub handler {
# --------------------------------------------------------------- Render Output
if ($ENV{'form.display'}) {
- my $msgid=$ENV{'form.display'};
- &statuschange($msgid,'read');
- my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
- my %content=&unpackagemsg($message{$msgid});
-# info to generate "next" and "previous" buttons
- my @messages=&sortedmessages();
- my $counter=0;
- $r->print('');
- my $escmsgid=&Apache::lonnet::escape($msgid);
- foreach (@messages) {
- if ($_->[5] eq $escmsgid){
- last;
- }
- $counter++;
- }
- $r->print('');
- my $number_of_messages = scalar(@messages); #subtract 1 for last index
-# start output
- $r->print('EMail and Messaging');
- $r->print(&Apache::loncommon::studentbrowser_javascript().
- ''.
- &Apache::loncommon::bodytag('EMail and Messages').
- &Apache::loncommon::help_open_faq(12).
- &Apache::loncommon::help_open_bug('Communication Tools'));
- my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
-
- $r->print('
'.&mt('Subject').': '.$content{'subject'}.
- '
'.&mt('From').': '.
- &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
- $content{'sendername'},$content{'senderdomain'}).' ('.
- $content{'sendername'}.' at '.
- $content{'senderdomain'}.') '.
- ($content{'courseid'}?'
'.&mt('Course').': '.$courseinfo{'description'}.
- ($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):'').
- '
'.&mt('Time').': '.$content{'time'}.''.
- '
'.
- &Apache::lontexconvert::msgtexconverted($content{'message'},1).
- '
'.$content{'citation'});
+ &displaymessage($r,$ENV{'form.display'});
} elsif ($ENV{'form.replyto'}) {
&comprep($r,$ENV{'form.replyto'});
} elsif ($ENV{'form.sendreply'}) {