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.

website/agenda/planung/calendar.cgi

@@ -34,6 +34,7 @@ use playout();
 use user_settings();
 use audio_recordings();
 use audio();
+use user_day_start();
 
 binmode STDOUT, ":utf8";
 
@@ -44,6 +45,7 @@ my $config = config::get('../config/config.cgi');
 my $debug  = $config->{system}->{debug};
 my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
 return if ( !defined $user ) || ( $user eq '' );
+$config->{user} = $user;
 
 my $user_presets = uac::get_user_presets(
     $config,
@@ -1731,7 +1733,7 @@ sub printToolbar {
     # start of day
     my $day_start = $params->{day_start} || '';
     $toolbar .= qq{
-        <select id="day_start" name="day_start" onchange="reloadCalendar()" value="$day_start">
+        <select id="day_start" name="day_start" onchange="updateDayStart();reloadCalendar()" value="$day_start">
     };
     for my $hour ( 0 .. 24 ) {
         my $selected = '';
@@ -1947,7 +1949,9 @@ sub check_params {
     my $config = shift;
     my $params = shift;
 
-    my $checked  = {};
+    my $checked  = {
+        user => $config->{user}
+    };
     my $template = '';
     $checked->{template} = template::check( $config, $params->{template}, 'series' );
 
@@ -1961,6 +1965,13 @@ sub check_params {
         'list',    'day_start',  'open_end'
       ]);
 
+    my $start = user_day_start::get( $config, {
+        user       => $checked->{user},
+        project_id => $checked->{project_id},
+        studio_id  => $checked->{studio_id}
+    });
+    print  STDERR "read start $start\n";
+    $checked->{day_start} = $start->{day_start} if $start;
     $checked->{day_start} = $config->{date}->{day_starting_hour}
       unless defined $checked->{day_start};
     $checked->{day_start} %= 24;

website/agenda/planung/js/calendar.js

@@ -411,6 +411,15 @@ function getUrl(name,value){
     return url;
 }
 
+function updateDayStart(){
+    var url = "set-user-day-start.cgi?";
+    url += "&project_id=" + getProjectId();
+    url += "&studio_id="  + getStudioId();
+    url += "&day_start="  + $('#day_start').val();
+    console.log(url);
+    $.get(url);
+}
+
 // to be called from elements directly
 function reloadCalendar(){
     var url=window.location.href;

website/agenda/planung/set-user-day-start.cgi

@@ -0,0 +1,100 @@
+#!/usr/bin/perl 
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+use Data::Dumper;
+
+use params();
+use config();
+use entry();
+use log();
+use template();
+use auth();
+use uac();
+
+use series();
+use localization();
+use user_day_start();
+
+binmode STDOUT, ":utf8";
+
+my $r = shift;
+( my $cgi, my $params, my $error ) = params::get($r);
+
+my $config = config::get('../config/config.cgi');
+my $debug  = $config->{system}->{debug};
+my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
+return if ( ( !defined $user ) || ( $user eq '' ) );
+
+my $user_presets = uac::get_user_presets(
+    $config,
+    {
+        project_id => $params->{project_id},
+        studio_id  => $params->{studio_id},
+        user       => $user
+    }
+);
+$params->{default_studio_id} = $user_presets->{studio_id};
+$params = uac::setDefaultStudio( $params, $user_presets );
+$params = uac::setDefaultProject( $params, $user_presets );
+
+my $request = {
+    url => $ENV{QUERY_STRING} || '',
+    params => {
+        original => $params,
+        checked  => check_params( $config, $params ),
+    },
+};
+$request = uac::prepare_request( $request, $user_presets );
+
+$params = $request->{params}->{checked};
+$params = uac::set_template_permissions( $request->{permissions}, $params );
+$params->{loc} = localization::get( $config, { user => $user, file => 'select-event' } );
+
+#process header
+print "Content-type:text/text; charset=UTF-8;\n\n";
+
+return unless uac::check( $config, $params, $user_presets ) == 1;
+set_start_date( $config, $request );
+
+sub set_start_date {
+    my $config  = shift;
+    my $request = shift;
+
+    my $params      = $request->{params}->{checked};
+    my $permissions = $request->{permissions};
+    unless ( $permissions->{read_event} == 1 ) {
+        uac::permissions_denied('read_event');
+        return;
+    }
+
+    my $preset = user_day_start::insert_or_update($config, {
+        user        => $request->{user},
+        project_id  => $params->{project_id},
+        studio_id   => $params->{studio_id},
+        day_start   => $params->{day_start},
+    });
+    print "done\n";
+    return;
+}
+
+sub check_params {
+    my $config = shift;
+    my $params = shift;
+
+    my $checked = {};
+
+    entry::set_numbers( $checked, $params, [
+        'id', 'project_id', 'studio_id', 'day_start'
+    ]);
+
+    if ( defined $checked->{studio_id} ) {
+        $checked->{default_studio_id} = $checked->{studio_id};
+    } else {
+        $checked->{studio_id} = -1;
+    }
+    return $checked;
+}
+