hide_posting(), recover_posting(): bugfix: save file after changing it.

[selfforum.git] / selfforum-cgi / shared / Posting / Handle.pm

diff --git a/selfforum-cgi/shared/Posting/Handle.pm b/selfforum-cgi/shared/Posting/Handle.pm
index 5ca655677bacf52e1036b0a033b9a87fd6c3fa51..246f4e7fbd4651dd1b970313255df0b2feba2772 100644 (file)
--- a/selfforum-cgi/shared/Posting/Handle.pm
+++ b/selfforum-cgi/shared/Posting/Handle.pm
@@ -43,18 +43,25 @@ sub hide_posting($$$)
     change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 1);
 
     # Forum
-    change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 1);
-
-    #my $f = get_all_threads($forum, 1, 0);
-    #for (@{f->{$tid}})
-    #{
-    #    if ($_->{'mid'} == $mid)
-    #    {
-    #        $_->{'deleted'} = 1;
-    #    }
-    #}
-    #
-    #create_forum_xml_string($f, );
+    #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 1);    # OBSOLETE
+
+    my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0);
+
+    for (@{$f->{$tid}})
+    {
+        if ($_->{'mid'} == $mid)
+        {
+            $_->{'deleted'} = 1;
+        }
+    }
+
+    my %cfxs = (
+        'dtd'         => $dtd,
+        'lastMessage' => $lmsg,
+        'lastThread'  => $lthread
+    );
+    my $xmlstring = create_forum_xml_string($f, \%cfxs);
+    save_file($forum, $$xmlstring);
 }
 
 ### recover_posting() ##########################################################
@@ -78,18 +85,25 @@ sub recover_posting($$$)
     change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 0);
 
     # Forum
-    change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 0);
-
-    #my $f = get_all_threads($forum, 1, 0);
-    #for (@{f->{$tid}})
-    #{
-    #    if ($_->{'mid'} == $mid)
-    #    {
-    #        $_->{'deleted'} = 0;
-    #    }
-    #}
-    #
-    #create_forum_xml_string($f, );
+    #change_posting_visibility($forum, 't'.$tid, 'm'.$mid, 0);    # OBSOLETE
+
+    my ($f, $lthread, $lmsg, $dtd, $zlev) = get_all_threads($forum, 1, 0);
+
+    for (@{$f->{$tid}})
+    {
+        if ($_->{'mid'} == $mid)
+        {
+            $_->{'deleted'} = 0;
+        }
+    }
+
+    my %cfxs = (
+        'dtd'         => $dtd,
+        'lastMessage' => $lmsg,
+        'lastThread'  => $lthread
+    );
+    my $xmlstring = create_forum_xml_string($f, \%cfxs);
+    save_file($forum, $$xmlstring);
 }
 
 ### change_posting_visibility () ###############################################