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

more missing session vars in form calls

Browse source
This commit is contained in:
Colin Kuskie 2006-01-17 17:47:12 +00:00
parent 16f19421a6
commit 9c07548c71
10 changed files with 22 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Shortcut.pm
View file

@ -317,8 +317,7 @@ sub getFieldsList {
}
$output .= '<table cellspacing="0" cellpadding="3" border="1"><tr><td><table cellspacing="0" cellpadding="3" border="0">';
my @prefFieldsToShow = split("\n",$self->getValue("prefFieldsToShow"));
$output .= WebGUI::Form::CheckList->new(
$self->session,
$output .= WebGUI::Form::CheckList->new($self->session,
-name=>"prefFieldsToShow",
-value=>\@prefFieldsToShow,
-options=>\%fieldNames,
@ -329,8 +328,7 @@ sub getFieldsList {
)->toHtmlWithWrapper;
$output .= '</table></td><td><table cellspacing="0" cellpadding="3" border="0">';
my @prefFieldsToImport = split("\n",$self->getValue("prefFieldsToImport"));
$output .= WebGUI::Form::CheckList->new(
$self->session,
$output .= WebGUI::Form::CheckList->new($self->session,
-name=>"prefFieldsToImport",
-value=>\@prefFieldsToImport,
-options=>\%fieldNames,

2
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -73,7 +73,7 @@ sub _createField {
}
}
my $cmd = "WebGUI::Form::".$data->{type};
return &$cmd(\%param);
return &$cmd($self->session, \%param);
}
#-------------------------------------------------------------------

8
lib/WebGUI/Form/Asset.pm
View file

@ -95,20 +95,20 @@ Renders an asset selector.
sub toHtml {
my $self = shift;
my $asset = WebGUI::Asset->newByDynamicClass($self->get("value")) || WebGUI::Asset->getRoot($self->session);
return WebGUI::Form::Hidden->new(
my $asset = WebGUI::Asset->newByDynamicClass($self->session, $self->get("value")) || WebGUI::Asset->getRoot($self->session);
return WebGUI::Form::Hidden->new($self->session,
name=>$self->get("name"),
extras=>$self->get("extras"),
value=>$asset->getId,
id=>$self->get("id"),
)->toHtml
.WebGUI::Form::Text->new(
.WebGUI::Form::Text->new($self->session,
name=>$self->get("name")."_display",
extras=>' readonly="1" ',
value=>$asset->get("title"),
id=>$self->get('id')."_display"
)->toHtml
.WebGUI::Form::Button->new(
.WebGUI::Form::Button->new($self->session,
value=>"...",
extras=>'onclick="window.open(\''.$asset->getUrl("op=formAssetTree;classLimiter=".$self->get("class").";formId=".$self->get('id')).'\',\'assetPicker\',\'toolbar=no, location=no, status=no, directories=no, width=400, height=400\');"'
)->toHtml;

3
lib/WebGUI/Form/Combo.pm
View file

@ -100,8 +100,7 @@ sub toHtml {
$self->get("options")->{''} = '['.$i18n->get(582).']';
$self->get("options")->{_new_} = $i18n->get(581).'-&gt;';
return $self->SUPER::toHtml
.WebGUI::Form::Text->new(
$self->session,
.WebGUI::Form::Text->new($self->session,
size=>$self->session->setting->get("textBoxSize")-5,
name=>$self->get("name")."_new",
id=>$self->get('id')."_new"

7
lib/WebGUI/Form/DateTime.pm
View file

@ -114,16 +114,17 @@ Renders a date picker control.
sub toHtml {
my $self = shift;
my $value = $self->session->datetime->epochToSet($self->get("value"),1);
my $language = WebGUI::International::getLanguage($self->session->user->profileField("language"),"languageAbbreviation");
my $i18n = WebGUI::International->new($self->session);
my $language = $i18n->getLanguage($self->session->user->profileField("language"),"languageAbbreviation");
unless ($language) {
$language = WebGUI::International::getLanguage("English","languageAbbreviation");
$language = $i18n->getLanguage("English","languageAbbreviation");
}
$self->session->style->setScript($self->session->config->get("extrasURL").'/calendar/calendar.js',{ type=>'text/javascript' });
$self->session->style->setScript($self->session->config->get("extrasURL").'/calendar/lang/calendar-'.$language.'.js',{ type=>'text/javascript' });
$self->session->style->setScript($self->session->config->get("extrasURL").'/calendar/calendar-setup.js',{ type=>'text/javascript' });
$self->session->style->setLink($self->session->config->get("extrasURL").'/calendar/calendar-win2k-1.css', { rel=>"stylesheet", type=>"text/css", media=>"all" });
my $mondayFirst = $self->session->user->profileField("firstDayOfWeek") ? "true" : "false";
return WebGUI::Form::Text->new(
return WebGUI::Form::Text->new($self->session,
name=>$self->get("name"),
value=>$value,
size=>$self->get("size"),

8
lib/WebGUI/Form/Interval.pm
View file

@ -117,14 +117,14 @@ sub toHtml {
# not sure why, but these things need to be defined like this or
# they fail under some circumstnaces
my $cmd = "WebGUI::Form::Integer";
my $out = $cmd->new(
my $out = $cmd->new($self->session,
name=>$self->get("name")."_interval",
value=>$interval,
extras=>$self->get("extras"),
id=>$self->get('id')."_interval",
)->toHtml;
$cmd = "WebGUI::Form::SelectBox";
$out .= $cmd->new(
$out .= $cmd->new($self->session,
options=>\%units,
name=>$self->get("name")."_units",
id=>$self->get('id')."_units",
@ -145,11 +145,11 @@ Returns the field as hidden controls rather than displayable controls.
sub toHtmlAsHidden {
my $self = shift;
my ($interval, $units) = $self->session->datetime->secondsToInterval($self->get("value"));
return WebGUI::Form::Hidden->new(
return WebGUI::Form::Hidden->new($self->session,
name=>$self->get("name").'_interval',
value=>$interval
)->toHtmlAsHidden
.WebGUI::Form::Hidden->new(
.WebGUI::Form::Hidden->new($self->session,
name=>$self->get("name").'_units',
value=>$units
)->toHtmlAsHidden;

3
lib/WebGUI/Form/List.pm
View file

@ -265,8 +265,7 @@ sub toHtmlAsHidden {
foreach my $key (keys %options) {
foreach my $item (@values) {
if ($item eq $key) {
$output .= WebGUI::Form::Hidden->new(
$self->session,
$output .= WebGUI::Form::Hidden->new($self->session,
name=>$self->get("name"),
value=>$key
)->toHtmlAsHidden;

6
lib/WebGUI/Form/TimeField.pm
View file

@ -112,8 +112,7 @@ sub toHtml {
$self->session->style->setScript($self->session->config->get("extrasURL").'/inputCheck.js',{ type=>'text/javascript' });
$self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(this.form.'.$self->get("name").',\'0123456789:\')"');
return $self->SUPER::toHtml
.WebGUI::Form::Button->new(
$self->session,
.WebGUI::Form::Button->new($self->session,
id=>$self->get('id'),
extras=>'style="font-size: 8pt;" onclick="window.timeField = this.form.'.$self->get("name").';clockSet = window.open(\''.$self->session->config->get("extrasURL"). '/timeChooser.html\',\'timeChooser\',\'WIDTH=230,HEIGHT=100\');return false"',
value=>$i18n->get(970)
@ -130,8 +129,7 @@ Renders the field as a hidden field.
sub toHtmlAsHidden {
my $self = shift;
return WebGUI::Form::Hidden->new(
$self->session,
return WebGUI::Form::Hidden->new($self->session,
name=>$self->get("name"),
value=>secondsToTime($self->get("value"))
)->toHtmlAsHidden;

6
lib/WebGUI/Form/YesNo.pm
View file

@ -109,8 +109,7 @@ sub toHtml {
} else {
$checkNo = 1;
}
my $output = WebGUI::Form::Radio->new(
$self->session,
my $output = WebGUI::Form::Radio->new($self->session,
checked=>$checkYes,
name=>$self->get("name"),
value=>1,
@ -118,8 +117,7 @@ sub toHtml {
)->toHtml;
$output .= $i18n->get(138);
$output .= '&nbsp;&nbsp;&nbsp;';
$output .= WebGUI::Form::Radio->new(
$self->session,
$output .= WebGUI::Form::Radio->new($self->session,
checked=>$checkNo,
name=>$self->get("name"),
value=>0,

2
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -202,7 +202,7 @@ sub www_editProfileField {
next if $form eq 'DynamicField';
my $cmd = join '::', 'WebGUI::Form', $form;
eval "use $cmd";
my $w = eval "$cmd->new();";
my $w = eval "$cmd->new($session);";
push @profileForms, $form if $w->{profileEnabled};
}