Diff for /rat/lonpageflip.pm between versions 1.75.2.1 and 1.80.8.6

version 1.75.2.1, 2008/12/21 05:00:52 version 1.80.8.6, 2014/06/26 18:28:25
Line 27 Line 27
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   
   
 package Apache::lonpageflip;  package Apache::lonpageflip;
   
 use strict;  use strict;
Line 34  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::lonlocal;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
   
Line 215  sub get_next_possible_move { Line 218  sub get_next_possible_move {
               return ($next,$mapurl);                return ($next,$mapurl);
 }  }
   
 sub navlaunch {  
     my ($r)=@_;  
     &Apache::loncommon::content_type($r,'text/html');  
     &Apache::loncommon::no_cache($r);  
     $r->send_http_header;  
     $r->print(&Apache::loncommon::start_page('Launched'));     
     $r->print(<<ENDNAV);  
     <p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>  
     <script type="text/javascript">  
  function collapse() {  
     menu=window.open("/adm/navmaps?collapseExternal","loncapanav",  
      "height=600,width=400,scrollbars=1");  
     this.document.location='/adm/navmaps?turningOffExternal';  
  }  
     </script>  
     <p><a href="javascript:collapse();">Collapse external navigation window</a></p>  
 ENDNAV  
     $r->print(&Apache::loncommon::end_page());  
 }  
   
 sub first_accessible_resource {  sub first_accessible_resource {
     my $furl;      my $furl;
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',      if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
Line 300  sub handler { Line 283  sub handler {
             
   return REDIRECT;    return REDIRECT;
       }        }
       if ($direction eq 'return' || $direction eq 'navlaunch') {        if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known  # -------------------------------------------------------- Return to last known
          my $last;           my $last;
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',           if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
Line 323  sub handler { Line 306  sub handler {
             untie %hash;              untie %hash;
          } else {           } else {
     $newloc='/adm/navmaps';      $newloc='/adm/navmaps';
          }             }
  if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') {   &Apache::loncommon::content_type($r,'text/html');
      &navlaunch($r);   $r->header_out(Location => 
      return OK;   &Apache::lonnet::absolute_url().$newloc);
  } else {  
      &Apache::loncommon::content_type($r,'text/html');  
      $r->header_out(Location =>   
     &Apache::lonnet::absolute_url().$newloc);  
             
      return REDIRECT;   return REDIRECT;
  }  
       }        }
       $currenturl=~s/^https?\:\/\///;        $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;        $currenturl=~s/^[^\/]+//;
