proper fix for adding file, based on jkoenig's patch
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Wed, 15 Aug 2007 00:06:20 +0000 (00:06 +0000)
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Wed, 15 Aug 2007 00:06:20 +0000 (00:06 +0000)
IkiWiki/CGI.pm
IkiWiki/Rcs/Stub.pm

index 31b1f748a6b3a1c0a8fa009ed54f476ecc02d5d8..07319ad22223da7261ee568ee1f46cbee3d394b7 100644 (file)
@@ -497,9 +497,11 @@ sub cgi_editpage ($$) { #{{{
        else {
                # save page
                check_canedit($page, $q, $session);
-               if (! -e "$config{srcdir}/$file" && 
-                   ! -e "$config{underlaydir}/$file" &&
-                   $form->field("do") ne "create") {
+
+               my $exists=-e "$config{srcdir}/$file";
+
+               if ($form->field("do") ne "create" &&
+                   ! $exists && ! -e "$config{underlaydir}/$file") {
                        $form->tmpl_param("page_gone", 1);
                        $form->field(name => "do", value => "create", force => 1);
                        $form->tmpl_param("page_select", 0);
@@ -510,8 +512,7 @@ sub cgi_editpage ($$) { #{{{
                        print misctemplate($form->title, $form->render(submit => \@buttons));
                        return;
                }
-               elsif (-e "$config{srcdir}/$file" &&
-                      $form->field("do") eq "create") {
+               elsif ($form->field("do") eq "create" && $exists) {
                        $form->tmpl_param("creation_conflict", 1);
                        $form->field(name => "do", value => "edit", force => 1);
                        $form->tmpl_param("page_select", 0);
@@ -558,7 +559,7 @@ sub cgi_editpage ($$) { #{{{
                                $message=$form->field('comments');
                        }
                        
-                       if (! -e "$config{srcdir}/$file") {
+                       if (! $exists) {
                                rcs_add($file);
                        }
 
index 03757758aa2fc3815223430848b8bfac9bdd8fcc..19ecfa88df571bd2ca4553c4c9bbc0690ba12188 100644 (file)
@@ -29,6 +29,8 @@ sub rcs_commit ($$$;$$) {
 
 sub rcs_add ($) {
        # Add a file. The filename is relative to the root of the srcdir.
+       # Note that this should not check the new file in, it should only
+       # prepare for it to be checked in when rcs_commit is called.
 }
 
 sub rcs_recentchanges ($) {