correct dup page name detect in blog posting code

diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm
index 05f4c6e0ffd03cb10f646b92b47834ca0594a373..1c4e088dc5c9b92853f24b13ed5a1c23aa82c45d 100644 (file)
--- a/IkiWiki/CGI.pm
+++ b/IkiWiki/CGI.pm
@@ -686,7 +686,7 @@ sub cgi (;$$) { #{{{
                # if the page already exists, munge it to be unique
                my $from=$q->param('from');
                my $add="";
                # if the page already exists, munge it to be unique
                my $from=$q->param('from');
                my $add="";

-               while (exists $pagecase{lc "$from/$page$add"}) {
+               while (exists $pagecase{lc($from."/".titlepage($page).$add)}) {

                        $add=1 unless length $add;
                        $add++;
                }
                        $add=1 unless length $add;
                        $add++;
                }