[BACK]Return to lonmsgdisplay.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.202 and 1.203

version 1.202, 2025/01/29 09:11:10 version 1.203, 2025/03/03 21:42:46
Line 299  sub scrollbuttons { Line 299  sub scrollbuttons {
     } else {      } else {
         $status = $statushash{$msgstatus};          $status = $statushash{$msgstatus};
     }      }
     my $output = '<b>'.&mt('Page:').'</b> ';      my $output;
     if ($maxdis == 1) {      if ($maxdis == 1) {
         # No buttons if only one page is displayed          # No buttons if only one page is displayed
         $output .= '1/1';          $output = '<b>'.&mt('Page:').'</b> 1/1'; 
     } else {      } else {
         $output .=          $output = '<b><label for="startdis">'.&mt('Page:').'</label></b> '.
            '<input type="submit" name="firstview" value="|&lt;" />'.             '<input type="submit" name="firstview" value="|&lt;" />'.
            '<input type="submit" name="prevview" value="&lt;" />'.             '<input type="submit" name="prevview" value="&lt;" />'.
            ' <input type="text" size="5" name="startdis" value="'.$start.'" onchange="this.form.submit()" /> / '.$maxdis.' '.             ' <input type="text" size="5" name="startdis" id="startdis" value="'.$start.'" onchange="this.form.submit()" /> / '.$maxdis.' '.
            '<input type="submit" name="nextview" value="&gt;" />'.             '<input type="submit" name="nextview" value="&gt;" />'.
            '<input type="submit" name="lastview" value="&gt;|" />';             '<input type="submit" name="lastview" value="&gt;|" />';
     }      }
Line 804  sub groupmail_header { Line 804  sub groupmail_header {
     $groupheader .= &Apache::lonhtmlcommon::breadcrumbs(      $groupheader .= &Apache::lonhtmlcommon::breadcrumbs(
                                     &mt('Group messages - [_1]',$description),                                      &mt('Group messages - [_1]',$description),
                                                         undef,undef,undef,undef,1);                                                          undef,undef,undef,undef,1);
     return $groupheader;      return $groupheader.'<div class="LC_landmark" role="main">';
 }  }
   
 sub groupmail_sent {  sub groupmail_sent {
Line 1360  sub compout { Line 1360  sub compout {
         }          }
         $r->print(&Apache::loncommon::start_page('Messages'));          $r->print(&Apache::loncommon::start_page('Messages'));
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Send and display messages'));          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Send and display messages'));
         $r->print('<p class="LC_warning">'.          $r->print('<div class="LC_landmark" role="main"><p class="LC_warning">'.
                  &mt('Sending of LON-CAPA messages is blocked for your current IP address: [_1].',$clientip).'</p>'.                   &mt('Sending of LON-CAPA messages is blocked for your current IP address: [_1].',$clientip).'</p>'.
                  '<ul><li>'.                   '<ul><li>'.
                  &mt('Note: communication is being blocked for certain IP address(es).').                   &mt('Note: communication is being blocked for certain IP address(es).').
                  '</li><li>'.                   '</li><li>'.
                  &mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',$showdom).                   &mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',$showdom).
                  '</li></ul>');                   '</li></ul></div>');
         return;          return;
     }      }
     my $suffix=&Apache::lonmsg::foldersuffix($folder);      my $suffix=&Apache::lonmsg::foldersuffix($folder);
Line 1441  sub compout { Line 1441  sub compout {
                                        'uas' => 'Upload and Send',                                         'uas' => 'Upload and Send',
                                        'atta' => 'Attachment',                                         'atta' => 'Attachment',
                                        'to'   => 'To:',                                         'to'   => 'To:',
                                          'msgb' => 'Message body',
                                       );                                        );
     my %attachmax = (      my %attachmax = (
                      text => &mt('(1 MB max size)'),                       text => &mt('(1 MB max size)'),
                      num  => 1048576,                       num  => 1048576,
                     );                      );
     if (!$forwarding && !$multiforward) {      if (!$forwarding && !$multiforward) {
         $attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}          $attachrow = '<tr><td colspan="3"><label><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}
             .': <input type="file" name="attachment" class="LC_flUpload" multiple />'              .': <input type="file" name="attachment" class="LC_flUpload" multiple /></label>'
             .'<input type="hidden" id="LC_free_space" value="'.$attachmax{'num'}.'" />'              .'<input type="hidden" id="LC_free_space" value="'.$attachmax{'num'}.'" />'
             .'</td></tr>';              .'</td></tr>';
     }      }
Line 1754  $latexHelp."<br />\n". Line 1755  $latexHelp."<br />\n".
             $r->print(&reply_to_row(\%lt));              $r->print(&reply_to_row(\%lt));
         }          }
         $r->print(&msg_subject_row($dissub,\%lt,$subj_size));          $r->print(&msg_subject_row($dissub,\%lt,$subj_size));
           my $labeltext = &HTML::Entities::encode($lt{'msgb'}); 
         $r->print(<<"ENDCOMP");          $r->print(<<"ENDCOMP");
 $attachrow  $attachrow
 </table><br />  </table><br />
 $latexHelp<br />  $latexHelp<br />
 <textarea name="message" id="message" cols="80" rows="15" wrap="hard" $textareaclass>$dismsg  <textarea name="message" id="message" cols="80" rows="15" wrap="hard" $textareaclass aria-label="$labeltext">$dismsg
 </textarea>  </textarea>
 <br />  <br />
 $sendmode  $sendmode
