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

fix for importing unsigned ints into the SQL Form from an existing table

Browse source
This commit is contained in:
Colin Kuskie 2007-02-18 22:50:24 +00:00
parent b8bd315555
commit 859886e8f8
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -16,6 +16,7 @@
- fix: Events are created with no group information.
- fix: Can't add files with File Pile (perlDreamer Consulting, LLC)
- fix: Calendar: Month View Always Shows Sunday (perlDreamer Consulting, LLC)
- fix: SQL Form and unsigned int (perlDreamer Consulting, LLC)
7.3.9
- fix: SQL Form and big table imports

9
lib/WebGUI/Asset/Wobject/SQLForm.pm
View file

@ -1270,6 +1270,7 @@ sub processPropertiesFromFormPost {
my $type = $columnDefinition->{Type};
my $set = $columnDefinition->{Type};
my $unsigned;
my $length;
$set =~ s/^.*\(//;
$set =~ s/\)$//;
@ -1278,11 +1279,13 @@ sub processPropertiesFromFormPost {
$length = $set + 0;
$type =~ s/\(.*\)//;
($type, $unsigned) = split /\s+/, $type;
my $shouldBeUnsigned = lc $unsigned eq 'unsigned';
my $currentField = $allowedDbFieldTypes->{$type};
# Get the fieldTypeId of this column
my ($fieldType) = $self->session->db->quickArray("select fieldTypeId from SQLForm_fieldTypes "
." where dbFieldType=".$self->session->db->quote($type)." and formFieldType=".$self->session->db->quote($currentField->{defaultFormElement}));
my ($fieldType) = $self->session->db->quickArray("select fieldTypeId from SQLForm_fieldTypes where dbFieldType=? and formFieldType=?",[$type, $currentField->{defaultFormElement}]);
# Create the field type if it doesn't exist
unless ($fieldType) {
@ -1311,7 +1314,7 @@ sub processPropertiesFromFormPost {
$processed->{regex} = $currentField->{defaultRegEx} if ($currentField->{defaultRegEx});
$processed->{fieldName} = $columnDefinition->{Field};
$processed->{displayName} = $columnDefinition->{Field};
$processed->{signed} = '1';
$processed->{signed} = $shouldBeUnsigned ? 0 : 1;
$processed->{showInSearchResults} = '1';
$processed->{isSearchable} = '1';
my $fieldId = $self->session->id->generate;