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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.153 and 1.154

version 1.153, 2010/06/06 02:40:30 version 1.154, 2010/08/07 19:23:51
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 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 1423  sub compout { Line 1419  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 1515  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 1625  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 1651  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 1671  $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 1698  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 1725  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);
 }  }
Removed from v.1.153  
changed lines
  Added in v.1.154

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