version 1.88, 2004/03/01 02:21:57
|
version 1.90, 2004/03/01 18:30:50
|
Line 802 ENDDISHEADER
|
Line 802 ENDDISHEADER
|
|
|
sub compout { |
sub compout { |
my ($r,$forwarding,$broadcast)=@_; |
my ($r,$forwarding,$broadcast)=@_; |
my $dispcrit=''; |
&printheader($r,'/adm/email?compose=upload', |
|
'Distribute from uploaded file'); |
|
my $dispcrit=''; |
my $dissub=''; |
my $dissub=''; |
my $dismsg=''; |
my $dismsg=''; |
my $func=&mt('Send New'); |
my $func=&mt('Send New'); |
Line 949 sub facetoface {
|
Line 951 sub facetoface {
|
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
return; |
return; |
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb |
&printheader($r, |
({href=>'/adm/dropadd?recordftf=query', |
'/adm/email?recordftf=query', |
text=>"User Notes, Face-to-Face, Critical Messages", |
"User Notes, Face-to-Face, Critical Messages"); |
faq=>12,bug=>'Communication Tools'}); |
|
&header($r); |
|
# from query string |
# from query string |
|
|
if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; } |
if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; } |
Line 1016 ENDRHEAD
|
Line 1016 ENDRHEAD
|
ENDBFORM |
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('<pre>'); |
|
my $escmsgid=&Apache::lonnet::escape($msgid); |
|
foreach (@messages) { |
|
if ($_->[5] eq $escmsgid){ |
|
last; |
|
} |
|
$counter++; |
|
} |
|
$r->print('</pre>'); |
|
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('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'. |
|
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Reply').'</b></a></td>'. |
|
'<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Forward').'</b></a></td>'. |
|
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
|
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>Delete</b></a></td>'. |
|
'<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}. |
|
'"><b>'.&mt('Display all Messages').'</b></a></td>'); |
|
if ($counter > 0){ |
|
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
|
'"><b>'.&mt('Previous').'</b></a></td>'); |
|
} |
|
if ($counter < $number_of_messages - 1){ |
|
$r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs. |
|
'"><b>'.&mt('Next').'</b></a></td>'); |
|
} |
|
$r->print('</tr></table>'); |
|
$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}. |
|
'<br /><b>'.&mt('From').':</b> '. |
|
&Apache::loncommon::aboutmewrapper( |
|
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}), |
|
$content{'sendername'},$content{'senderdomain'}).' ('. |
|
$content{'sendername'}.' at '. |
|
$content{'senderdomain'}.') '. |
|
($content{'courseid'}?'<br /><b>'.&mt('Course').':</b> '.$courseinfo{'description'}. |
|
($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):''). |
|
'<br /><b>'.&mt('Time').':</b> '.$content{'time'}. |
|
'<p><pre>'. |
|
&Apache::lontexconvert::msgtexconverted($content{'message'},1). |
|
'</pre><hr />'.$content{'citation'}.'</p>'); |
|
return; |
|
} |
|
|
# ================================================================== The Header |
# ================================================================== The Header |
|
|
sub header { |
sub header { |
my ($r,$baseurl)=@_; |
my ($r,$title,$baseurl)=@_; |
$r->print('<html><head><title>Communication and Messages</title>'); |
$r->print('<html><head><title>Communication and Messages</title>'); |
if ($baseurl) { |
if ($baseurl) { |
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"); |
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"); |
Line 1028 sub header {
|
Line 1087 sub header {
|
$r->print(&Apache::loncommon::studentbrowser_javascript().'</head>'. |
$r->print(&Apache::loncommon::studentbrowser_javascript().'</head>'. |
&Apache::loncommon::bodytag('Communication and Messages')); |
&Apache::loncommon::bodytag('Communication and Messages')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$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 |
# ===================================================================== Handler |
|
|
sub handler { |
sub handler { |
Line 1064 sub handler {
|
Line 1134 sub handler {
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|
if ($ENV{'form.display'}) { |
if ($ENV{'form.display'}) { |
my $msgid=$ENV{'form.display'}; |
&displaymessage($r,$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('<pre>'); |
|
my $escmsgid=&Apache::lonnet::escape($msgid); |
|
foreach (@messages) { |
|
if ($_->[5] eq $escmsgid){ |
|
last; |
|
} |
|
$counter++; |
|
} |
|
$r->print('</pre>'); |
|
my $number_of_messages = scalar(@messages); #subtract 1 for last index |
|
# start output |
|
$r->print('<html><head><title>EMail and Messaging</title>'); |
|
$r->print(&Apache::loncommon::studentbrowser_javascript(). |
|
'</head>'. |
|
&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('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}. |
|
'<br /><b>'.&mt('From').':</b> '. |
|
&Apache::loncommon::aboutmewrapper( |
|
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}), |
|
$content{'sendername'},$content{'senderdomain'}).' ('. |
|
$content{'sendername'}.' at '. |
|
$content{'senderdomain'}.') '. |
|
($content{'courseid'}?'<br /><b>'.&mt('Course').':</b> '.$courseinfo{'description'}. |
|
($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):''). |
|
'<br /><b>'.&mt('Time').':</b> '.$content{'time'}.'<p>'. |
|
'<table border=2><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'. |
|
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Reply').'</b></a></td>'. |
|
'<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Forward').'</b></a></td>'. |
|
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
|
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
|
'"><b>Delete</b></a></td>'. |
|
'<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}. |
|
'"><b>'.&mt('Display all Messages').'</b></a></td>'); |
|
if ($counter > 0){ |
|
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
|
'"><b>'.&mt('Previous').'</b></a></td>'); |
|
} |
|
if ($counter < $number_of_messages - 1){ |
|
$r->print('<td><a href="/adm/email?display='.$messages[$counter+1]->[5].$sqs. |
|
'"><b>'.&mt('Next').'</b></a></td>'); |
|
} |
|
$r->print('</tr></table><p><pre>'. |
|
&Apache::lontexconvert::msgtexconverted($content{'message'},1). |
|
'</pre><hr>'.$content{'citation'}); |
|
} elsif ($ENV{'form.replyto'}) { |
} elsif ($ENV{'form.replyto'}) { |
&comprep($r,$ENV{'form.replyto'}); |
&comprep($r,$ENV{'form.replyto'}); |
} elsif ($ENV{'form.sendreply'}) { |
} elsif ($ENV{'form.sendreply'}) { |