[Rt-commit] r8857 - rt/branches/3.7-EXPERIMENTAL/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Fri Aug 31 08:17:16 2007
New Revision: 8857

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Template_Overlay.pm

Log:
* add IsEmpty method to template

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Template_Overlay.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Template_Overlay.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Template_Overlay.pm	Fri Aug 31 08:17:16 2007
@@ -252,6 +252,20 @@
     return ( $self->SUPER::Delete(@_) );
 }
 
+=head2 IsEmpty
+
+Returns true value if content of the template is empty, otherwise
+returns false.
+
+=cut
+
+sub IsEmpty {
+    my $self = shift;
+    my $content = $self->Content;
+    return 0 if defined $content && length $content;
+    return 1;
+}
+
 =head2 MIMEObj
 
 Returns L<MIME::Entity> object parsed using L</Parse> method. Returns
@@ -336,11 +350,11 @@
         return (undef, $self->loc("Permissions denied"));
     }
 
-    my $content = $self->SUPER::_Value('Content');
-    unless ( defined $content && length $content ) {
-        return ( '', $self->loc("Template is empty") );
+    if ( $self->IsEmpty ) {
+        return ( undef, $self->loc("Template is empty") );
     }
 
+    my $content = $self->SUPER::_Value('Content');
     # We need to untaint the content of the template, since we'll be working
     # with it
     $content =~ s/^(.*)$/$1/;