Diff for /rat/lonpageflip.pm between versions 1.36 and 1.39

version 1.36, 2003/03/03 20:24:25 version 1.39, 2003/08/15 14:14:43
Line 185  sub handler { Line 185  sub handler {
   my $redirecturl='';    my $redirecturl='';
   my $next='';    my $next='';
   my @possibilities=();    my @possibilities=();
      &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'})) {
       $ENV{'form.postdata'}=~/(\w+)\:(.*)/;        $ENV{'form.postdata'}=~/(\w+)\:(.*)/;
       my $direction=$1;        my $direction=$1;
       my $currenturl=$2;        my $currenturl=&Apache::lonnet::unescape($2);
       if ($direction eq 'return') {        if ($direction eq 'return') {
 # -------------------------------------------------------- Return to last known  # -------------------------------------------------------- Return to last known
          my $last;           my $last;
Line 200  sub handler { Line 201  sub handler {
          my $newloc;           my $newloc;
          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,$mid,$fn)=split(/\_\_\_/,$last);              my ($murl,$fn)=split(/\_\_\_/,$last);
             $newloc=$hash{'src_'.              my $id;
                       $hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.              ($murl,$id,$fn)=split(/\_\_\_/,&Apache::lonnet::symbread($fn));
                       '.'.$mid};      $newloc=$hash{'src_'.
                   $hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id};
               unless ($newloc) { $newloc='/adm/noidea.html'; }
             untie %hash;              untie %hash;
          } else {           } else {
     $newloc='/adm/noidea.html';      $newloc='/adm/noidea.html';
Line 308  sub handler { Line 311  sub handler {
 # ============================================== Do not return before this line  # ============================================== Do not return before this line
               if ($redirecturl) {                if ($redirecturl) {
 # ----------------------------------------------------- There is a URL to go to  # ----------------------------------------------------- There is a URL to go to
     if ($direction eq 'forward') {
                        &Apache::lonnet::linklog($currenturl,$redirecturl);
     }
     if ($direction eq 'back') {
                        &Apache::lonnet::linklog($redirecturl,$currenturl);
     }
 # ------------------------------------------------- Check for critical messages  # ------------------------------------------------- Check for critical messages
   if ((time-$ENV{'user.criticalcheck.time'})>300) {    if ((time-$ENV{'user.criticalcheck.time'})>300) {
                      my @what=&Apache::lonnet::dump                       my @what=&Apache::lonnet::dump
Line 331  sub handler { Line 340  sub handler {
                   $r->content_type('text/html');                    $r->content_type('text/html');
                   $r->send_http_header;                    $r->send_http_header;
                   if ($#possibilities>0) {                    if ($#possibilities>0) {
         my $bodytag=
                                &Apache::loncommon::bodytag('Multiple Resources');
                      $r->print(<<ENDSTART);                       $r->print(<<ENDSTART);
 <head><title>Choose Next Location</title></head>  <head><title>Choose Next Location</title></head>
 <body bgcolor="#FFFFFF">  $bodytag
 <h1>LON-CAPA</h1>  <h3>There are several possibilities of where to go next</h3>
 There are several possibilities of where to go next.  
 <p>  <p>
 Please click on the the resource you intend to access:  Please click on the the resource you intend to access:
 <p>  <p>
Line 354  ENDSTART Line 364  ENDSTART
                      $r->print('</table></body></html>');                       $r->print('</table></body></html>');
      return OK;       return OK;
                   } else {                    } else {
         my $bodytag=&Apache::loncommon::bodytag('No Resource');
                      $r->print(<<ENDNONE);                       $r->print(<<ENDNONE);
 <head><title>Choose Next Location</title></head>  <head><title>No Resource</title></head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img src="/adm/lonIcons/lonlogos.gif" align=right>  <h3>Next resource could not be identified.</h3>
 <h1>Sorry!</h1>  <p>You probably are at the <b>beginning</b> or the <b>end</b> of the 
 <h2>Next resource could not be identified.</h2>  course.</p>
 <h3>You probably are at the beginning or the end of the course.</h3>  <ul>
   <li><a href="/adm/flip?postdata=return:">Go Back</a></li>
   <li><a href="/adm/navmaps">Navigate Course Content</a></li>
   </ul>
 </body>  </body>
 </html>  </html>
 ENDNONE  ENDNONE

Removed from v.1.36  
changed lines
  Added in v.1.39


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