[LON-CAPA-cvs] cvs: rat / lonpageflip.pm

www lon-capa-cvs@mail.lon-capa.org
Sat, 07 Sep 2002 02:55:39 -0000


www		Fri Sep  6 22:55:39 2002 EDT

  Modified files:              
    /rat	lonpageflip.pm 
  Log:
  Recognize additional "native" resource URLs from uploaded docs.
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.29 rat/lonpageflip.pm:1.30
--- rat/lonpageflip.pm:1.29	Sun Aug 18 17:45:41 2002
+++ rat/lonpageflip.pm	Fri Sep  6 22:55:38 2002
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.29 2002/08/18 21:45:41 www Exp $
+# $Id: lonpageflip.pm,v 1.30 2002/09/07 02:55:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -202,8 +202,7 @@
       }
       $currenturl=~s/^http\:\/\///;
       $currenturl=~s/^[^\/]+//;
-      unless (($currenturl=~/^\/res\//) || 
-              ($currenturl=~/^\/adm\/wrapper\//))  {
+      unless ($currenturl=~/^\/(res|adm\/wrapper|public|adm\/coursedocs)\//) {
 	 my $last;
          if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
                     &GDBM_READER(),0640)) {