sub save_to_db { my $self = shift; my $class_id = shift; my $educator_id = shift; # get CGI query object my $q = $self->query; # find or create an object for this class $class_id ||= $q->param('class_id'); $educator_id ||= $q->param('educator_id'); my $class = AIOC::Class->find_or_create({ id => $class_id }); # set the values of each field in the object foreach my $field ($q->param) { $class->$field(scalar $q->param($field)) if $class->can($field); } $class->educator($educator_id); # save the values to the database $class->update; # class_id may have been undef before create() $class_id ||= $class->id; # print data_form return $self->render_page('cp/cp_index.html', { educator_id => $class->educator }); } # end save_to_db()