--- loncom/auth/lonroles.pm	2022/02/24 13:09:39	1.361
+++ loncom/auth/lonroles.pm	2022/06/26 04:03:47	1.365
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.361 2022/02/24 13:09:39 raeburn Exp $
+# $Id: lonroles.pm,v 1.365 2022/06/26 04:03:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -149,19 +149,23 @@ my $registered_cleanup;
 my $rosterupdates;
 
 sub start_loading_course {
-    my ($r,$title) = @_;
+    my ($r,$title,$only_body) = @_;
     &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
-    my $swinfo=&Apache::lonmenu::rawconfig();
-    # Breadcrumbs
-    my $brcrum = [{'href' => '',
-                   'text' => $title},];
-    my $start_page = &Apache::loncommon::start_page($title,undef,
-                                                    {'bread_crumbs' => $brcrum,
-                                                     'bread_crumbs_nomenu' => 1,
-                                                     'links_disabled' => 1});
-    $r->print(<<ENDREDIR);
+    if ($only_body) {
+        $r->print(&Apache::loncommon::start_page($title,undef,{'only_body' => 1,
+                                                               'add_progressbar' => 1}));
+    } else {
+        my $swinfo=&Apache::lonmenu::rawconfig();
+        # Breadcrumbs
+        my $brcrum = [{'href' => '',
+                       'text' => $title},];
+        my $start_page = &Apache::loncommon::start_page($title,undef,
+                                                        {'bread_crumbs' => $brcrum,
+                                                         'bread_crumbs_nomenu' => 1,
+                                                         'links_disabled' => 1});
+        $r->print(<<ENDREDIR);
 $start_page
 <script type="text/javascript">
 // <![CDATA[
@@ -176,22 +180,30 @@ document.body.addEventListener('click',
 // ]]>
 </script>
 ENDREDIR
+    }
     return;
 }
 
 sub finish_loading_course {
-    my ($r,$msg,$url) = @_;
-    my $link = '<div id="LC_course_loaded" style="display:none"><a href="'.$url.'">'.&mt('Continue').'</a></div>';
+    my ($r,$msg,$url,$only_body) = @_;
+    my $link = '<div id="LC_course_loaded" style="display:none"><a href="'.
+               &HTML::Entities::encode($url,'"<>&').'">'.&mt('Continue').'</a></div>';
     my $end_page = &Apache::loncommon::end_page();
     my $js_url = &js_escape($url);
+    my $reenable;
+    unless ($only_body) {
+        $reenable = <<REENABLE;
+    \$('.isDisabled > a').removeAttr("aria-disabled");
+    \$('.isDisabled').removeClass("isDisabled");
+REENABLE
+    }
     $r->print(<<END);
 $msg
 <script type="text/javascript">
 // <![CDATA[
 \$(document).ready(function() {
     \$("#LC_course_loaded").css("display","block");
-    \$('.isDisabled > a').removeAttr("aria-disabled");
-    \$('.isDisabled').removeClass("isDisabled");
+    $reenable
     var url = "$js_url";
     \$(location).attr('href',url);
 });
@@ -762,9 +774,21 @@ ENDENTERKEY
                         }
                         my $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
                         $crstype = lc($crstype);
+                        my ($msg,$critmsg_check,$title,$loadmsg,$only_body);
+                        $critmsg_check = 1;
+                        $title = &mt("Loading $crstype");
+                        $loadmsg = &mt("Please be patient while your $crstype loads");
+                        if (($env{'request.deeplink.login'}) && ($env{'request.linkprot'})) {
+                            if ($env{'request.linkprot'} =~ /^\d+(c|d):\Q$env{'form.destinationurl'}\E$/) {
+                                $title = &mt('Loading LON-CAPA session');
+                                $loadmsg = &mt('Please be patient while LON-CAPA loads');
+                                $only_body = 1;
+                                $critmsg_check = 0;
+                            }
+                        }
                         my $preamble = '<div id="LC_update_'.$cdom.'_'.$cnum.'" class="LC_info">'.
                                        '<br />'.
-                                       &mt("Please be patient while your $crstype loads").
+                                       $loadmsg.
                                        '<br /></div>'.
                                        '<div style="padding:0;clear:both;margin:0;border:0"></div>';
                         my $closure = <<ENDCLOSE;
@@ -774,22 +798,21 @@ ENDENTERKEY
 // ]]>
 </script>
 ENDCLOSE
-                        my $title = &mt("Loading $crstype");
-                        &start_loading_course($r,$title);
+                        &start_loading_course($r,$title,$only_body);
                         my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
                         &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Loading ...'));
                         $r->rflush();
-                        my ($msg,$blockcrit,$critmsg_check);
-                        $critmsg_check = 1;
-                        $blockcrit = &Apache::loncommon::blocking_status('alert',$clientip,$cnum,$cdom,undef,1);
-                        if ($blockcrit) {
-                            my $checkrole = "cm./$cdom/$cnum";
-                            if ($csec ne '') {
-                                $checkrole .= "/$csec";
-                            }
-                            unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
-                                    ($trolecode !~ m{^st\./$cdom/$cnum})) {
-                                $critmsg_check = 0;
+                        if ($critmsg_check) {
+                            my $blockcrit = &Apache::loncommon::blocking_status('alert',$clientip,$cnum,$cdom,undef,1);
+                            if ($blockcrit) {
+                                my $checkrole = "cm./$cdom/$cnum";
+                                if ($csec ne '') {
+                                    $checkrole .= "/$csec";
+                                }
+                                unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
+                                        ($trolecode !~ m{^st\./$cdom/$cnum})) {
+                                    $critmsg_check = 0;
+                                }
                             }
                         }
                         my ($furl,$ferr)=
@@ -898,10 +921,13 @@ ENDCLOSE
                                         ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {
                                         &process_lti($r,$cdom,$cnum);
                                     }
+                                    if ($env{'request.deeplink.login'}) {
+                                        &set_deeplink_target($cnum,$cdom);
+                                    }
                                     $msg = '<p>'.&mt('Entering [_1] ...',
                                                      $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                            '</p>';
-                                    &finish_loading_course($r,$msg,$dest);
+                                    &finish_loading_course($r,$msg,$dest,$only_body);
                                 }
 			    }
                             $r->rflush();
