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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.95.2.3 and 1.95.2.4

version 1.95.2.3, 2018/09/02 01:16:59 version 1.95.2.4, 2019/07/26 17:57:12
Line 119  use Apache::loncoursequeueadmin; Line 119  use Apache::loncoursequeueadmin;
 use Apache::lonuserutils;  use Apache::lonuserutils;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
   my $registered_flush;
   my $registered_instcats;
   my $modified_dom;
   
 sub handler {  sub handler {
     my ($r) = @_;      my ($r) = @_;
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
Line 127  sub handler { Line 131  sub handler {
         return OK;          return OK;
     }      }
   
       $registered_flush = 0;
       $registered_instcats = 0;
       $modified_dom = '';
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['action','showdom','cnum','state','crstype','queue','tabs']);          ['action','showdom','cnum','state','crstype','queue','tabs']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 3846  sub process_request { Line 3854  sub process_request {
                 }                  }
                 $output .= '</p>';                  $output .= '</p>';
                 $creationresult = 'created';                  $creationresult = 'created';
                   # Flush the course logs so reverse user roles immediately updated
                   unless ($registered_flush) {
                       my $handlers = $r->get_handlers('PerlCleanupHandler');
                       $r->set_handlers('PerlCleanupHandler' => [\&Apache::lonnet::flushcourselogs,@{$handlers}]);
                       $registered_flush=1;
                   }
                   if ($instcode ne '') {
                       &Apache::lonnet::devalidate_cache_new('instcats',$dom);
                       # Update cache of self-cataloging courses on institution's server(s).
                       if (&Apache::lonnet::shared_institution($dom)) {
                           unless ($registered_instcats) {
                               my $handlers = $r->get_handlers('PerlCleanupHandler');
                               $r->set_handlers('PerlCleanupHandler' => [\&devalidate_remote_instcats,@{$handlers}]);
                               $registered_instcats=1;
                               $modified_dom = $dom;
                           }
                       }
                   }
             } else {              } else {
                 $output = '<span class="LC_error">';                  $output = '<span class="LC_error">';
                 if ($crstype eq 'community') {                  if ($crstype eq 'community') {
Line 3981  sub process_request { Line 4007  sub process_request {
     }      }
 }  }
   
   sub devalidate_remote_instcats {
       if ($modified_dom ne '') {
           my %servers = &Apache::lonnet::internet_dom_servers($modified_dom);
           my %thismachine;
           map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
           if (keys(%servers)) {
               foreach my $server (keys(%servers)) {
                   next if ($thismachine{$server});
                   &Apache::lonnet::remote_devalidate_cache($server,['instcats:'.$modified_dom]);
               }
           }
           $modified_dom = '';
       }
       return;
   }
   
 sub custom_formitems {  sub custom_formitems {
     my ($preprocess,$customhash) = @_;      my ($preprocess,$customhash) = @_;
     return unless ((ref($preprocess) eq 'HASH') && (ref($customhash) eq 'HASH'));        return unless ((ref($preprocess) eq 'HASH') && (ref($customhash) eq 'HASH'));  
Line 4289  sub pending_validation_form { Line 4331  sub pending_validation_form {
                         $buttontext = &mt('Create course');                          $buttontext = &mt('Create course');
                     }                      }
                 }                  }
                   my $hostname = &Apache::lonnet::hostname($lonhost);
                 my $protocol = $Apache::lonnet::protocol{$lonhost};                  my $protocol = $Apache::lonnet::protocol{$lonhost};
                 $protocol = 'http' if ($protocol ne 'https');                  $protocol = 'http' if ($protocol ne 'https');
                 my $crscreator = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/createpending.pl';                  my $crscreator = $protocol.'://'.$hostname.'/cgi-bin/createpending.pl';
                 $output .= '<input type="hidden" name="crscreator" value="'.$crscreator.'" />'."\n".                  $output .= '<input type="hidden" name="crscreator" value="'.$crscreator.'" />'."\n".
                            '<input type="hidden" name="token" value="'.$token.'" />'."\n".                             '<input type="hidden" name="token" value="'.$token.'" />'."\n".
                            '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".                             '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".
Removed from v.1.95.2.3  
changed lines
  Added in v.1.95.2.4

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