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

fixed more session related bugs

Browse source
This commit is contained in:
JT Smith 2006-01-17 05:34:57 +00:00
parent 2e5f5c6038
commit c5cf903b45
11 changed files with 47 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset.pm
View file

@ -1583,7 +1583,7 @@ sub www_manageAssets {
} }
my $lockLink = ", '<a href=\"".$child->getUrl("func=manageRevisions")."\">".$locked."<\\/a>'" unless ($self->session->setting->get("autoCommit")); my $lockLink = ", '<a href=\"".$child->getUrl("func=manageRevisions")."\">".$locked."<\\/a>'" unless ($self->session->setting->get("autoCommit"));
$output .= "assetManager.AddLine('" $output .= "assetManager.AddLine('"
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
name=>'assetId', name=>'assetId',
value=>$child->getId value=>$child->getId
}) })

2
lib/WebGUI/Asset/Template.pm
View file

@ -467,7 +467,7 @@ $style .= '
template=>$style template=>$style
})->www_edit; })->www_edit;
} else { } else {
$output = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl}).WebGUI::Form::hidden({name=>"func", value=>"styleWizard"}); $output = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl}).WebGUI::Form::hidden($self->session,{name=>"func", value=>"styleWizard"});
$output .= WebGUI::Form::hidden($self->session,{name=>"proceed", value=>"manageAssets"}) if ($self->session->form->process("proceed")); $output .= WebGUI::Form::hidden($self->session,{name=>"proceed", value=>"manageAssets"}) if ($self->session->form->process("proceed"));
$output .= '<style type="text/css"> $output .= '<style type="text/css">
.chooser { float: left; width: 150px; height: 150px; } .chooser { float: left; width: 150px; height: 150px; }

10
lib/WebGUI/Asset/Wobject/Collaboration.pm
View file

