[Krang-CVS] [5431] added URL to success/failure messages (optionally) sent after scheduled publish

[<no...@kr...>]

Revision: 5431
Author:   noam
Date:     2008-10-02 18:08:08 -0400 (Thu, 02 Oct 2008)

Log Message:
-----------
added URL to success/failure messages (optionally) sent after scheduled publish

Modified Paths:
--------------
    trunk/krang/lib/Krang/Schedule/Action/publish.pm

Modified: trunk/krang/lib/Krang/Schedule/Action/publish.pm
===================================================================
--- trunk/krang/lib/Krang/Schedule/Action/publish.pm	2008-10-02 22:03:19 UTC (rev 5430)
+++ trunk/krang/lib/Krang/Schedule/Action/publish.pm	2008-10-02 22:08:08 UTC (rev 5431)
@@ -128,7 +128,8 @@
     my ($self, $error) = @_;
     my $object = $self->{object};
     my $type = ($object->isa(pkg('Media')) ? 'Media' : 'Story');
-    return "Krang $type ".$self->{object_id}." was not published due to the error below:\n\n$error";
+    return sprintf("Krang %s %d (%s) was not published due to the error below:\n\n",
+                   $type, $self->{object_id}, $object->url, $error);
 }
 
 sub success_subject {
@@ -142,7 +143,8 @@
     my $self = shift;
     my $object = $self->{object};
     my $type = ($object->isa(pkg('Media')) ? 'Media' : 'Story');
-    return $type." ".$self->{object_id}." has been successfully published";
+    return sprintf("Krang %s %d (%s) has been successfully published",
+                   $type, $self->{object_id}, $object->url);
 }
 
 =head1 See Also