[openca-cvsdev] CVS: openca-0.9/src/modules/openca-req REQ.pm,1.37,1.38

[<ope...@li...>]

Update of /cvsroot/openca/openca-0.9/src/modules/openca-req
In directory usw-pr-cvs1:/tmp/cvs-serv18068/openca-0.9/src/modules/openca-req

Modified Files:
	REQ.pm 
Log Message:
several small fixes for i18n


Index: REQ.pm
===================================================================
RCS file: /cvsroot/openca/openca-0.9/src/modules/openca-req/REQ.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** REQ.pm	18 Sep 2002 10:53:16 -0000	1.37
--- REQ.pm	27 Sep 2002 12:44:00 -0000	1.38
***************
*** 525,529 ****
  		my $type  = $attr_types[0];
  		my $value = $rdn->getAttributeValue ($type);
! 		push (@{$ret->{SUBJECT_HASH}->{uc($type)}}, $value);
  		print "OpenCA::REQ->parseReq: DN_HASH: $type=$value<br>\n" if ($self->{DEBUG});
  	}
--- 525,529 ----
  		my $type  = $attr_types[0];
  		my $value = $rdn->getAttributeValue ($type);
! 		push (@{$ret->{DN_HASH}->{uc($type)}}, $value);
  		print "OpenCA::REQ->parseReq: DN_HASH: $type=$value<br>\n" if ($self->{DEBUG});
  	}
***************
*** 550,558 ****
  		}
  	} elsif ($ret->{HEADER}->{SUBJECT} and 
! 	    $ret->{SUBJECT_HASH}->{EMAILADDRESS} and
! 	    $ret->{SUBJECT_HASH}->{EMAILADDRESS}[0]) {
! 		$ret->{EMAILADDRESS} = $ret->{SUBJECT_HASH}->{EMAILADDRESS}[0];
! 	} else {
  		$ret->{EMAILADDRESS} = $ret->{DN_HASH}->{EMAILADDRESS}[0];
  	}
  	if ($self->{DEBUG}) {
--- 550,558 ----
  		}
  	} elsif ($ret->{HEADER}->{SUBJECT} and 
! 	    $ret->{DN_HASH}->{EMAILADDRESS} and
! 	    $ret->{DN_HASH}->{EMAILADDRESS}[0]) {
  		$ret->{EMAILADDRESS} = $ret->{DN_HASH}->{EMAILADDRESS}[0];
+ 	##} else {
+ 	##	$ret->{EMAILADDRESS} = $ret->{DN_HASH}->{EMAILADDRESS}[0];
  	}
  	if ($self->{DEBUG}) {