Diff for /rat/lonpageflip.pm between versions 1.113 and 1.115

version 1.113, 2022/10/19 18:09:03 version 1.115, 2025/02/07 20:46:01
Line 549  sub handler { Line 549  sub handler {
               if ($reinitcheck eq 'supp') {                if ($reinitcheck eq 'supp') {
                   $possdel = 1;                    $possdel = 1;
               }                }
               my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom,'',$possdel);                my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel);
               unless ($refs_updated) {                unless ($refs_updated) {
                   &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);                    &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
               }                }
Line 563  sub handler { Line 563  sub handler {
           } else {            } else {
               $furl=&Apache::lonnet::absolute_url().$furl;                $furl=&Apache::lonnet::absolute_url().$furl;
           }            }
           if ($reinitcheck eq 'update') {            if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
               &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);                &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
               $r->print(&reinited_js($furl,$env{'request.course.id'},100));                $r->print(&reinited_js($furl,$env{'request.course.id'},100));
               $r->print(&Apache::loncommon::end_page());                $r->print(&Apache::loncommon::end_page());
Line 605  sub handler { Line 605  sub handler {
          } else {           } else {
              $newloc=&Apache::lonnet::absolute_url().$newloc               $newloc=&Apache::lonnet::absolute_url().$newloc
          }           }
          if ($reinitcheck eq 'update') {           if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
              $r->print(&reinited_js($newloc,$env{'request.course.id'},100));               $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
              $r->print(&Apache::loncommon::end_page());               $r->print(&Apache::loncommon::end_page());
              return OK;               return OK;
Line 632  sub handler { Line 632  sub handler {
  } else {   } else {
              my $newloc = &Apache::lonnet::absolute_url().               my $newloc = &Apache::lonnet::absolute_url().
                           '/adm/navmaps';                             '/adm/navmaps'; 
              if ($reinitcheck eq 'update') {               if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
                  &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);                   &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                  $r->print(&reinited_js($newloc,$env{'request.course.id'},100));                   $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
                  $r->print(&Apache::loncommon::end_page());                   $r->print(&Apache::loncommon::end_page());
Line 747  sub handler { Line 747  sub handler {
                           $url .= $anchor;                            $url .= $anchor;
                       }                        }
                   }                    }
                   if ($reinitcheck eq 'update') {                    if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
                       &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);                        &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                       $r->print(&reinited_js($url,$env{'request.course.id'},100));                         $r->print(&reinited_js($url,$env{'request.course.id'},100)); 
                       $r->print(&Apache::loncommon::end_page());                        $r->print(&Apache::loncommon::end_page());
Line 876  ENDSTART Line 876  ENDSTART
       }        }
   } else {    } else {
 # ------------------------------------------------- Problem, could not tie hash  # ------------------------------------------------- Problem, could not tie hash
               if ($reinitcheck eq 'update') {                if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
                   &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);                    &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                   $r->print(&Apache::loncommon::end_page());                    $r->print(&Apache::loncommon::end_page());
               }                 } 
Line 886  ENDSTART Line 886  ENDSTART
       } else {        } else {
 # ---------------------------------------- No, could not determine where we are  # ---------------------------------------- No, could not determine where we are
           my $newloc = '/adm/ambiguous';            my $newloc = '/adm/ambiguous';
           if ($reinitcheck eq 'update') {            if (($reinitcheck eq 'main') || ($reinitcheck eq 'both')) {
               &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);                &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
               $r->print(&reinited_js($newloc,$env{'request.course.id'},100));                $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
               $r->print(&Apache::loncommon::end_page());                $r->print(&Apache::loncommon::end_page());

Removed from v.1.113  
changed lines
  Added in v.1.115


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