correct dup page name detect in blog posting code
parent
5b796b0bdb
commit
43fd7cc0c5
|
@ -686,7 +686,7 @@ sub cgi (;$$) { #{{{
|
||||||
# if the page already exists, munge it to be unique
|
# if the page already exists, munge it to be unique
|
||||||
my $from=$q->param('from');
|
my $from=$q->param('from');
|
||||||
my $add="";
|
my $add="";
|
||||||
while (exists $pagecase{lc "$from/$page$add"}) {
|
while (exists $pagecase{lc($from."/".titlepage($page).$add)}) {
|
||||||
$add=1 unless length $add;
|
$add=1 unless length $add;
|
||||||
$add++;
|
$add++;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue