Import deletes correctly

diff --git a/PciIds/Html/Tables.pm b/PciIds/Html/Tables.pm
index 2e916b3eb5bdae37991a3f67c3f9f20ccf890b41..4eab1b3a9c1ca04738ed5c6d72362eba355b7c73 100644 (file)
--- a/PciIds/Html/Tables.pm
+++ b/PciIds/Html/Tables.pm
@@ -20,7 +20,10 @@ sub nodes( $$$ ) {
        my $restrict = $args->{'restrict'};
        $restrict = '' unless( defined $restrict );
        $restrict = PciIds::Address::new( $parent )->restrictRex( $restrict );#How do I know if the restrict is OK?
-       htmlFormatTable( PciIds::DBQ::nodes( $self, $parent, $args, $restrict ), 3, [], [ \&formatLink ], sub { 1; }, sub { return ' class="'.( defined( shift->[ 3 ] ) ? 'item' : 'unnamedItem' ).'"'; } );
+       htmlFormatTable( PciIds::DBQ::nodes( $self, $parent, $args, $restrict ), 3, [], [ \&formatLink ], sub { 1; }, sub {
+               my $name = shift->[ 1 ];
+               return ' class="'.( defined $name && $name ne '' ? 'item' : 'unnamedItem' ).'"';
+       } );
 }
 
 1;

diff --git a/scripts/importil.pl b/scripts/importil.pl
index 4f21c855637e3bc543840f7cb75635d73c86269d..7234831ca1b4e968573481e855ccbe378ca29134 100755 (executable)
--- a/scripts/importil.pl
+++ b/scripts/importil.pl
@@ -65,7 +65,7 @@ sub getUser( $ ) {
 sub addComment( $$$$$ ) {
        my( $email, $time, $name, $comment, $discussion ) = @_;
        my $user = getUser( $email );
-       $name = undef if( ( defined $name ) && $name !~ /\S/ );
+       $name = undef if( ( defined $name ) && $name !~ /\S/ && $name ne '' );
        $comment = undef if( ( defined $comment ) && $comment !~ /\S/ );
        $discussion = undef if( ( defined $discussion ) && $discussion !~ /\S/ );
        $newcomment->execute( $user, $addr->get(), $time, $name, $comment, $discussion );