===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- palm/Palm-Keyring/examples/example3.pl	2007/01/30 04:59:55	1.2
+++ palm/Palm-Keyring/examples/example3.pl	2007/01/31 04:17:15	1.3
@@ -56,12 +56,12 @@
 			$matched++ if uc($category) eq uc($cat);
 		}
 		foreach my $name (@{ $Names}) {
-			$matched++ if uc($r->{'data'}) eq uc($name);
+			$matched++ if uc($r->{'name'}) eq uc($name);
 		}
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
 
 		# XXX Fix up formatting
-		print $r->{'data'} .
+		print $r->{'name'} .
 			":" .
 			$r->{'category'} . 
 			":" .
@@ -96,14 +96,14 @@
 			$matched++ if uc($category) eq uc($cat);
 		}
 		foreach my $name (@{ $Names}) {
-			$matched++ if uc($r->{'data'}) eq uc($name);
+			$matched++ if uc($r->{'name'}) eq uc($name);
 		}
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
 
         my $a = $pdb->Decrypt($r);
 
 		# XXX Fix up formatting
-		print $r->{'data'} .  "\n\t" .
+		print $r->{'name'} .  "\n\t" .
 			"Category: " . $category .  "\n\t" .
 			"Account:  " . $a->{'account'} .  "\n\t" .
 			"Password: " . $a->{'password'} .  "\n";