hide_posting(), recover_posting(): use _lib::get_all_threads() and _lib::create_forum...

[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..9d2a94abcf1582390e336dd1adbef1f29314d316 100644 (file)
--- a/selfforum-cgi/shared/Posting/Handle.pm
+++ b/selfforum-cgi/shared/Posting/Handle.pm
@@ -43,18 +43,24 @@ sub hide_posting($$$)
     change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 1);
 
     # Forum
     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
+    );
+    create_forum_xml_string($f, \%cfxs);

 }
 
 ### recover_posting() ##########################################################
 }
 
 ### recover_posting() ##########################################################


@@ -78,18 +84,24 @@ sub recover_posting($$$)
     change_posting_visibility($tfile, 't'.$tid, 'm'.$mid, 0);
 
     # Forum
     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
+    );
+    create_forum_xml_string($f, \%cfxs);

 }
 
 ### change_posting_visibility () ###############################################
 }
 
 ### change_posting_visibility () ###############################################