[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.49.2.11.2.3 and 1.79

version 1.49.2.11.2.3, 2023/01/21 23:25:16 version 1.79, 2022/08/30 11:41:27
Line 38  use Apache::loncommon(); Line 38  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonextresedit();  use Apache::lonextresedit();
 use Apache::lonexttool();  use Apache::lonexttool();
   use Apache::lonhomework();
 use Apache::lonnavmaps();  use Apache::lonnavmaps();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities();  use HTML::Entities();
Line 46  use Digest::MD5(); Line 47  use Digest::MD5();
 # ================================================================ Main Handler  # ================================================================ Main Handler
 sub wrapper {  sub wrapper {
     my ($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$linktext,$explanation,      my ($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$linktext,$explanation,
         $title,$width,$height,$reuse,$is_supp) = @_;          $title,$width,$height,$reuse) = @_;
   
     my $forcereg;      my $forcereg;
     unless ($env{'form.folderpath'}) {      unless ($env{'form.folderpath'}) {
         $forcereg = 1;          $forcereg = 1;
     }      }
   
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                           'noif' => 'No iframe support.',                                            'noif' => 'No iframe support.',
                                           'show' => 'Show content in pop-up window',                                            'show' => 'Show content in pop-up window',
Line 97  sub wrapper { Line 97  sub wrapper {
         $args->{'only_body'} = $env{'form.only_body'};          $args->{'only_body'} = $env{'form.only_body'};
     }      }
   
     my $headjs;      my ($countdown,$donemsg,$headjs);
       if (($exttool) && (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i)) {
           $Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$url);
           if ($env{'form.markaccess'}) {
               my $symb=&Apache::lonnet::symbread($url);
               my @interval=&Apache::lonnet::EXT('resource.0.interval',$symb);
               my ($timelimit) = split(/_/,$interval[0]);
               my $setres = &Apache::lonnet::set_first_access($interval[1],$timelimit);
               if ($setres eq 'ok') {
                   delete($env{'form.markaccess'});
               }
           } elsif ($env{'form.LC_interval_done'} eq 'true') {
               my $symb=&Apache::lonnet::symbread($url);
               if ($symb) {
                   (my $donebuttonresult,$donemsg) = &Apache::lonhomework::zero_timer($symb);
                   undef($env{'form.LC_interval_done'});
                   undef($env{'form.LC_interval_done_proctorpass'});
               }
           }
           my ($status,$result,$resource_due) =
               &Apache::lonexttool::gradabletool_access_check();
           undef($Apache::lonhomework::browse);
           if ($status eq 'CAN_ANSWER') {
               if ($resource_due) {
                   my $time_left = $resource_due - time();
                   if ($resource_due && ($time_left > 0)) {
                       $countdown ='
   <script type="text/javascript">
   // <![CDATA['."\n".
                                &Apache::lonhtmlcommon::countdown().'
   // ]]>
   </script>'."\n".
                       &Apache::lonhtmlcommon::set_due_date($resource_due);
                   }
               }
           } else {
               if ($status eq 'SHOW_ANSWER') {
                   $result = &Apache::lonexttool::display_score().
                             &Apache::lonfeedback::list_discussion('tool','OPEN');
               }
               return &Apache::loncommon::start_page('Menu',undef,$args).
                      $result.
                      &Apache::loncommon::end_page();
           }
       }
   
 #  #
 # Where iframe is in use, if window.onload() executes before the custom resize function  # Where iframe is in use, if window.onload() executes before the custom resize function
Line 116  var LCresizedef = 0; Line 160  var LCresizedef = 0;
 </script>'."\n";  </script>'."\n";
     }      }
   
     my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args);      my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args).$countdown.$donemsg;
     my $endpage = &Apache::loncommon::end_page();      my $endpage = &Apache::loncommon::end_page();
   
     if (($uselink) && ($title eq '')) {      if (($uselink) && ($title eq '')) {
         if ($env{'form.symb'}) {          if ($env{'form.symb'}) {
             $title=&Apache::lonnet::gettitle($env{'form.symb'});              $title=&Apache::lonnet::gettitle($env{'form.symb'});
         } elsif (!$is_supp) {          } else {
             my $symb=&Apache::lonnet::symbread($r->uri);              my $symb=&Apache::lonnet::symbread($r->uri);
             if ($symb) {              if ($symb) {
                 $title=&Apache::lonnet::gettitle($symb);                  $title=&Apache::lonnet::gettitle($symb);
Line 181  var LCresizedef = 0; Line 225  var LCresizedef = 0;
                     unless ($reuse) {                      unless ($reuse) {
                         my $resid;                          my $resid;
                         if ($env{'request.course.id'}) {                          if ($env{'request.course.id'}) {
                             unless (($is_supp) || ($env{'form.folderpath'} =~ /^supplemental/)) {                              unless ($env{'form.folderpath'} =~ /^supplemental/) {
                                 my $symb=&Apache::lonnet::symbread($r->uri);                                  my $symb=&Apache::lonnet::symbread($r->uri);
                                 if ($symb) {                                  if ($symb) {
                                     my $navmap = Apache::lonnavmaps::navmap->new();                                      my $navmap = Apache::lonnavmaps::navmap->new();
Line 233  ENDLINK Line 277  ENDLINK
                 if ($explanation ne '') {                  if ($explanation ne '') {
                     $output .= '<div>'.$explanation.'</div>';                      $output .= '<div>'.$explanation.'</div>';
                 }                  }
                   if (&Apache::lonnet::EXT('resource.0.gradable')) {
                       $output .= &Apache::lonfeedback::list_discussion('tool','OPEN');
                   }
             }              }
         } else {          } else {
             if ($uselink) {              if ($uselink) {
Line 287  ENDLINK Line 334  ENDLINK
             }              }
         });          });
         window.onload = function(){          window.onload = function(){
             if (LCresizedef) {               if (LCresizedef) {
                 LCnotready = 0;                   LCnotready = 0;
                 \$(window).trigger('resize');                   \$(window).trigger('resize');
             } else {               } else {
                 LCnotready = 1;                   LCnotready = 1;
             }               }
         };          };
 SCRIPT  SCRIPT
         # javascript will position the iframe if window was resized (or zoomed)          # javascript will position the iframe if window was resized (or zoomed)
Line 337  sub handler { Line 384  sub handler {
   
     my $url = $r->uri;      my $url = $r->uri;
     my ($is_ext,$brcrum,$absolute,$is_pdf,$exttool,$cdom,$cnum,$hostname,      my ($is_ext,$brcrum,$absolute,$is_pdf,$exttool,$cdom,$cnum,$hostname,
         $linktext,$explanation,$width,$height,$reuse,$is_supp);          $linktext,$explanation,$width,$height,$reuse);
   
     for ($url){      for ($url){
         s|^/adm/wrapper||;          s|^/adm/wrapper||;
Line 413  sub handler { Line 460  sub handler {
                 if ($env{'form.anchor'} ne '') {                  if ($env{'form.anchor'} ne '') {
                     $url .= '#'.$env{'form.anchor'};                      $url .= '#'.$env{'form.anchor'};
                 }                  }
                 $is_supp = 1;  
             }              }
             my $type = 'ext';              my $type = 'ext';
             if ($exttool) {              if ($exttool) {
Line 437  sub handler { Line 483  sub handler {
                     $title = &mt('External Tool');                      $title = &mt('External Tool');
                 }                  }
             }              }
             $title = &HTML::Entities::encode($title,'\'"<>&');  
             $is_supp = 1;  
             if ($env{'request.course.id'}) {  
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
                 &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);  
             }  
             $brcrum =              $brcrum =
                 &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                  &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
         }          }
     } elsif ($env{'request.course.id'}) {  
         my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});  
         $courseurl =~ s{^/}{};  
         if ($url =~ m{^\Q/uploaded/$courseurl/supplemental/\E}) {  
             $is_supp = 1;  
             &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  
                                                     ['folderpath','title']);  
             if ($env{'form.folderpath'}) {  
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
                 &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);  
             }  
             my $title = $env{'form.title'};  
             $title = &HTML::Entities::encode($title,'\'"<>&');  
             my $crstype = &Apache::loncommon::course_type();  
             $brcrum =  
                 &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);  
   
         }  
     }      }
   
 #  #
Line 497  sub handler { Line 517  sub handler {
         }          }
   
         $r->print( wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,          $r->print( wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,
                            $linktext,$explanation,undef,$width,$height,$reuse,                             $linktext,$explanation,undef,$width,$height,$reuse) );
                            $is_supp) );  
   
     } # not just the menu      } # not just the menu
           
Line 525  described at http://www.lon-capa.org. Line 544  described at http://www.lon-capa.org.
   
 =over  =over
   
 =item wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$linktext,$explanation,$title,$width,$height,$reuse,$is_supp)  =item wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$linktext,$explanation,$title,$width,$height,$reuse)
   
 =over  =over
   
Removed from v.1.49.2.11.2.3  
changed lines
  Added in v.1.79

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