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

Made th evendor payouts manager more intuitive and easy to use.

Browse source
This commit is contained in:
Martin Kamerbeek 2009-10-23 15:11:07 +00:00
parent 22d2ab34cc
commit c078998fa2
3 changed files with 76 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Shop/Vendor.pm
View file

@ -588,16 +588,26 @@ Returns the status to which the item(s) are set.
=cut
sub www_setPayoutStatus {
my $class = shift;
my $session = shift;
my $class = shift;
my $session = shift;
my ( $form, $db ) = $session->quick( qw{ form db } );
my $admin = WebGUI::Shop::Admin->new($session);
return $session->privilege->adminOnly() unless ($admin->canManage);
my @itemIds = $session->form->process('itemId');
my $status = $session->form->process('status');
my $status = $form->process('status');
return "error: wrong status [$status]" unless isIn( $status, qw{ NotPaid Scheduled } );
my @itemIds;
if ( $form->process( 'all' ) ) {
@itemIds = $session->db->buildArray( 'select itemId from transactionItem where vendorPayoutStatus = ?' , [
( $status eq 'NotPaid' ) ? 'Scheduled' : 'NotPaid'
] );
}
else {
@itemIds = $form->process('itemId');
}
foreach my $itemId (@itemIds) {
my $item = WebGUI::Shop::TransactionItem->newByDynamicTransaction( $session, $itemId );
return "error: invalid transactionItemId [$itemId]" unless $item;

18
lib/WebGUI/i18n/English/Shop.pm
View file

@ -1594,6 +1594,24 @@ our $I18N = {
context => q|Table heading in the vendor payout manager.|,
},
'vp select vendor' => {
message => q|Please select a vendor from the list above to manage individual payouts.|,
lastUpdated => 0,
context => q|Message in the vendor payouts manager when no vendor has been selected.|,
},
'vp vendors' => {
message => q|Vendors|,
lastUpdated => 0,
context => q|Label for the vendors section of the vendor payouts manager|,
},
'vp payouts' => {
message => q|Payouts|,
lastUpdated => 0,
context => q|Label for the vendors section of the vendor payouts manager|,
},
'vp item id' => {
message => q|Item ID|,
lastUpdated => 0,