loncom/auth/lonslotcheck.pm - diff

Return to lonslotcheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.1, 2018/01/31 15:29:07
+version 1.2, 2023/07/07 03:52:40
  Line 106  sub handler {
          return OK;
      }
+     my $target;
+     my ($marker,$exttool) = (split(m{/},$r->uri))[4,5];
+     $marker=~s/\D//g;
+     if (($marker) && ($exttool) && ($env{'request.course.id'})) {
+         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+         my ($idx,$crstool,$is_tool,%toolhash,%toolsettings);
+         if ($r->uri eq "/adm/$cdom/$cnum/$marker/$exttool") {
+             my %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
+             $target = $toolsettings{'target'};
+         }
+     }
+     my $args = {'bgcolor'        => '#FFFFFF',
+                 'force_register' => 1,};
+     if ($target eq 'iframe') {
+         $args->{'only_body'} = 1;
+     }
      my $start_page =
-         &Apache::loncommon::start_page('Not Open',undef,
+         &Apache::loncommon::start_page('Not Open',undef,$args);
-                                         {'bgcolor'        => '#FFFFFF',
-                                          'force_register' => 1,});
      my $end_page =
          &Apache::loncommon::end_page({'discussion' => 1});
          $r->print($start_page.$output.$end_page);