use map for table columns

2020-03-08 00:24:15 +01:00
parent ea9590f6dc
commit 7b565c6d9b
20 changed files with 38 additions and 59 deletions
--- a/lib/calcms/audio_recordings.pm
+++ b/lib/calcms/audio_recordings.pm
@@ -21,9 +21,8 @@ sub debug;
 sub get_columns($) {
    my $config = shift;

-    my $dbh     = db::connect($config);
-    my $cols    = db::get_columns( $dbh, 'calcms_audio_recordings' );
-    return { map { $_ => undef } @$cols };
+    my $dbh  = db::connect($config);
+    return db::get_columns_hash( $dbh, 'calcms_audio_recordings' );
 }

 # get playout entries