[vhffs-dev] [1047] Fixes modobot echoes which happens when you ask for the full list while new entries has not been displayed yet (very rare cases)

[subversion@xxxxxxxxxxxxx]

Revision: 1047
Author:   gradator
Date:     2007-10-29 21:02:35 +0000 (Mon, 29 Oct 2007)

Log Message:
-----------
Fixes modobot echoes which happens when you ask for the full list while new entries has not been displayed yet (very rare cases)

Modified Paths:
--------------
    trunk/vhffs-irc/modobot.pl


Modified: trunk/vhffs-irc/modobot.pl
===================================================================
--- trunk/vhffs-irc/modobot.pl	2007-10-28 22:25:43 UTC (rev 1046)
+++ trunk/vhffs-irc/modobot.pl	2007-10-29 21:02:35 UTC (rev 1047)
@@ -59,7 +59,7 @@
 
 sub list_moderation
 {
-	my $seq = shift;  # 1 to sequential display
+	my $seq = shift;  # set that to 1 in order to display only new entries
 
 	my $objects = Vhffs::Object::getall( $vhffs, undef, Vhffs::Constants::WAITING_FOR_VALIDATION );
 	if( defined $objects )  {
@@ -75,7 +75,7 @@
 			$msg .= ' ['.$user->get_lang.']   '.$group->get_groupname.'   '.$object->get_label.'   '.$obj->get_description;
 			irc_msg( $msg );
 
-			${%oldobjects}{$obj->get_oid} = '' if $seq;
+			${%oldobjects}{$obj->get_oid} = '';
 		}
 	}
 }