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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 26 Feb 2002 21:01:33 -0000


albertel		Tue Feb 26 16:01:33 2002 EDT

  Modified files:              
    /loncom/auth	loncacc.pm lonacc.pm 
  Log:
  - use the new add_to_env command in loncommon, this way <select multiple> will work 
  
  
Index: loncom/auth/loncacc.pm
diff -u loncom/auth/loncacc.pm:1.20 loncom/auth/loncacc.pm:1.21
--- loncom/auth/loncacc.pm:1.20	Fri Jan  4 10:10:54 2002
+++ loncom/auth/loncacc.pm	Tue Feb 26 16:01:33 2002
@@ -2,7 +2,7 @@
 # Cookie Based Access Handler for Construction Area
 # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
 #
-# $Id: loncacc.pm,v 1.20 2002/01/04 15:10:54 www Exp $
+# $Id: loncacc.pm,v 1.21 2002/02/26 21:01:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,7 +115,7 @@
                $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;
+	       &Apache::loncommon::add_to_env("form.$name",$value);
             } 
         } else {
 	    my $contentsep=$1;
@@ -135,7 +135,7 @@
                         } else {
                             $value=~s/\s+$//s;
                         }
-                        $ENV{"form.$name"}=$value;
+			&Apache::loncommon::add_to_env("form.$name",$value);
                     }
                     if ($i<$#lines) {
 			$i++;
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.27 loncom/auth/lonacc.pm:1.28
--- loncom/auth/lonacc.pm:1.27	Mon Feb 25 16:22:51 2002
+++ loncom/auth/lonacc.pm	Tue Feb 26 16:01:33 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.27 2002/02/25 21:22:51 www Exp $
+# $Id: lonacc.pm,v 1.28 2002/02/26 21:01:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,11 +100,7 @@
                $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;
-               if ($ENV{"form.$name"}) {
-                  $ENV{"form.$name"}.=','.$value;
-	       } else {
-                  $ENV{"form.$name"}=$value;
-	       }
+	       &Apache::loncommon::add_to_env("form.$name",$value);
             }
         } else {
 	    my $contentsep=$1;
@@ -124,7 +120,7 @@
                         } else {
                             $value=~s/\s+$//s;
                         }
-                        $ENV{"form.$name"}=$value;
+			&Apache::loncommon::add_to_env("form.$name",$value);
                     }
                     if ($i<$#lines) {
 			$i++;