set numbered parameters using entry::set_numbers

2020-03-08 14:04:35 +01:00
parent b2dc101354
commit 94d4ca59d8
27 changed files with 136 additions and 207 deletions
--- a/website/agenda/planung/notify-events.cgi
+++ b/website/agenda/planung/notify-events.cgi
@@ -248,12 +248,9 @@ sub check_params {
    }
    $checked->{debug} = $debug;

-    #numeric values
-    for my $param ( 'event_id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'duration' ) {
-        if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
-            $checked->{$param} = $params->{$param};
-        }
-    }
+    entry::set_numbers( $checked, $params, [
+        'event_id', 'project_id', 'studio_id', 'default_studio_id', 'user_id', 'series_id', 'duration'
+    ]);

    for my $param ( 'subject', 'to', 'cc', 'content' ) {
        if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /\S/ ) ) {