kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use map for table columns

Browse Source
This commit is contained in:
Milan
2020-03-08 00:24:15 +01:00
parent ea9590f6dc
commit 7b565c6d9b
20 changed files with 38 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/calcms/audio_recordings.pm
View File

@@ -22,8 +22,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_audio_recordings' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_audio_recordings' );
}
# get playout entries

7
lib/calcms/db.pm
View File

@@ -115,8 +115,7 @@ sub get_columns($$) {
my $table = shift;
my $columns = db::get( $dbh, 'select column_name from information_schema.columns where table_name=?', [$table] );
my @result = map { $_->{column_name} } (@$columns);
return \@result;
return [ map { $_->{column_name} } @$columns ];
}
# get hash with table columns as keys
@@ -124,8 +123,8 @@ sub get_columns_hash($$) {
my $dbh = shift;
my $table = shift;
my $columns = db::get_columns( $dbh, $table );
return { map { $_ => 1 } @$columns };
my $columns = db::get( $dbh, 'select column_name from information_schema.columns where table_name=?', [$table] );
return { map { $_->{column_name} => 1 } @$columns };
}
#returns last inserted id

3
lib/calcms/event_history.pm
View File

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

3
lib/calcms/password_requests.pm
View File

@@ -22,8 +22,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_password_requests' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_password_requests' );
}
sub get ($$) {

3
lib/calcms/playout.pm
View File

@@ -19,8 +19,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_playout' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_playout' );
}

3
lib/calcms/project.pm
View File

@@ -29,8 +29,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_projects' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_projects' );
}
# get projects

3
lib/calcms/series.pm
View File

@@ -33,8 +33,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_series' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_series' );
}
# get series content

3
lib/calcms/series_dates.pm
View File

@@ -25,8 +25,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_series_dates' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_series_dates' );
}
# get all series_dates for studio_id and series_id within given time range

4
lib/calcms/series_schedule.pm
View File

@@ -27,9 +27,7 @@ sub get_columns ($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_series_schedule' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_series_schedule' );
}
#map schedule id to id

3
lib/calcms/studio_timeslot_dates.pm
View File

@@ -21,8 +21,7 @@ sub get_columns ($){
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_studio_timeslot_dates' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_studio_timeslot_dates' );
}
# get all studio_timeslot_dates for studio_id within given time range

3
lib/calcms/studio_timeslot_schedule.pm
View File

@@ -19,8 +19,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_studio_timeslot_schedule' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_studio_timeslot_schedule' );
}
#map schedule id to id

3
lib/calcms/studios.pm
View File

@@ -16,8 +16,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_studios' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_studios' );
}
sub get($;$) {
my $config = shift;

5
lib/calcms/user_default_studios.pm
View File

@@ -8,8 +8,6 @@ use Data::Dumper;
# table: calcms_user_default_studios
# columns: user, project_id, studio_id
#use base 'Exporter';
#our @EXPORT_OK = qw(get insert update delete get_columns);
sub debug;
@@ -17,8 +15,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_default_studios' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_user_default_studios' );
}
sub get ($$) {

3
lib/calcms/user_sessions.pm
View File

@@ -27,8 +27,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_sessions' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_user_sessions' );
}
#map schedule id to id

3
lib/calcms/user_settings.pm
View File

@@ -137,8 +137,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_settings' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_user_settings' );
}
sub get ($$) {

3
lib/calcms/user_stats.pm
View File

@@ -14,8 +14,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_user_stats' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_user_stats' );
}
sub get ($$) {

3
lib/calcms/work_dates.pm
View File

@@ -25,8 +25,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_work_dates' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_work_dates' );
}
# get all work_dates for studio_id and schedule_id within given time range

3
lib/calcms/work_schedule.pm
View File

@@ -26,8 +26,7 @@ sub get_columns($) {
my $config = shift;
my $dbh = db::connect($config);
my $cols = db::get_columns( $dbh, 'calcms_work_schedule' );
return { map { $_ => undef } @$cols };
return db::get_columns_hash( $dbh, 'calcms_work_schedule' );
}
#map schedule id to id

4
website/agenda/planung/projects.cgi
View File

@@ -86,7 +86,7 @@ sub delete_project {
my $entry = {};
for my $param ( keys %$params ) {
if ( defined $columns->{$param} ) {
if ( exists $columns->{$param} ) {
$entry->{$param} = $params->{$param} || '';
}
}
@@ -113,7 +113,7 @@ sub save_project {
my $columns = project::get_columns($config);
my $entry = {};
for my $param ( keys %$params ) {
if ( defined $columns->{$param} ) {
if ( exists $columns->{$param} ) {
$entry->{$param} = $params->{$param} || '';
}
}

4
website/agenda/planung/studios.cgi
View File

@@ -82,7 +82,7 @@ sub delete_studio {
my $entry = {};
for my $param ( keys %$params ) {
if ( defined $columns->{$param} ) {
if ( exists $columns->{$param} ) {
$entry->{$param} = $params->{$param} || '';
}
}
@@ -131,7 +131,7 @@ sub save_studio {
my $columns = studios::get_columns($config);
my $entry = {};
for my $param ( keys %$params ) {
if ( defined $columns->{$param} ) {
if ( exists $columns->{$param} ) {
$entry->{$param} = $params->{$param} || '';
}
}