X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/bb8096264ef25aace6fd04a70941f4591ae0123a..bce9a327c305455c4721d9f6b087a9298f7e460f:/IkiWiki/CGI.pm diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm index 45a72bfcb..89047a952 100644 --- a/IkiWiki/CGI.pm +++ b/IkiWiki/CGI.pm @@ -28,6 +28,8 @@ sub page_locked ($$;$) { #{{{ sub cgi_recentchanges ($) { #{{{ my $q=shift; + unlockwiki(); + my $template=HTML::Template->new( filename => "$config{templatedir}/recentchanges.tmpl" ); @@ -353,7 +355,9 @@ sub cgi_editpage ($$) { #{{{ my ($from)=$form->param('from')=~/$config{wiki_file_regexp}/; if (! defined $from || ! length $from || $from ne $form->param('from') || - $from=~/$config{wiki_file_prune_regexp}/ || $from=~/^\//) { + $from=~/$config{wiki_file_prune_regexp}/ || + $from=~/^\// || + $form->submitted eq "Preview") { @page_locs=$best_loc=$page; } else { @@ -511,7 +515,7 @@ sub cgi () { #{{{ # is entered my $page=lc($q->param('title')); $page=~y/ /_/; - $page=~s/([^-A-Za-z0-9_:+/])/"__".ord($1)."__"/eg; + $page=~s/([^-A-Za-z0-9_:+\/])/"__".ord($1)."__"/eg; # if the page already exist, munge it to be unique my $from=$q->param('from'); my $add="";