11 my $db = PciIds::DBQAny::new( connectDb(), {
12 'list' => 'SELECT id, name, note FROM locations WHERE name IS NOT NULL ORDER BY id'
15 foreach( @{$db->query( 'list', [] )} ) {
16 my( $id, $name, $description ) = @{$_};
18 my $prefix = ( /^PD\/..$/ ) ? '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";