[Bps-public-commit] r15960 - in sd/trunk: .

[spang at bestpractical.com]

Author: spang
Date: Sat Sep 13 17:18:27 2008
New Revision: 15960

Modified:
   sd/trunk/   (props changed)
   sd/trunk/lib/App/SD/CLI/Command/Ticket/Details.pm

Log:
 r49784 at loki:  spang | 2008-09-13 14:11:15 -0400
 gracefully deal with comments with no creator field in ticket details


Modified: sd/trunk/lib/App/SD/CLI/Command/Ticket/Details.pm
==============================================================================
--- sd/trunk/lib/App/SD/CLI/Command/Ticket/Details.pm	(original)
+++ sd/trunk/lib/App/SD/CLI/Command/Ticket/Details.pm	Sat Sep 13 17:18:27 2008
@@ -23,8 +23,13 @@
     my @comments = sort by_creation_date @{$record->comments};
     if (@comments) {
         print "\n=head1 COMMENTS\n\n";
-        print $_->prop('creator') . ': ' . $_->prop('created') . "\n" . $_->prop('content') . "\n\n"
-            for @comments;
+        foreach my $comment (@comments) {
+            my $creator = $comment->prop('creator');
+            my $created = $comment->prop('created');
+            my $content = $comment->prop('content');
+            print "$creator: " if $creator;
+            print "$created\n$content\n\n";
+        }
     }
 
     print "\n=head1 HISTORY\n\n";