--- lib/MT/App/Comments.pm.orig Wed Jan 14 21:25:52 2004 +++ lib/MT/App/Comments.pm Wed Jan 14 22:02:43 2004 @@ -39,9 +39,11 @@ my $q = $app->{query}; my $uri = encode_html($q->param('u')); return < -Redirecting... - + + + +Redirecting... + --- lib/MT/Template/Context.pm.orig Thu Jan 15 14:36:13 2004 +++ lib/MT/Template/Context.pm Thu Jan 15 17:33:55 2004 @@ -863,7 +863,11 @@ my $show_email = 1 unless exists $args->{show_email}; my $show_url = 1 unless exists $args->{show_url}; if ($show_url && $a->url) { - return sprintf qq(%s), $a->url, $name; + return sprintf qq(%s), $a->url, $name; } elsif ($show_email && $a->email) { my $str = "mailto:" . $a->email; $str = spam_protect($str) if $args->{'spam_protect'}; @@ -1184,7 +1184,11 @@ my $cgi_path = MT::ConfigMgr->instance->CGIPath; $cgi_path =~ s#([^/])$#$1/#; my $comment_script = MT::ConfigMgr->instance->CommentScript; - return sprintf(qq(%s), + if($c->id){ + return sprintf(qq(%s), $cgi_path, $comment_script, $c->id, $name); + } else { + return sprintf(qq(%s), $c->url, $name); + } } elsif ($show_email && $c->email) { my $email = remove_html($c->email);