oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Force a recount of threads since the archive bug could make them out of date.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-11 14:00:04 -08:00
parent 6e0983a67b
commit dc94fe351a
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
docs/upgrades/upgrade_7.8.9-7.8.10.pl
View file

@ -22,6 +22,7 @@ use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Storage; use WebGUI::Storage;
use WebGUI::Asset; use WebGUI::Asset;
use WebGUI::Asset::Wobject::Collaboration;
my $toVersion = '7.8.10'; my $toVersion = '7.8.10';
@ -31,6 +32,7 @@ my $quiet; # this line required
my $session = start(); # this line required my $session = start(); # this line required
# upgrade functions go here # upgrade functions go here
recountCsThreads($session);
finish($session); # this line required finish($session); # this line required
@ -44,6 +46,20 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet; # print "DONE!\n" unless $quiet;
#} #}
#----------------------------------------------------------------------------
# Describe what our function does
sub recountCsThreads {
my $session = shift;
print "\tRecount all threads in each CS on the site. This may take a long time... " unless $quiet;
# and here's our code
my $iterator = WebGUI::Asset::Wobject::Collaboration->getIsa($session);
while ( my $cs = $iterator->() ) {
print "\n\t\tRecounting ".$cs->getTitle." ..." unless $quiet;
$cs->incrementReplies($cs->get('lastPostDate'), $cs->get('lastPostId'));
}
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------