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

Promote and demote files inside of a bundle.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-16 14:24:21 -07:00
parent 8a81d5817f
commit 6314228b59
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/FilePump/Admin.pm
View file

@ -178,7 +178,7 @@ sub www_deleteFile {
=head2 www_demoteFile ( session ) =head2 www_demoteFile ( session )
Moves a bundle file down one position. The kind of file is set by the form variable filetype, Moves a bundle file down one position. The kind of file is set by the form variable fileType,
the id of the bundle is bundleId, and the id of the file to move is fileId. the id of the bundle is bundleId, and the id of the file to move is fileId.
=head3 session =head3 session
@ -190,10 +190,13 @@ A reference to the current session.
sub www_demoteFile { sub www_demoteFile {
my $session = shift; my $session = shift;
return $session->privilege->insufficient() unless canView($session); return $session->privilege->insufficient() unless canView($session);
my $bundle = WebGUI::FilePump::Bundle->new($session, $session->form->get("bundleId")); my $form = $session->form;
if (defined $bundle) { my $bundle = WebGUI::FilePump::Bundle->new($session, $form->get("bundleId"));
} return www_editBundle($session) unless $bundle;
return www_manage($session); my $type = $form->get('fileType');
my $fileId = $form->get('fileId');
$bundle->moveFileDown($type, $fileId);
return www_editBundle($session);
} }
#------------------------------------------------------------------ #------------------------------------------------------------------
@ -247,7 +250,7 @@ EOTABLE
my $rows = ''; my $rows = '';
my $files = $bundle->get($fileType); my $files = $bundle->get($fileType);
foreach my $file (@{ $files }) { foreach my $file (@{ $files }) {
my $urlFrag = 'bundleId='.$bundleId.'fileType='.$type.'fileId='.$file->{fileId}; my $urlFrag = 'bundleId='.$bundleId.';fileType='.$type.';fileId='.$file->{fileId};
$rows .= sprintf '<tr><td>%s</td><td>%s</td><td>%s</td></tr>', $rows .= sprintf '<tr><td>%s</td><td>%s</td><td>%s</td></tr>',
$session->icon->delete( 'op=filePump;func=deleteFile;' . $urlFrag). $session->icon->delete( 'op=filePump;func=deleteFile;' . $urlFrag).
$session->icon->moveUp( 'op=filePump;func=promoteFile;' . $urlFrag). $session->icon->moveUp( 'op=filePump;func=promoteFile;' . $urlFrag).
@ -269,7 +272,7 @@ EOTABLE
=head2 www_promoteFile ( session ) =head2 www_promoteFile ( session )
Moves a bundle file up one position. The kind of file is set by the form variable filetype, Moves a bundle file up one position. The kind of file is set by the form variable fileType,
the id of the bundle is bundleId, and the id of the file to move is fileId. the id of the bundle is bundleId, and the id of the file to move is fileId.
=head3 session =head3 session
@ -281,10 +284,13 @@ A reference to the current session.
sub www_promoteFile { sub www_promoteFile {
my $session = shift; my $session = shift;
return $session->privilege->insufficient() unless canView($session); return $session->privilege->insufficient() unless canView($session);
my $form = $session->form;
my $bundle = WebGUI::FilePump::Bundle->new($session, $session->form->get("bundleId")); my $bundle = WebGUI::FilePump::Bundle->new($session, $session->form->get("bundleId"));
if (defined $bundle) { return www_editBundle($session) unless $bundle;
} my $type = $form->get('fileType');
return www_manage($session); my $fileId = $form->get('fileId');
$bundle->moveFileUp($type, $fileId);
return www_editBundle($session);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------