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

a few more mp2 bugfixes

Browse source
This commit is contained in:
JT Smith 2005-11-04 15:04:52 +00:00
parent bf9776d43e
commit fe549ee746
5 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Operation/Subscription.pm
View file

@ -86,6 +86,7 @@ sub www_createSubscriptionCodeBatch {
-hoverHelp => $i18n->get('codes expire description'),
-value => $session{form}{expires} || WebGUI::DateTime::intervalToSeconds(1, 'months')
);
my @sub = WebGUI::FormProcessor::selectList("subscriptionId");
$f->selectList(
-name => 'subscriptionId',
-label => $i18n->get('association'),
@ -93,7 +94,7 @@ sub www_createSubscriptionCodeBatch {
-options=> \%subscriptions,
-multiple=>1,
-size => 5,
-value => [ ($session{req}->param('subscriptionId'))]
-value => \@sub
);
$f->textarea(
-name => 'description',
@ -136,7 +137,7 @@ sub www_createSubscriptionCodeBatchSave {
WebGUI::SQL->write("insert into subscriptionCode (batchId, code, status, dateCreated, dateUsed, expires, usedBy)".
" values (".quote($batchId).",".quote($code).", 'Unused', ".quote($creationEpoch).", 0, ".quote($expires).", 0)");
@subscriptions = $session{req}->param('subscriptionId');
@subscriptions = WebGUI::FormProcessor::selectList('subscriptionId');
foreach (@subscriptions) {
WebGUI::SQL->write("insert into subscriptionCodeSubscriptions (code, subscriptionId) values (".
quote($code).", ".quote($_).")");