- # munge page name to be valid, no matter what freeform text
- # is entered
- my $page=lc($q->param('title'));
- $page=~y/ /_/;
- $page=~s/([^-A-Za-z0-9_:+/])/"__".ord($1)."__"/eg;
- # if the page already exist, munge it to be unique
+ my $page=titlepage(lc($q->param('title')));
+ # if the page already exists, munge it to be unique