@@ -929,6 +955,9 @@ ENDCLOSE
                                     ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {
                                     &process_lti($r,$cdom,$cnum);
                                 }
+                                if ($env{'request.deeplink.login'}) {
+                                    &set_deeplink_target($cnum,$cdom);
+                                }
 				# Check to see if the user is a CC entering a course 
 				# for the first time
 				if ((($role eq 'cc') || ($role eq 'co')) 
@@ -944,7 +973,7 @@ ENDCLOSE
                                             $msg = '<p>'.&mt('Entering [_1] ...',
                                                              $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                    '</p>';
-                                            &finish_loading_course($r,$msg,'/adm/placement');
+                                            &finish_loading_course($r,$msg,'/adm/placement',$only_body);
                                             $r->rflush();
                                             return OK;
                                         }
@@ -1016,7 +1045,7 @@ ENDCLOSE
                                                              $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                    '</p>';
                                         }
-                                        &finish_loading_course($r,$msg,$dest);
+                                        &finish_loading_course($r,$msg,$dest,$only_body);
                                         $r->rflush();
                                         return OK;
                                     }
@@ -1031,7 +1060,7 @@ ENDCLOSE
 					    $msg = '<p>'.&mt('Entering [_1] ...',
 						             $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                    '</p>';
-                                            &finish_loading_course($r,$msg,'/adm/whatsnew?refpage=start');
+                                            &finish_loading_course($r,$msg,'/adm/whatsnew?refpage=start',$only_body);
                                             $r->rflush();
 					    return OK;
 					}
@@ -1079,12 +1108,12 @@ ENDCLOSE
                                 }
                                 if ($env{'request.lti.login'}) {
                                     undef($msg);
-                                    &finish_loading_course($r,$msg,$furl);
+                                    &finish_loading_course($r,$msg,$furl,$only_body);
                                 } else {
                                     $msg = '<p>'.&mt('Entering [_1] ...',
 					              $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                            '</p>';
-                                    &finish_loading_course($r,$msg,$furl);
+                                    &finish_loading_course($r,$msg,$furl,$only_body);
                                 }
 			    }
                             $r->rflush();
@@ -3547,6 +3576,34 @@ sub ltienroll {
     }
 }
 
+sub set_deeplink_target {
+    my ($cnum,$cdom) = @_;
+    if (($cnum ne '') && ($cdom ne '')) {
+        my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
+        if ($deeplink_symb ne '') {
+            my $deeplink;
+            if ($deeplink_symb =~ /\.(page|sequence)$/) {
+                my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
+                my $navmap = Apache::lonnavmaps::navmap->new();
+                if (ref($navmap)) {
+                    $deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');
+                }
+            } elsif ($deeplink_symb ne '') {
+                $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$deeplink_symb);
+            }
+            if ($deeplink ne '') {
+                my ($state,$others,$listed,$scope,$protect,$display,$target) = split(/,/,$deeplink);
+                if ($target ne '') {
+                    &Apache::lonnet::appenv({'request.deeplink.target' => $target});
+                } elsif (exists($env{'request.deeplink.target'})) {
+                    &Apache::lonnet::delenv('request.deeplink.target');
+                }
+            }
+        }
+    }
+    return;
+}
+
 1;
 __END__