--- loncom/auth/lonslotcheck.pm	2018/01/31 15:29:07	1.1
+++ loncom/auth/lonslotcheck.pm	2023/07/07 03:52:40	1.2
@@ -1,6 +1,6 @@
 # Checks slot access settings - disable subsequent 
 # PerlHandlers unless access availble
-# $Id: lonslotcheck.pm,v 1.1 2018/01/31 15:29:07 raeburn Exp $
+# $Id: lonslotcheck.pm,v 1.2 2023/07/07 03:52:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,10 +106,25 @@ 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,
-                                        {'bgcolor'        => '#FFFFFF',
-                                         'force_register' => 1,});
+        &Apache::loncommon::start_page('Not Open',undef,$args);
     my $end_page =
         &Apache::loncommon::end_page({'discussion' => 1});
         $r->print($start_page.$output.$end_page);