use Catalyst qw/-Debug ConfigLoader Static::Simple Prototype /; ##

##


[% c.prototype.define_javascript_functions %]


##

##

  
  [% url = base _ 'application/newrow/' _ page.title %]
  [% c.prototype.observe_field(
       "$task_input_id", {
         url => url,
         with => "'input='+value",
         update => "$task_output_name"
       }
     ) %]
  
    
      [% task_name %]
       
       
    

##

##

    [% task_name        = 'Project Name' %]
    [% task_input_name  = 'project'      %]
    [% task_output_name = 'project'      %]
    [% task_input_id    = 'project_id'   %]
    [% INCLUDE taskrow.tt               %]

##

##

sub newrow : Local {
  my( $self, $c ) = @_;
  my $newrow = buildrow() || 'some default text';
  $c->res->output( $newrow );
}

sub buildrow : Private {
  my $html = '';
  my $template = Template->new({
    CATALYST_VAR => 'c',
    INCLUDE_PATH => [
        workest->path_to( 'root', 'src' ),
    ],
    OUTPUT => \$html,
  });
  $template->process( 'taskrow.tt',
    {
      task_name => 'Brand New Task',
      task_input_name => 'newtask',
      task_output_name => 'newtask',
      task_input_id => 'newtask_id',
    }
  );
  $html = $html || $template->error() || 'template broke';
  return $html;
}


##

##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)