--- loncom/auth/lonacc.pm 2001/12/15 20:40:23 1.25 +++ loncom/auth/lonacc.pm 2002/02/25 21:22:51 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.25 2001/12/15 20:40:23 harris41 Exp $ +# $Id: lonacc.pm,v 1.27 2002/02/25 21:22:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,8 @@ # YEAR=2001 # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer # 12/15 Scott Harrison +# YEAR=2002 +# 1/4,2/25 Gerd Kortemeyer # ### @@ -98,7 +100,11 @@ sub handler { $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; @@ -146,6 +152,7 @@ sub handler { } } } + $ENV{'request.method'}=$ENV{'REQUEST_METHOD'}; $r->method_number(M_GET); $r->method('GET'); $r->headers_in->unset('Content-length');