23 lines
532 B
Perl
23 lines
532 B
Perl
package WebGUI::Form::ThingFieldsList;
|
|
|
|
use strict;
|
|
use base 'WebGUI::Form::SelectList';
|
|
|
|
|
|
#----------------------------------------------------------------------------
|
|
|
|
sub www_getThingFields {
|
|
my ( $session ) = @_;
|
|
|
|
my $thingId = $session->form->get('thingId');
|
|
my %fields
|
|
= $session->db->buildHash(
|
|
"SELECT fieldId, label FROM Thingy_fields WHERE thingId=?",
|
|
[$thingId]
|
|
);
|
|
|
|
$session->http->setMimeType( 'application/json' );
|
|
return JSON->new->encode( \%fields );
|
|
}
|
|
|
|
1;
|