I still running into the issue, I went ahead and changed it over to Changed instead of being local. I also added a chained method to add an entry to the table with after testing works so I know it is not a database issue. Here is my updated code for my controller
sub base :Chained('/') :PathPart('admin') :CaptureArgs(0) {
my ($self, $c) = @_;
$c->stash( users => $c->model('DB::Tech'));
$c->log->debug('*** INSIDE BASE METHOD ***');
}
sub list :Chained('base') :PathPart('list') :Args(0) {
my ($self, $c) = @_;
$c->stash( users => $c->model('DB::Tech')->search_rs );
$c->stash(template => 'admin/list.tt2');
}
sub add :Chained('base') :PathPart('add') :Args(0) {
my ($self, $c) = @_;
$c->stash(template => 'admin/new.tt2');
}
sub add_do :Chained('base') :PathPart('add_do') :Args(0) {
my ($self, $c) = @_;
# Retrieve the values fro mthe form
my $username = $c->request->params->{username};
my $password = $c->request->params->{password};
my $fname = $c->request->params->{fname};
my $lname = $c->request->params->{lname};
my $email = $c->request->params->{email};
my $phone = $c->request->params->{phone};
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isd
+st ) = localtime time;
$year += 1900;
my @month_abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct N
+ov Dec );
my $date = "$year-$month_abbr[$mon]-$mday";
# Create the tech
my $user = $c->model('DB::Tech')->create({
id => $username,
password => $password,
firstname => $fname,
lastname => $lname,
email => $email,
phone => $phone,
managementrating => '5',
managementcomments => q[],
date => $date,
ismanagement => '0',
});
$Data::Dumper::Useperl = 1;
$c->stash(users => $user,
template => 'admin/create_done.tt2');
}
If the add and add_do subs would have failed then I would know it was a problem with my Model or database but this is just odd |