[Catalyst-commits] r7079 - Catalyst-View-Email/0.10/lib/Catalyst/View

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-10-30 16:19:50 +0000 (Tue, 30 Oct 2007)
New Revision: 7079

Modified:
   Catalyst-View-Email/0.10/lib/Catalyst/View/Email.pm
Log:
Fixing call to generate_part

Modified: Catalyst-View-Email/0.10/lib/Catalyst/View/Email.pm
===================================================================
--- Catalyst-View-Email/0.10/lib/Catalyst/View/Email.pm	2007-10-30 16:07:41 UTC (rev 7078)
+++ Catalyst-View-Email/0.10/lib/Catalyst/View/Email.pm	2007-10-30 16:19:50 UTC (rev 7079)
@@ -222,7 +222,7 @@
         $mime{attributes}->{charset} = $self->{default}->{charset};
     }
 
-    my $message = $self->generate_part( \%mime );
+    my $message = $self->generate_part( $c, \%mime );
 
     #my $message = Email::MIME->create(%mime);
 
@@ -260,8 +260,9 @@
 }
 
 sub generate_part {
-    my ( $self, $attr ) = @_;
+    my ( $self, $c, $attr ) = @_;
 
+$c->log->info("generate_part in Email");    
     # setup the attributes (merge with defaults)
     $attr->{attributes} = $self->setup_attributes($attr->{attributes});
     return Email::MIME->create(%$attr);