entry preview page does not support QuickReply

Was generating a scripting error when viewing the page.
dreamwidth · Apr 28, 2017 · fa394ce · fa394ce
1 parent aa6bb98
commit fa394ce
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/cgi-bin/LJ/S2.pm b/cgi-bin/LJ/S2.pm
@@ -2679,6 +2679,8 @@ sub curr_page_supports_ebox { 0 }
 sub has_quickreply
 {
     my ($page) = @_;
+    return 0 if $page->{_type} eq 'EntryPreviewPage';
+
     my $view = $page->{view};
     # Also needs adding to the list in core2.s2
     return $view eq 'entry' || $view eq 'read' || $view eq 'day' || $view eq 'recent' || $view eq 'network';