__PACKAGE__->add_columns( "PID", { data_type => "integer", extra => { unsigned => 1 }, is_auto_increment => 1, is_nullable => 0, }, "FName", { data_type => "varchar", is_nullable => 0, size => 30 }, "MI", { data_type => "char", is_nullable => 1, size => 2 }, "LName", { data_type => "varchar", is_nullable => 0, size => 30 }, "username", { data_type => "varchar", is_nullable => 0, size => 8 }, ); . . . __PACKAGE__->has_many( "tbl_requests", "DB::BSMS::Result::TblRequests", { "foreign.PID" => "self.PID" }, { cascade_copy => 0, cascade_delete => 0 }, ); #### __PACKAGE__->add_columns( "RID", { data_type => "integer", extra => { unsigned => 1 }, is_auto_increment => 1, is_nullable => 0, }, "PID", { data_type => "integer", extra => { unsigned => 1 }, is_foreign_key => 1, is_nullable => 0, }, "original_post_date", { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 0 }, "last_update", { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 0 }, "submit_date", { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 }, "status", { data_type => "varchar", is_nullable => 0, size => 20 }, "sent_email", { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 }, ); . . . __PACKAGE__->belongs_to( "p", "DB::BSMS::Result::TblPerson", { PID => "PID" }, { is_deferrable => 1, on_delete => "NO ACTION", on_update => "NO ACTION" }, ); #### method get_user_request_status() { my @proc_requests = $schema->resultset( 'TblRequests' )->search({ -or => [ -and => [ -or => [ 'sent_email' => {'!=', undef }, 'sent_email' => {'!=', '0000-00-00'}, ], ], 'status' => 'Offered', 'status' => 'Denied', 'status' => 'Cancelled' 'status' => 'Conditional Offer', ], }, { join => 'p' } ); return \@proc_requests if @proc_requests; } }