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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 20 Sep 2005 07:56:26 -0000


albertel		Tue Sep 20 03:56:26 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - forward port 1.651.2.4
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.656 loncom/lonnet/perl/lonnet.pm:1.657
--- loncom/lonnet/perl/lonnet.pm:1.656	Tue Sep 13 15:43:01 2005
+++ loncom/lonnet/perl/lonnet.pm	Tue Sep 20 03:56:23 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.656 2005/09/13 19:43:01 albertel Exp $
+# $Id: lonnet.pm,v 1.657 2005/09/20 07:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1643,7 +1643,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|page)$/) {
+    if ($fnsymb=~/(problem|exam|quiz|assess|survey|form|task|page)$/) {
         $what.=':POST';
         # FIXME: Probably ought to escape things....
 	foreach (keys %env) {