[dw-free] Make /poll/ without args redirect to poll creator

[afuna]

[commit: http://hg.dwscoalition.org/dw-free/rev/6dc682922d77]

http://bugs.dwscoalition.org/show_bug.cgi?id=529

Redirect /poll/ without args to poll creator.

Patch by rho.

Files modified:

• htdocs/poll/index.bml
• htdocs/poll/index.bml.text

--------------------------------------------------------------------------------
diff -r 1e6ced387e4e -r 6dc682922d77 htdocs/poll/index.bml
--- a/htdocs/poll/index.bml	Thu Mar 19 04:56:09 2009 +0000
+++ b/htdocs/poll/index.bml	Thu Mar 19 14:23:13 2009 +0000
@@ -23,8 +23,7 @@
     my $pollid = ($FORM{'id'} || $FORM{'pollid'})+0;
 
     unless ($pollid) {
-        $body .= BML::ml('.gotocreate2', {'aopts' => "href='$LJ::SITEROOT/poll/create.bml'"});
-        return;
+        return BML::redirect( "$LJ::SITEROOT/poll/create.bml" );
     }
 
     my $poll = LJ::Poll->new($pollid);
diff -r 1e6ced387e4e -r 6dc682922d77 htdocs/poll/index.bml.text
--- a/htdocs/poll/index.bml.text	Thu Mar 19 04:56:09 2009 +0000
+++ b/htdocs/poll/index.bml.text	Thu Mar 19 14:23:13 2009 +0000
@@ -8,8 +8,6 @@
 .error.postdeleted=Owning post deleted, so poll no longer accessible.
 
 .filloutpoll=Fill out Poll
-
-.gotocreate2=This is the address to participate in a poll. You've stumbled onto an address which does nothing right now. If you'd like, you can <a [[aopts]]>create a new poll</a>.
 
 .pollnotfound=Poll not found.
 
--------------------------------------------------------------------------------