Diff for /rat/lonsequence.pm between versions 1.3 and 1.4

version 1.3, 2000/10/17 10:36:17 version 1.4, 2000/10/17 17:06:15
Line 64  sub handler { Line 64  sub handler {
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',         if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER,0640)) {                      &GDBM_READER,0640)) {
    my $disid='';     my $disid='';
              my $whatend='';
            if ($direction eq 'back') {             if ($direction eq 'back') {
        $disid=$bighash{'map_finish_'.$requrl};         $disid=$bighash{'map_finish_'.$requrl};
                  $whatend='End';
            } else {             } else {
                $disid=$bighash{'map_start_'.$requrl};                 $disid=$bighash{'map_start_'.$requrl};
                  $whatend='Beginning';
            }              } 
            my $disurl='';             my $disurl='';
              my $dismapid='';
            if ($disid) {             if ($disid) {
        $disurl=$bighash{'src_'.$disid};         $disurl=$bighash{'src_'.$disid};
                  $dismapid=(split(/\./,$disid))[1];
            }             }
            my $symb='';             my $symb='';
              my $sequencetitle='';
            unless($disurl) {             unless($disurl) {
                if ($symb=&Apache::lonnet::symbread()) {                 if ($symb=&Apache::lonnet::symbread()) {
      my ($mapurl,$mapid)=split(/\_\_\_/,$symb);
                      $sequencetitle=$bighash{'title_'.
             $bighash{'map_pc_/res/'.$mapurl}.'.'.
     $mapid};
                }                 }
            }             }
 # --------------------------------------- Untie hash, make sure to come by here  # --------------------------------------- Untie hash, make sure to come by here
            untie(%bighash);             untie(%bighash);
            if ($disurl) {             if ($disurl) {
 # -------------------------------------------------- Has first or last resource  # -------------------------------------------------- Has first or last resource
                  &Apache::lonnet::symblist($requrl,$disurl => $dismapid,
                      'last_known' => &Apache::lonnet::declutter($disurl)); 
        $r->content_type('text/html');         $r->content_type('text/html');
                $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);                 $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);
                return REDIRECT;                 return REDIRECT;
Line 93  sub handler { Line 105  sub handler {
                $r->content_type('text/html');                 $r->content_type('text/html');
                $r->send_http_header;                 $r->send_http_header;
                $r->print(<<ENDSYMB);                 $r->print(<<ENDSYMB);
 <html><body>  <html><body bgcolor="#FFFFFF">
   <h2>$whatend of</h2>
   <h1>$sequencetitle</h1>
 </body></html>  </body></html>
 ENDSYMB  ENDSYMB
                return OK                 return OK

Removed from v.1.3  
changed lines
  Added in v.1.4


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