@ -960,22 +960,22 @@ sub www_search {
$var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl}) $var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden($self->session,{ name=>"func", value=>"search" }) .WebGUI::Form::hidden($self->session,{ name=>"func", value=>"search" })
.WebGUI::Form::hidden($self->session,{ name=>"doit", value=>1 }); .WebGUI::Form::hidden($self->session,{ name=>"doit", value=>1 });
$var{'all.form'} = WebGUI::Form::text({ $var{'all.form'} = WebGUI::Form::text($self->session,{
name=>'all', name=>'all',
value=>$self->session->scratch->get($self->getId."_all"), value=>$self->session->scratch->get($self->getId."_all"),
size=>($self->session->setting->get("textBoxSize")-5) size=>($self->session->setting->get("textBoxSize")-5)
}); });
$var{'exactphrase.form'} = WebGUI::Form::text({ $var{'exactphrase.form'} = WebGUI::Form::text($self->session,{
name=>'exactPhrase', name=>'exactPhrase',
value=>$self->session->scratch->get($self->getId."_exactPhrase"), value=>$self->session->scratch->get($self->getId."_exactPhrase"),
size=>($self->session->setting->get("textBoxSize")-5) size=>($self->session->setting->get("textBoxSize")-5)
}); });
$var{'atleastone.form'} = WebGUI::Form::text({ $var{'atleastone.form'} = WebGUI::Form::text($self->session,{
name=>'atLeastOne', name=>'atLeastOne',
value=>$self->session->scratch->get($self->getId."_atLeastOne"), value=>$self->session->scratch->get($self->getId."_atLeastOne"),
size=>($self->session->setting->get("textBoxSize")-5) size=>($self->session->setting->get("textBoxSize")-5)
}); });
$var{'without.form'} = WebGUI::Form::text({ $var{'without.form'} = WebGUI::Form::text($self->session,{
name=>'without', name=>'without',
value=>$self->session->scratch->get($self->getId."_without"), value=>$self->session->scratch->get($self->getId."_without"),
size=>($self->session->setting->get("textBoxSize")-5) size=>($self->session->setting->get("textBoxSize")-5)
@ -984,7 +984,7 @@ sub www_search {
tie %results, 'Tie::IxHash'; tie %results, 'Tie::IxHash';
%results = (10=>'10', 25=>'25', 50=>'50', 100=>'100'); %results = (10=>'10', 25=>'25', 50=>'50', 100=>'100');
my $numResults = $self->session->scratch->get($self->getId."_numResults") || $self->get("threadsPerPage"); my $numResults = $self->session->scratch->get($self->getId."_numResults") || $self->get("threadsPerPage");
$var{'results.form'} = WebGUI::Form::selectBox({ $var{'results.form'} = WebGUI::Form::selectBox($self->session,{
name=>"numResults", name=>"numResults",
options=>\%results, options=>\%results,
value=>[$numResults] value=>[$numResults]

14
lib/WebGUI/Asset/Wobject/Matrix.pm
View file

@ -132,7 +132,7 @@ sub getCompareForm {
where assetId=".$self->session->db->quote($self->getId)." and status='approved' order by productName") where assetId=".$self->session->db->quote($self->getId)." and status='approved' order by productName")
}) })
."<br />" ."<br />"
.WebGUI::Form::submit({ .WebGUI::Form::submit($self->session,{
value=>"compare" value=>"compare"
}) })
."</form>"; ."</form>";
@ -816,20 +816,20 @@ sub www_search {
} }
$var{'compare.form'} = $self->getCompareForm(@list); $var{'compare.form'} = $self->getCompareForm(@list);
$var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl}) $var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden({ .WebGUI::Form::hidden($self->session,{
name=>"doit", name=>"doit",
value=>"1" value=>"1"
}) })
.WebGUI::Form::hidden({ .WebGUI::Form::hidden($self->session,{
name=>"func", name=>"func",
value=>"search" value=>"search"
}); });
$var{'form.footer'} = "</form>"; $var{'form.footer'} = "</form>";
$var{'form.keyword'} = WebGUI::Form::text({ $var{'form.keyword'} = WebGUI::Form::text($self->session,{
name=>"keyword", name=>"keyword",
value=>$self->session->form->process("keyword") value=>$self->session->form->process("keyword")
}); });
$var{'form.submit'} = WebGUI::Form::submit({ $var{'form.submit'} = WebGUI::Form::submit($self->session,{
value=>"search" value=>"search"
}); });
foreach my $category ($self->getCategories()) { foreach my $category ($self->getCategories()) {
@ -841,12 +841,12 @@ sub www_search {
$data->{description} =~ s/'/\\\'/g; $data->{description} =~ s/'/\\\'/g;
$data->{description} =~ s/"/\&quot;/g; $data->{description} =~ s/"/\&quot;/g;
if ($data->{fieldType} ne "goodBad") { if ($data->{fieldType} ne "goodBad") {
$data->{form} = WebGUI::Form::text({ $data->{form} = WebGUI::Form::text($self->session,{
name=>$data->{name}, name=>$data->{name},
value=>$self->session->form->process($data->{name}) value=>$self->session->form->process($data->{name})
}); });
} else { } else {
$data->{form} = WebGUI::Form::checkbox({ $data->{form} = WebGUI::Form::checkbox($self->session,{
name=>$data->{name}, name=>$data->{name},
value=>"1", value=>"1",
checked=>$self->session->form->process($data->{name}) checked=>$self->session->form->process($data->{name})

14
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -137,7 +137,7 @@ sub getEditForm {
); );
$tabform->getTab("properties")->raw( $tabform->getTab("properties")->raw(
'</tbody><tbody id="navAncestorEnd"><tr><td class="formDescription">'.$i18n->get("Ancestor End Point").'</td><td>' '</tbody><tbody id="navAncestorEnd"><tr><td class="formDescription">'.$i18n->get("Ancestor End Point").'</td><td>'
.WebGUI::Form::selectBox({ .WebGUI::Form::selectBox($self->session,{
name=>"ancestorEndPoint", name=>"ancestorEndPoint",
value=>[$self->getValue("ancestorEndPoint")], value=>[$self->getValue("ancestorEndPoint")],
options=>\%options options=>\%options
@ -147,29 +147,29 @@ sub getEditForm {
$tabform->getTab("properties")->readOnly( $tabform->getTab("properties")->readOnly(
-label=>$i18n->get("Relatives To Include"), -label=>$i18n->get("Relatives To Include"),
-hoverHelp=>$i18n->get("Relatives To Include description"), -hoverHelp=>$i18n->get("Relatives To Include description"),
-value=>WebGUI::Form::checkbox({ -value=>WebGUI::Form::checkbox($self->session,{
checked=>$ancestorsChecked, checked=>$ancestorsChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
extras=>'onChange="toggleAncestorEndPoint()"', extras=>'onChange="toggleAncestorEndPoint()"',
value=>"ancestors" value=>"ancestors"
}).$i18n->get('Ancestors').'<br />' }).$i18n->get('Ancestors').'<br />'
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
checked=>$selfChecked, checked=>$selfChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
value=>"self" value=>"self"
}).$i18n->get('Self').'<br />' }).$i18n->get('Self').'<br />'
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
checked=>$siblingsChecked, checked=>$siblingsChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
value=>"siblings" value=>"siblings"
}).$i18n->get('Siblings').'<br />' }).$i18n->get('Siblings').'<br />'
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
checked=>$descendantsChecked, checked=>$descendantsChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
value=>"descendants", value=>"descendants",
extras=>'onChange="toggleDescendantEndPoint()"' extras=>'onChange="toggleDescendantEndPoint()"'
}).$i18n->get('Descendants').'<br />' }).$i18n->get('Descendants').'<br />'
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
checked=>$pedigreeChecked, checked=>$pedigreeChecked,
name=>"assetsToInclude", name=>"assetsToInclude",
value=>"pedigree" value=>"pedigree"
@ -187,7 +187,7 @@ sub getEditForm {
); );
$tabform->getTab("properties")->raw( $tabform->getTab("properties")->raw(
'</tbody><tbody id="navDescendantEnd"><tr><td class="formDescription">'.$i18n->get('Descendant End Point').'</td><td>' '</tbody><tbody id="navDescendantEnd"><tr><td class="formDescription">'.$i18n->get('Descendant End Point').'</td><td>'
.WebGUI::Form::selectBox({ .WebGUI::Form::selectBox($self->session,{
name=>"descendantEndPoint", name=>"descendantEndPoint",
value=>[$self->getValue("descendantEndPoint")], value=>[$self->getValue("descendantEndPoint")],
options=>\%options options=>\%options

16
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -406,27 +406,27 @@ sub getQuestionVars {
$var{'question.question'} = $question->{question}; $var{'question.question'} = $question->{question};
$var{'question.allowComment'} = $question->{allowComment}; $var{'question.allowComment'} = $question->{allowComment};
$var{'question.id'} = $question->{Survey_questionId}; $var{'question.id'} = $question->{Survey_questionId};
$var{'question.comment.field'} = WebGUI::Form::textarea({ $var{'question.comment.field'} = WebGUI::Form::textarea($self->session,{
name=>'comment_'.$questionId name=>'comment_'.$questionId
}); });
$var{'question.comment.label'} = $i18n->get(51); $var{'question.comment.label'} = $i18n->get(51);
my $answer; my $answer;
($answer) = $self->session->db->quickArray("select Survey_answerId from Survey_answer where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId})); ($answer) = $self->session->db->quickArray("select Survey_answerId from Survey_answer where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId}));
$var{'question.answer.field'} = WebGUI::Form::hidden({ $var{'question.answer.field'} = WebGUI::Form::hidden($self->session,{
name=>'answerId_'.$questionId, name=>'answerId_'.$questionId,
value=>$answer value=>$answer
}); });
if ($question->{answerFieldType} eq "text") { if ($question->{answerFieldType} eq "text") {
$var{'question.answer.field'} .= WebGUI::Form::text({ $var{'question.answer.field'} .= WebGUI::Form::text($self->session,{
name=>'textResponse_'.$questionId name=>'textResponse_'.$questionId
}); });
} elsif ($question->{answerFieldType} eq "HTMLArea") { } elsif ($question->{answerFieldType} eq "HTMLArea") {
$var{'question.answer.field'} .= WebGUI::Form::HTMLArea({ $var{'question.answer.field'} .= WebGUI::Form::HTMLArea($self->session,{
name=>'textResponse_'.$questionId name=>'textResponse_'.$questionId
}); });
} elsif ($question->{answerFieldType} eq "textArea") { } elsif ($question->{answerFieldType} eq "textArea") {
$var{'question.answer.field'} .= WebGUI::Form::textarea({ $var{'question.answer.field'} .= WebGUI::Form::textarea($self->session,{
name=>'textResponse_'.$questionId name=>'textResponse_'.$questionId
}); });
} else { } else {
@ -434,7 +434,7 @@ sub getQuestionVars {
if ($question->{randomizeAnswers}) { if ($question->{randomizeAnswers}) {
$answer = randomizeHash($answer); $answer = randomizeHash($answer);
} }
$var{'question.answer.field'} = WebGUI::Form::radioList({ $var{'question.answer.field'} = WebGUI::Form::radioList($self->session,{
options=>$answer, options=>$answer,
name=>"answerId_".$questionId, name=>"answerId_".$questionId,
vertical=>1 vertical=>1
@ -670,12 +670,12 @@ sub view {
} }
} }
$var->{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl}) $var->{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden({ .WebGUI::Form::hidden($self->session,{
name=>'func', name=>'func',
value=>'respond' value=>'respond'
}); });
$var->{'form.footer'} = WebGUI::Form::formFooter($self->session,); $var->{'form.footer'} = WebGUI::Form::formFooter($self->session,);
$var->{'form.submit'} = WebGUI::Form::submit({ $var->{'form.submit'} = WebGUI::Form::submit($self->session,{
value=>$i18n->get(50) value=>$i18n->get(50)
}); });
$var->{'questions.sofar.label'} = $i18n->get(86); $var->{'questions.sofar.label'} = $i18n->get(86);

2
lib/WebGUI/AssetClipboard.pm
View file

@ -338,7 +338,7 @@ $self->session->style->setLink($self->session->config->get("extrasURL").'/assetM
my $title = $child->getTitle; my $title = $child->getTitle;
$title =~ s/\'/\\\'/g; $title =~ s/\'/\\\'/g;
$output .= "assetManager.AddLine('" $output .= "assetManager.AddLine('"
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($self->session,{
name=>'assetId', name=>'assetId',
value=>$child->getId value=>$child->getId
}) })

14
lib/WebGUI/Operation/Commerce.pm
View file

@ -139,7 +139,7 @@ sub www_checkoutConfirm {
foreach (@$normal) { foreach (@$normal) {
$_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type); $_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type);
$_->{'quantity.form'} = WebGUI::Form::integer({ $_->{'quantity.form'} = WebGUI::Form::integer($session,{
name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id, name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id,
value => $_->{quantity}, value => $_->{quantity},
size => 3, size => 3,
@ -148,7 +148,7 @@ sub www_checkoutConfirm {
} }
foreach (@$recurring) { foreach (@$recurring) {
$_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type); $_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type);
$_->{'quantity.form'} = WebGUI::Form::integer({ $_->{'quantity.form'} = WebGUI::Form::integer($session,{
name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id, name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id,
value => $_->{quantity}, value => $_->{quantity},
size => 3, size => 3,
@ -593,16 +593,16 @@ sub www_listTransactions {
$output .= $i18n->get('selection message'); $output .= $i18n->get('selection message');
$output .= WebGUI::Form::formHeader; $output .= WebGUI::Form::formHeader($session);
$output .= WebGUI::Form::hidden($session,{name=>'op', value=>'listTransactions'}); $output .= WebGUI::Form::hidden($session,{name=>'op', value=>'listTransactions'});
$output .= '<table>'; $output .= '<table>';
$output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'init', checked=>($session->form->process("selection") eq 'init')}).'</td>'; $output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'init', checked=>($session->form->process("selection") eq 'init')}).'</td>';
$output .= '<td align="left">'.$i18n->get('init date').'</td>'; $output .= '<td align="left">'.$i18n->get('init date').'</td>';
$output .= '<td>'.WebGUI::Form::date($session,{name=>'initStart', value=>$initStart}).' '.$i18n->get('and').' '.WebGUI::Form::date({name=>'initStop', value=>$initStop}).'</td>'; $output .= '<td>'.WebGUI::Form::date($session,{name=>'initStart', value=>$initStart}).' '.$i18n->get('and').' '.WebGUI::Form::date($session,{name=>'initStop', value=>$initStop}).'</td>';
$output .= '</tr><tr>'; $output .= '</tr><tr>';
$output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'completion', checked=>($session->form->process("selection") eq 'completion')}).'</td>'; $output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'completion', checked=>($session->form->process("selection") eq 'completion')}).'</td>';
$output .= '<td align="left">'.$i18n->get('completion date').'</td>'; $output .= '<td align="left">'.$i18n->get('completion date').'</td>';
$output .= '<td>'.WebGUI::Form::date($session,{name=>'completionStart', value=>$completionStart}).' '.$i18n->get('and').' '.WebGUI::Form::date({name=>'completionStop', value=>$completionStop}).'</td>'; $output .= '<td>'.WebGUI::Form::date($session,{name=>'completionStart', value=>$completionStart}).' '.$i18n->get('and').' '.WebGUI::Form::date($session,{name=>'completionStop', value=>$completionStop}).'</td>';
$output .= '</tr><tr>'; $output .= '</tr><tr>';
$output .= '<td></td>'; $output .= '<td></td>';
$output .= '<td align="left">'.$i18n->get('transaction status').'</td>'; $output .= '<td align="left">'.$i18n->get('transaction status').'</td>';
@ -790,7 +790,7 @@ sub www_viewCart {
foreach (@$normal) { foreach (@$normal) {
$_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type); $_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type);
$_->{'quantity.form'} = WebGUI::Form::integer({ $_->{'quantity.form'} = WebGUI::Form::integer($session,{
name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id, name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id,
value => $_->{quantity}, value => $_->{quantity},
size => 3, size => 3,
@ -799,7 +799,7 @@ sub www_viewCart {
} }
foreach (@$recurring) { foreach (@$recurring) {
$_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type); $_->{deleteIcon} = $session->icon->delete('op=deleteCartItem;itemId='.$_->{item}->id.';itemType='.$_->{item}->type);
$_->{'quantity.form'} = WebGUI::Form::integer({ $_->{'quantity.form'} = WebGUI::Form::integer($session,{
name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id, name => 'quantity~'.$_->{item}->type.'~'.$_->{item}->id,
value => $_->{quantity}, value => $_->{quantity},
size => 3, size => 3,

6
lib/WebGUI/Operation/Group.pm
View file

@ -640,11 +640,11 @@ sub www_manageUsersInGroup {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid"))); return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $i18n = WebGUI::International->new($session); my $i18n = WebGUI::International->new($session);
my $output = WebGUI::Form::formHeader($session,) my $output = WebGUI::Form::formHeader($session,)
.WebGUI::Form::hidden({ .WebGUI::Form::hidden($session,{
name=>"gid", name=>"gid",
value=>$session->form->process("gid") value=>$session->form->process("gid")
}) })
.WebGUI::Form::hidden({ .WebGUI::Form::hidden($session,{
name=>"op", name=>"op",
value=>"deleteGrouping" value=>"deleteGrouping"
}); });
@ -658,7 +658,7 @@ sub www_manageUsersInGroup {
order by users.username"); order by users.username");
foreach my $row (@{$p->getPageData}) { foreach my $row (@{$p->getPageData}) {
$output .= '<tr><td>' $output .= '<tr><td>'
.WebGUI::Form::checkbox({ .WebGUI::Form::checkbox($session,{
name=>"uid", name=>"uid",
value=>$row->{userId} value=>$row->{userId}
}) })

8
lib/WebGUI/Operation/ProductManager.pm
View file

@ -523,12 +523,12 @@ sub www_listProductVariants {
%parameters = map {$_->{parameterId} => $_->{name}} sort {$a->{name} <=> $b->{name}} @{$product->getParameter}; %parameters = map {$_->{parameterId} => $_->{name}} sort {$a->{name} <=> $b->{name}} @{$product->getParameter};
%options = map {$_->{optionId} => $_->{value}} @{$product->getOption}; %options = map {$_->{optionId} => $_->{value}} @{$product->getOption};
$output = WebGUI::Form::formHeader; $output = WebGUI::Form::formHeader($session);
$output .= WebGUI::Form::hidden({ $output .= WebGUI::Form::hidden($session,{
name => 'op', name => 'op',
value => 'listProductVariantsSave', value => 'listProductVariantsSave',
}); });
$output .= WebGUI::Form::hidden({ $output .= WebGUI::Form::hidden($session,{
name => 'productId', name => 'productId',
value => $productId, value => $productId,
}); });
@ -552,7 +552,7 @@ sub www_listProductVariants {
$output .= '</td><td align="right">'.$_->{weight}."</td><td>"; $output .= '</td><td align="right">'.$_->{weight}."</td><td>";
$output .= '*' if ($_->{weightOverride}); $output .= '*' if ($_->{weightOverride});
$output .= "</td>"; $output .= "</td>";
$output .= "<td>".WebGUI::Form::checkbox({ $output .= "<td>".WebGUI::Form::checkbox($session,{
name => 'available', name => 'available',
value => $_->{variantId}, value => $_->{variantId},
checked => $_->{available}, checked => $_->{available},

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

@ -316,16 +316,16 @@ sub www_listSubscriptionCodes {
$output .= $i18n->get('selection message'); $output .= $i18n->get('selection message');
$output .= WebGUI::Form::formHeader; $output .= WebGUI::Form::formHeader($session);
$output .= WebGUI::Form::hidden($session,{name=>'op', value=>'listSubscriptionCodes'}); $output .= WebGUI::Form::hidden($session,{name=>'op', value=>'listSubscriptionCodes'});
$output .= '<table>'; $output .= '<table>';
$output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'du', checked=>($session->form->process("selection") eq 'du')}).'</td>'; $output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'du', checked=>($session->form->process("selection") eq 'du')}).'</td>';
$output .= '<td align="left">'.$i18n->get('selection used').'</td>'; $output .= '<td align="left">'.$i18n->get('selection used').'</td>';
$output .= '<td>'.WebGUI::Form::date($session,{name=>'duStart', value=>$duStart}).' '.$i18n->get('and').' '.WebGUI::Form::date({name=>'duStop', value=>$duStop}).'</td>'; $output .= '<td>'.WebGUI::Form::date($session,{name=>'duStart', value=>$duStart}).' '.$i18n->get('and').' '.WebGUI::Form::date($session,{name=>'duStop', value=>$duStop}).'</td>';
$output .= '</tr><tr>'; $output .= '</tr><tr>';
$output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'dc', checked=>($session->form->process("selection") eq 'dc')}).'</td>'; $output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'dc', checked=>($session->form->process("selection") eq 'dc')}).'</td>';
$output .= '<td align="left">'.$i18n->get('selection created').'</td>'; $output .= '<td align="left">'.$i18n->get('selection created').'</td>';
$output .= '<td>'.WebGUI::Form::date($session,{name=>'dcStart', value=>$dcStart}).' '.$i18n->get('and').' '.WebGUI::Form::date({name=>'dcStop', value=>$dcStop}).'</td>'; $output .= '<td>'.WebGUI::Form::date($session,{name=>'dcStart', value=>$dcStart}).' '.$i18n->get('and').' '.WebGUI::Form::date($session,{name=>'dcStop', value=>$dcStop}).'</td>';
$output .= '</tr><tr>'; $output .= '</tr><tr>';
$output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'b', checked=>($session->form->process("selection") eq 'b')}).'</td>'; $output .= '<td>'.WebGUI::Form::radio($session,{name=>'selection', value => 'b', checked=>($session->form->process("selection") eq 'b')}).'</td>';
$output .= '<td align="left">'.$i18n->get('selection batch id').'</td>'; $output .= '<td align="left">'.$i18n->get('selection batch id').'</td>';