Roles bugfix, allow skip migration

.gitlab-ci.yml

@@ -2,7 +2,7 @@ image: docker:20.10.9
 
 variables:
   DOCKER_TLS_CERTDIR: "/certs"
-  IMAGE_VER: 0.5.0
+  IMAGE_VER: 0.5.1
 
 services:
   - docker:20.10.9-dind

lib/CF2022.pm

@@ -24,19 +24,21 @@ sub startup {
 #    $self->helper( redis => sub { return $redis; } );
 
     # migrace schematu
-    my $pg = Mojo::Pg->new
-        ->dsn($cfg->{db_dsn})
-        ->username($cfg->{db_username})
-        ->password($cfg->{db_password})
-    ;
-    if ($cfg->{test}) {
-        $pg->search_path(['test']);
-        $pg->db->query('drop schema if exists test cascade');
-        $pg->db->query('create schema test');
+    if (! $cfg->{skip_migration}) {
+        my $pg = Mojo::Pg->new
+            ->dsn($cfg->{db_dsn})
+            ->username($cfg->{db_username})
+            ->password($cfg->{db_password})
+        ;
+        if ($cfg->{test}) {
+            $pg->search_path(['test']);
+            $pg->db->query('drop schema if exists test cascade');
+            $pg->db->query('create schema test');
+        }
+        $pg->migrations->from_dir($self->home . '/sql');
+        $pg->migrations->migrate();
+        $self->helper( pg => sub { return $pg; } );
     }
-    $pg->migrations->from_dir($self->home . '/sql');
-    $pg->migrations->migrate();
-    $self->helper( pg => sub { return $pg; } );
 
     # DB Schema
     my $schema = CF2022::Schema->connect({

lib/CF2022/Controller/Orders.pm

@@ -45,9 +45,9 @@ sub create ($c ) {
         );
 
         @products = grep { $_->{id} !~ MAIN_PRODUCTS } @products;
-        push @products, {
+        @products = ({
             id => $c->config->{'pretix_product_' . $group->{role}}
-        };
+        }, @products);
 
         if ( $group->{role} eq 'member' ) {
             $args->{email} = $claims->{preferred_username}

lib/CF2022/Helpers/Auth.pm

@@ -80,12 +80,14 @@ sub register ( $class, $self, $conf) {
         GROUP:
         foreach my $group ( sort @{ $claims->{groups} } ) {
             if ( $group =~ REGIONS ) {
+                my $role = ( $2 eq 'f') ? 'member':'regp';
+
                 my $region = $c->oauth_groups->{ $group };
                 $region =~ s/^KS\s+//i;
 
                 return {
                     region => $region,
-                    role   => ( $2 eq 'f') ? 'member':'regp',
+                    role   => $role,
                 };
             }
         }