fixes to fixes to changes to fixes

[maypole.git] / lib / Maypole.pm

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 6b40b7052b5ee5e039a61c90c283b3a86340ec21..fdb1b8659a493d76daad16232a65cf882ae36065 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -582,7 +582,11 @@ sub handler_guts {
   }
 
   # less frequent path - perhaps output has been set to an error message
-  return OK if $self->output;
+  if ($self->output) {
+    $self->{content_type}      ||= $self->__get_mime_type();
+    $self->{document_encoding} ||= "utf-8";
+    return OK;
+  }
 
   # normal path - no output has been generated yet
   my $processed_view_ok = $self->__call_process_view;
@@ -636,6 +640,7 @@ sub __setup_plain_template
     my ($self) = @_;
 
     # It's just a plain template
+    $self->build_form_elements(0);
     $self->model_class(undef);
 
     unless ($self->template) {