Diff for /rat/lonambiguous.pm between versions 1.11 and 1.12

version 1.11, 2004/12/17 22:40:24 version 1.12, 2004/12/20 20:13:03
Line 149  sub handler { Line 149  sub handler {
            return OK;             return OK;
        }         }
     }      }
   
 # ------------------------------------------------ Would be standalone resource  # ------------------------------------------------ Would be standalone resource
   
    if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',     if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
Line 173  sub handler { Line 172  sub handler {
  }   }
          if ($couldbe) {           if ($couldbe) {
             @possibilities=split(/\,/,$couldbe);              @possibilities=split(/\,/,$couldbe);
       if ($#possibilities==0) {
    my $id=$possibilities[0];
    my $resurl=$bighash{'src_'.$id};
    my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]};
    my $symb=&make_symb($id);
    $r->content_type('text/html');
    &Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb);
    $r->header_out(Location => 
      'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb);
    return REDIRECT;
       }
             if ($#possibilities>0) {              if ($#possibilities>0) {
 # ----------------------------------------------- Okay, really multiple choices  # ----------------------------------------------- Okay, really multiple choices
                $r->content_type('text/html');                 $r->content_type('text/html');

Removed from v.1.11  
changed lines
  Added in v.1.12


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