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

Add a progress bar for reordering rank in the Asset Manager.

Browse source
This commit is contained in:
Colin Kuskie 2009-06-19 18:06:46 +00:00
parent 385e3ee259
commit 35749ff8c6
4 changed files with 87 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

62
lib/WebGUI/Content/AssetManager.pm
View file

@ -334,17 +334,17 @@ sub www_manage {
### Do Action
my @assetIds = $session->form->get( 'assetId' );
if ( $session->form->get( 'action_update' ) ) {
for my $assetId ( @assetIds ) {
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
next unless $asset;
my $rank = $session->form->get( $assetId . '_rank' );
next unless $rank; # There's no such thing as zero
$asset->setRank( $rank );
}
}
elsif ( $session->form->get( 'action_delete' ) ) {
# if ( $session->form->get( 'action_update' ) ) {
# for my $assetId ( @assetIds ) {
# my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
# next unless $asset;
# my $rank = $session->form->get( $assetId . '_rank' );
# next unless $rank; # There's no such thing as zero
#
# $asset->setRank( $rank );
# }
# }
if ( $session->form->get( 'action_delete' ) ) {
for my $assetId ( @assetIds ) {
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
next unless $asset;
@ -447,7 +447,7 @@ ENDHTML
. q{<div id="dataTableContainer">}
. q{</div>}
. q{<p class="actions">} . $i18n->get( 'with selected' )
. q{<input type="submit" name="action_update" value="} . $i18n->get( "update" ) . q{" />}
. q{<input type="submit" name="action_update" value="} . $i18n->get( "update" ) . q{" onclick="this.form.method.value='setRanks'; this.form.submit();" />}
. q{<input type="submit" name="action_delete" value="} . $i18n->get( "delete" ) . q{" onclick="return confirm('} . $i18n->get( 43 ) . q{')" />}
. q{<input type="submit" name="action_cut" value="} . $i18n->get( 'cut' ) . q{" />}
. q{<input type="submit" name="action_copy" value="} . $i18n->get( "Copy" ) . q{" />}
@ -774,4 +774,42 @@ sub www_search {
return $ac->render( $output );
}
#-------------------------------------------------------------------
=head2 www_setRanks ( )
Utility method for the AssetManager. Reorders 1 pagefull of assets via rank.
If the current user cannot edit the current asset, it returns the insufficient privileges page.
Returns the user to the manage assets screen.
=cut
sub www_setRanks {
my $session = shift;
$session->asset(getCurrentAsset($session));
return $session->privilege->insufficient() unless $session->asset->canEdit;
my $i18n = WebGUI::International->new($session, 'Asset');
my $pb = WebGUI::ProgressBar->new($session);
my $form = $session->form;
$pb->start($i18n->get('set rank'), $session->url->extras('adminConsole/assets.gif'));
my @assetIds = $form->get( 'assetId' );
ASSET: for my $assetId ( @assetIds ) {
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
next ASSET unless $asset;
my $rank = $form->get( $assetId . '_rank' );
next ASSET unless $rank; # There's no such thing as zero
$asset->setRank( $rank, sub { $pb->update(sprintf $i18n->get(shift), shift); } );
}
$pb->finish($session->asset->getManagerUrl);
return "redirect";
#return $www_manageAssets();
}
1;