uue same order of imports

website/agenda/planung/assign-series.cgi

@@ -10,8 +10,8 @@ use Encode();
 
 use params();
 use config();
-use log();
 use entry();
+use log();
 use template();
 use auth();
 use uac();

website/agenda/planung/assignments.cgi

@@ -9,6 +9,7 @@ use Encode();
 
 use params();
 use config();
+use entry();
 use log();
 use template();
 use auth();

website/agenda/planung/audio-recordings.cgi

@@ -5,7 +5,7 @@ use warnings;
 no warnings 'redefine';
 
 use Data::Dumper;
-use CGI::Simple   ();
+use CGI::Simple();
 use ModPerl::Util ();
 use Date::Calc();
 use Time::Local();
@@ -144,6 +144,7 @@ sub uploadRecording {
         #$params->{duration} = $fileInfo->{duration};
         $params = updateDatabase( $config, $params, $user ) if $params->{error} eq '';
     } else {
+        print STDERR "could not get file handle\n";
         $params->{error} .= 'Could not get file handle';
     }
 
@@ -554,11 +555,9 @@ sub check_params {
         $checked->{studio_id} = -1;
     }
 
-    $checked->{action} = entry::element_of($params->{action}, 
+    $checked->{action} = entry::element_of( $params->{action}, ['upload', 'delete'] );
-        ['update', 'delete']);
 
-    entry::set_strings( $checked, $params, [
+    entry::set_strings( $checked, $params, [ 'name', 'description', 'path' ]);
-        'name', 'description', 'path' ]);
 
     $checked->{upload} = $params->{upload};
     return $checked;

website/agenda/planung/calendar.cgi

@@ -11,6 +11,7 @@ use DateTime();
 use utf8();
 use params();
 use config();
+use entry();
 use log();
 use entry();
 use template();

website/agenda/planung/comment.cgi

@@ -12,6 +12,7 @@ use Encode::Locale();
 
 use params();
 use config();
+use entry();
 use log();
 use template();
 use db();

website/agenda/planung/create-events.cgi

@@ -8,8 +8,8 @@ use Data::Dumper;
 
 use params();
 use config();
+use entry();
 use template();
-
 use auth();
 use uac();
 use time();

website/agenda/planung/event.cgi

@@ -11,8 +11,8 @@ use Encode::Locale();
 
 use params();
 use config();
-use log();
 use entry();
+use log();
 use template();
 use db();
 use auth();
@@ -843,11 +843,10 @@ sub check_params {
         }
     }
 
-    $checked->{action} = entry::element_of($params->{action}, 
+    $checked->{action} = entry::element_of( $params->{action}, 
-        [qw{
+        [ 'save', 'delete', 'download', 'show_new_event', 'show_new_event_from_schedule', 
-          save delete download show_new_event show_new_event_from_schedule
+          'create_event', 'create_event_from_schedule', 'get_json'
-          create_event create_event_from_schedule get_json
+        ]
-        }]
+    )//'';
-    );
     return $checked;
 }

website/agenda/planung/help.cgi

@@ -9,6 +9,7 @@ use URI::Escape();
 
 use params();
 use config();
+use entry();
 use log();
 use template();
 use auth();

website/agenda/planung/image-upload.cgi

@@ -18,6 +18,7 @@ use Image::Magick();
 use Image::Magick::Square;
 
 use config();
+use entry();
 use auth();
 use uac();
 use studios();

website/agenda/planung/localization.cgi

@@ -10,6 +10,7 @@ use JSON();
 use config();
 use params();
 use log();
+use entry();
 use auth();
 use localization();
 

website/agenda/planung/notify-events.cgi

@@ -10,6 +10,7 @@ use MIME::Lite();
 
 use params();
 use config();
+use entry();
 use log();
 use template();
 use db();

website/agenda/planung/playout.cgi

@@ -10,6 +10,7 @@ use URI::Escape();
 use localization();
 use params();
 use config();
+use entry();
 use log();
 use template();
 use auth();

website/agenda/planung/projects.cgi

@@ -7,6 +7,7 @@ no warnings 'redefine';
 use Data::Dumper;
 
 use config();
+use entry();
 use params();
 use log();
 use template();

website/agenda/planung/request-password.cgi

@@ -8,6 +8,7 @@ use Data::Dumper;
 
 use params();
 use config();
+use entry();
 use db();
 use auth();
 use password_requests();

website/agenda/planung/series.cgi

@@ -1232,7 +1232,7 @@ sub show_series {
     }
 
     for my $value ('markdown', 'creole'){
-        $params->{"content_format_$value"}=1 if $params->{content_format} eq $value;
+        $params->{"content_format_$value"}=1 if ($params->{content_format}//'') eq $value;
     }
 
     $params->{loc} =

website/agenda/planung/studio-timeslots.cgi

@@ -9,6 +9,7 @@ use URI::Escape();
 
 use params();
 use config();
+use entry();
 use log();
 use template();
 use auth();

website/agenda/planung/studios.cgi

@@ -7,6 +7,7 @@ no warnings 'redefine';
 use Data::Dumper;
 
 use config();
+use entry();
 use params();
 use log();
 use template();

website/agenda/planung/user-settings.cgi

@@ -7,6 +7,7 @@ no warnings 'redefine';
 use Data::Dumper;
 
 use config();
+use entry();
 use log();
 use template();
 use auth();

website/agenda/planung/user-stats.cgi

@@ -7,10 +7,10 @@ no warnings 'redefine';
 use Data::Dumper;
 
 use config();
+use entry();
 use log();
 use template();
 use auth();
-use entry();
 use uac();
 use roles();
 use project();