fix: op=editSubscription causes fatal

This commit is contained in:
Roy Johnson 2006-06-15 20:22:16 +00:00
parent 72654a1b24
commit d5d9f05500
2 changed files with 8 additions and 6 deletions

View file

@ -57,7 +57,9 @@
- fix: DataForm
- Many template fixes.
- fix: Dashboard - can't instantiate
- fix: More DataForm bugs
- Added new template vars to DataForm
- fix: op=editSubscription causes fatal
6.99.3
- Someone removed the status from the submission templates. That has been

View file

@ -75,7 +75,7 @@ The i18n key of the help link for this workarea.
sub _submenu {
my $session = shift;
my $i18n = WebGUI::International->new($session, "Subscription");
my $workarea = shift;
my $title = shift;
$title = $i18n->get($title) if ($title);
@ -309,6 +309,7 @@ sub www_editSubscription {
unless ($session->form->process("sid") eq 'new') {
$properties = WebGUI::Subscription->new($session,$session->form->process("sid"))->get;
}
$subscriptionId = $session->form->process("sid") || 'new';
$f = WebGUI::HTMLForm->new($session);
@ -352,9 +353,9 @@ sub www_editSubscription {
$f->selectBox(
-name => 'duration',
-label => $i18n->get('subscription duration'),
-hoverHelp => $i18n->get('subscription duration description'),
-value => [$properties->{duration} || 'Monthly'],
-options=> WebGUI::Commerce::Payment::recurringPeriodValues($session),
-hoverHelp => $i18n->get('subscription duration description'),
-value => $properties->{duration} || 'Monthly',
-options=> WebGUI::Commerce::Payment->recurringPeriodValues($session),
);
$f->text(
-name => 'executeOnSubscription',
@ -371,7 +372,6 @@ sub www_editSubscription {
);
}
$f->submit;
return _submenu($session,$f->print, 'edit subscription title', 'subscription add/edit');
}