[LON-CAPA-cvs] cvs: loncom /auth lonacc.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 25 Feb 2002 21:22:51 -0000


www		Mon Feb 25 16:22:51 2002 EDT

  Modified files:              
    /loncom/auth	lonacc.pm 
  Log:
  Hopefully (POST only) accepts <select multiple> 
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.26 loncom/auth/lonacc.pm:1.27
--- loncom/auth/lonacc.pm:1.26	Fri Jan  4 09:57:14 2002
+++ loncom/auth/lonacc.pm	Mon Feb 25 16:22:51 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.26 2002/01/04 14:57:14 www Exp $
+# $Id: lonacc.pm,v 1.27 2002/02/25 21:22:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,7 +34,7 @@
 # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer
 # 12/15 Scott Harrison
 # YEAR=2002
-# 1/4 Gerd Kortemeyer
+# 1/4,2/25 Gerd Kortemeyer
 #
 ###
 
@@ -100,7 +100,11 @@
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $name  =~ tr/+/ /;
                $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-               $ENV{"form.$name"}=$value;
+               if ($ENV{"form.$name"}) {
+                  $ENV{"form.$name"}.=','.$value;
+	       } else {
+                  $ENV{"form.$name"}=$value;
+	       }
             }
         } else {
 	    my $contentsep=$1;