rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.49.2.7.2.1 and 1.70

-version 1.49.2.7.2.1, 2020/01/14 17:14:11
+version 1.70, 2020/01/14 14:26:39
  Line 38  use Apache::loncommon();
  use Apache::lonhtmlcommon();
  use Apache::lonextresedit();
  use Apache::lonexttool();
+ use Apache::lonhomework();
  use LONCAPA qw(:DEFAULT :match);
  use HTML::Entities();
- Line 50  sub wrapper {
+ Line 51  sub wrapper {
      unless ($env{'form.folderpath'}) {
          $forcereg = 1;
      }
      my %lt = &Apache::lonlocal::texthash(
                                            'noif' => 'No iframe support.',
                                            'show' => 'Show content in pop-up window',
  Line 89  sub wrapper {
          $args->{'only_body'} = $env{'form.only_body'};
      }
-     my $startpage = &Apache::loncommon::start_page('Menu',undef,$args);
+     my ($countdown,$donemsg);
+     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();
+         }
+     }
+     my $startpage = &Apache::loncommon::start_page('Menu',undef,$args).$countdown.$donemsg;
      my $endpage = &Apache::loncommon::end_page();
      if (($uselink) && ($title eq '')) {
- Line 148  ENDLINK
+ Line 194  ENDLINK
              if ($explanation ne '') {
                  $output .= '<div>'.$explanation.'</div>';
              }
+             if (&Apache::lonnet::EXT('resource.0.gradable')) {
+                 $output .= &Apache::lonfeedback::list_discussion('tool','OPEN');
+             }
          } else {
              if ($uselink) {
                  $linktext = &mt('Link to resource');
- Line 378  described at http://www.lon-capa.org.
+ Line 427  described at http://www.lon-capa.org.
  =over
- =item wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$linktext,$explanation,$title,$width,$height)
+ =item wrapper($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$linktext,$explanation,$title,$width,$height)
  =over

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

Removed from v.1.49.2.7.2.1
changed lines
	Added in v.1.70