##

   //called in HTML  with:
   // 
   function normalize_labels(element,color) {   
      $('label').each(function(){   
         //there might be a better way but these next 5 lines
         //  get the original text for the label from the "for"
         //  attribute, makes it presentable, and then
         //  places it back in the form
         var lab = $(this).attr('for');
         lab = lab.slice(0,1).toUpperCase() + lab.slice(1);
         lab = lab.replace(/_/g, " ");
         $(this).css({'color':'#'+color}); 
         $(this).text(lab);
      });
   }

   function parse_results(result,form, msgdiv) {
      var success = '';
      var msgArray = result[0].messages;
      $.each(msgArray, function(i,o) {
         for (var p in o) {
            var val = o[p]; //p is the key (id) in this case, and 
                            //  val is the message
            if (p == 'success') {
               //build html for a success message
               success += '' + val + '';
            } else {
               //display errors where labels were
               $($("label[for='"+p+"']")).addClass('error').append(' '+val);
            }
         }
      });//each
      if (success) {            
         $('#'+form).resetForm();//jquery.form.js feature
         $('#'+form).hide("fast"); //hide the form if you want
         $('#'+msgdiv).css('display','block'); //display the success
         $('#'+msgdiv).append(success); //  div and message
      }
   }

##

##

#--- Get entrees on the fly
sub get_entrees {
   my $self = shift;

	my $stmt = qq~SELECT id, entrees FROM menu WHERE ethnicity = ?~;
	            
	my $entrees = $self->dbh->selectall_arrayref($stmt, {Slice => {}}, $self->query->param('ethnicity'));
	
   return $self->json_body( $entrees);
}

##

##

use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
use CGI::Application::Plugin::JSON ':all';


#--- Save
sub save_form {
   my $self = shift;
   
   $self->validate_form();                           
   if ( $self->param('error_list')) {
      my $result = [{ 'messages' => $self->param('error_list') }];
      return $self->json_body( $result );
   }
 
   $self->record();
  
   my $result = [{ 'messages' => $self->param('success_list') }];
   return $self->json_body( $result);                         
}                        

#--- Validate  

sub validate_form {
   my $self = shift;
   my (%sql, $error, @error_list);
	
   ($sql{'name'}, $error) = $self->val_input(1, 32, $self->query->param('name') );
      if ( $error-> { msg } ) { push @error_list, { "name" => $error->{ msg } }; }	
   ($sql{'ethnicity'}, $error) = $self->val_input( 1, 16, $self->query->param('ethnicity') );
      if ( $error-> { msg } ) { push @error_list, { "ethnicity" => $error->{ msg } }; }
   ($sql{'entree'}, $error) = $self->val_selected ($self->query->param('entree') );
      if ( $error-> { msg } ) { push @error_list, { "entree" => $error->{ msg } }; }
   ($sql{'email'}, $error) = $self->val_email( 1, $self->query->param('email') );
      if ( $error-> { msg } ) { push @error_list, { "email" => $error->{ msg } }; }

   if (@error_list) { $self->param('error_list' => \@error_list) }
   $self->param('sql'   => \%sql);
}


#--- Record 
sub record {
   my $self = shift;
   my %sql = %{ $self->param('sql') };
   my @cols = map $self->dbh->quote_identifier($_), keys %sql;

   my $stmt = 'INSERT INTO entrees (created_on,' . join(',', @cols) . ') 
   VALUES (NOW(),' . join(',', ('?') x @cols) . ')';
   $self->dbh->do( $stmt, undef, values %sql); 								
   $self->param('success_list' => [{'success' => 'Record added'}]);
}

##

##

use Email::Valid;

sub val_input {
   my $self = shift;
   my ($mand, $len, $value) = @_;
   if (!$value && $mand) {
      return (undef, { msg => 'cannot be blank' });
   } elsif ($len && (length($value) > $len) ) {
      return (undef, { msg => 'is limited to '.$len.' characters' });
   } elsif ($value && $value !~ /^([\w \.\,\-\(\)\?\:\;\"\!\'\/\n\r]*)$/) {
      return (undef, { msg => 'can only use letters, numbers, spaces and -.,&:\'' });
   } else {
      my $tf = new HTML::TagFilter;
      return ($tf->filter($1));
   }
}

sub val_email { 
   my $self = shift;
   my ($mand, $value) = @_;
   if ( !Email::Valid->address($value) && $mand ) { 
      return ( undef, { msg => 'address does not appear to be valid or is blank' }	);
   } elsif ( !Email::Valid->address($value) && $value ) {
      return ( undef, { msg => 'address does not appear to be valid or is blank' }	);
   } else {
      return $value;
   }
}

sub val_selected {
   my $self = shift;
   my ($value) = @_;
   if (!$value) {
     return (undef, { msg => 'must be selected' });
   } else {
     return $value;
   }
}

##

##

.form {
   float: left;
   width: 100%;
   margin: 10px 0 40px 0px;
}
label {
   display: block;
}
input:focus, textarea:focus {
   background: #F5F5DC;
}
p.wrap  {
   font: 11px/15px verdana, sans-serif;
   margin: 6px 0 0 0;
   width: 100%;
   clear:both;
}	
input, textarea,.label, .blabel {
   font: 11px/15px verdana, sans-serif;
}
input[type="text"] { width: 240px; margin-top: 0 }
input[type="radio"] {margin: 5px 2px 0 0 } 
input[id=submitBtn] {margin: 10px  0 0 } 

.label, .blabel {
   line-height: 18px;
   padding-right: 7px;
   margin: 0;
}
.blabel {
   font-weight: bold;
}
#msgs { 
      display: none; 
      margin: 0 0 0 20px;
}
p.success {
   margin: 20px 0 0 20px;
   padding: 0 0 0 20px;
   font: bold 12px verdana, sans-serif;
   color: green;
   background: url(/images/success.png) no-repeat 5px;
}