--- loncom/interface/lonmsgdisplay.pm	2019/08/07 16:08:04	1.187
+++ loncom/interface/lonmsgdisplay.pm	2020/11/11 01:27:04	1.193
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.187 2019/08/07 16:08:04 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.193 2020/11/11 01:27:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -782,11 +782,14 @@ sub groupmail_header {
     if ($grouppagelink) {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>$grouppagelink,
-              text=>"Group: $description",
-              title=>"Go to group's home page"},);
+              text=>&mt('Group').": $description",
+              title=>&mt("Go to group's home page"),
+              no_mt=>1,
+             },);
     } else {
         &Apache::lonhtmlcommon::add_breadcrumb
-            ({text=>"Group: $description",});
+            ({text=>&mt('Group').": $description",
+              no_mt=>1,});
     }
     &Apache::lonhtmlcommon::add_breadcrumb   
           ({href=>"/adm/email?compose=group&group=".
@@ -799,8 +802,9 @@ sub groupmail_header {
                            title=>"E-mails sent"},);
     }
     my $groupheader = &Apache::loncommon::start_page('Group Message');
-    $groupheader .= &Apache::lonhtmlcommon::breadcrumbs
-                ('Group - '.$env{'form.group'}.' Email');
+    $groupheader .= &Apache::lonhtmlcommon::breadcrumbs(
+                                    &mt('Group messages - [_1]',$description),
+                                                        undef,undef,undef,undef,1);
     return $groupheader;
 }
 
@@ -861,7 +865,7 @@ sub discrit {
                       .&Apache::lonhtmlcommon::row_closure(1);
         }
         $result .= &Apache::lonhtmlcommon::row_title(&mt('Message'),undef,'LC_evenrow_value')
-                  .'<pre>'.&Apache::lontexconvert::msgtexconverted($content{'message'}).'</pre>'
+                  .'<pre class="LC_wordwrap">'.&Apache::lontexconvert::msgtexconverted($content{'message'}).'</pre>'
                   .&Apache::lonhtmlcommon::row_closure()
                   .&Apache::lonhtmlcommon::row_title('',undef,'LC_oddrow_value')
                   .'<div class="LC_warning">';
@@ -1418,8 +1422,8 @@ sub compout {
     if (!$forwarding && !$multiforward) {
         $attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}
             .': <input type="file" name="attachment" class="LC_flUpload" multiple />'
-            .'</td></tr>'
-            .'<input type="hidden" id="free_space" value="'.$attachmax{'num'}.'" />';
+            .'<input type="hidden" id="LC_free_space" value="'.$attachmax{'num'}.'" />'
+            .'</td></tr>';
     }
     if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
 	|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
@@ -1974,7 +1978,7 @@ sub disfacetoface {
  &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.
 $content{'sendername'}.':'.
             $content{'senderdomain'}.') '.$content{'time'}.
-            '<br /><pre>'.
+            '<br /><pre class="LC_wordwrap">'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).
 	      '</pre>';
      }
@@ -2143,8 +2147,28 @@ sub displaymessage {
 
 
     my $number_of_messages = scalar(@messages); #subtract 1 for last index
+    my $head_extra;
+
+# if student's view of resource will be included
+# get <link> tag(s) for css file(s) in use, and pass to &header to include
+# in call to loncommon::start_page()
+
+    if (($env{'request.course.id'} eq $content{'courseid'}) &&
+        (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {
+        my $symb;
+        if (defined($content{'symb'})) {
+            $symb = $content{'symb'};
+        } elsif (defined($content{'baseurl'})) {
+            $symb=&Apache::lonnet::symbread($content{'baseurl'});
+        }
+        if ($symb) {
+            $head_extra = &Apache::loncommon::css_links($symb);
+        }
+    }
+
 # start output
-    &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
+    &printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',
+                 $content{'baseurl'},$head_extra);
 
 # Prepare available functions
     my @functionlist;
@@ -2493,7 +2517,7 @@ sub displaymessage {
 
     # Message
     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))
-             .'<pre>'
+             .'<pre class="LC_wordwrap">'
 	     .&Apache::lontexconvert::msgtexconverted($content{'message'},1)
 	     .'</pre>'
     );
@@ -2685,13 +2709,16 @@ sub displayresource {
 # ================================================================== The Header
 
 sub header {
-    my ($r,$title,$baseurl)=@_;
+    my ($r,$title,$baseurl,$head_extra)=@_;
     my $extra = &Apache::loncommon::studentbrowser_javascript();
     if ($baseurl) {
 	$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
     }
     $extra .= '<script type="text/javascript"
                 src="/res/adm/includes/file_upload.js"></script>';
+    if ($head_extra) {
+        $extra .= "\n$head_extra";
+    }
     $r->print(&Apache::loncommon::start_page('Messages',
  					$extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs
@@ -2701,11 +2728,11 @@ sub header {
 # ---------------------------------------------------------------- Print header
 
 sub printheader {
-    my ($r,$url,$desc,$title,$baseurl)=@_;
+    my ($r,$url,$desc,$title,$baseurl,$head_extra)=@_;
     &Apache::lonhtmlcommon::add_breadcrumb
 	({href=>$url,
 	  text=>$desc});
-    &header($r,$title,$baseurl);
+    &header($r,$title,$baseurl,$head_extra);
 }
 
 # ------------------------------------------------------------ Store the comment
@@ -3009,7 +3036,7 @@ sub sendoffmail {
                 &Apache::lonnet::logthis('Failed to store To, Bcc and Cc recipients for '.$env{'user.name'}.':'.$env{'user.domain'});
             }
             if ($env{'form.attachment'}) {
-                if (length($env{'form.attachment'})<131072) {
+                if (length($env{'form.attachment'}) <= 1048576) {
                     $attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback/'.$now);
                 } else {
                     $r->print('<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>');