version 1.13, 2006/03/16 20:13:06
|
version 1.14, 2006/03/16 20:27:26
|
Line 58 sub handler {
|
Line 58 sub handler {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
|
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
my $loadcode; |
|
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
if ((defined($env{'form.origin'})) && ($command eq 'compose' || $command eq 'pick_target' || $command eq 'pick_display')) { |
|
unless ($env{'form.origin'} eq '') { |
|
$loadcode = 'javascript:setFormElements(document.'.$env{'form.command'}.')'; |
|
if (($command eq 'pick_target') && ( |
|
($origin eq 'compose') || ($origin eq 'process'))) { |
|
if ($env{'form.coursepick'} eq 'category') { |
|
$loadcode .= ';javascript:setCourseCat(document.'.$env{'form.command'}.')'; |
|
} |
|
} |
|
} |
|
} |
|
my $loaditems = ' onLoad="'.$loadcode.'" '; |
|
my $bodytag = &Apache::loncommon::bodytag('Broadcast e-mail to users',$function,$loaditems); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/notify', |
({href=>'/adm/notify', |
text=>"Broadcast E-mail"}); |
text=>"Broadcast E-mail"}); |
if ($command eq 'process') { |
if ($command eq 'process') { |
&print_request_receipt($r,$command,$cdom,$tablecolor,$bodytag); |
&print_request_receipt($r,$command,$cdom,$tablecolor); |
} elsif ($command eq 'compose') { |
} elsif ($command eq 'compose') { |
&print_composition_form($r,$command,$cdom,$tablecolor,$bodytag); |
&print_composition_form($r,$command,$cdom,$tablecolor); |
} elsif ($command eq 'pick_target') { |
} elsif ($command eq 'pick_target') { |
&print_selection_form($r,$command,$cdom,$tablecolor,$bodytag); |
&print_selection_form($r,$command,$cdom,$tablecolor); |
} elsif ($command eq 'pick_display') { |
} elsif ($command eq 'pick_display') { |
&print_display_option_form($r,$command,$cdom,$tablecolor,$bodytag); |
&print_display_option_form($r,$command,$cdom,$tablecolor); |
} elsif ($command eq 'display') { |
} elsif ($command eq 'display') { |
&print_display($r,$command,$cdom,$tablecolor,$bodytag); |
&print_display($r,$command,$cdom,$tablecolor); |
} else { |
} else { |
&print_front_page($r,'front',$cdom,$tablecolor,$bodytag); |
&print_front_page($r,'front',$cdom,$tablecolor); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 98 sub add_script {
|
Line 85 sub add_script {
|
} |
} |
|
|
sub start_page { |
sub start_page { |
my ($jscript,$bodytag,$bread_title,$formname) = @_; |
my ($jscript,$bread_title,$formname) = @_; |
|
|
my $html = &Apache::lonxml::xmlbegin(); |
my $html = &Apache::lonxml::xmlbegin(); |
|
|
my $head = &Apache::loncommon::head('Notification E-mail',$jscript); |
my $head = &Apache::loncommon::head('Notification E-mail',$jscript); |
|
|
|
my $loadcode; |
|
if ((defined($env{'form.origin'})) |
|
&& ($env{'form.command'} eq 'compose' |
|
|| $env{'form.command'} eq 'pick_target' |
|
|| $env{'form.command'} eq 'pick_display')) { |
|
if ($env{'form.origin'} ne '') { |
|
$loadcode = 'javascript:setFormElements(document.'.$env{'form.command'}.')'; |
|
if (($env{'form.command'} eq 'pick_target') |
|
&& (($env{'form.origin'} eq 'compose') |
|
|| ($env{'form.origin'} eq 'process'))) { |
|
if ($env{'form.coursepick'} eq 'category') { |
|
$loadcode .= ';javascript:setCourseCat(document.'.$env{'form.command'}.')'; |
|
} |
|
} |
|
} |
|
} |
|
|
|
$loadcode = ' onLoad="'.$loadcode.'" '; |
|
my $bodytag = |
|
&Apache::loncommon::bodytag('Broadcast e-mail to users', undef, |
|
$loadcode); |
|
|
my $breadcrumbs = |
my $breadcrumbs = |
&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title, |
&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title, |
'Broadcast_system_email'); |
'Broadcast_system_email'); |
Line 124 sub end_page {
|
Line 133 sub end_page {
|
} |
} |
|
|
sub print_front_page { |
sub print_front_page { |
my ($r,$formname,$cdom,$tablecolor,$bodytag) = @_; |
my ($r,$formname,$cdom,$tablecolor) = @_; |
|
|
my $jscript = qq| |
my $jscript = qq| |
function next_page(caller) { |
function next_page(caller) { |
Line 138 function next_page(caller) {
|
Line 147 function next_page(caller) {
|
} |
} |
|; |
|; |
|
|
my $output = &start_page(&add_script($jscript), $bodytag, |
my $output = &start_page(&add_script($jscript), |
'Broadcast e-mail to Domain', $formname); |
'Broadcast e-mail to Domain', $formname); |
|
|
$output .= '<input type="hidden" name="command" />'; |
$output .= '<input type="hidden" name="command" />'; |
Line 157 function next_page(caller) {
|
Line 166 function next_page(caller) {
|
} |
} |
|
|
sub print_display_option_form { |
sub print_display_option_form { |
my ($r,$formname,$cdom,$tablecolor,$bodytag) = @_; |
my ($r,$formname,$cdom,$tablecolor) = @_; |
&Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); |
&Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); |
|
|
my $table_width = ''; |
my $table_width = ''; |
Line 190 sub print_display_option_form {
|
Line 199 sub print_display_option_form {
|
); |
); |
my $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements); |
my $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements); |
|
|
my $output = &start_page(&add_script($jscript), $bodytag, |
my $output = &start_page(&add_script($jscript), |
'Broadcast e-mail display options', $formname); |
'Broadcast e-mail display options', $formname); |
|
|
$output .= &Apache::lonhtmlcommon::start_pick_box($table_width); |
$output .= &Apache::lonhtmlcommon::start_pick_box($table_width); |
Line 225 sub print_display_option_form {
|
Line 234 sub print_display_option_form {
|
} |
} |
|
|
sub print_display { |
sub print_display { |
my ($r,$formname,$cdom,$tablecolor,$bodytag) = @_; |
my ($r,$formname,$cdom,$tablecolor) = @_; |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:goBack('pick_display')", |
({href=>"javascript:goBack('pick_display')", |
text=>"Display options"}, |
text=>"Display options"}, |
Line 256 function goBack(target) {
|
Line 265 function goBack(target) {
|
|
|
ENDSCRIPT |
ENDSCRIPT |
|
|
my $output = &start_page(&add_script($jscript), $bodytag, |
my $output = &start_page(&add_script($jscript), |
'Display Broadcast e-mail', $formname); |
'Display Broadcast e-mail', $formname); |
|
|
foreach my $msgid (keys(%sentmail)) { |
foreach my $msgid (keys(%sentmail)) { |
Line 371 ENDSCRIPT
|
Line 380 ENDSCRIPT
|
} |
} |
|
|
sub print_selection_form { |
sub print_selection_form { |
my ($r,$formname,$cdom,$tablecolor,$bodytag) = @_; |
my ($r,$formname,$cdom,$tablecolor) = @_; |
my %coursecodes = (); |
my %coursecodes = (); |
my %codes = (); |
my %codes = (); |
my @codetitles = (); |
my @codetitles = (); |
Line 457 function setCourseCat(formname) {
|
Line 466 function setCourseCat(formname) {
|
|
|
|
|
my $output = &start_page(&add_script($jscript).$cb_jscript, |
my $output = &start_page(&add_script($jscript).$cb_jscript, |
$bodytag, 'Choose e-mail audience', $formname); |
'Choose e-mail audience', $formname); |
|
|
$output .= &Apache::lonhtmlcommon::start_pick_box($table_width); |
$output .= &Apache::lonhtmlcommon::start_pick_box($table_width); |
my @roles = ('ow','cc','in','ta','ep','st','cr'); |
my @roles = ('ow','cc','in','ta','ep','st','cr'); |
Line 483 function setCourseCat(formname) {
|
Line 492 function setCourseCat(formname) {
|
} |
} |
|
|
sub print_composition_form { |
sub print_composition_form { |
my ($r,$formname,$cdom,$tablecolor,$bodytag) = @_; |
my ($r,$formname,$cdom,$tablecolor) = @_; |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:goBack('pick_target')", |
({href=>"javascript:goBack('pick_target')", |
text=>"Select Audience"}, |
text=>"Select Audience"}, |
Line 508 function goBack(target) {
|
Line 517 function goBack(target) {
|
); |
); |
$jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); |
$jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); |
|
|
$r->print(&start_page(&add_script($jscript), $bodytag, |
$r->print(&start_page(&add_script($jscript), |
'Broadcast e-mail to users', $formname)); |
'Broadcast e-mail to users', $formname)); |
|
|
my $coursefilter = $env{'form.coursepick'}; |
my $coursefilter = $env{'form.coursepick'}; |
Line 657 function goBack(target) {
|
Line 666 function goBack(target) {
|
|
|
|
|
sub print_request_receipt { |
sub print_request_receipt { |
my ($r,$formname,$dom,$tablecolor,$bodytag) =@_; |
my ($r,$formname,$dom,$tablecolor) =@_; |
my @recipients = &Apache::loncommon::get_env_multiple('form.recipient'); |
my @recipients = &Apache::loncommon::get_env_multiple('form.recipient'); |
my $subject = $env{'form.subject'}; |
my $subject = $env{'form.subject'}; |
my $message = $env{'form.message'}; |
my $message = $env{'form.message'}; |
Line 680 ENDSCRIPT
|
Line 689 ENDSCRIPT
|
text=>"Outcome"}); |
text=>"Outcome"}); |
|
|
|
|
my $output = &start_page(&add_script($jscript), $bodytag, |
my $output = &start_page(&add_script($jscript), 'E-mail Delivery', |
'E-mail Delivery', $formname); |
$formname); |
|
|
$output .= &Apache::lonhtmlcommon::start_pick_box(); |
$output .= &Apache::lonhtmlcommon::start_pick_box(); |
my @deliveries = (); |
my @deliveries = (); |