Changeset 1563 in ProjectBuilder for projects/CDDBeditor/devel/CDDBeditor/bin/CDDBeditor

Timestamp:

May 22, 2012, 10:16:51 AM (12 years ago)

Author:

Bruno Cornec

Message:

• Fix an error with pontential undef fields

File:

• projects/CDDBeditor/devel/CDDBeditor/bin/CDDBeditor (modified) (1 diff)

projects/CDDBeditor/devel/CDDBeditor/bin/CDDBeditor

@@ -311 +311 @@
         $tno = $entry->{tno} if (defined $entry->{tno});
         $title = $entry->{title} if (defined $entry->{title});
-        push @vradio,sprintf "%02d (%s - %d tracks) - %s",$ind,$cat,$tno,$title;
+        my $chain = undef;
+        $chain = sprintf("%02d (%s - %d tracks) - %s",$ind,$cat,$tno,$title) if ((defined $cat) && (defined $tno) && (defined $title));
+        push @vradio,$chain if (defined $chain);
         $ind++;
     }