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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.151 and 1.156

version 1.151, 2010/05/29 23:19:52 version 1.156, 2011/05/03 10:37:14
Line 1 Line 1
 # The LearningOnline Network with CAPA  # $textareaclass The LearningOnline Network with CAPA
 # Routines for messaging display  # Routines for messaging display
 #  #
 # $Id$  # $Id$
Line 225  function folder_choice(targetform,caller Line 225  function folder_choice(targetform,caller
    <table border="0" cellspacing="2" cellpadding="8">     <table border="0" cellspacing="2" cellpadding="8">
     <tr>      <tr>
      <td><b>'.$lt{'fold'}.'</b><br />'."\n".       <td><b>'.$lt{'fold'}.'</b><br />'."\n".
          &Apache::loncommon::select_form($folder,'folder',%formhash).'           &Apache::loncommon::select_form($folder,'folder',\%formhash).'
      </td>       </td>
      <td><b>'.$lt{'show'}.'</b><br />'."\n".       <td><b>'.$lt{'show'}.'</b><br />'."\n".
          &Apache::loncommon::select_form($env{'form.interdis'},'interdis',           &Apache::loncommon::select_form($env{'form.interdis'},'interdis',
  %show).'   \%show).'
      </td>       </td>
      <td><b>'.$lt{'status'}.'</b><br />'."\n".       <td><b>'.$lt{'status'}.'</b><br />'."\n".
        &Apache::loncommon::select_form($msgstatus,'msgstatus',%statushash).'         &Apache::loncommon::select_form($msgstatus,'msgstatus',\%statushash).'
      </td>       </td>
      <td><b>'.$lt{'actn'}.'</b><br />'."\n".'       <td><b>'.$lt{'actn'}.'</b><br />'."\n".'
          <span class="LC_nobreak">'.           <span class="LC_nobreak">'.
          &Apache::loncommon::select_form('view','folderaction',%actions).           &Apache::loncommon::select_form('view','folderaction',\%actions).
          ' <input type="button" value="'.$lt{'go'}.           ' <input type="button" value="'.$lt{'go'}.
          '" onclick="javascript:folder_choice(this.form,'."'change'".');" />           '" onclick="javascript:folder_choice(this.form,'."'change'".');" />
          </span>           </span>
Line 626  sub disgroup { Line 626  sub disgroup {
         return;          return;
     } else {      } else {
         $hasfloat = 1;          $hasfloat = 1;
         unless($env{'environment.wysiwygeditor'} eq 'on') {          $r->print('<div class="LC_left_float">');
             $r->print('<div class="LC_left_float">');  
         }  
         my %Sortby = (          my %Sortby = (
                          active   => {},                           active   => {},
                          previous => {},                           previous => {},
Line 701  sub disgroup { Line 699  sub disgroup {
                 }                  }
             }              }
         }          }
         unless($env{'environment.wysiwygeditor'} eq 'on') {          $r->print('</div>');
             $r->print('</div>');  
         }  
     }      }
     return $hasfloat;      return $hasfloat;
 }  }
