version 1.105, 2008/12/16 22:57:31
|
version 1.109, 2009/01/12 04:11:25
|
Line 1520 ENDREPSCRIPT
|
Line 1520 ENDREPSCRIPT
|
$r->print(&recipient_input_row($defdom,%lt)); |
$r->print(&recipient_input_row($defdom,%lt)); |
} |
} |
} |
} |
my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = &Apache::loncommon::helpLatexCheatsheet(undef,undef,1); |
my $wysiwyglink=&Apache::lonhtmlcommon::htmlareaselectactive('message').'<br />'; |
my $wysiwyglink=&Apache::lonhtmlcommon::htmlareaselectactive('message').'<br />'; |
my $subj_size; |
my $subj_size; |
if ($multiforward) { |
if ($multiforward) { |
Line 1813 $content{'sendername'}.':'.
|
Line 1813 $content{'sendername'}.':'.
|
} |
} |
# Check to see if there were any messages. |
# Check to see if there were any messages. |
if ($result eq '') { |
if ($result eq '') { |
my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = &mt(lc(&Apache::loncommon::course_type())); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>"); |
$r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>"); |
} else { |
} else { |
Line 2377 sub displaymessage {
|
Line 2377 sub displaymessage {
|
$bcclist = join(', ',@{$recipients{'bcc'}}); |
$bcclist = join(', ',@{$recipients{'bcc'}}); |
} |
} |
} |
} |
if (!$tolist && ref($content{'recuser'}) eq 'ARRAY') { |
|
|
my $broadcast_link; |
|
if (($content{'courseid'}) && ($content{'recipid'} && |
|
(ref($recipients{'course_broadcast'}) eq 'ARRAY') || |
|
(ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') || |
|
(ref($recipients{'group_bcc_broadcast'}) eq 'ARRAY'))) { |
|
$broadcast_link = &recipients_link($r,\%content,\%recipients); |
|
} |
|
|
|
if (((!$tolist) && (!$broadcast_link)) && ref($content{'recuser'}) eq 'ARRAY') { |
my @recipients; |
my @recipients; |
for (my $i=0; $i<@{$content{'recuser'}}; $i++) { |
for (my $i=0; $i<@{$content{'recuser'}}; $i++) { |
$recipients[$i] = &Apache::loncommon::aboutmewrapper( |
$recipients[$i] = &Apache::loncommon::aboutmewrapper( |
Line 2404 sub displaymessage {
|
Line 2413 sub displaymessage {
|
$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}).'</br>'); |
$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}).'</br>'); |
} |
} |
|
|
my $broadcast_link; |
|
if (($content{'courseid'}) && ($content{'recipid'} && |
|
(ref($recipients{'course_broadcast'}) eq 'ARRAY') || |
|
(ref($recipients{'group_cc_broadcast'}) eq 'ARRAY') || |
|
(ref($recipients{'group_bcc_broadcast'}) eq 'ARRAY'))) { |
|
$broadcast_link = &recipients_link($r,\%content,\%recipients); |
|
} |
|
|
|
# Display LON-CAPA Message (Start) |
# Display LON-CAPA Message (Start) |
# Subject |
# Subject |
$r->print('</div>' |
$r->print('</div>' |
Line 2422 sub displaymessage {
|
Line 2423 sub displaymessage {
|
); |
); |
if ($folder eq 'sent') { |
if ($folder eq 'sent') { |
# To |
# To |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('To')) |
if ($tolist) { |
.$tolist |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('To')) |
.&Apache::lonhtmlcommon::row_closure() |
.$tolist |
); |
.&Apache::lonhtmlcommon::row_closure() |
|
); |
|
} |
if ($cclist) { |
if ($cclist) { |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc')) |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Cc')) |
.$cclist |
.$cclist |
Line 2679 sub recipients_link {
|
Line 2682 sub recipients_link {
|
$nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
$nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
$height = 400; |
$height = 400; |
$width = 600; |
$width = 600; |
my $start_page = |
$start_page = |
&Apache::loncommon::start_page('Broadcast List', undef, |
&Apache::loncommon::start_page('Broadcast List', undef, |
{only_body => 1, |
{only_body => 1, |
js_ready => 1,}); |
js_ready => 1,}); |
my $end_page = &Apache::loncommon::end_page({js_ready => 1,}); |
$end_page = &Apache::loncommon::end_page({js_ready => 1,}); |
my $body = '<h3>'.&mt("Recipients of broadcast message").'</h3>'. |
$body = '<h3>'.&mt("Recipients of broadcast message").'</h3>'. |
&Apache::loncommon::start_data_table(); |
&Apache::loncommon::start_data_table(); |
my $cell = 0; |
my $cell = 0; |
$body .= &Apache::loncommon::start_data_table_row(); |
$body .= &Apache::loncommon::start_data_table_row(); |
foreach my $item (@{$recipients->{$show.'_broadcast'}}) { |
foreach my $item (@{$recipients->{$show.'_broadcast'}}) { |