[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.2.2.1 and 1.95.2.5.2.1

version 1.95.2.2.2.1, 2020/07/17 20:39:55 version 1.95.2.5.2.1, 2020/07/20 11:30:21
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 3257  sub coursecode_form { Line 3265  sub coursecode_form {
         }          }
         if (@{$codetitles} > 0) {          if (@{$codetitles} > 0) {
             my $lastitem = pop(@{$codetitles});              my $lastitem = pop(@{$codetitles});
             my $lastinput = '<input type="text" size="5" name="'.$sel.'_'.                                            $lastitem.'" />';              my $lastinput = '<input type="text" size="5" name="'.$sel.'_'.$lastitem.'" />';
             if (@{$codetitles} > 0) {              if (@{$codetitles} > 0) {
                 my $helplink;                  my $helplink;
                 if (defined($helpitem{$context})) {                  if (defined($helpitem{$context})) {
Line 3891  sub process_request { Line 3899  sub process_request {
                     $output .= '</p>'."\n";                      $output .= '</p>'."\n";
                 }                  }
                 $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 4026  sub process_request { Line 4052  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 4334  sub pending_validation_form { Line 4376  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".
Line 4412  sub retrieve_settings { Line 4455  sub retrieve_settings {
             }              }
             $env{'form.datemode'} = $reqinfo{'datemode'};              $env{'form.datemode'} = $reqinfo{'datemode'};
             $env{'form.dateshift'} = $reqinfo{'dateshift'};              $env{'form.dateshift'} = $reqinfo{'dateshift'};
             $env{'form.tinyurls'} = $reqinfo{'tinyurls'};              $env{'form.tinyurls'} = $reqinfo{'tinyurls'}; 
             if ($reqinfo{'crstype'} eq 'official') {              if ($reqinfo{'crstype'} eq 'official') {
                 $env{'form.autoadds'} = $reqinfo{'autoadds'};                  $env{'form.autoadds'} = $reqinfo{'autoadds'};
                 $env{'form.autodrops'} = $reqinfo{'autodrops'};                  $env{'form.autodrops'} = $reqinfo{'autodrops'};
Removed from v.1.95.2.2.2.1  
changed lines
  Added in v.1.95.2.5.2.1

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