[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

www lon-capa-cvs@mail.lon-capa.org
Tue, 02 Sep 2003 13:07:51 -0000


www		Tue Sep  2 09:07:51 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Definitely not what caused bug #2073 to happen, but still wrong: catch
  POSTed variables to a problem, even if it is embedded into a page.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.407 loncom/lonnet/perl/lonnet.pm:1.408
--- loncom/lonnet/perl/lonnet.pm:1.407	Fri Aug 29 16:38:12 2003
+++ loncom/lonnet/perl/lonnet.pm	Tue Sep  2 09:07:51 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.407 2003/08/29 20:38:12 www Exp $
+# $Id: lonnet.pm,v 1.408 2003/09/02 13:07:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1228,7 +1228,7 @@
     my $fnsymb=shift;
     unless ($ENV{'request.course.id'}) { return ''; }
     my $what=$fnsymb.':'.$ENV{'user.name'}.':'.$ENV{'user.domain'};
-    if ($fnsymb=~/(problem|exam|quiz|assess|survey|form)$/) {
+    if ($fnsymb=~/(problem|exam|quiz|assess|survey|form|page)$/) {
         $what.=':POST';
 	foreach (keys %ENV) {
             if ($_=~/^form\.(.*)/) {