Pridan helper pro update vstupnich dat

lib/CF/Helpers/Core.pm

@@ -140,6 +140,25 @@ sub register ($class, $self, $conf) {
         );
     });
 
+    $self->helper( prepare_update_data => sub($c, $result, $args) {
+        my $update = {};
+
+        my %protected = ();
+        if ( $result->resultset_class->can('PROTECTED_FIELDS')) {
+            %protected = map {$_ => 1}
+                @{ $result->resultset_class->PROTECTED_FIELDS()};
+        }
+
+        FIELD:
+        foreach my $field ( $result->columns() ) {
+            if ( exists $args->{$field} && ! $protected{$field} ) {
+                $update->{$field} = $args->{$field} ;
+            }
+        }
+
+        return $update;
+    });
+
     $self->helper( format_timestamp => sub($c, $timestamp, $format) {
         return $timestamp;
     });