Diff for /rat/lonpageflip.pm between versions 1.29 and 1.30

version 1.29, 2002/08/18 21:45:41 version 1.30, 2002/09/07 02:55:38
Line 202  sub handler { Line 202  sub handler {
       }        }
       $currenturl=~s/^http\:\/\///;        $currenturl=~s/^http\:\/\///;
       $currenturl=~s/^[^\/]+//;        $currenturl=~s/^[^\/]+//;
       unless (($currenturl=~/^\/res\//) ||         unless ($currenturl=~/^\/(res|adm\/wrapper|public|adm\/coursedocs)\//) {
               ($currenturl=~/^\/adm\/wrapper\//))  {  
  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',
                     &GDBM_READER(),0640)) {                      &GDBM_READER(),0640)) {

Removed from v.1.29  
changed lines
  Added in v.1.30


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