11 my $db = PciIds::DBQAny::new( connectDb(), {
12 'list' => 'SELECT id, name, description FROM locations WHERE name IS NOT NULL ORDER BY id'
15 foreach( @{$db->query( 'list', [] )} ) {
16 my( $id, $name, $description ) = @{$_};
18 my $prefix = ( /^PC/ ) ? '' : 'C ';
24 print "$tabs$prefix$id $name\n";
25 if( defined( $description ) && ( $description ne '' ) ) {
27 $description =~ s/\n/\n$tabs#/g;
28 print "$tabs#$description\n";