[livejournal] r19879: LJSUP-8857: Updating commenting form

U   trunk/htdocs/talkpost_do.bml

Modified: trunk/htdocs/talkpost_do.bml
===================================================================
--- trunk/htdocs/talkpost_do.bml	2011-08-29 05:50:38 UTC (rev 19878)
+++ trunk/htdocs/talkpost_do.bml	2011-08-29 06:07:39 UTC (rev 19879)
@@ -362,9 +362,16 @@
         $ret .= "<h1>$ML{'.success.title'}</h1>";
 
         my $mlcode;
-        $commentlink =~ /^(.+)(\#.)$/;
-        my ($curl, $cadr) = ($1, $2);
+        my ($curl, $cadr);
 
+        if ( $commentlink =~ /^(.+)(\#.+)$/ ) {
+            ($curl, $cadr) = ($1, $2);
+        }
+        else {
+            $curl = $commentlink;
+            $cadr = '';
+        }
+
         if ($comment->{state} eq 'A') {
             # Redirect the user back to their post as long as it didn't unscreen its parent,
             # is screened itself, or they logged in