Help for this page

Select Code to Download


  1. or download this
    my $RecType=uc($q->param('SearchRecType'));
my $RecSubType=uc($q->param('SearchRecSubType'));
...

print $q->header( 'application/json' );
print encode_json( { results => \@rows } );
  2. or download this
    {"results":[{"TITLE":"Title 1"OBJ_ID":"1"},{"TITLE":"Title 2","OBJ_ID"
+:"2"}]}