Line 818  sub discrit { Line 814  sub discrit {
     foreach my $key (sort(keys(%what))) {      foreach my $key (sort(keys(%what))) {
         my %content=&Apache::lonmsg::unpackagemsg($what{$key});          my %content=&Apache::lonmsg::unpackagemsg($what{$key});
         next if ($content{'senderdomain'} eq '');          next if ($content{'senderdomain'} eq '');
           my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
         $result .= &Apache::lonhtmlcommon::start_pick_box()          $result .= &Apache::lonhtmlcommon::start_pick_box()
                   .&Apache::lonhtmlcommon::row_title(&mt('From'),undef,'LC_oddrow_value')                    .&Apache::lonhtmlcommon::row_title(&mt('From'),undef,'LC_oddrow_value')
                   .'<b>'.&Apache::loncommon::aboutmewrapper(                    .'<b>'.&Apache::loncommon::aboutmewrapper(
Line 829  sub discrit { Line 826  sub discrit {
                   .&Apache::lonhtmlcommon::row_closure(1)                    .&Apache::lonhtmlcommon::row_closure(1)
                   .&Apache::lonhtmlcommon::row_title(&mt('Subject'),undef,'LC_oddrow_value')                    .&Apache::lonhtmlcommon::row_title(&mt('Subject'),undef,'LC_oddrow_value')
                   .$content{'subject'}                    .$content{'subject'}
                   .&Apache::lonhtmlcommon::row_closure(1)                    .&Apache::lonhtmlcommon::row_closure(1);
                   .&Apache::lonhtmlcommon::row_title(&mt('Message'),undef,'LC_evenrow_value')          if ($courseinfo{'description'}) {
               $result .= &Apache::lonhtmlcommon::row_title(&mt('Course'),undef,'LC_oddrow_value')
                         .$courseinfo{'description'}
                         .&Apache::lonhtmlcommon::row_closure(1);
           }
           $result .= &Apache::lonhtmlcommon::row_title(&mt('Message'),undef,'LC_evenrow_value')
                   .'<pre>'.&Apache::lontexconvert::msgtexconverted($content{'message'}).'</pre>'                    .'<pre>'.&Apache::lontexconvert::msgtexconverted($content{'message'}).'</pre>'
                   .&Apache::lonhtmlcommon::row_closure()                    .&Apache::lonhtmlcommon::row_closure()
                   .&Apache::lonhtmlcommon::row_title('',undef,'LC_oddrow_value')                    .&Apache::lonhtmlcommon::row_title('',undef,'LC_oddrow_value')
Line 1257  ENDDISHEADER Line 1259  ENDDISHEADER
             $userfolders{$key} = $key;              $userfolders{$key} = $key;
         }          }
         $userfolders{''} = "";          $userfolders{''} = "";
         $r->print(&Apache::loncommon::select_form('','movetofolder',%userfolders).          $r->print(&Apache::loncommon::select_form('','movetofolder',\%userfolders).
                   '</td>');                    '</td>');
     }      }
     $r->print('<td>'.      $r->print('<td>'.
Line 1423  sub compout { Line 1425  sub compout {
         if ($group eq '') {          if ($group eq '') {
             my $studentsel = &discourse(\%access_status);              my $studentsel = &discourse(\%access_status);
             if ($studentsel) {              if ($studentsel) {
                 if ($env{'environment.wysiwygeditor'} eq 'on') {                  $r->print('<div class="LC_left_float">'.$studentsel.'</div>');
                     $r->print($studentsel);  
                 } else {  
                     $r->print('<div class="LC_left_float">'.$studentsel.'</div>');  
                 }  
                 $hasfloat = 1;                  $hasfloat = 1;
             }              }
         } else {          } else {
Line 1523  ENDREPSCRIPT Line 1521  ENDREPSCRIPT
     if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }      if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
     if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }      if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
     if ($hasfloat) {      if ($hasfloat) {
         if ($env{'environment.wysiwygeditor'} eq 'on') {          $r->print($broadcast_js.'<div class="LC_left_float">');
             $r->print($broadcast_js);  
         } else {  
             $r->print($broadcast_js.'<div class="LC_left_float">');  
         }  
         $onsubmit = ' onsubmit="javascript:courseRecipients();" ';          $onsubmit = ' onsubmit="javascript:courseRecipients();" ';
     }      }
     $r->print(      $r->print(
Line 1637  ENDREPSCRIPT Line 1631  ENDREPSCRIPT
         }          }
     }      }
     my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(undef,undef,1);      my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(undef,undef,1);
     my $wysiwyglink=&Apache::lonhtmlcommon::htmlareaselectactive('message').'<br />';      my $textareaclass;
       if (&Apache::lonhtmlcommon::htmlareabrowser()) {
           $r->print(&Apache::lonhtmlcommon::htmlareaselectactive());
           $textareaclass = 'class="LC_richDefaultOff"';
       }
     my $subj_size;      my $subj_size;
     if ($multiforward) {      if ($multiforward) {
         $r->print(&additional_rec_row(\%lt));          $r->print(&additional_rec_row(\%lt));
Line 1659  ENDREPSCRIPT Line 1657  ENDREPSCRIPT
 <tr><td align="left">'."\n".  <tr><td align="left">'."\n".
 $latexHelp."<br />\n".  $latexHelp."<br />\n".
 &mt("Any new text to display before the text of the original messages:").'<br />'."\n".  &mt("Any new text to display before the text of the original messages:").'<br />'."\n".
 '<textarea name="message" id="message" cols="80" rows="5" wrap="hard"></textarea>'.  '<textarea name="message" id="message" cols="80" rows="5" wrap="hard" $textareaclass></textarea>');
 $wysiwyglink);  
         my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');          my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
         foreach my $msg (@to_forward) {          foreach my $msg (@to_forward) {
             $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');              $r->print('<input type="hidden" name="delmark" value="'.$msg.'" />');
Line 1680  $wysiwyglink); Line 1677  $wysiwyglink);
 $attachrow  $attachrow
 </table><br />  </table><br />
 $latexHelp<br />  $latexHelp<br />
 <textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg  <textarea name="message" id="message" cols="80" rows="15" wrap="hard" $textareaclass>$dismsg
 </textarea>$wysiwyglink  </textarea>
   <br />
 $sendmode  $sendmode
 $dispcrit  $dispcrit
 $disbase  $disbase
Line 1706  ENDCOMP Line 1704  ENDCOMP
 Subject: <input type="text" size="50" name="subject" />  Subject: <input type="text" size="50" name="subject" />
 </p>  </p>
 <p>$lt{'gmt'}:<br />  <p>$lt{'gmt'}:<br />
 <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg  <textarea name="message" id="message" cols="60" rows="10" wrap="hard" $textareaclass>$dismsg
 </textarea>$wysiwyglink</p>  </textarea></p>
 <p>  <p>
 $lt{'tff'}:  $lt{'tff'}:
 ENDBLOCK  ENDBLOCK
Line 1733  ENDUPLOAD Line 1731  ENDUPLOAD
     }      }
     $r->print('</form>');      $r->print('</form>');
     if ($hasfloat) {      if ($hasfloat) {
         unless($env{'environment.wysiwygeditor'} eq 'on') {          $r->print('</div><div class="LC_clear_float_footer"></div>');
             $r->print('</div><div class="LC_clear_float_footer"></div>');  
         }  
     }      }
     $r->print(&generate_preview_form);      $r->print(&generate_preview_form);
 }  }
Line 2656  sub displaymessage { Line 2652  sub displaymessage {
             }              }
             if ($content{'group'} ne '') {              if ($content{'group'} ne '') {
                 if (&check_group_priv($content{'group'})) {                  if (&check_group_priv($content{'group'})) {
                     $groupcclist = join(', ',@{$recipients{'group_cc_broadcast'}});                      if (ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') { 
                     if ($groupcclist) {                          $groupcclist = join(', ',@{$recipients{'group_cc_broadcast'}});
                         $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group Cc'))                          if ($groupcclist) {
                                  .$groupcclist                              $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group Cc'))
                                  .&Apache::lonhtmlcommon::row_closure()                                       .$groupcclist
                         );                                       .&Apache::lonhtmlcommon::row_closure()
                               );
                           }
                     }                      }
                 }                  }
             }              }
Line 3310  sub sendoffmail { Line 3308  sub sendoffmail {
                 $r->print($message);                  $r->print($message);
             }              }
         }          }
       } else {
           &printheader($r,'','Messages cancelled.');
           return 'cancelled';
     }      }
     return $sendstatus;      return $sendstatus;
 }  }
Removed from v.1.151  
changed lines
  Added in v.1.156

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