change_posting_visibility(): works now recursive, todo: delete 'invisible'

[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 27c211b64ac8d4b187ed5af5d2cd5a360777d7d9..11ec9aa6d8960ee8d39e64b011ccf8e577b0dd50 100644 (file)
--- a/selfforum-cgi/shared/Posting/Handle.pm
+++ b/selfforum-cgi/shared/Posting/Handle.pm
@@ -17,7 +17,7 @@ use base qw(Exporter);
 
 @EXPORT = qw(hide_posting recover_posting);
 
-use Posting::_lib;
+use Posting::_lib qw(get_message_node);
 
 use XML::DOM;
 
@@ -80,9 +80,16 @@ sub change_posting_visibility($$$)
     my $parser = new XML::DOM::Parser;
     my $xml = $parser->parsefile($fname);
 
+    # Set flag in given msg
     my $mnode = get_message_node($xml, $tid, $mid);
     $mnode->setAttribute('invisible', $invisible);
 
+    # Set flag in sub nodes
+    for ($mnode->getElementsByTagName('Message'))
+    {
+        $_->setAttribute('invisible', $invisible);
+    }
+
     $xml->printToFile($fname.'.temp');
     rename $fname.'.temp', $fname;
 }