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

update Delete AssetHelper for the new admin JS

Browse source
This commit is contained in:
Colin Kuskie 2013-09-17 15:02:04 -07:00 • committed by Scott Walters
parent e6d26369ed
commit 0363101e43
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/AssetHelper/Delete.pm
View file

@ -83,7 +83,28 @@ sub delete {
}
);
my $tree = WebGUI::ProgressTree->new( $session, $ids );
$process->update(sub { $tree->json });
my $maxValue = keys %{ $tree->flat };
my $update_progress = sub {
# update the Fork's progress with how many are done
my $flat = $tree->flat;
my @done = grep { $_->{success} or $_->{failure} } values %$flat;
my $current_value = scalar @done;
my $info = {
maxValue => $maxValue,
value => $current_value,
message => 'Working...',
reload => 1, # this won't take effect until Fork.pm returns finished => 1 and this status is propogated to WebGUI.Admin.prototype.openForkDialog's callback
@_,
};
$info->{refresh} = 1 if $maxValue == $current_value;
# $info->{debug_flat_keys} = join ',', keys %$flat;
# $info->{debug_tree} = Dumper( $tree->tree );
my $json = JSON::encode_json( $info );
$process->update( $json );
};
$update_progress->( debug_initial => 1 );
# Patch a sub to get a status update
my $patch = Monkey::Patch::patch_class(