'.
+ ''.
+&mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').
+ ' '.
''.
'';
@@ -799,7 +802,9 @@ ENDDISHEADER
sub compout {
my ($r,$forwarding,$broadcast)=@_;
- my $dispcrit='';
+ &printheader($r,'/adm/email?compose=upload',
+ 'Distribute from uploaded file');
+ my $dispcrit='';
my $dissub='';
my $dismsg='';
my $func=&mt('Send New');
@@ -865,6 +870,7 @@ ENDCOMP
} else { # $broadcast is 'upload'
$r->print(<
+
Generate messages from a file
Subject:
@@ -938,6 +944,16 @@ $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 {
@@ -945,7 +961,11 @@ sub facetoface {
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
return;
}
+ &printheader($r,
+ '/adm/email?recordftf=query',
+ "User Notes, Face-to-Face, Critical Messages");
# from query string
+
if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; }
if ($ENV{'form.recdom'}) { $ENV{'form.recdomain'}=$ENV{'form.recdom'}; }
@@ -956,17 +976,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'},
@@ -990,28 +1017,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',
@@ -1019,218 +1061,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').
- &Apache::loncommon::help_open_faq(12).
- &Apache::loncommon::help_open_bug('Communication Tools'));
- }
- 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('