[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.7.2.1 and 1.95.2.7.2.2

version 1.95.2.7.2.1, 2022/01/01 17:40:20 version 1.95.2.7.2.2, 2023/01/23 05:30:44
Line 432  function setCloneDisplay(courseForm) { Line 432  function setCloneDisplay(courseForm) {
 END  END
 }  }
   
 sub processing_javascript {  
     return <<"END";  
 function hideProcessing() {  
     if (document.getElementById('processing')) {  
         document.getElementById('processing').style.display="none";  
     }  
 }  
   
 END  
 }  
   
 sub get_breadcrumbs {  sub get_breadcrumbs {
     my ($dom,$action,$state,$states,$trail) = @_;      my ($dom,$action,$state,$states,$trail) = @_;
     my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);      my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);
Line 721  sub onload_action { Line 710  sub onload_action {
         if ($state eq 'courseinfo') {          if ($state eq 'courseinfo') {
             $loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';              $loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';
         }          }
         if ($state eq 'process') {  
             $loaditems{'onload'} .= 'javascript:hideProcessing();';  
         }  
     }      }
     return \%loaditems;      return \%loaditems;
 }  }
Line 3824  sub process_request { Line 3810  sub process_request {
             foreach my $role (@roles) {              foreach my $role (@roles) {
                 $longroles{$role}=&Apache::lonnet::plaintext($role,$type);                  $longroles{$role}=&Apache::lonnet::plaintext($role,$type);
             }              }
             $r->print('<div id="processing" style="display:block;">'."\n".              my $preamble = '<div id="LC_update" class="LC_info">'.
                       &mt('Your request is being processed; this page will update when processing is complete.').                             '<br />'.
                       '</div>');                             &mt("Please be patient while your request is processed").
                              '<br /></div>'.
                              '<div style="padding:0;clear:both;margin:0;border:0"></div>';
                           my $closure = <<ENDCLOSE;
   <script type="text/javascript">
   // <![CDATA[
   \$("#LC_update").hide('slow');
   // ]]>
   </script>
   ENDCLOSE
               my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
               &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Processing ...'));
             $r->rflush();              $r->rflush();
             if (ref($details) eq 'HASH') {              if (ref($details) eq 'HASH') {
                 if ($details->{'clonecrs'}) {                  if ($details->{'clonecrs'}) {
Line 3851  sub process_request { Line 3848  sub process_request {
                                           'autocreate',$details,\$logmsg,$clonemsg,\$newusermsg,                                            'autocreate',$details,\$logmsg,$clonemsg,\$newusermsg,
                                           \$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,                                            \$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,
                                           \%longroles,\$code,\%customitems);                                            \%longroles,\$code,\%customitems);
               &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!'));
               &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
               $r->print($closure);
             if (ref($postprocess) eq 'HASH') {              if (ref($postprocess) eq 'HASH') {
                 $customized = $postprocess->{'createdcustomized'};                  $customized = $postprocess->{'createdcustomized'};
             }              }
Line 5086  sub process_textbook_request { Line 5086  sub process_textbook_request {
             undef($clonedom);              undef($clonedom);
         }          }
     }      }
     my $js = &processing_javascript();      $r->print(&header('Course Creation'));
     my $loaditems = {   
                       onload => 'javascript:hideProcessing();',  
                     };  
     $r->print(&header('Course Creation',$js,$loaditems));  
   
     if (ref($can_request) eq 'HASH') {      if (ref($can_request) eq 'HASH') {
         unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) {          unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) {
Removed from v.1.95.2.7.2.1  
changed lines
  Added in v.1.95.2.7.2.2

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