Adjust color list
authorJoey Schulze <joey@infodrom.org>
Sun, 8 Sep 2019 19:26:08 +0000 (21:26 +0200)
committerJoey Schulze <joey@infodrom.org>
Sun, 8 Sep 2019 19:26:08 +0000 (21:26 +0200)
src/InfoCon/stempel/stempel

index ad7bb0a..c73fdec 100755 (executable)
@@ -275,7 +275,7 @@ sub list
     my $sth = $dbh->prepare ($query);
 
     my $customer = '';
     my $sth = $dbh->prepare ($query);
 
     my $customer = '';
-    my @colors = qw/blue green yellow red cyan magenta/;
+    my @colors = qw/green yellow red cyan magenta blue/;
     my $color = $#colors;
     if ($sth && $sth->execute > 0) {
        while ((my $row = $sth->fetchrow_hashref)) {
     my $color = $#colors;
     if ($sth && $sth->execute > 0) {
        while ((my $row = $sth->fetchrow_hashref)) {