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/event_history.pm
+++ b/lib/calcms/event_history.pm
@@ -14,9 +14,8 @@ sub debug;
 sub get_columns ($){
    my $config = shift;

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

 sub get ($$){