Empty team names from cdb possible

diff --git a/lib/Duplo.pm b/lib/Duplo.pm
index 9979506aa07cfd96cb73be0c09fa3dd2d5c92e07..98b1e1260ed951960e3b5b791e85b2f4e2faad09 100644 (file)
--- a/lib/Duplo.pm
+++ b/lib/Duplo.pm
@@ -54,7 +54,7 @@ sub startup {
                                $config->{'db_pass'},
                                {
                                        pg_enable_utf8 => 1,
-                                       RaiseError => 1
+                                       RaiseError => 0,
                                });
                }
        );

diff --git a/lib/Duplo/Results.pm b/lib/Duplo/Results.pm
index 42df6f9bc60eda26bab1a7bf24ed17d4f59cd7e2..435a896c61dfe6bb454fc16c9ea3777655eac109 100644 (file)
--- a/lib/Duplo/Results.pm
+++ b/lib/Duplo/Results.pm
@@ -45,16 +45,21 @@ sub cdb_getlist {
 
                $pos += 0;
 
+               my $team = '';
+               my $team_id;
+               if ($tr->td->[3]->can('a')) {
+                       $team = decode('UTF-8', $tr->td->[3]->a->text);
+
+                       $team_id = $tr->td->[3]->a->{'href'}
+                               =~ /\/team\/[^\/]*\/(\d+)/;
+
+               }
                my $name = decode('UTF-8', $tr->td->[2]->a->text);
-               my $team = decode('UTF-8', $tr->td->[3]->a->text);
                my $time = decode('UTF-8', $tr->td->[4]->text);
 
                my ($rider_id) = $tr->td->[2]->a->{'href'}
                        =~ /\/rider\/[^\/]*\/(\d+)/;
 
-               my ($team_id)  = $tr->td->[3]->a->{'href'}
-                       =~ /\/team\/[^\/]*\/(\d+)/;
-
                push @list, {
                        dnf      => $dnf,
                        pos      => $pos,