Line 350  sub handler { Line 328  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 {
      if ($direction eq 'return') {       &Apache::loncommon::content_type($r,'text/html');
  &Apache::loncommon::content_type($r,'text/html');       $r->header_out(Location => 
  $r->header_out(Location =>       &Apache::lonnet::absolute_url().
  &Apache::lonnet::absolute_url().      '/adm/noidea.html');
  '/adm/noidea.html');       return REDIRECT;
  return REDIRECT;  
      } else {  
  &navlaunch($r);  
  return OK;  
      }  
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
Line 432  sub handler { Line 405  sub handler {
   if ($direction eq 'back') {    if ($direction eq 'back') {
                      &Apache::lonnet::linklog($redirecturl,$currenturl);                       &Apache::lonnet::linklog($redirecturl,$currenturl);
   }    }
 # ------------------------------------------------- Check for critical messages  # ------------------------------------- Check for and display critical messages
   if ((time-$env{'user.criticalcheck.time'})>300) {                    my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);
                      my @what=&Apache::lonnet::dump                    unless ($redirect) {
                                   ('critical',$env{'user.domain'},                        $url=&Apache::lonnet::absolute_url().$redirecturl;
                                               $env{'user.name'});                        $url = &add_get_param($url, { 'symb' => $redirectsymb});
                      if ($what[0]) {                    }
                 if (($what[0] ne 'con_lost') &&                     &Apache::loncommon::content_type($r,'text/html');
                             ($what[0]!~/^error\:/)) {  
                    $redirecturl='/adm/email?critical=display';  
    $redirectsymb='';  
                         }  
                      }  
                      &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});  
   }  
   
   &Apache::loncommon::content_type($r,'text/html');  
   my $url=&Apache::lonnet::absolute_url().$redirecturl;  
   $url = &add_get_param($url, { 'symb' => $redirectsymb});  
                   $r->header_out(Location => $url);                    $r->header_out(Location => $url);
                   return REDIRECT;                    return REDIRECT;
       } else {        } else {
Line 460  sub handler { Line 422  sub handler {
      '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',
      'nav' => 'Navigate Course Content',       'nav' => 'Course Contents',
      'wherenext' =>       'wherenext' =>
      'There are several possibilities of where to go next',       'There are several possibilities of where to go next',
      'pick' =>       'pick' =>
      'Please click on the the resource you intend to access',       'Please click on the the resource you intend to access',
      'titleheader' => 'Title',       'titleheader' => 'Title',
      'type' => 'Type');       'type' => 'Type');
                     if (&Apache::loncommon::course_type() eq 'Community') {
                         $lt{'nav'} = &mt('Community Contents');
                     }
                   if ($#possibilities>0) {                    if ($#possibilities>0) {
       my $start_page=        my $start_page=
   &Apache::loncommon::start_page('Multiple Resources');    &Apache::loncommon::start_page('Multiple Resources');
Line 476  $start_page Line 441  $start_page
 <p>  <p>
 $lt{'pick'}:  $lt{'pick'}:
 <p>  <p>
 <table border=2>  <table border="2">
 <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) {
Line 492  ENDSTART Line 457  ENDSTART
                      }                       }
                      $r->print('</table>');                       $r->print('</table>');
                   } else {                    } else {
       my $start_page=                        $r->print(
   &Apache::loncommon::start_page('No Resource');                            &Apache::loncommon::start_page('No Resource')
       $r->print(<<ENDNONE);                           .'<h2>'.$lt{'title'}.'</h2>'
 $start_page                           .'<p>'.$lt{'explain'}.'</p>');
 <h3>$lt{'title'}</h3>  
 <p>$lt{'explain'}</p>  
 ENDNONE  
   }    }
   $r->print(<<ENDMENU);                    $r->print(
 <ul>                        &Apache::lonhtmlcommon::actionbox(
 <li><a href="/adm/flip?postdata=return:">$lt{'back'}</a></li>                            ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',
 <li><a href="/adm/navmaps">$lt{'nav'}</a></li>                             '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
 </ul>                            ])
 ENDMENU                       .&Apache::loncommon::end_page());
                   $r->print(&Apache::loncommon::end_page());  
                   return OK;                    return OK;
       }        }
   } else {    } else {
Line 517  ENDMENU Line 478  ENDMENU
       } else {        } else {
 # ---------------------------------------- No, could not determine where we are  # ---------------------------------------- No, could not determine where we are
   $r->internal_redirect('/adm/ambiguous');    $r->internal_redirect('/adm/ambiguous');
             return OK;
       }        }
   } else {    } else {
 # -------------------------- Class was not initialized or page fliped strangely  # -------------------------- Class was not initialized or page fliped strangely
Line 528  ENDMENU Line 490  ENDMENU
 1;  1;
 __END__  __END__
   
   =pod
   
   =head1 NAME
   
   Apache::lonpageflip
   
   =head1 SYNOPSIS
   
   Deals with forward, backward, and other page flips.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 OVERVIEW
   
   (empty)
   
   =head1 SUBROUTINES
   
   =over cleanup()
   
   =item addrid()
   
   =item fullmove()
   
   =item hash_src()
   
   =item move()
   
   =item get_next_possible_move()
   
   =item first_accessible_resource()
   
   =item handler()
   
   =back
   
   =cut
   
   
   

Removed from v.1.75.2.1  
changed lines
  Added in v.1.80.8.6


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