[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.26 and 1.27

version 1.26, 2002/01/04 14:57:14 version 1.27, 2002/02/25 21:22:51
Line 34 Line 34
 # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer  # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer
 # 12/15 Scott Harrison  # 12/15 Scott Harrison
 # YEAR=2002  # YEAR=2002
 # 1/4 Gerd Kortemeyer  # 1/4,2/25 Gerd Kortemeyer
 #  #
 ###  ###
   
Line 100  sub handler { Line 100  sub handler {
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $name  =~ tr/+/ /;                 $name  =~ tr/+/ /;
                $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $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 {          } else {
     my $contentsep=$1;      my $contentsep=$1;
Removed from v.1.26  
changed lines
  Added in v.1.27

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>