Line 1782  ENDCOMP Line 1784  ENDCOMP
 <input type="hidden" name="send" value="on" />  <input type="hidden" name="send" value="on" />
 <h3>$lt{'gen'}</h3>  <h3>$lt{'gen'}</h3>
 <p>  <p>
 Subject: <input type="text" size="50" name="subject" />  <label>$lt{'sb'}: <input type="text" size="50" name="subject" /></label>
 </p>  </p>
 <p>$lt{'gmt'}:<br />  <p><label>$lt{'gmt'}:<br />
 <textarea name="message" id="message" cols="60" rows="10" wrap="hard" $textareaclass>$dismsg  <textarea name="message" id="message" cols="60" rows="10" wrap="hard" $textareaclass>$dismsg
 </textarea></p>  </textarea></label></p>
 <p>  <p>
 $lt{'tff'}:  $lt{'tff'}:
 ENDBLOCK  ENDBLOCK
Line 1838  sub recipient_input_row { Line 1840  sub recipient_input_row {
       &Apache::loncommon::selectstudent_link('compemail','recuname',        &Apache::loncommon::selectstudent_link('compemail','recuname',
                                              'recdomain');                                               'recdomain');
     my $output = <<"ENDREC";      my $output = <<"ENDREC";
 <tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> $lt{'us'}:&nbsp;<input type="text" size="12" name="recuname" value="$env{'form.recname'}" />&nbsp;$lt{'do'}:&nbsp;$domform&nbsp;&nbsp;$selectlink</span></td></tr>  <tr><td colspan="3"><span class="LC_nobreak"><b>$lt{'to'}</b> <label>$lt{'us'}:&nbsp;<input type="text" size="12" name="recuname" value="$env{'form.recname'}" /></label>&nbsp;<label>$lt{'do'}:&nbsp;$domform</label>&nbsp;&nbsp;$selectlink</span></td></tr>
 ENDREC  ENDREC
     return $output;      return $output;
 }  }
Line 1860  sub additional_rec_row { Line 1862  sub additional_rec_row {
     my $exmpl = &mt('username:domain,username:domain,...');       my $exmpl = &mt('username:domain,username:domain,...'); 
     my $output = <<"ENDADD";      my $output = <<"ENDADD";
 <tr><td colspan="3"><fieldset id="LC_additionalrecips"><legend>$lt->{'ad'} <tt>($exmpl)</tt></legend><table>  <tr><td colspan="3"><fieldset id="LC_additionalrecips"><legend>$lt->{'ad'} <tt>($exmpl)</tt></legend><table>
 <tr><td>&nbsp;</td><td>$lt->{'to'}</td><td><input type="text" size="50" name="additionalrec_to" /></td></tr>  <tr><td>&nbsp;</td><td><label for="additionalrec_to">$lt->{'to'}</label></td><td><input type="text" size="50" name="additionalrec_to" id="additionalrec_to" /></td></tr>
 <tr><td>&nbsp;</td><td>$cc</td><td><input type="text" size="50" name="additionalrec_cc" /></td></tr>   <tr><td>&nbsp;</td><td><label for="additionalrec_cc">$cc</label></td><td><input type="text" size="50" name="additionalrec_cc" id="additionalrec_cc" /></td></tr> 
 <tr><td>&nbsp;</td><td>$bcc</td><td><input type="text" size="50" name="additionalrec_bcc" /></td></tr></table></fieldset></td></tr>  <tr><td>&nbsp;</td><td><label for="additionalrec_bcc">$bcc</label></td><td><input type="text" size="50" name="additionalrec_bcc" id="additionalrec_bcc" /></td></tr></table></fieldset></td></tr>
 ENDADD  ENDADD
     return $output;      return $output;
 }  }
Line 1892  sub submit_button_row { Line 1894  sub submit_button_row {
   
 sub msg_subject_row {  sub msg_subject_row {
     my ($dissub,$lt,$subj_size,$extra) = @_;      my ($dissub,$lt,$subj_size,$extra) = @_;
     my $output = '<tr><td colspan="3"><b>'.$lt->{'sb'}.'</b>:&nbsp;<input type="text" size="'.      my $output = '<tr><td colspan="3"><label><b>'.$lt->{'sb'}.'</b>:&nbsp;<input type="text" size="'.
                  $subj_size.'" name="subject" value="'.$dissub.'" />'.$extra.                   $subj_size.'" name="subject" value="'.$dissub.'" /></label>'.$extra.
                  '</td></tr>';                   '</td></tr>';
     return $output;      return $output;
 }  }
Line 2756  sub header { Line 2758  sub header {
     $r->print(&Apache::loncommon::start_page('Messages',      $r->print(&Apache::loncommon::start_page('Messages',
   $extra));    $extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs
       (($title?$title:'Send and display messages')));        (($title?$title:'Send and display messages')).
                 '<div class="LC_landmark" role="main">');
 }  }
   
 # ---------------------------------------------------------------- Print header  # ---------------------------------------------------------------- Print header
Line 3622  sub handler { Line 3625  sub handler {
  &Apache::loncommunicate::menu($r);   &Apache::loncommunicate::menu($r);
  &disall($r,($folder?$folder:$dismode),$msgstatus);   &disall($r,($folder?$folder:$dismode),$msgstatus);
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
 # ================================================= Main program, reset counter  # ================================================= Main program, reset counter
Removed from v.1.202  
changed lines
  Added in v.1.203

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>