
more useful options
	PerlMonks

Using Perl, jQuery, and JSON for Web development

by bradcathey (Prior)

on Jun 02, 2010 at 12:56 UTC ( #842754=perltutorial: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

<script type="text/javascript">
   $(function(){
      $(".ethnicity").click(function(){
...
        $.getJSON('menu.cgi',
            { rm:'g', ethnicity:$(this).val() },
         ....

Select or download this

my $stmt = qq~SELECT id, entrees FROM menu WHERE ethnicity = ?~;
                
my $entrees = $self->dbh->selectall_arrayref($stmt, {Slice => {}}, $se
+lf->query->param('ethnicity'));
    
return $self->json_body( $entrees); #using CGI::App::Plugin::JSON

Select or download this

function(result){ 
// returns: [{"entrees":"Lasagna","id":"1"},{"entrees":"Spaghetti","id
+":"2"},{"entrees":"Pizza","id":"3"}]
...
   }
   $('#entree').html(options);

Select or download this

            
$('#menu').submit(function() {
         
...
   });
   return false;
});

Select or download this

sub save_form {
   my $self = shift;
...
      my $result = [{ 'messages' => $self->param('error_list') }];
      return $self->json_body( $result );
   }

Select or download this

$.ajax({                
   type: "POST",
...
      }
   });

Select or download this

$self->record();
   
...
  
my $result = [{ 'messages' => $self->param('success_list') }];
return $self->json_body( $result);

Select or download this

   if (success) {            
      $('#'+form).resetForm();//jquery.form.js feature
...
      $('#'+msgdiv).css('display','block'); //display the success
      $('#'+msgdiv).append(success); //  div and message
   }

Select or download this

<!--include common header for all pages -->
<tmpl_include header.tmpl>
...
</script> 
<!--pull in a standard footer for all pages -->
<tmpl_include footer.tmpl>

Select or download this

   //called in HTML <head> with:
   //<script type="text/javascript" src="forms.js"></script> 
...
         $('#'+msgdiv).append(success); //  div and message
      }
   }

Select or download this

#--- Get entrees on the fly
sub get_entrees {
...
    
   return $self->json_body( $entrees);
}

Select or download this

use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
use CGI::Application::Plugin::JSON ':all';
...
   $self->dbh->do( $stmt, undef, values %sql);                        
+         
   $self->param('success_list' => [{'success' => 'Record added'}]);
}

Select or download this

use Email::Valid;

...
     return $value;
   }
}

Select or download this

.form {
   float: left;
...
   color: green;
   background: url(/images/success.png) no-repeat 5px;
}

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: perltutorial [id://842754]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (3)

As of 2023-02-02 01:03 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Results (15 votes). Check out past polls.

Notices^?