--- lists	Mon Mar 11 15:31:03 2002
+++ lists.new	Thu Apr  4 12:49:08 2002
@@ -34,6 +34,7 @@
 	push( @cols, "Common Name" );
 	push( @cols, "Issued on" );
 	push( @cols, "E-Mail" );
+	push( @cols, "Role" );
 
 } elsif( $action =~ /^certsExpiredList/i) {
 	$dataType  = 'EXPIRED_CERTIFICATE';
@@ -67,6 +68,7 @@
 	push( @cols, "Common Name" );
 	push( @cols, "Revoked On" );
 	push( @cols, "E-Mail" );
+	push( @cols, "Role" );
 
 } elsif ( $action =~ /^suspendedList/i ) {
 	$dataType  = 'SUSPENDED_CERTIFICATE';
@@ -118,7 +120,7 @@
 foreach $dbItem ( @list ) {
 
 	## Common Variables
-	my ( $format, $key, $ser_col, $op_col, $email, $email_col );
+	my ( $format, $key, $ser_col, $op_col, $email, $email_col, $role_col );
 	my ( $lnk, $parsed, $head );
 
         my @vals;
@@ -163,7 +165,11 @@
 	} else {
 		$ser_col = $key;
 	}
-
+	if( $dataType =~ /CERTIFICATE/i ) {
+        	$role_col = $head->{ROLE};
+	} else {
+		$role_col = "n/a";
+	}
         if( (not $head->{OPERATOR}) or ($head->{OPERATOR} eq "n/a") ) {
                 $op_col = "n/a";
         } else {
@@ -176,7 +182,7 @@
 	push( @vals, $ser_col );
         push( @vals, ( $submit or "n/a" ) );
         push( @vals, ( $notBefore or "n/a" ) );
-
+	
 	if( $dataType =~ /CERTIFICATE/ ) {
 		if( $parsed->{EMAIL} ) {
 			$email = ( $parsed->{EMAIL} or "n/a" );
@@ -190,6 +196,7 @@
 
         	push( @vals, $email_col );
 	}
+        push( @vals, ( $role_col or "n/a" ) );
 
         $table .= $query->addTableLine( DATA =>[ @vals ]);
 }