added dfv check method to DFV model

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@535 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/Model/CDBI/DFV.pm b/lib/Maypole/Model/CDBI/DFV.pm
index 5c7a1273a39c0c57b0757ad89b82398068c70526..eb2bf20668834329b18f692042fa03ae13c931f5 100644 (file)
--- a/lib/Maypole/Model/CDBI/DFV.pm
+++ b/lib/Maypole/Model/CDBI/DFV.pm
@@ -96,6 +96,21 @@ sub adopt {
     }
 }
 
+=head2 check_params
+
+  Checks parameters against the DFV profile for the class, returns the results
+  of DFV's check.
+
+  my $dfv_results = __PACKAGE__->check_params($r->params);
+
+=cut
+
+sub check_params {
+  my ($class,$params) = @_;
+  return Data::FormValidator->check($params, $class->dfv_profile);
+}
+
+
 =head1 Action Methods
 
 Action methods are methods that are accessed through web (or other public) interface.
@@ -125,7 +140,6 @@ sub do_edit : Exported {
     return;
   }
 
-  my $required_cols = $class->required_columns;
   my $errors;
   if ($obj) {
     ($obj,$errors) = $class->_do_update($r,$obj);