calendar.js: save selected day start time

set the day start time to the last selecved value for each studio
the user is assigned to.

lib/calcms/user_day_start.pm

@@ -0,0 +1,128 @@
+package user_day_start;
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+use Data::Dumper;
+
+# table:   calcms_user_day_start
+# columns:  user, project_id, studio_id, series_id, day_start
+
+sub debug;
+
+sub get_columns($) {
+    my $config = shift;
+
+    my $dbh  = db::connect($config);
+    return db::get_columns_hash( $dbh, 'calcms_user_day_start' );
+}
+
+sub get ($$) {
+    my $config    = shift;
+    my $condition = shift;
+
+    my @conditions  = ();
+    my @bind_values = ();
+
+    return unless defined $condition->{user};
+    return unless defined $condition->{project_id};
+    return unless defined $condition->{studio_id};
+
+    for my $field ('user', 'project_id', 'studio_id'){
+        if ( ( defined $condition->{$field} ) && ( $condition->{$field} ne '' ) ) {
+            push @conditions,  $field.'=?';
+            push @bind_values, $condition->{$field};
+        }
+    }
+
+    my $conditions = '';
+    $conditions = " where " . join( " and ", @conditions ) if scalar(@conditions) > 0;
+
+    my $query = qq{
+		select *
+		from   calcms_user_day_start
+		$conditions
+	};
+
+    my $dbh = db::connect($config);
+    my $entries = db::get( $dbh, $query, \@bind_values );
+    return $entries->[0] || undef;
+}
+
+sub insert_or_update($$){
+    my $config = shift;
+    my $entry  = shift;
+        print STDERR Dumper $entry;
+    if ( get($config, $entry) ){
+        update ($config, $entry);
+    } else {
+        insert ($config, $entry);
+    }
+}
+
+sub insert ($$) {
+    my $config = shift;
+    my $entry  = shift;
+
+    return unless defined $entry->{user};
+    return unless defined $entry->{project_id};
+    return unless defined $entry->{studio_id};
+    return unless defined $entry->{day_start};
+
+    my $dbh = db::connect($config);
+    print STDERR "insert".Dumper($entry );
+    return db::insert( $dbh, 'calcms_user_day_start', $entry );
+}
+
+sub update($$) {
+    my $config = shift;
+    my $entry  = shift;
+
+    my $fields = [ 'user', 'project_id', 'studio_id' ];
+    for (@$fields){
+        return unless defined $entry->{$_}
+    };
+
+    my @keys        = sort keys %$entry;
+    my $values      = join( ",", map { $_ . '=?' } @keys );
+    my @bind_values = map { $entry->{$_} } ( @keys, @$fields );
+    my $conditions  = join (' and ', map { $_.'=?' } @$fields );
+
+    my $query = qq{
+		update calcms_user_day_start 
+		set    $values
+		where  $conditions
+	};
+
+    print STDERR "update".Dumper($query ).Dumper(\@bind_values);
+    my $dbh = db::connect($config);
+    return db::put( $dbh, $query, \@bind_values );
+}
+
+sub delete ($$) {
+    my $config = shift;
+    my $entry  = shift;
+
+    return unless defined $entry->{user};
+    return unless defined $entry->{project_id};
+    return unless defined $entry->{studio_id};
+
+    my $query = qq{
+		delete 
+		from calcms_user_day_start
+		where user=? and project_id=? and studio_id=?
+	};
+    my $bind_values = [ $entry->{user}, $entry->{project_id}, $entry->{studio_id} ];
+
+    my $dbh = db::connect($config);
+    return db::put( $dbh, $query, $bind_values );
+}
+
+sub error ($) {
+    my $msg = shift;
+    print "ERROR: $msg<br/>\n";
+}
+
+#do not delete last line!
+1;