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

Diff for /loncom/interface/lonnotify.pm between versions 1.13 and 1.14

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 = ();
Removed from v.1.13  
changed lines
  Added in v.1.14

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