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

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})
.WebGUI::Form::hidden($self->session,{ name=>"func", value=>"search" })
.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',
value=>$self->session->scratch->get($self->getId."_all"),
size=>($self->session->setting->get("textBoxSize")-5)
});
$var{'exactphrase.form'} = WebGUI::Form::text({
$var{'exactphrase.form'} = WebGUI::Form::text($self->session,{
name=>'exactPhrase',
value=>$self->session->scratch->get($self->getId."_exactPhrase"),
size=>($self->session->setting->get("textBoxSize")-5)
});
$var{'atleastone.form'} = WebGUI::Form::text({
$var{'atleastone.form'} = WebGUI::Form::text($self->session,{
name=>'atLeastOne',
value=>$self->session->scratch->get($self->getId."_atLeastOne"),
size=>($self->session->setting->get("textBoxSize")-5)
});
$var{'without.form'} = WebGUI::Form::text({
$var{'without.form'} = WebGUI::Form::text($self->session,{
name=>'without',
value=>$self->session->scratch->get($self->getId."_without"),
size=>($self->session->setting->get("textBoxSize")-5)
@ -984,7 +984,7 @@ sub www_search {
tie %results, 'Tie::IxHash';
%results = (10=>'10', 25=>'25', 50=>'50', 100=>'100');
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",
options=>\%results,
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")
})
."<br />"
.WebGUI::Form::submit({
.WebGUI::Form::submit($self->session,{
value=>"compare"
})
."</form>";
@ -816,20 +816,20 @@ sub www_search {
}
$var{'compare.form'} = $self->getCompareForm(@list);
$var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden({
.WebGUI::Form::hidden($self->session,{
name=>"doit",
value=>"1"
})
.WebGUI::Form::hidden({
.WebGUI::Form::hidden($self->session,{
name=>"func",
value=>"search"
});
$var{'form.footer'} = "</form>";
$var{'form.keyword'} = WebGUI::Form::text({
$var{'form.keyword'} = WebGUI::Form::text($self->session,{
name=>"keyword",
value=>$self->session->form->process("keyword")
});
$var{'form.submit'} = WebGUI::Form::submit({
$var{'form.submit'} = WebGUI::Form::submit($self->session,{
value=>"search"
});
foreach my $category ($self->getCategories()) {
@ -841,12 +841,12 @@ sub www_search {
$data->{description} =~ s/'/\\\'/g;
$data->{description} =~ s/"/\&quot;/g;
if ($data->{fieldType} ne "goodBad") {
$data->{form} = WebGUI::Form::text({
$data->{form} = WebGUI::Form::text($self->session,{
name=>$data->{name},
value=>$self->session->form->process($data->{name})
});
} else {
$data->{form} = WebGUI::Form::checkbox({
$data->{form} = WebGUI::Form::checkbox($self->session,{
name=>$data->{name},
value=>"1",
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(
'</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",
value=>[$self->getValue("ancestorEndPoint")],
options=>\%options
@ -147,29 +147,29 @@ sub getEditForm {
$tabform->getTab("properties")->readOnly(
-label=>$i18n->get("Relatives To Include"),
-hoverHelp=>$i18n->get("Relatives To Include description"),
-value=>WebGUI::Form::checkbox({
-value=>WebGUI::Form::checkbox($self->session,{
checked=>$ancestorsChecked,
name=>"assetsToInclude",
extras=>'onChange="toggleAncestorEndPoint()"',
value=>"ancestors"
}).$i18n->get('Ancestors').'<br />'
.WebGUI::Form::checkbox({
.WebGUI::Form::checkbox($self->session,{
checked=>$selfChecked,
name=>"assetsToInclude",
value=>"self"
}).$i18n->get('Self').'<br />'
.WebGUI::Form::checkbox({
.WebGUI::Form::checkbox($self->session,{
checked=>$siblingsChecked,
name=>"assetsToInclude",
value=>"siblings"
}).$i18n->get('Siblings').'<br />'
.WebGUI::Form::checkbox({
.WebGUI::Form::checkbox($self->session,{
checked=>$descendantsChecked,
name=>"assetsToInclude",
value=>"descendants",
extras=>'onChange="toggleDescendantEndPoint()"'
}).$i18n->get('Descendants').'<br />'
.WebGUI::Form::checkbox({
.WebGUI::Form::checkbox($self->session,{
checked=>$pedigreeChecked,
name=>"assetsToInclude",
value=>"pedigree"
@ -187,7 +187,7 @@ sub getEditForm {
);
$tabform->getTab("properties")->raw(
'</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",
value=>[$self->getValue("descendantEndPoint")],
options=>\%options

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

@ -406,27 +406,27 @@ sub getQuestionVars {
$var{'question.question'} = $question->{question};
$var{'question.allowComment'} = $question->{allowComment};
$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
});
$var{'question.comment.label'} = $i18n->get(51);
my $answer;
($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,
value=>$answer
});
if ($question->{answerFieldType} eq "text") {
$var{'question.answer.field'} .= WebGUI::Form::text({
$var{'question.answer.field'} .= WebGUI::Form::text($self->session,{
name=>'textResponse_'.$questionId
});
} elsif ($question->{answerFieldType} eq "HTMLArea") {
$var{'question.answer.field'} .= WebGUI::Form::HTMLArea({
$var{'question.answer.field'} .= WebGUI::Form::HTMLArea($self->session,{
name=>'textResponse_'.$questionId
});
} elsif ($question->{answerFieldType} eq "textArea") {
$var{'question.answer.field'} .= WebGUI::Form::textarea({
$var{'question.answer.field'} .= WebGUI::Form::textarea($self->session,{
name=>'textResponse_'.$questionId
});
} else {
@ -434,7 +434,7 @@ sub getQuestionVars {
if ($question->{randomizeAnswers}) {
$answer = randomizeHash($answer);
}
$var{'question.answer.field'} = WebGUI::Form::radioList({
$var{'question.answer.field'} = WebGUI::Form::radioList($self->session,{
options=>$answer,
name=>"answerId_".$questionId,
vertical=>1
@ -670,12 +670,12 @@ sub view {
}
}
$var->{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden({
.WebGUI::Form::hidden($self->session,{
name=>'func',
value=>'respond'
});
$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)
});
$var->{'questions.sofar.label'} = $i18n->get(86);