[LON-CAPA-cvs] cvs: loncom(version_2_2_X) /auth lonauth.pm

[albertel]

albertel		Fri Oct  6 10:29:44 2006 EDT

  Modified files:              (Branch: version_2_2_X)
    /loncom/auth	lonauth.pm 
  Log:
  - backport 1.84
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.82 loncom/auth/lonauth.pm:1.82.2.1
--- loncom/auth/lonauth.pm:1.82	Wed Aug 30 18:12:11 2006
+++ loncom/auth/lonauth.pm	Fri Oct  6 10:29:44 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.82 2006/08/30 22:12:11 albertel Exp $
+# $Id: lonauth.pm,v 1.82.2.1 2006/10/06 14:29:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -344,7 +344,9 @@
 
 
     my $buffer;
-    $r->read($buffer,$r->header_in('Content-length'),0);
+    if ($r->header_in('Content-length') > 0) {
+	$r->read($buffer,$r->header_in('Content-length'),0);
+    }
     my @pairs=split(/&/,$buffer);
     my $pair; my $name; my $value;
     undef %FORM;