Index: Build.pm
===================================================================
RCS file: /usr/local/gossamer/lsqldev/cgi/admin/Links/Build.pm,v
retrieving revision 1.67
diff -r1.67 Build.pm
585a586
>             shift @{$display{category_loop}}; # The loop var shouldn't have the root cat.
595c596,602
<         $display{category} = $sth->rows ? Links::SiteHTML::display ('print_cat', $display{category_loop}) : '';
---
>         if ($sth->rows) {
>             $display{category} = Links::SiteHTML::display ('print_cat', $display{category_loop});
>         }
>         else {
>             $display{category} = '';
>             shift @{$display{category_loop}}; # The loop var shouldn't have the root cat.
>         }
611c618
<     }
---
>     }