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

[albertel]

albertel		Fri Oct 20 18:04:16 2006 EDT

  Modified files:              
    /rat	lonpageflip.pm 
  Log:
  - furl has the symb arg appeneded to it
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.73 rat/lonpageflip.pm:1.74
--- rat/lonpageflip.pm:1.73	Fri Oct 20 18:03:24 2006
+++ rat/lonpageflip.pm	Fri Oct 20 18:04:16 2006
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.73 2006/10/20 22:03:24 albertel Exp $
+# $Id: lonpageflip.pm,v 1.74 2006/10/20 22:04:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -240,7 +240,13 @@
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
 	    &GDBM_READER(),0640)) {
 	$furl=$hash{'first_url'};
-        if (!&Apache::lonnet::allowed('bre',$furl)) {
+	my %args;
+	my ($url,$args) = split(/\?/,$furl);
+	foreach my $pair (split(/\&/,$args)) {
+	    my ($name,$value) = split(/=/,$pair);
+	    $args{&unescape($name)} = &unescape($value);
+	}
+        if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {
 # Wow, we cannot see this ... move forward to the next one that we can see
 	    my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');
 # Build the new URL