[BACK]Return to lonpageflip.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpageflip.pm between versions 1.89 and 1.99

version 1.89, 2015/03/23 00:03:16 version 1.99, 2018/12/27 20:11:16
Line 36  use LONCAPA; Line 36  use LONCAPA;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonnavmaps();
 use Apache::lonuserstate;  use Apache::lonuserstate;
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::TokeParser;  use HTML::TokeParser;
Line 83  sub hash_src { Line 84  sub hash_src {
     my ($mapid,$resid)=split(/\./,$id);      my ($mapid,$resid)=split(/\./,$id);
     my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},      my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},
   $resid,$hash{'src_'.$id});    $resid,$hash{'src_'.$id});
       my $anchor;
       if ($hash{'ext_'.$id} eq 'true:') {
           if ($hash{'src_'.$id} =~ /(\#.+)$/) {
               $anchor = $1;
           }
       }
     if ($hash{'encrypted_'.$id}) {      if ($hash{'encrypted_'.$id}) {
  return (&Apache::lonenc::encrypted($hash{'src_'.$id}),   return (&Apache::lonenc::encrypted($hash{'src_'.$id}),
  &Apache::lonenc::encrypted($symb));   &Apache::lonenc::encrypted($symb),
                   $hash{'encrypted_'.$id},$anchor);
     }      }
     return ($hash{'src_'.$id},$symb);      return ($hash{'src_'.$id},$symb,$hash{'encrypted_'.$id},$anchor);
 }  }
   
 sub move {  sub move {
     my ($next,$endupmap,$direction) = @_;      my ($next,$endupmap,$direction) = @_;
     my $safecount=0;      my $safecount=0;
     my $allowed=0;      my $allowed=0;
       my $deeplinkonly=0;
       my $prev=$next;
       my ($prevmapid)=split(/\./,$next);
     do {      do {
  ($next,$endupmap)=&get_next_possible_move($next,$endupmap,$direction);   ($next,$endupmap)=&get_next_possible_move($next,$endupmap,$direction);
   
Line 107  sub move { Line 118  sub move {
     my $priv = &Apache::lonnet::allowed('bre',$url,$symb);      my $priv = &Apache::lonnet::allowed('bre',$url,$symb);
     $allowed = (($priv eq 'F') || ($priv eq '2'));      $allowed = (($priv eq 'F') || ($priv eq '2'));
  }   }
           $deeplinkonly = 0;
           if ($hash{'deeplinkonly_'.$next}) {
               my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$next});
               if ($level eq 'resource') {
                   $deeplinkonly = 1;
               } elsif ($level eq 'map') {
                   if ($mapid != $prevmapid) {
                       $deeplinkonly = 1;
                   }
               }
           } elsif ($hash{'deeplinkonly_'.$prev}) {
               my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$prev});
               if ($level eq 'resource') {
                   $deeplinkonly = 1;
               } elsif ($level eq 'map') {
                   if ($mapid != $prevmapid) {
                       $deeplinkonly = 1;
                   }
               }
           }
  $safecount++;   $safecount++;
     } while (   ($next)      } while (   ($next)
      && ($next!~/\,/)       && ($next!~/\,/)
      && (       && (
     (!$hash{'src_'.$next})      (!$hash{'src_'.$next})
  || (   || (
         (!$env{'request.role.adv'})                          (!$env{'request.role.adv'})
      &&  $hash{'randomout_'.$next}                       && (($hash{'randomout_'.$next})
                        ||  ($deeplinkonly))
     )      )
  || (!$allowed)   || (!$allowed)
  )   )
Line 248  sub first_accessible_resource { Line 280  sub first_accessible_resource {
     }      }
 }  }
   
   sub first_answerable_ressymb {
       my $navmap = Apache::lonnavmaps::navmap->new;
       return unless (ref($navmap));
       my $iterator = $navmap->getIterator(undef,undef,undef,1);
       return unless (ref($iterator));
       my ($curRes,$result);
       while ($curRes = $iterator->next()) {
           if (ref($curRes) && $curRes->is_problem()) {
               foreach my $part (@{$curRes->parts()}) {
                   if ($curRes->tries($part) < $curRes->maxtries($part)) {
                       $result = $curRes->link().'?symb='.$curRes->shown_symb();
                       last;
                   }    
               }
           }
       }
       if ($result) {
           return $result; 
       } else {
           return &first_accessible_resource(); 
       }
   }
   
   sub check_http_req {
       my ($srcref) = @_;
       return unless (ref($srcref) eq 'SCALAR');
       my $usehttp;
       if ($env{'request.course.id'}) {
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           if (($$srcref =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) &&
               ($ENV{'SERVER_PORT'} == 443) &&
               ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {
               unless (&Apache::lonnet::uses_sts()) {
                   $$srcref .= (($$srcref =~/\?/)? '&':'?') . 'usehttp=1';
                   $usehttp = 1;
               }
           } elsif (($$srcref =~ m{^\Q/adm/wrapper/ext/\E(?!https:)}) &&
                    ($ENV{'SERVER_PORT'} == 443)) {
               unless (&Apache::lonnet::uses_sts()) {
                   $$srcref .= (($$srcref =~/\?/)? '&':'?') . 'usehttp=1';
                   $usehttp = 1;
               }
           }
       }
       return $usehttp;
   }
   
   sub reinited_js {
       my ($url,$cid,$timeout) = @_;
       if (!$timeout) {
           $timeout = 0;
       }
       return <<"END";
   <script type="text/javascript">
   // <![CDATA[
   setTimeout(function() {
       var newurl = '$url';
       if (document.getElementById('LC_update_$cid')) {
           document.getElementById('LC_update_$cid').style.display = 'none';
       }
       if ((newurl !== null) && (newurl !== '') && (newurl !== 'undefined')) {
           window.location.href = "$url";
       }
   }, $timeout);
   // ]]>
   </script>
   END
   }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
 sub handler {  sub handler {
Line 264  sub handler { Line 366  sub handler {
   my %cachehash=();     my %cachehash=(); 
   my $multichoice=0;    my $multichoice=0;
   my %multichoicehash=();    my %multichoicehash=();
   my ($redirecturl,$redirectsymb);    my %prog_state=();
     my ($redirecturl,$redirectsymb,$enc,$anchor,$deeplinklevel);
   my $next='';    my $next='';
     my $hostname = $r->hostname();
   my @possibilities=();    my @possibilities=();
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   if (($env{'form.postdata'})&&($env{'request.course.fn'})) {    if (($env{'form.postdata'})&&($env{'request.course.fn'})) {
Line 283  sub handler { Line 387  sub handler {
               $last=$hash{'last_known'};                $last=$hash{'last_known'};
               untie(%hash);                untie(%hash);
           }            }
         } elsif ($direction eq 'firstanswerable') {
             my $furl = &first_answerable_ressymb();
             my $usehttp = &check_http_req(\$furl);
             if (($usehttp) && ($hostname ne '')) {
                 $furl='http://'.$hostname.$furl;
             } else {
                 $furl=&Apache::lonnet::absolute_url().$furl;
             }
             &Apache::loncommon::content_type($r,'text/html');
             $r->header_out(Location => $furl);
             return REDIRECT;
         } elsif ($direction eq 'endplacement') {
             &Apache::loncommon::content_type($r,'text/html');
             $r->send_http_header;
             $r->print(&Apache::lonplacementtest::showresult());
             return OK;
       }        }
       if ($env{'request.course.id'}) {        if ($env{'request.course.id'}) {
           # Check if course needs to be re-initialized            # Check if course needs to be re-initialized
Line 304  sub handler { Line 424  sub handler {
                       untie(%hash);                        untie(%hash);
                   }                    }
               }                }
                 &Apache::loncommon::content_type($r,'text/html');
                 $r->send_http_header;
                 $r->print(&Apache::loncommon::start_page('Content Changed'));
                 my $preamble = '<div id="LC_update_'.$env{'request.course.id'}.'" class="LC_info">'.
                                '<br />'.
                                &mt('Your course session is being updated because of recent changes by course personnel.').
                                ' '.&mt('Please be patient.').'<br /></div>'.
                                '<div style="padding:0;clear:both;margin:0;border:0"></div>';
                 %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
                 &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
               my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");                my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
                 &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished'));
               if ($ferr) {                if ($ferr) {
                     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                   my $requrl = $r->uri;                    my $requrl = $r->uri;
                   $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";                    $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                   $env{'user.reinit'} = 1;                    $env{'user.reinit'} = 1;
Line 322  sub handler { Line 454  sub handler {
       }        }
       if ($direction eq 'firstres') {        if ($direction eq 'firstres') {
   my $furl=&first_accessible_resource();    my $furl=&first_accessible_resource();
   &Apache::loncommon::content_type($r,'text/html');            my $usehttp = &check_http_req(\$furl);
   $r->header_out(Location =>             if (($usehttp) && ($hostname ne '')) {
  &Apache::lonnet::absolute_url().$furl);                $furl='http://'.$hostname.$furl;
                  } else {
   return REDIRECT;                $furl=&Apache::lonnet::absolute_url().$furl;
             }
             if ($reinitcheck eq 'update') {
                 &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                 $r->print(&reinited_js($furl,$env{'request.course.id'},100));
                 $r->print(&Apache::loncommon::end_page());
                 return OK;
             } else {
         &Apache::loncommon::content_type($r,'text/html');
         $r->header_out(Location => $furl);
         return REDIRECT;
             }
       }        }
       if ($direction eq 'return') {         if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known  # -------------------------------------------------------- Return to last known
          my $newloc;           my ($newloc,$usehttp);
          if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',           if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
                         &GDBM_READER(),0640))) {                          &GDBM_READER(),0640))) {
             my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last);              my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last);
     $id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id;      $id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id;
     $newloc=$hash{'src_'.$id};      $newloc=$hash{'src_'.$id};
     if ($newloc) {      if ($newloc) {
  if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); }                  $usehttp = &check_http_req(\$newloc);
    if ($hash{'encrypted_'.$id}) { 
                       $newloc=&Apache::lonenc::encrypted($newloc);
                   } elsif ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)\#([^\#]+)$}) {
                       $newloc = $1.&escape('#').$2;
                   }
     } else {      } else {
  $newloc='/adm/navmaps';   $newloc='/adm/navmaps';
     }      }
