[BACK]Return to lonsequence.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonsequence.pm
Revision 1.3: download - view: text, annotated - select for diffs
Tue Oct 17 10:36:17 2000 UTC (23 years, 6 months ago) by www
Branches: MAIN
CVS tags: HEAD
Work on user dialogues

    1: # The LearningOnline Network with CAPA
    2: #
    3: # Sequence Handler
    4: #
    5: # (Handler to resolve ambiguous file locations
    6: #
    7: # (TeX Content Handler
    8: #
    9: # 05/29/00,05/30,10/11 Gerd Kortemeyer)
   10: #
   11: # 10/11,10/12 Gerd Kortemeyer)
   12: #
   13: # 10/16 Gerd Kortemeyer
   14: 
   15: package Apache::lonsequence;
   16: 
   17: use strict;
   18: use Apache::lonnet;
   19: use Apache::Constants qw(:common :http REDIRECT);
   20: use GDBM_File;
   21: 
   22: 
   23: # ----------------------------------------------------------- Could not resolve
   24: 
   25: sub getlost {
   26:     my ($r,$errmsg)=@_;
   27:     $r->content_type('text/html');
   28:     $r->send_http_header;
   29:     $r->print(
   30:  '<head><title>Unknown Error</title></head><body bgcolor="#FFFFFF"><h1>'.
   31:  'LON-CAPA</h1>Could not handle sequence resource reference.<p>'.$errmsg.
   32:  '</body></html>');
   33: }
   34: 
   35: # ================================================================ Main Handler
   36: 
   37: sub handler {
   38:    my $r=shift;
   39: 
   40:    if ($r->header_only) {
   41:       $r->content_type('text/html');
   42:       $r->send_http_header;
   43:       return OK;
   44:    }
   45: 
   46:    my %hash;
   47:    my %bighash;
   48:    my $requrl=$r->uri;
   49: 
   50: # ------------------------------------------------------------ Tie symb db file
   51:   if ($ENV{'request.course.fn'}) {
   52:        my $last;
   53:        if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
   54:                     &GDBM_READER,0640)) {
   55: 	   $last=$hash{'last_direction'};
   56:            untie(%hash);
   57:        }
   58:        my $direction='';
   59:        my $prevmap='';
   60:        if ($last) {
   61: 	  ($prevmap,$direction)=(split(/\_\_\_/,$last));
   62:        }
   63: # ------------------------------------------------------------- Tie big db file
   64:        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
   65:                     &GDBM_READER,0640)) {
   66: 	   my $disid='';
   67:            if ($direction eq 'back') {
   68: 	       $disid=$bighash{'map_finish_'.$requrl};
   69:            } else {
   70:                $disid=$bighash{'map_start_'.$requrl};
   71:            } 
   72:            my $disurl='';
   73:            if ($disid) {
   74: 	       $disurl=$bighash{'src_'.$disid};
   75:            }
   76:            my $symb='';
   77:            unless($disurl) {
   78:                if ($symb=&Apache::lonnet::symbread()) {
   79:                }
   80:            }
   81: # --------------------------------------- Untie hash, make sure to come by here
   82:            untie(%bighash);
   83:            if ($disurl) {
   84: # -------------------------------------------------- Has first or last resource
   85: 	       $r->content_type('text/html');
   86:                $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);
   87:                return REDIRECT;
   88:            } else {
   89: # ---------- Does not have first or last resource, try to find out where we are
   90:                unless ($symb) {
   91: 		   $r->internal_redirect('/adm/ambiguous');
   92:                }
   93:                $r->content_type('text/html');
   94:                $r->send_http_header;
   95:                $r->print(<<ENDSYMB);
   96: <html><body>
   97: </body></html>
   98: ENDSYMB
   99:                return OK
  100:            }
  101:        } else {
  102:           &getlost($r,'Could not access course structure.');
  103:           return OK;
  104:        }
  105:    } else {
  106:       $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
  107:       return HTTP_NOT_ACCEPTABLE; 
  108:    }
  109: 
  110:    return OK;
  111: }
  112: 
  113: 1;
  114: __END__
  115: 
  116: 
  117: 
  118: 
  119: 
  120: 
  121:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>