--- 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('
'.&mt('Functions').': | '. + ''.&mt('Reply').' | '. + ''.&mt('Forward').' | '. + ''.&mt('Mark Unread').' | '. + 'Delete | '. + ''.&mt('Display all Messages').' | '); + if ($counter > 0){ + $r->print(''.&mt('Previous').' | '); + } + if ($counter < $number_of_messages - 1){ + $r->print(''.&mt('Next').' | '); + } + $r->print('
'. + &Apache::lontexconvert::msgtexconverted($content{'message'},1). + '
'); - 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('
'. - '
'.&mt('Functions').': | '. - ''.&mt('Reply').' | '. - ''.&mt('Forward').' | '. - ''.&mt('Mark Unread').' | '. - 'Delete | '. - ''.&mt('Display all Messages').' | '); - if ($counter > 0){ - $r->print(''.&mt('Previous').' | '); - } - if ($counter < $number_of_messages - 1){ - $r->print(''.&mt('Next').' | '); - } - $r->print('
'. - &Apache::lontexconvert::msgtexconverted($content{'message'},1). - '