Line 345  sub handler { Line 493  sub handler {
          } else {           } else {
     $newloc='/adm/navmaps';      $newloc='/adm/navmaps';
          }           }
  &Apache::loncommon::content_type($r,'text/html');           if (($usehttp) && ($hostname ne '')) {
  $r->header_out(Location =>                $newloc='http://'.$hostname.$newloc;
  &Apache::lonnet::absolute_url().$newloc);           } else {
                     $newloc=&Apache::lonnet::absolute_url().$newloc
  return REDIRECT;           }
            if ($reinitcheck eq 'update') {
                $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
                $r->print(&Apache::loncommon::end_page());
                return OK;
            } else {
        &Apache::loncommon::content_type($r,'text/html');
        $r->header_out(Location => $newloc);
        return REDIRECT;
            }
       }        }
 #  #
 # Is the current URL on the map? If not, start with last known URL  # Is the current URL on the map? If not, start with last known URL
Line 367  sub handler { Line 524  sub handler {
          if ($last) {           if ($last) {
      $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);       $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
  } else {   } else {
      &Apache::loncommon::content_type($r,'text/html');               my $newloc = &Apache::lonnet::absolute_url().
      $r->header_out(Location =>                             '/adm/navmaps'; 
     &Apache::lonnet::absolute_url().               if ($reinitcheck eq 'update') {
     '/adm/navmaps');                   &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
      return REDIRECT;                   $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
                    $r->print(&Apache::loncommon::end_page());
                    return OK;
                } else {
            &Apache::loncommon::content_type($r,'text/html');
            $r->header_out(Location => $newloc); 
            return REDIRECT;
                }
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
Line 404  sub handler { Line 568  sub handler {
                   @possibilities=split(/\,/,$next);                    @possibilities=split(/\,/,$next);
                   if ($#possibilities==0) {                    if ($#possibilities==0) {
 # ---------------------------------------------- Only one possibility, redirect  # ---------------------------------------------- Only one possibility, redirect
               ($redirecturl,$redirectsymb)=&hash_src($next);                ($redirecturl,$redirectsymb,$enc,$anchor)=&hash_src($next);
                       $cachehash{$endupmap}{$redirecturl}=                        $cachehash{$endupmap}{$redirecturl}=
   [$redirecturl,(split(/\./,$next))[1]];    [$redirecturl,(split(/\./,$next))[1]];
                   } else {                    } else {
Line 429  sub handler { Line 593  sub handler {
       } else {        } else {
 # -------------------------------------------------------------- No place to go  # -------------------------------------------------------------- No place to go
                   $multichoice=-1;                    $multichoice=-1;
                     if ($hash{'deeplinkonly_'.$rid}) {
                         (my $value,$deeplinklevel) = split(/:/,$hash{'deeplinkonly_'.$rid});
                     }
               }                }
 # ----------------- The program must come past this point to untie the big hash  # ----------------- The program must come past this point to untie the big hash
       untie(%hash);        untie(%hash);
Line 450  sub handler { Line 617  sub handler {
                      &Apache::lonnet::linklog($redirecturl,$currenturl);                       &Apache::lonnet::linklog($redirecturl,$currenturl);
   }    }
 # ------------------------------------- Check for and display critical messages  # ------------------------------------- Check for and display critical messages
                   my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);                    my ($redirect, $url) = &Apache::loncommon::critical_redirect(300,'flip');
                   unless ($redirect) {                    unless ($redirect) {
                       $url=&Apache::lonnet::absolute_url().$redirecturl;                        my $usehttp = &check_http_req(\$redirecturl);
                         if (($usehttp) && ($hostname ne '')) {
                             $url='http://'.$hostname.$redirecturl;
                         } else {
                             $url=&Apache::lonnet::absolute_url().$redirecturl;
                         }
                         my $addanchor;
                         if (($anchor ne '') && (!$enc || $env{'request.role.adv'})) {
                             $addanchor = 1;
                             $url =~ s/\#.+$//;
                         }
                       $url = &add_get_param($url, { 'symb' => $redirectsymb});                        $url = &add_get_param($url, { 'symb' => $redirectsymb});
                         if ($addanchor) {
                             $url .= $anchor;
                         }
                     }
                     if ($reinitcheck eq 'update') {
                         &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                         $r->print(&reinited_js($url,$env{'request.course.id'},100)); 
                         $r->print(&Apache::loncommon::end_page());
                         return OK;
                     } else {
                         &Apache::loncommon::content_type($r,'text/html');
                         $r->header_out(Location => $url);
                         return REDIRECT;
                   }                    }
                   &Apache::loncommon::content_type($r,'text/html');  
                   $r->header_out(Location => $url);  
                   return REDIRECT;  
       } else {        } else {
 # --------------------------------------------------------- There was a problem  # --------------------------------------------------------- There was a problem
                   &Apache::loncommon::content_type($r,'text/html');                    &Apache::loncommon::content_type($r,'text/html');
                   $r->send_http_header;                    $r->send_http_header;
   my %lt=&Apache::lonlocal::texthash('title' => 'End of Sequence',    my %lt=&Apache::lonlocal::texthash('title' => 'End of Sequence',
                                                        'deeplink' => 'No link available',
                                                        'deeplinkres' =>
                                                        'Navigation to other content is unavailable when accessing content via deep-linking',
                                                        'deeplinkmap' =>
                                                        'You have reached the end of the sequence of available materials for access via deep-linking',
      'explain' =>       'explain' =>
      'You have reached the end of the sequence of materials.',       'You have reached the end of the sequence of materials.',
      'back' => 'Go Back',       'back' => 'Go Back',
Line 475  sub handler { Line 667  sub handler {
      'type' => 'Type',       'type' => 'Type',
                                                      'update' => 'Content updated',                                                       'update' => 'Content updated',
                                                      'expupdate' => 'As a result of a recent update to the sequence of materials, it is not possible to complete the page flip.',                                                       'expupdate' => 'As a result of a recent update to the sequence of materials, it is not possible to complete the page flip.',
                                                      'gonav' => 'Go to the Contents page to select a resource to display.');                                                       'gonav' => 'Go to the Contents page to select a resource to display.',
                                                        );
                   if (&Apache::loncommon::course_type() eq 'Community') {                    if (&Apache::loncommon::course_type() eq 'Community') {
                       $lt{'nav'} = &mt('Community Contents');                        $lt{'nav'} = &mt('Community Contents');
                   }                    }
Line 492  $lt{'pick'}: Line 685  $lt{'pick'}:
 <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>  <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
 ENDSTART  ENDSTART
                      foreach my $id (@possibilities) {                       foreach my $id (@possibilities) {
                           my $src = $multichoicehash{'src_'.$id};
                           my $usehttp = &check_http_req(\$src);
                           if (($usehttp) && ($hostname ne '')) {
                               $src = 'http://'.$hostname.$src;
                           }
                         $r->print(                          $r->print(
                               '<tr><td><a href="'.                                '<tr><td><a href="'.
   &add_get_param($multichoicehash{'src_'.$id},    &add_get_param($src,
  {'symb' =>   {'symb' =>
       $multichoicehash{'symb_'.$id},        $multichoicehash{'symb_'.$id},
   }).'">'.    }).'">'.
Line 516  ENDSTART Line 714  ENDSTART
                                   .'<p>'.$lt{'expupdate'}.'<br />'                                    .'<p>'.$lt{'expupdate'}.'<br />'
                                   .$lt{'gonav'}.'</p>');                                    .$lt{'gonav'}.'</p>');
                       } else {                        } else {
                           $r->print(                            if (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') && 
                               &Apache::loncommon::start_page('No Resource')                                (!$env{'request.role.adv'})) {
                              .'<h2>'.$lt{'title'}.'</h2>'                                my ($score,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1); 
                              .'<p>'.$lt{'explain'}.'</p>');                                if ($incomplete) {
                                     $r->print(&Apache::lonplacementtest::showincomplete($incomplete)); 
                                 } else {
                                     $r->print(&Apache::lonplacementtest::showresult(1));
                                 }
                             } else {
                                 $r->print(
                                     &Apache::loncommon::start_page('No Resource'));
                                 if ($deeplinklevel eq 'resource') {
                                     $r->print('<h2>'.$lt{'deeplink'}.'</h2>'
                                              .'<p>'.$lt{'deeplinkres'}.'</p>');
                                 } elsif ($deeplinklevel eq 'map') {
                                     $r->print('<h2>'.$lt{'title'}.'</h2>'
                                              .'<p>'.$lt{'deeplinkmap'}.'</p>');
                                 } else {
                                     $r->print('<h2>'.$lt{'title'}.'</h2>'
                                              .'<p>'.$lt{'explain'}.'</p>');
                                 }
                             }
                       }                        }
   }    }
                   if ((!@possibilities) && ($reinitcheck))  {                    unless (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') ||
                       $r->print(                            ($env{'request.role.adv'})) {
                           &Apache::lonhtmlcommon::actionbox(                        if ($deeplinklevel) {
                               ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'                            $r->print(
                               ]));                                &Apache::lonhtmlcommon::actionbox(
                   } else {                                    ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a>']));
                       $r->print(                        } elsif ((!@possibilities) && ($reinitcheck))  {
                           &Apache::lonhtmlcommon::actionbox(                            $r->print(
                               ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',                                &Apache::lonhtmlcommon::actionbox(
                                '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'                                    ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                               ]));                                    ]));
                         } else {
                             $r->print(
                                 &Apache::lonhtmlcommon::actionbox(
                                     ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',
                                      '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                                     ]));
                         }
   
                   }                    }
                   $r->print(&Apache::loncommon::end_page());                    $r->print(&Apache::loncommon::end_page());
               
Line 540  ENDSTART Line 764  ENDSTART
       }        }
   } else {    } else {
 # ------------------------------------------------- Problem, could not tie hash  # ------------------------------------------------- Problem, could not tie hash
                 if ($reinitcheck eq 'update') {
                     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                     $r->print(&Apache::loncommon::end_page());
                 } 
               $env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing";                $env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing";
               return HTTP_NOT_ACCEPTABLE;                 return HTTP_NOT_ACCEPTABLE; 
           }            }
       } else {        } else {
 # ---------------------------------------- No, could not determine where we are  # ---------------------------------------- No, could not determine where we are
   $r->internal_redirect('/adm/ambiguous');            my $newloc = '/adm/ambiguous';
             if ($reinitcheck eq 'update') {
                 &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                 $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
                 $r->print(&Apache::loncommon::end_page());
             } else {
         $r->internal_redirect($newloc);
             }
           return OK;            return OK;
       }        }
   } else {    } else {
Removed from v.1.89  
changed lines
  Added in v.1.99

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.