--- rat/lonpageflip.pm	2021/12/31 20:03:33	1.80.8.13.2.1
+++ rat/lonpageflip.pm	2023/01/20 23:34:08	1.80.8.13.2.3
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.80.8.13.2.1 2021/12/31 20:03:33 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.80.8.13.2.3 2023/01/20 23:34:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -463,9 +463,13 @@ sub handler {
               $r->send_http_header;
               $r->print(&Apache::loncommon::check_release_result(@reinit));
               return OK;
-          } elsif ($reinitcheck eq 'update') {
-              my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
-              my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+          }
+          my ($cnum,$cdom);
+          if ($reinitcheck) {
+              $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+              $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+          }
+          if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
               $preupdatepos = &Apache::lonnet::symbread($currenturl);
               unless ($direction eq 'return') {
                   if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
@@ -501,6 +505,16 @@ sub handler {
                   }
               }
           }
+          if (($reinitcheck eq 'both') || ($reinitcheck eq 'supp')) {
+              my $possdel;
+              if ($reinitcheck eq 'supp') {
+                  $possdel = 1;
+              }
+              my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel);
+              unless ($refs_updated) {
+                  &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
+              }
+          }
       }
       if ($direction eq 'firstres') {
 	  my $furl=&first_accessible_resource();
@@ -676,7 +690,7 @@ sub handler {
                      &Apache::lonnet::linklog($redirecturl,$currenturl);
 		  }
 # ------------------------------------- Check for and display critical messages
-                  my ($redirect, $url) = &Apache::loncommon::critical_redirect(300.'flip');
+                  my ($redirect, $url) = &Apache::loncommon::critical_redirect(300,'flip');
                   unless ($redirect) {
                       my $usehttp = &check_http_req(\$redirecturl,$hostname);
                       if (($usehttp) && ($hostname ne '')) {