X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmapsutil.pl;h=fba892bb7677f13dfb9fa14e90a1571ad5cb41db;hb=0ce6b60d0dffe894fcefc01605e8c113b47362a2;hp=15488fd063d449aa57abaead69d951c96d36d3f1;hpb=18385edca6c1b1d92351133ab2696c48a48b3f07;p=clearscm.git

diff --git a/maps/bin/mapsutil.pl b/maps/bin/mapsutil.pl
index 15488fd..fba892b 100755
--- a/maps/bin/mapsutil.pl
+++ b/maps/bin/mapsutil.pl
@@ -374,10 +374,11 @@ $~ = "USERLIST";
 } # ShowUsers
 
 sub ShowEmail() {
+  my @fields = qw(userid timestamp sender subject);
   my ($err, $msg) = $MAPS::db->find(
     'email',
     "userid='$userid'",
-    qw(userid timestamp sender subject),
+    \@fields,
   );
 
 my ($timestamp, $sender, $subject);
@@ -391,9 +392,9 @@ $~ = "EMAIL";
   while (my $rec = $MAPS::db->getnext) {
     last unless $rec->{userid};
 
-   $timestamp = $rec->{timestamp};
-   $sender    = $rec->{sender};
-   $subject   = $rec->{subject};
+   $timestamp = $rec->{timestamp} || '<undef>';
+   $sender    = $rec->{sender}    || '<undef>';
+   $subject   = $rec->{subject}   || '<undef>';
 
     write();
   } # while