'.
+ ''.
+&mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').
+ ' '.
''.
'';
@@ -833,6 +868,7 @@ ENDCOMP
} else { # $broadcast is 'upload'
$r->print(<
+
Generate messages from a file
Subject:
@@ -913,7 +949,13 @@ sub facetoface {
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
return;
}
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>'/adm/dropadd?recordftf=query',
+ text=>"User Notes, Face-to-Face, Critical Messages",
+ faq=>12,bug=>'Communication Tools'});
+ &header($r);
# from query string
+
if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; }
if ($ENV{'form.recdom'}) { $ENV{'form.recdomain'}=$ENV{'form.recdom'}; }
@@ -924,17 +966,23 @@ sub facetoface {
my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain');
my $stdbrws = &Apache::loncommon::selectstudent_link
('stdselect','recuname','recdomain');
+ my %lt=&Apache::lonlocal::texthash('user' => 'Username',
+ 'dom' => 'Domain',
+ 'head' => 'User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course',
+ 'subm' => 'Retrieve discussion and message records',
+ 'newr' => 'New Record (record is visible to course faculty and staff)',
+ 'post' => 'Post this Record');
$r->print(<<"ENDTREC");
-
User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course
'.&Apache::loncommon::plainname($ENV{'form.recuname'},
@@ -958,28 +1007,43 @@ ENDTREC
ENDRHEAD
$r->print(<New Record (record is visible to course faculty and staff)
+$lt{'newr'}
-
+
ENDBFORM
}
}
+# ================================================================== The Header
+
+sub header {
+ my ($r,$baseurl)=@_;
+ $r->print('Communication and Messages');
+ if ($baseurl) {
+ $r->print("");
+ }
+ $r->print(&Apache::loncommon::studentbrowser_javascript().''.
+ &Apache::loncommon::bodytag('Communication and Messages'));
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs
+ (undef,'Communication and Messages'));
+
+}
+
# ===================================================================== Handler
sub handler {
my $r=shift;
# ----------------------------------------------------------- Set document type
-
- &Apache::loncommon::content_type($r,'text/html');
- $r->send_http_header;
-
- return OK if $r->header_only;
-
+
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+
+ return OK if $r->header_only;
+
# --------------------------- Get query string for limited number of parameters
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['display','replyto','forward','markread','markdel','markunread',
@@ -987,204 +1051,221 @@ sub handler {
'recordftf','sortedby']);
$sqs='&sortedby='.$ENV{'form.sortedby'};
# ------------------------------------------------------ They checked for email
- &Apache::lonnet::put('email_status',{'recnewemail'=>0});
+ &Apache::lonnet::put('email_status',{'recnewemail'=>0});
+
+# ----------------------------------------------------------------- Breadcrumbs
+
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>"/adm/communicate",
+ text=>"Communication/Messages",
+ faq=>12,bug=>'Communication Tools',});
+
# --------------------------------------------------------------- Render Output
- if (!$ENV{'form.display'}) {
- $r->print('EMail and Messaging'.
- &Apache::loncommon::studentbrowser_javascript().''.
- &Apache::loncommon::bodytag('EMail and Messages'));
- }
- 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});
+
+ 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('
'.
+ $content{'time'}.': '.$content{'message'}.
+ '