version 1.149, 2010/02/12 17:22:24
|
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 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 1257 ENDDISHEADER
|
Line 1253 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 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); |
} |
} |
Line 2009 sub facetoface {
|
Line 1999 sub facetoface {
|
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
.'<br />' |
.'<br />' |
.'<input type="submit" value="'.$lt{'subm'}.'" />' |
.'<input type="submit" value="'.$lt{'subm'}.'" />' |
|
.'</form>' |
); |
); |
|
|
if (($stage ne 'query') && |
if (($stage ne 'query') && |
Line 3184 sub sendoffmail {
|
Line 3175 sub sendoffmail {
|
my ($recuname,$recdomain)=split(/\:/,$address); |
my ($recuname,$recdomain)=split(/\:/,$address); |
my $msgtxt = $savemsg; |
my $msgtxt = $savemsg; |
if ($toaddr{$address}) { |
if ($toaddr{$address}) { |
$msgtxt.='<hr />'.$toaddr{$address}; |
$msgtxt.="\n".'<hr />'."\n".$toaddr{$address}; |
} |
} |
my @thismsg; |
my @thismsg; |
if ($msgtype eq 'critical') { |
if ($msgtype eq 'critical') { |
Line 3309 sub sendoffmail {
|
Line 3300 sub sendoffmail {
|
$r->print($message); |
$r->print($message); |
} |
} |
} |
} |
|
} else { |
|
&printheader($r,'','Messages cancelled.'); |
|
return 'cancelled'; |
} |
} |
return $sendstatus; |
return $sendstatus; |
} |
} |