[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;