'; $msg->print( \*STDERR ); - - #print ''; - $msg->send; } diff --git a/lib/calcms/playout.pm b/lib/calcms/playout.pm index bdc53ba..d08dc5a 100644 --- a/lib/calcms/playout.pm +++ b/lib/calcms/playout.pm @@ -145,9 +145,6 @@ sub sync { my $studio_id = $options->{studio_id}; my $updates = $options->{events}; - #print STDERR "sync\n"; - #print STDERR Dumper($updates); - # get new entries by date my $update_by_date = {}; for my $entry (@$updates) { diff --git a/lib/calcms/project.pm b/lib/calcms/project.pm index 8ba35c2..4862dbe 100644 --- a/lib/calcms/project.pm +++ b/lib/calcms/project.pm @@ -30,46 +30,46 @@ sub debug; # get project columns sub get_columns { - my $config = shift; + my $config = shift; - my $dbh = db::connect($config); - my $cols = db::get_columns( $dbh, 'calcms_projects' ); - my $columns = {}; - for my $col (@$cols) { - $columns->{$col} = 1; - } - return $columns; + my $dbh = db::connect($config); + my $cols = db::get_columns( $dbh, 'calcms_projects' ); + my $columns = {}; + for my $col (@$cols) { + $columns->{$col} = 1; + } + return $columns; } # get projects sub get { - my $config = shift; - my $condition = shift; + my $config = shift; + my $condition = shift; - my $dbh = db::connect($config); + my $dbh = db::connect($config); - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { - push @conditions, 'project_id=?'; - push @bind_values, $condition->{project_id}; - } + if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { + push @conditions, 'project_id=?'; + push @bind_values, $condition->{project_id}; + } - if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) { - push @conditions, 'name=?'; - push @bind_values, $condition->{name}; - } + if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) { + push @conditions, 'name=?'; + push @bind_values, $condition->{name}; + } - my $limit = ''; - if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) { - $limit = 'limit ' . $condition->{limit}; - } + my $limit = ''; + if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) { + $limit = 'limit ' . $condition->{limit}; + } - my $conditions = ''; - $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); + my $conditions = ''; + $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); - my $query = qq{ + my $query = qq{ select * from calcms_projects $conditions @@ -77,423 +77,423 @@ sub get { $limit }; - #print STDERR Dumper($query).Dumper(\@bind_values); + #print STDERR Dumper($query).Dumper(\@bind_values); - my $projects = db::get( $dbh, $query, \@bind_values ); - return $projects; + my $projects = db::get( $dbh, $query, \@bind_values ); + return $projects; } # requires at least project_id sub getImageById { - my $config = shift; - my $conditions = shift; + my $config = shift; + my $conditions = shift; - return undef unless defined $conditions->{project_id}; - my $projects = project::get( $config, $conditions ); - return undef if scalar(@$projects) != 1; - return $projects->[0]->{image}; + return undef unless defined $conditions->{project_id}; + my $projects = project::get( $config, $conditions ); + return undef if scalar(@$projects) != 1; + return $projects->[0]->{image}; } sub get_date_range { - my $config = shift; - my $query = qq{ + my $config = shift; + my $query = qq{ select min(start_date) start_date, max(end_date) end_date from calcms_projects }; - my $dbh = db::connect($config); + my $dbh = db::connect($config); - my $projects = db::get( $dbh, $query ); - return $projects->[0]; + my $projects = db::get( $dbh, $query ); + return $projects->[0]; } # insert project sub insert { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - my $columns = get_columns($config); - my $project = {}; - for my $column ( keys %$columns ) { - $project->{$column} = $entry->{$column} if defined $entry->{$column}; - } + my $columns = get_columns($config); + my $project = {}; + for my $column ( keys %$columns ) { + $project->{$column} = $entry->{$column} if defined $entry->{$column}; + } - $project->{image} = images::normalizeName( $project->{image} ) if defined $project->{image}; + $project->{image} = images::normalizeName( $project->{image} ) if defined $project->{image}; - my $dbh = db::connect($config); - my $id = db::insert( $dbh, 'calcms_projects', $project ); - return $id; + my $dbh = db::connect($config); + my $id = db::insert( $dbh, 'calcms_projects', $project ); + return $id; } # update project sub update { - my $config = shift; - my $project = shift; + my $config = shift; + my $project = shift; - my $columns = project::get_columns($config); - my $entry = {}; - for my $column ( keys %$columns ) { - $entry->{$column} = $project->{$column} if defined $project->{$column}; - } + my $columns = project::get_columns($config); + my $entry = {}; + for my $column ( keys %$columns ) { + $entry->{$column} = $project->{$column} if defined $project->{$column}; + } - $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image}; + $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image}; - my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) ); - my @bind_values = map { $entry->{$_} } ( keys %$entry ); - push @bind_values, $entry->{project_id}; + my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) ); + my @bind_values = map { $entry->{$_} } ( keys %$entry ); + push @bind_values, $entry->{project_id}; - my $query = qq{ + my $query = qq{ update calcms_projects set $values where project_id=? }; - #print STDERR Dumper($query).Dumper(\@bind_values); - my $dbh = db::connect($config); - db::put( $dbh, $query, \@bind_values ); + #print STDERR Dumper($query).Dumper(\@bind_values); + my $dbh = db::connect($config); + db::put( $dbh, $query, \@bind_values ); } # delete project sub delete { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - my $dbh = db::connect($config); - db::put( $dbh, 'delete from calcms_projects where project_id=?', [ $entry->{project_id} ] ); + my $dbh = db::connect($config); + db::put( $dbh, 'delete from calcms_projects where project_id=?', [ $entry->{project_id} ] ); } # get studios of a project sub get_studios { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return undef unless defined $options->{project_id}; - my $project_id = $options->{project_id}; + return undef unless defined $options->{project_id}; + my $project_id = $options->{project_id}; - my $query = qq{ + my $query = qq{ select * from calcms_project_studios where project_id=? }; - my $dbh = db::connect($config); - my $project_studios = db::get( $dbh, $query, [$project_id] ); + my $dbh = db::connect($config); + my $project_studios = db::get( $dbh, $query, [$project_id] ); - return $project_studios; + return $project_studios; } sub get_studio_assignments { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) { - push @conditions, 'project_id=?'; - push @bind_values, $options->{project_id}; - } + if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) { + push @conditions, 'project_id=?'; + push @bind_values, $options->{project_id}; + } - if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) { - push @conditions, 'studio_id=?'; - push @bind_values, $options->{studio_id}; - } + if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) { + push @conditions, 'studio_id=?'; + push @bind_values, $options->{studio_id}; + } - my $conditions = ''; - $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); + my $conditions = ''; + $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); - my $query = qq{ + my $query = qq{ select * from calcms_project_studios $conditions }; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, \@bind_values ); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, \@bind_values ); - return $results; + return $results; } # is studio assigned to project sub is_studio_assigned { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return 0 unless defined $entry->{project_id}; - return 0 unless defined $entry->{studio_id}; + return 0 unless defined $entry->{project_id}; + return 0 unless defined $entry->{studio_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; - my $query = qq{ + my $query = qq{ select * from calcms_project_studios where project_id=? and studio_id=? }; - my $bind_values = [ $project_id, $studio_id ]; + my $bind_values = [ $project_id, $studio_id ]; - my $dbh = db::connect($config); - my $project_studios = db::get( $dbh, $query, $bind_values ); - return 1 if @$project_studios == 1; - return 0; + my $dbh = db::connect($config); + my $project_studios = db::get( $dbh, $query, $bind_values ); + return 1 if scalar @$project_studios == 1; + return 0; } # assign studio to project sub assign_studio { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; - if ( is_studio_assigned($entry) ) { - print STDERR "studio $entry->{studio_id} already assigned to project $entry->{project_id}\n"; - return 1; - } - my $dbh = db::connect($config); - my $id = db::insert( $dbh, 'calcms_project_studios', $entry ); - return $id; + if ( is_studio_assigned($entry) ) { + print STDERR "studio $entry->{studio_id} already assigned to project $entry->{project_id}\n"; + return 1; + } + my $dbh = db::connect($config); + my $id = db::insert( $dbh, 'calcms_project_studios', $entry ); + return $id; } # unassign studio from project sub unassign_studio { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; - my $sql = 'delete from calcms_project_studios where project_id=? and studio_id=?'; - my $bind_values = [ $project_id, $studio_id ]; - my $dbh = db::connect($config); - return db::put( $dbh, $sql, $bind_values ); + my $sql = 'delete from calcms_project_studios where project_id=? and studio_id=?'; + my $bind_values = [ $project_id, $studio_id ]; + my $dbh = db::connect($config); + return db::put( $dbh, $sql, $bind_values ); } # get series by project and studio sub get_series { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return undef unless defined $options->{project_id}; - return undef unless defined $options->{studio_id}; - my $project_id = $options->{project_id}; - my $studio_id = $options->{studio_id}; + return undef unless defined $options->{project_id}; + return undef unless defined $options->{studio_id}; + my $project_id = $options->{project_id}; + my $studio_id = $options->{studio_id}; - my $query = qq{ + my $query = qq{ select * from calcms_project_series where project_id=? and studio_id=? }; - my $bind_values = [ $project_id, $studio_id ]; - my $dbh = db::connect($config); - my $project_series = db::get( $dbh, $query, $bind_values ); + my $bind_values = [ $project_id, $studio_id ]; + my $dbh = db::connect($config); + my $project_series = db::get( $dbh, $query, $bind_values ); - return $project_series; + return $project_series; } sub get_series_assignments { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) { - push @conditions, 'project_id=?'; - push @bind_values, $options->{project_id}; - } + if ( ( defined $options->{project_id} ) && ( $options->{project_id} ne '' ) ) { + push @conditions, 'project_id=?'; + push @bind_values, $options->{project_id}; + } - if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) { - push @conditions, 'studio_id=?'; - push @bind_values, $options->{studio_id}; - } + if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} ne '' ) ) { + push @conditions, 'studio_id=?'; + push @bind_values, $options->{studio_id}; + } - if ( ( defined $options->{series_id} ) && ( $options->{series_id} ne '' ) ) { - push @conditions, 'series_id=?'; - push @bind_values, $options->{series_id}; - } + if ( ( defined $options->{series_id} ) && ( $options->{series_id} ne '' ) ) { + push @conditions, 'series_id=?'; + push @bind_values, $options->{series_id}; + } - my $conditions = ''; - $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); + my $conditions = ''; + $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 ); - my $query = qq{ + my $query = qq{ select * from calcms_project_series $conditions }; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, \@bind_values ); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, \@bind_values ); - return $results; + return $results; } # is series assigned to project and studio sub is_series_assigned { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return 0 unless defined $entry->{project_id}; - return 0 unless defined $entry->{studio_id}; - return 0 unless defined $entry->{series_id}; + return 0 unless defined $entry->{project_id}; + return 0 unless defined $entry->{studio_id}; + return 0 unless defined $entry->{series_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; - my $series_id = $entry->{series_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; + my $series_id = $entry->{series_id}; - my $query = qq{ + my $query = qq{ select * from calcms_project_series where project_id=? and studio_id=? and series_id=? }; - my $bind_values = [ $project_id, $studio_id, $series_id ]; + my $bind_values = [ $project_id, $studio_id, $series_id ]; - my $dbh = db::connect($config); - my $project_series = db::get( $dbh, $query, $bind_values ); - return 1 if @$project_series == 1; - return 0; + my $dbh = db::connect($config); + my $project_series = db::get( $dbh, $query, $bind_values ); + return 1 if scalar @$project_series == 1; + return 0; } # assign series to project and studio sub assign_series { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - return undef unless defined $entry->{series_id}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + return undef unless defined $entry->{series_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; - my $series_id = $entry->{series_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; + my $series_id = $entry->{series_id}; - if ( is_series_assigned($entry) ) { - print STDERR "series $series_id already assigned to project $project_id and studio $studio_id\n"; - return return undef; - } - my $dbh = db::connect($config); - my $id = db::insert( $dbh, 'calcms_project_series', $entry ); - print STDERR "assigned series $series_id to project $project_id and studio $studio_id\n"; - return $id; + if ( is_series_assigned($entry) ) { + print STDERR "series $series_id already assigned to project $project_id and studio $studio_id\n"; + return return undef; + } + my $dbh = db::connect($config); + my $id = db::insert( $dbh, 'calcms_project_series', $entry ); + print STDERR "assigned series $series_id to project $project_id and studio $studio_id\n"; + return $id; } # unassign series from project # TODO: remove series _single_ if no event is assigned to sub unassign_series { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - return undef unless defined $entry->{series_id}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + return undef unless defined $entry->{series_id}; - my $project_id = $entry->{project_id}; - my $studio_id = $entry->{studio_id}; - my $series_id = $entry->{series_id}; + my $project_id = $entry->{project_id}; + my $studio_id = $entry->{studio_id}; + my $series_id = $entry->{series_id}; - my $sql = 'delete from calcms_project_series where project_id=? and studio_id=? and series_id=?'; - my $bind_values = [ $project_id, $studio_id, $series_id ]; - my $dbh = db::connect($config); - return db::put( $dbh, $sql, $bind_values ); + my $sql = 'delete from calcms_project_series where project_id=? and studio_id=? and series_id=?'; + my $bind_values = [ $project_id, $studio_id, $series_id ]; + my $dbh = db::connect($config); + return db::put( $dbh, $sql, $bind_values ); } sub get_with_dates { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - my $language = $config->{date}->{language} || 'en'; - my $projects = project::get( $config, {} ); + my $language = $config->{date}->{language} || 'en'; + my $projects = project::get( $config, {} ); - foreach my $project ( reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects) ) { - $project->{months} = get_months( $config, $project, $language ); - $project->{user} = $ENV{REMOTE_USER}; - $project->{current} = 1 if ( $project->{name} eq $config::config->{project} ); - } + foreach my $project ( reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects) ) { + $project->{months} = get_months( $config, $project, $language ); + $project->{user} = $ENV{REMOTE_USER}; + $project->{current} = 1 if ( $project->{name} eq $config::config->{project} ); + } - return $projects; + return $projects; } #TODO: add config sub get_sorted { - my $config = shift; - my $projects = project::get( $config, {} ); - my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects); + my $config = shift; + my $projects = project::get( $config, {} ); + my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects); - unshift @projects, - { - name => 'all', - title => 'alle', - priority => '0', - start_date => $projects[-1]->{start_date}, - end_date => $projects[0]->{end_date}, - }; - return \@projects; + unshift @projects, + { + name => 'all', + title => 'alle', + priority => '0', + start_date => $projects[-1]->{start_date}, + end_date => $projects[0]->{end_date}, + }; + return \@projects; } # internal sub get_months { - my $config = shift; - my $project = shift; - my $language = shift || $config->{date}->{language} || 'en'; + my $config = shift; + my $project = shift; + my $language = shift || $config->{date}->{language} || 'en'; - my $start = $project->{start_date}; - my $end = $project->{end_date}; + my $start = $project->{start_date}; + my $end = $project->{end_date}; - ( my $start_year, my $start_month, my $start_day ) = split( /\-/, $start ); - my $last_day = Date::Calc::Days_in_Month( $start_year, $start_month ); - $start_day = 1 if ( $start_day < 1 ); - $start_day = $last_day if ( $start_day gt $last_day ); + ( my $start_year, my $start_month, my $start_day ) = split( /\-/, $start ); + my $last_day = Date::Calc::Days_in_Month( $start_year, $start_month ); + $start_day = 1 if ( $start_day < 1 ); + $start_day = $last_day if ( $start_day gt $last_day ); - ( my $end_year, my $end_month, my $end_day ) = split( /\-/, $end ); - $last_day = Date::Calc::Days_in_Month( $end_year, $end_month ); - $end_day = 1 if ( $end_day < 1 ); - $end_day = $last_day if ( $end_day gt $last_day ); + ( my $end_year, my $end_month, my $end_day ) = split( /\-/, $end ); + $last_day = Date::Calc::Days_in_Month( $end_year, $end_month ); + $end_day = 1 if ( $end_day < 1 ); + $end_day = $last_day if ( $end_day gt $last_day ); - my @months = (); - for my $year ( $start_year .. $end_year ) { - my $m1 = 1; - my $m2 = 12; - $m1 = $start_month if $year eq $start_year; - $m2 = $end_month if $year eq $end_year; + my @months = (); + for my $year ( $start_year .. $end_year ) { + my $m1 = 1; + my $m2 = 12; + $m1 = $start_month if $year eq $start_year; + $m2 = $end_month if $year eq $end_year; - for my $month ( $m1 .. $m2 ) { - my $d1 = 1; - my $d2 = Date::Calc::Days_in_Month( $year, $month ); - $d1 = $start_day if $month eq $start_month; - $d2 = $end_day if $month eq $end_month; - push @months, - { - start => time::array_to_date( $year, $month, $d1 ), - end => time::array_to_date( $year, $month, $d2 ), - year => $year, - month => $month, - month_name => $time::names->{$language}->{months_abbr}->[ $month - 1 ], - title => $project->{title}, - user => $ENV{REMOTE_USER} - }; - } - } - @months = reverse @months; - return \@months; + for my $month ( $m1 .. $m2 ) { + my $d1 = 1; + my $d2 = Date::Calc::Days_in_Month( $year, $month ); + $d1 = $start_day if $month eq $start_month; + $d2 = $end_day if $month eq $end_month; + push @months, + { + start => time::array_to_date( $year, $month, $d1 ), + end => time::array_to_date( $year, $month, $d2 ), + year => $year, + month => $month, + month_name => $time::names->{$language}->{months_abbr}->[ $month - 1 ], + title => $project->{title}, + user => $ENV{REMOTE_USER} + }; + } + } + @months = reverse @months; + return \@months; } # check project_id sub check { - my $config = shift; - my $options = shift; - return "missing project_id at checking project" unless defined $options->{project_id}; - return "Please select a project" if ( $options->{project_id} eq '-1' ); - return "Please select a project" if ( $options->{project_id} eq '' ); - my $projects = project::get( $config, { project_id => $options->{project_id} } ); - return "Sorry. unknown project" unless defined $projects; - return 1; + my $config = shift; + my $options = shift; + return "missing project_id at checking project" unless defined $options->{project_id}; + return "Please select a project" if ( $options->{project_id} eq '-1' ); + return "Please select a project" if ( $options->{project_id} eq '' ); + my $projects = project::get( $config, { project_id => $options->{project_id} } ); + return "Sorry. unknown project" unless defined $projects; + return 1; } sub error { - my $msg = shift; - print "ERROR: $msg
$query'.$query.Dumper($bind_values).''; - db::put( $dbh, $query, $bind_values ); + #print '
$query'.$query.Dumper($bind_values).''; + db::put( $dbh, $query, $bind_values ); - project::unassign_series( - $config, - { - project_id => $project_id, - studio_id => $studio_id, - series_id => $series_id - } - ); + project::unassign_series( + $config, + { + project_id => $project_id, + studio_id => $studio_id, + series_id => $series_id + } + ); - #delete series + #delete series - my $series_assignments = project::get_series_assignments( - $config, - { - series_id => $series_id - } - ); - if ( @$series_assignments > 1 ) { - print STDERR "do not delete series, due to assigned to other project or studio"; - return; - } + my $series_assignments = project::get_series_assignments( + $config, + { + series_id => $series_id + } + ); + if ( scalar @$series_assignments > 1 ) { + print STDERR "do not delete series, due to assigned to other project or studio"; + return; + } - $bind_values = [$series_id]; - $query = qq{ + $bind_values = [$series_id]; + $query = qq{ delete from calcms_series where id=? }; - #print STDERR $query.$query.Dumper($bind_values); - db::put( $dbh, $query, $bind_values ); + #print STDERR $query.$query.Dumper($bind_values); + db::put( $dbh, $query, $bind_values ); } # get users directly assigned to project, studio, series (editors) sub get_users { - my $config = shift; - my $condition = shift; + my $config = shift; + my $condition = shift; - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { - push @conditions, 'us.project_id=?'; - push @bind_values, $condition->{project_id}; - } + if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { + push @conditions, 'us.project_id=?'; + push @bind_values, $condition->{project_id}; + } - if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) { - push @conditions, 'us.studio_id=?'; - push @bind_values, $condition->{studio_id}; - } + if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) { + push @conditions, 'us.studio_id=?'; + push @bind_values, $condition->{studio_id}; + } - if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) { - push @conditions, 'us.series_id=?'; - push @bind_values, $condition->{series_id}; - } + if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) { + push @conditions, 'us.series_id=?'; + push @bind_values, $condition->{series_id}; + } - if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) { - push @conditions, 'u.name=?'; - push @bind_values, $condition->{name}; - } + if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) { + push @conditions, 'u.name=?'; + push @bind_values, $condition->{name}; + } - my $conditions = ''; - $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 ); + my $conditions = ''; + $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 ); - my $query = qq{ + my $query = qq{ select u.id, u.name, u.full_name, u.email, us.modified_by, us.modified_at from calcms_users u, calcms_user_series us where us.user_id=u.id $conditions }; - #print STDERR $query." ".Dumper(\@bind_values)."\n"; - my $dbh = db::connect($config); - my $result = db::get( $dbh, $query, \@bind_values ); + #print STDERR $query." ".Dumper(\@bind_values)."\n"; + my $dbh = db::connect($config); + my $result = db::get( $dbh, $query, \@bind_values ); - #print STDERR $query." ".Dumper($result)."\n"; - return $result; + #print STDERR $query." ".Dumper($result)."\n"; + return $result; } # assign user to series sub add_user { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return unless defined $entry->{project_id}; - return unless defined $entry->{studio_id}; - return unless defined $entry->{series_id}; - return unless defined $entry->{user_id}; - return unless defined $entry->{user}; + return unless defined $entry->{project_id}; + return unless defined $entry->{studio_id}; + return unless defined $entry->{series_id}; + return unless defined $entry->{user_id}; + return unless defined $entry->{user}; - my $query = qq{ + my $query = qq{ select id from calcms_user_series where project_id=? and studio_id=? and series_id=? and user_id=? }; - my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id} ]; + my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id} ]; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, $bind_values ); - return unless ( @$results == 0 ); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, $bind_values ); + return unless scalar @$results == 0; - $query = qq{ + $query = qq{ insert calcms_user_series set project_id=?, studio_id=?, series_id=?, user_id=?, modified_by=?, modified_at=now() }; - $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id}, $entry->{user} ]; - db::put( $dbh, $query, $bind_values ); + $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id}, $entry->{user} ]; + db::put( $dbh, $query, $bind_values ); } # remove user(s) from series. sub remove_user { - my $config = shift; - my $condition = shift; + my $config = shift; + my $condition = shift; - return unless ( defined $condition->{project_id} ); - return unless ( defined $condition->{studio_id} ); - return unless ( defined $condition->{series_id} ); + return unless ( defined $condition->{project_id} ); + return unless ( defined $condition->{studio_id} ); + return unless ( defined $condition->{series_id} ); - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { - push @conditions, 'project_id=?'; - push @bind_values, $condition->{project_id}; - } + if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) { + push @conditions, 'project_id=?'; + push @bind_values, $condition->{project_id}; + } - if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) { - push @conditions, 'studio_id=?'; - push @bind_values, $condition->{studio_id}; - } + if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) { + push @conditions, 'studio_id=?'; + push @bind_values, $condition->{studio_id}; + } - if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) { - push @conditions, 'series_id=?'; - push @bind_values, $condition->{series_id}; - } + if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) { + push @conditions, 'series_id=?'; + push @bind_values, $condition->{series_id}; + } - if ( ( defined $condition->{user_id} ) && ( $condition->{user_id} ne '' ) ) { - push @conditions, 'user_id=?'; - push @bind_values, $condition->{user_id}; - } + if ( ( defined $condition->{user_id} ) && ( $condition->{user_id} ne '' ) ) { + push @conditions, 'user_id=?'; + push @bind_values, $condition->{user_id}; + } - my $conditions = ''; - $conditions = join( " and ", @conditions ) if ( @conditions > 0 ); + my $conditions = ''; + $conditions = join( " and ", @conditions ) if ( @conditions > 0 ); - my $query = qq{ + my $query = qq{ delete from calcms_user_series where $conditions }; - my $dbh = db::connect($config); - db::put( $dbh, $query, \@bind_values ); + my $dbh = db::connect($config); + db::put( $dbh, $query, \@bind_values ); } #search events by series_name and title (for events not assigned yet) #TODO: add location sub search_events { - my $config = shift; - my $request = shift; - my $options = shift; + my $config = shift; + my $request = shift; + my $options = shift; - my $series_name = $options->{series_name} || ''; - my $title = $options->{title} || ''; - return undef if ( ( $series_name eq '' ) && ( $title eq '' ) ); + my $series_name = $options->{series_name} || ''; + my $title = $options->{title} || ''; + return undef if ( $series_name eq '' ) && ( $title eq '' ); - $series_name =~ s/[^a-zA-Z0-9 \-]+/\?/g; - $title =~ s/[^a-zA-Z0-9 \-]+/\?/g; + $series_name =~ s/[^a-zA-Z0-9 \-]+/\?/g; + $title =~ s/[^a-zA-Z0-9 \-]+/\?/g; - $series_name =~ s/\?+/\?/g; - $title =~ s/\?+/\?/g; + $series_name =~ s/\?+/\?/g; + $title =~ s/\?+/\?/g; - my $params = { - series_name => $series_name, - title => $title, - template => 'no' - }; - if ( defined $options ) { - $params->{from_date} = $options->{from_date} if ( defined $options->{from_date} ); - $params->{till_date} = $options->{till_date} if ( defined $options->{till_date} ); - $params->{location} = $options->{location} if ( defined $options->{location} ); - $params->{limit} = $options->{limit} if ( defined $options->{limit} ); - $params->{archive} = $options->{archive} if ( defined $options->{archive} ); - $params->{get} = $options->{get} if ( defined $options->{get} ); - } + my $params = { + series_name => $series_name, + title => $title, + template => 'no' + }; + if ( defined $options ) { + $params->{from_date} = $options->{from_date} if ( defined $options->{from_date} ); + $params->{till_date} = $options->{till_date} if ( defined $options->{till_date} ); + $params->{location} = $options->{location} if ( defined $options->{location} ); + $params->{limit} = $options->{limit} if ( defined $options->{limit} ); + $params->{archive} = $options->{archive} if ( defined $options->{archive} ); + $params->{get} = $options->{get} if ( defined $options->{get} ); + } - my $checked_params = events::check_params( $config, $params ); + my $checked_params = events::check_params( $config, $params ); - #print STDERR '
'.Dumper($checked_params).''; - my $request2 = { - params => { - checked => $checked_params - }, - config => $request->{config}, - permissions => $request->{permissions} - }; + #print STDERR '
'.Dumper($checked_params).''; + my $request2 = { + params => { + checked => $checked_params + }, + config => $request->{config}, + permissions => $request->{permissions} + }; - #my $debug=1; - #print STDERR Dumper($request2->{params}); - my $events = events::get( $config, $request2 ); + #my $debug=1; + #print STDERR Dumper($request2->{params}); + my $events = events::get( $config, $request2 ); - #print Dumper($events); - return $events; + #print Dumper($events); + return $events; } #get events (only assigned ones) by project_id,studio_id,series_id, sub get_events { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - #print STDERR Dumper($options); - return [] if defined( $options->{series_id} ) && ( $options->{series_id} <= 0 ); + #print STDERR Dumper($options); + return [] if defined( $options->{series_id} ) && ( $options->{series_id} <= 0 ); - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( defined $options->{project_id} ) { - push @conditions, 'se.project_id = ?'; - push @bind_values, $options->{project_id}; - } - if ( defined $options->{studio_id} ) { - push @conditions, 'se.studio_id = ?'; - push @bind_values, $options->{studio_id}; - } - if ( ( defined $options->{series_id} ) && ( $options->{series_id} =~ /(\d+)/ ) ) { - push @bind_values, $1; - push @conditions, 'se.series_id = ?'; - } + if ( defined $options->{project_id} ) { + push @conditions, 'se.project_id = ?'; + push @bind_values, $options->{project_id}; + } + if ( defined $options->{studio_id} ) { + push @conditions, 'se.studio_id = ?'; + push @bind_values, $options->{studio_id}; + } + if ( ( defined $options->{series_id} ) && ( $options->{series_id} =~ /(\d+)/ ) ) { + push @bind_values, $1; + push @conditions, 'se.series_id = ?'; + } - if ( defined $options->{event_id} ) { - push @bind_values, $options->{event_id}; - push @conditions, 'e.id = ?'; - } + if ( defined $options->{event_id} ) { + push @bind_values, $options->{event_id}; + push @conditions, 'e.id = ?'; + } - if ( ( defined $options->{from_date} ) && ( $options->{from_date} =~ /(\d\d\d\d\-\d\d\-\d\d)/ ) ) { - push @bind_values, $1; - push @conditions, 'e.start_date >= ?'; - } - if ( ( defined $options->{till_date} ) && ( $options->{till_date} =~ /(\d\d\d\d\-\d\d\-\d\d)/ ) ) { - push @bind_values, $1; - push @conditions, 'e.start_date <= ?'; - } - if ( defined $options->{location} ) { - push @conditions, 'e.location = ?'; - push @bind_values, $options->{location}; - } + if ( ( defined $options->{from_date} ) && ( $options->{from_date} =~ /(\d\d\d\d\-\d\d\-\d\d)/ ) ) { + push @bind_values, $1; + push @conditions, 'e.start_date >= ?'; + } + if ( ( defined $options->{till_date} ) && ( $options->{till_date} =~ /(\d\d\d\d\-\d\d\-\d\d)/ ) ) { + push @bind_values, $1; + push @conditions, 'e.start_date <= ?'; + } + if ( defined $options->{location} ) { + push @conditions, 'e.location = ?'; + push @bind_values, $options->{location}; + } - if ( defined $options->{draft} ) { - push @conditions, 'e.draft = ?'; - push @bind_values, $options->{draft}; - } + if ( defined $options->{draft} ) { + push @conditions, 'e.draft = ?'; + push @bind_values, $options->{draft}; + } - my $conditions = ''; - if ( @conditions > 0 ) { - $conditions = ' and ' . join( ' and ', @conditions ); - } + my $conditions = ''; + if ( @conditions > 0 ) { + $conditions = ' and ' . join( ' and ', @conditions ); + } - my $limit = ''; - if ( ( defined $options->{limit} ) && ( $limit =~ /(\d+)/ ) ) { - $limit = 'limit ' . $1; - } + my $limit = ''; + if ( ( defined $options->{limit} ) && ( $limit =~ /(\d+)/ ) ) { + $limit = 'limit ' . $1; + } - my $query = qq{ + my $query = qq{ select * ,date(start) start_date ,date(end) end_date @@ -544,145 +544,145 @@ sub get_events { $limit }; - #print STDERR '
'.$query.Dumper(\@bind_values).''; + #print STDERR '
'.$query.Dumper(\@bind_values).''; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, \@bind_values ); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, \@bind_values ); - #print STDERR Dumper($results); + #print STDERR Dumper($results); - $results = events::modify_results( - $dbh, $config, - { - base_url => '', - params => { - checked => { - template => '' - } - } - }, - $results - ); + $results = events::modify_results( + $dbh, $config, + { + base_url => '', + params => { + checked => { + template => '' + } + } + }, + $results + ); - #add studio id to events - my $studios = studios::get( $config, $options ); + #add studio id to events + my $studios = studios::get( $config, $options ); - my $studio_id_by_location = {}; - for my $studio (@$studios) { - $studio_id_by_location->{ $studio->{location} } = $studio->{id}; - } - for my $result (@$results) { - $result->{studio_id} = $studio_id_by_location->{ $result->{location} }; - } + my $studio_id_by_location = {}; + for my $studio (@$studios) { + $studio_id_by_location->{ $studio->{location} } = $studio->{id}; + } + for my $result (@$results) { + $result->{studio_id} = $studio_id_by_location->{ $result->{location} }; + } - #print STDERR Dumper($results); - return $results; + #print STDERR Dumper($results); + return $results; } # load event given by studio_id, series_id and event_id # helper for gui - errors are written to gui output # return undef on error sub get_event { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - my $project_id = $options->{project_id} || ''; - my $studio_id = $options->{studio_id} || ''; - my $series_id = $options->{series_id} || ''; - my $event_id = $options->{event_id} || ''; - my $draft = $options->{draft} || ''; + my $project_id = $options->{project_id} || ''; + my $studio_id = $options->{studio_id} || ''; + my $series_id = $options->{series_id} || ''; + my $event_id = $options->{event_id} || ''; + my $draft = $options->{draft} || ''; - unless ( defined $options->{allow_any} ) { - if ( $project_id eq '' ) { - uac::print_error("missing project_id"); - return undef; - } - if ( $studio_id eq '' ) { - uac::print_error("missing studio_id"); - return undef; - } - if ( $series_id eq '' ) { - uac::print_error("missing series_id"); - return undef; - } - } + unless ( defined $options->{allow_any} ) { + if ( $project_id eq '' ) { + uac::print_error("missing project_id"); + return undef; + } + if ( $studio_id eq '' ) { + uac::print_error("missing studio_id"); + return undef; + } + if ( $series_id eq '' ) { + uac::print_error("missing series_id"); + return undef; + } + } - if ( $event_id eq '' ) { - uac::print_error("missing event_id"); - return undef; - } + if ( $event_id eq '' ) { + uac::print_error("missing event_id"); + return undef; + } - my $queryOptions = {}; - $queryOptions->{project_id} = $project_id if $project_id ne ''; - $queryOptions->{studio_id} = $studio_id if $studio_id ne ''; - $queryOptions->{series_id} = $series_id if $series_id ne ''; - $queryOptions->{event_id} = $event_id if $event_id ne ''; - $queryOptions->{draft} = $draft if $draft ne ''; + my $queryOptions = {}; + $queryOptions->{project_id} = $project_id if $project_id ne ''; + $queryOptions->{studio_id} = $studio_id if $studio_id ne ''; + $queryOptions->{series_id} = $series_id if $series_id ne ''; + $queryOptions->{event_id} = $event_id if $event_id ne ''; + $queryOptions->{draft} = $draft if $draft ne ''; - my $events = series::get_events( $config, $queryOptions ); + my $events = series::get_events( $config, $queryOptions ); - unless ( defined $events ) { - uac::print_error("error on loading event"); - return undef; - } + unless ( defined $events ) { + uac::print_error("error on loading event"); + return undef; + } - if ( scalar(@$events) == 0 ) { - uac::print_error("event not found"); - return undef; - } + if ( scalar(@$events) == 0 ) { + uac::print_error("event not found"); + return undef; + } - if ( scalar(@$events) > 1 ) { - print STDERR q{multiple assignments found for } - . q{project_id=} - . $options->{project_id} - . q{, studio_id=} - . $options->{studio_id} - . q{, series_id=} - . $options->{series_id} - . q{, event_id=} - . $options->{event_id} . "\n"; - } - my $event = $events->[0]; - return $event; + if ( scalar(@$events) > 1 ) { + print STDERR q{multiple assignments found for } + . q{project_id=} + . $options->{project_id} + . q{, studio_id=} + . $options->{studio_id} + . q{, series_id=} + . $options->{series_id} + . q{, event_id=} + . $options->{event_id} . "\n"; + } + my $event = $events->[0]; + return $event; } # get name and title of series and age in days ('days_over') sub get_event_age { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - #print STDERR Dumper($options); - return undef unless defined $options->{project_id}; - return undef unless defined $options->{studio_id}; + #print STDERR Dumper($options); + return undef unless defined $options->{project_id}; + return undef unless defined $options->{studio_id}; - my @conditions = (); - my @bind_values = (); + my @conditions = (); + my @bind_values = (); - if ( ( defined $options->{project_id} ) && ( $options->{project_id} =~ /(\d+)/ ) ) { - push @bind_values, $1; - push @conditions, 'ps.project_id = ?'; - } + if ( ( defined $options->{project_id} ) && ( $options->{project_id} =~ /(\d+)/ ) ) { + push @bind_values, $1; + push @conditions, 'ps.project_id = ?'; + } - if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} =~ /(\d+)/ ) ) { - push @bind_values, $1; - push @conditions, 'ps.studio_id = ?'; - } + if ( ( defined $options->{studio_id} ) && ( $options->{studio_id} =~ /(\d+)/ ) ) { + push @bind_values, $1; + push @conditions, 'ps.studio_id = ?'; + } - if ( ( defined $options->{series_id} ) && ( $options->{series_id} =~ /(\d+)/ ) ) { - push @bind_values, $1; - push @conditions, 's.id = ?'; - } + if ( ( defined $options->{series_id} ) && ( $options->{series_id} =~ /(\d+)/ ) ) { + push @bind_values, $1; + push @conditions, 's.id = ?'; + } - if ( ( defined $options->{event_id} ) && ( $options->{event_id} =~ /(\d+)/ ) ) { - push @bind_values, $1; - push @conditions, 'e.id = ?'; - } + if ( ( defined $options->{event_id} ) && ( $options->{event_id} =~ /(\d+)/ ) ) { + push @bind_values, $1; + push @conditions, 'e.id = ?'; + } - my $conditions = ''; - if ( @conditions > 0 ) { - $conditions = join( ' and ', @conditions ); - } - my $query = qq{ + my $conditions = ''; + if ( @conditions > 0 ) { + $conditions = join( ' and ', @conditions ); + } + my $query = qq{ select s.id series_id, s.series_name, s.title, s.has_single_events has_single_events, (to_days(now())-to_days(max(e.start))) days_over from calcms_project_series ps left join calcms_series s on ps.series_id=s.id @@ -693,141 +693,141 @@ sub get_event_age { order by has_single_events desc, days_over }; - #print STDERR $query." ".Dumper(\@bind_values); - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, \@bind_values ); + #print STDERR $query." ".Dumper(\@bind_values); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, \@bind_values ); - for my $result (@$results) { - $result->{days_over} = 0 unless defined $result->{days_over}; - } - return $results; + for my $result (@$results) { + $result->{days_over} = 0 unless defined $result->{days_over}; + } + return $results; } # is event older than max_age days sub is_event_older_than_days { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - #print STDERR Dumper($options); + #print STDERR Dumper($options); - return 1 unless defined $options->{project_id}; - return 1 unless defined $options->{studio_id}; - return 1 unless defined $options->{series_id}; - return 1 unless defined $options->{event_id}; - return 1 unless defined $options->{max_age}; + return 1 unless defined $options->{project_id}; + return 1 unless defined $options->{studio_id}; + return 1 unless defined $options->{series_id}; + return 1 unless defined $options->{event_id}; + return 1 unless defined $options->{max_age}; - my $events = series::get_event_age( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id}, - event_id => $options->{event_id} - } - ); + my $events = series::get_event_age( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id}, + event_id => $options->{event_id} + } + ); - if ( scalar(@$events) == 0 ) { - print STDERR + if ( scalar(@$events) == 0 ) { + print STDERR "series_events::event_over_in_days: event $options->{event_id} is not assigned to project $options->{project_id}, studio $options->{studio_id}, series $options->{series_id}\n"; - return 1; - } - my $event = $events->[0]; + return 1; + } + my $event = $events->[0]; - #print STDERR Dumper($event); - return 1 if $event->{days_over} > $options->{max_age}; - return 0; + #print STDERR Dumper($event); + return 1 if $event->{days_over} > $options->{max_age}; + return 0; } sub get_next_episode { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return 0 unless defined $options->{project_id}; - return 0 unless defined $options->{studio_id}; - return 0 unless defined $options->{series_id}; + return 0 unless defined $options->{project_id}; + return 0 unless defined $options->{studio_id}; + return 0 unless defined $options->{series_id}; - #return if episodes should not be counted for this series - my $query = q{ + #return if episodes should not be counted for this series + my $query = q{ select count_episodes from calcms_series where id=? }; - my $bind_values = [ $options->{series_id} ]; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, $bind_values ); - return 0 if ( @$results != 1 ); - return 0 if ( $results->[0]->{count_episodes} eq '0' ); + my $bind_values = [ $options->{series_id} ]; + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, $bind_values ); + return 0 if ( @$results != 1 ); + return 0 if ( $results->[0]->{count_episodes} eq '0' ); - #print STDERR Dumper($results); + #print STDERR Dumper($results); - #get all - $query = q{ + #get all + $query = q{ select title,episode from calcms_events e, calcms_series_events se where se.project_id=? and se.studio_id=? and se.series_id=? and se.event_id=e.id }; - $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{series_id} ]; - $results = db::get( $dbh, $query, $bind_values ); + $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{series_id} ]; + $results = db::get( $dbh, $query, $bind_values ); - my $max = 0; - for my $result (@$results) { - if ( $result->{title} =~ /\#(\d+)/ ) { - my $value = $1; - $max = $value if $value > $max; - } - next unless defined $result->{episode}; - $max = $result->{episode} if $result->{episode} > $max; - } - return $max + 1; + my $max = 0; + for my $result (@$results) { + if ( $result->{title} =~ /\#(\d+)/ ) { + my $value = $1; + $max = $value if $value > $max; + } + next unless defined $result->{episode}; + $max = $result->{episode} if $result->{episode} > $max; + } + return $max + 1; } sub get_images { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return undef unless defined $options->{project_id}; - return undef unless defined $options->{studio_id}; - return undef unless defined $options->{series_id}; + return undef unless defined $options->{project_id}; + return undef unless defined $options->{studio_id}; + return undef unless defined $options->{series_id}; - #get images from all events of the series - my $dbh = db::connect($config); - my $events = series::get_events( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id} - } - ); - my $images = {}; - my $found = 0; - for my $event (@$events) { - my $image = $event->{image}; - $image =~ s/.*\///; - $images->{$image} = 1; - $found++; - } + #get images from all events of the series + my $dbh = db::connect($config); + my $events = series::get_events( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id} + } + ); + my $images = {}; + my $found = 0; + for my $event (@$events) { + my $image = $event->{image}; + $image =~ s/.*\///; + $images->{$image} = 1; + $found++; + } - return undef if $found == 0; + return undef if $found == 0; - # get all images from database - my @cond = (); - my $bind_values = []; - for my $image ( keys %$images ) { - push @cond, 'filename=?'; - push @$bind_values, $image; - } + # get all images from database + my @cond = (); + my $bind_values = []; + for my $image ( keys %$images ) { + push @cond, 'filename=?'; + push @$bind_values, $image; + } - my $where = ''; - if ( @cond > 0 ) { - $where = 'where ' . join( ' or ', @cond ); - } + my $where = ''; + if ( @cond > 0 ) { + $where = 'where ' . join( ' or ', @cond ); + } - my $limit = ''; - if ( ( defined $options->{limit} ) && ( $options->{limit} =~ /(\d+)/ ) ) { - $limit = ' limit ' . $1; - } + my $limit = ''; + if ( ( defined $options->{limit} ) && ( $options->{limit} =~ /(\d+)/ ) ) { + $limit = ' limit ' . $1; + } - my $query = qq{ + my $query = qq{ select * from calcms_images $where @@ -835,460 +835,460 @@ sub get_images { $limit }; - #print STDERR Dumper($query).Dumper($bind_values); - my $results = db::get( $dbh, $query, $bind_values ); + #print STDERR Dumper($query).Dumper($bind_values); + my $results = db::get( $dbh, $query, $bind_values ); - #print STDERR @$results."\n"; - return $results; + #print STDERR @$results."\n"; + return $results; } #assign event to series #TODO: manual assign needs to update automatic one sub assign_event { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - #print STDERR Dumper($entry); - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - return undef unless defined $entry->{series_id}; - return undef unless defined $entry->{event_id}; - $entry->{manual} = 0 unless ( ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' ) ); + #print STDERR Dumper($entry); + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + return undef unless defined $entry->{series_id}; + return undef unless defined $entry->{event_id}; + $entry->{manual} = 0 unless ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' ); - my $conditions = ''; - $conditions = 'and manual=1' if ( $entry->{manual} eq '1' ); + my $conditions = ''; + $conditions = 'and manual=1' if $entry->{manual} eq '1'; - my $query = qq{ + my $query = qq{ select * from calcms_series_events where project_id=? and studio_id=? and series_id=? and event_id=? $conditions }; - my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, $bind_values ); + my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, $bind_values ); - if ( @$results > 1 ) { - print STDERR + if ( scalar @$results > 1 ) { + print STDERR "multiple assignments of project_id=$entry->{project_id}, studio_id=$entry->{studio_id}, series_id=$entry->{series_id}, event_id=$entry->{event_id}\n"; - return; - } - if ( @$results == 1 ) { - print STDERR + return; + } + if ( scalar @$results == 1 ) { + print STDERR "already assigned: project_id=$entry->{project_id}, studio_id=$entry->{studio_id}, series_id=$entry->{series_id}, event_id=$entry->{event_id}\n"; - return; - } + return; + } - $query = qq{ + $query = qq{ insert into calcms_series_events (project_id, studio_id, series_id, event_id, manual) values (?,?,?,?,?) }; - $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id}, $entry->{manual} ]; + $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id}, $entry->{manual} ]; - #print STDERR '
'.$query.Dumper($bind_values).''; - return db::put( $dbh, $query, $bind_values ); + #print STDERR '
'.$query.Dumper($bind_values).''; + return db::put( $dbh, $query, $bind_values ); } #unassign event from series sub unassign_event { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return unless defined $entry->{project_id}; - return unless defined $entry->{studio_id}; - return unless defined $entry->{series_id}; - return unless defined $entry->{event_id}; + return unless defined $entry->{project_id}; + return unless defined $entry->{studio_id}; + return unless defined $entry->{series_id}; + return unless defined $entry->{event_id}; - my $conditions = ''; - $conditions = 'and manual=1' if ( ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' ) ); + my $conditions = ''; + $conditions = 'and manual=1' if ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' ); - my $query = qq{ + my $query = qq{ delete from calcms_series_events where project_id=? and studio_id=? and series_id=? and event_id=? $conditions }; - my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; + my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; - #print STDERR '
'.$query.Dumper($bind_values).''; - my $dbh = db::connect($config); - return db::put( $dbh, $query, $bind_values ); + #print STDERR '
'.$query.Dumper($bind_values).''; + my $dbh = db::connect($config); + return db::put( $dbh, $query, $bind_values ); } # put series id to given events (for legacy handling) # used by calendar # TODO: optionally add project_id and studio_id to conditions sub add_series_ids_to_events { - my $config = shift; - my $events = shift; + my $config = shift; + my $events = shift; - #get event ids from given events - my @event_ids = (); - for my $event (@$events) { - push @event_ids, $event->{event_id}; - } + #get event ids from given events + my @event_ids = (); + for my $event (@$events) { + push @event_ids, $event->{event_id}; + } - return if ( @event_ids == 0 ); + return if scalar @event_ids == 0; - my @bind_values = @event_ids; - my $event_ids = join( ',', map { '?' } @event_ids ); + my @bind_values = @event_ids; + my $event_ids = join( ',', map { '?' } @event_ids ); - #query series ids - my $dbh = db::connect($config); - my $query = qq{ + #query series ids + my $dbh = db::connect($config); + my $query = qq{ select project_id, studio_id, series_id, event_id from calcms_series_events where event_id in ($event_ids) }; - my $results = db::get( $dbh, $query, \@bind_values ); - my @results = @$results; - return [] unless ( @results > 0 ); + my $results = db::get( $dbh, $query, \@bind_values ); + my @results = @$results; + return [] unless scalar @results > 0; - #build hash of series ids by event ids - my $assignments_by_event_id = {}; - for my $entry (@$results) { - my $event_id = $entry->{event_id}; - $assignments_by_event_id->{$event_id} = $entry; - } + #build hash of series ids by event ids + my $assignments_by_event_id = {}; + for my $entry (@$results) { + my $event_id = $entry->{event_id}; + $assignments_by_event_id->{$event_id} = $entry; + } - #fill in ids into events - for my $event (@$events) { - my $event_id = $event->{event_id}; - my $assignment = $assignments_by_event_id->{$event_id}; - if ( defined $assignment ) { - $event->{project_id} = $assignment->{project_id}; - $event->{studio_id} = $assignment->{studio_id}; - $event->{series_id} = $assignment->{series_id}; - } - } + #fill in ids into events + for my $event (@$events) { + my $event_id = $event->{event_id}; + my $assignment = $assignments_by_event_id->{$event_id}; + if ( defined $assignment ) { + $event->{project_id} = $assignment->{project_id}; + $event->{studio_id} = $assignment->{studio_id}; + $event->{series_id} = $assignment->{series_id}; + } + } } # add event_ids to series and remove all event ids from series, not given event_ids # for scan only, used at series sub set_event_ids { - my $config = shift; - my $project_id = shift; - my $studio_id = shift; - my $serie = shift; - my $event_ids = shift; + my $config = shift; + my $project_id = shift; + my $studio_id = shift; + my $serie = shift; + my $event_ids = shift; - my $serie_id = $serie->{series_id}; - return unless defined $project_id; - return unless defined $studio_id; - return unless defined $serie_id; - return unless defined $event_ids; + my $serie_id = $serie->{series_id}; + return unless defined $project_id; + return unless defined $studio_id; + return unless defined $serie_id; + return unless defined $event_ids; - #make lookup table from events - my $event_id_hash = {}; - for my $event_id (@$event_ids) { - $event_id_hash->{$event_id} = 1; - } + #make lookup table from events + my $event_id_hash = {}; + for my $event_id (@$event_ids) { + $event_id_hash->{$event_id} = 1; + } - #get series_entries from db - #my $bind_names=join(',', (map { '?' } @$event_ids)); - my $query = qq{ + #get series_entries from db + #my $bind_names=join(',', (map { '?' } @$event_ids)); + my $query = qq{ select event_id from calcms_series_events where project_id=? and studio_id=? and series_id=? }; - my $bind_values = [ $project_id, $studio_id, $serie_id ]; + my $bind_values = [ $project_id, $studio_id, $serie_id ]; - my $dbh = db::connect($config); - my $results = db::get( $dbh, $query, $bind_values ); + my $dbh = db::connect($config); + my $results = db::get( $dbh, $query, $bind_values ); - my $found = {}; + my $found = {}; - #mark events found assigned to series - my $i = 1; - for my $event (@$results) { + #mark events found assigned to series + my $i = 1; + for my $event (@$results) { - #print "found event $i: $event->{event_id}\n"; - $found->{ $event->{event_id} } = 1; - $i++; - } + #print "found event $i: $event->{event_id}\n"; + $found->{ $event->{event_id} } = 1; + $i++; + } - #insert events from list, not found in db - for my $event_id (@$event_ids) { + #insert events from list, not found in db + for my $event_id (@$event_ids) { - #print "insert event_id $event_id\n"; - series::assign_event( - $config, - { - project_id => $project_id, - studio_id => $studio_id, - series_id => $serie_id, - event_id => $event_id - } - ) unless ( $found->{$event_id} ); - } + #print "insert event_id $event_id\n"; + series::assign_event( + $config, + { + project_id => $project_id, + studio_id => $studio_id, + series_id => $serie_id, + event_id => $event_id + } + ) unless ( $found->{$event_id} ); + } - #delete events found in db, but not in list - for my $event_id ( keys %$found ) { + #delete events found in db, but not in list + for my $event_id ( keys %$found ) { - #print "delete event_id $event_id\n"; - series::unassign_event( - $config, - { - project_id => $project_id, - studio_id => $studio_id, - series_id => $serie_id, - event_id => $event_id, - manual => 0 - } - ) unless ( defined $event_id_hash->{$event_id} ); - } + #print "delete event_id $event_id\n"; + series::unassign_event( + $config, + { + project_id => $project_id, + studio_id => $studio_id, + series_id => $serie_id, + event_id => $event_id, + manual => 0 + } + ) unless defined $event_id_hash->{$event_id}; + } } # check if user allowed to update series events # evaluate permissions and consider editors directly assigned to series sub can_user_update_events { - my $request = shift; - my $options = shift; + my $request = shift; + my $options = shift; - my $config = $request->{config}; - my $permissions = $request->{permissions}; + my $config = $request->{config}; + my $permissions = $request->{permissions}; - return 0 unless defined $request->{user}; - return 0 unless defined $options->{project_id}; - return 0 unless defined $options->{studio_id}; - return 0 unless defined $options->{series_id}; + return 0 unless defined $request->{user}; + return 0 unless defined $options->{project_id}; + return 0 unless defined $options->{studio_id}; + return 0 unless defined $options->{series_id}; - return 1 if ( ( defined $permissions->{update_event_of_others} ) && ( $permissions->{update_event_of_others} eq '1' ) ); - return 1 if ( ( defined $permissions->{is_admin} ) && ( $permissions->{is_admin} eq '1' ) ); - return 0 if ( $permissions->{update_event_of_series} ne '1' ); + return 1 if ( defined $permissions->{update_event_of_others} ) && ( $permissions->{update_event_of_others} eq '1' ); + return 1 if ( defined $permissions->{is_admin} ) && ( $permissions->{is_admin} eq '1' ); + return 0 if $permissions->{update_event_of_series} ne '1'; - return is_series_assigned_to_user( $request, $options ); + return is_series_assigned_to_user( $request, $options ); } # check if user allowed to create series events # evaluate permissions and consider editors directly assigned to series sub can_user_create_events { - my $request = shift; - my $options = shift; + my $request = shift; + my $options = shift; - my $config = $request->{config}; - my $permissions = $request->{permissions}; + my $config = $request->{config}; + my $permissions = $request->{permissions}; - return 0 unless defined $request->{user}; - return 0 unless defined $options->{project_id}; - return 0 unless defined $options->{studio_id}; - return 0 unless defined $options->{series_id}; + return 0 unless defined $request->{user}; + return 0 unless defined $options->{project_id}; + return 0 unless defined $options->{studio_id}; + return 0 unless defined $options->{series_id}; - return 1 if ( ( defined $permissions->{create_event} ) && ( $permissions->{create_event} eq '1' ) ); - return 1 if ( ( defined $permissions->{is_admin} ) && ( $permissions->{is_admin} eq '1' ) ); - return 0 if ( $permissions->{create_event_of_series} ne '1' ); + return 1 if ( defined $permissions->{create_event} ) && ( $permissions->{create_event} eq '1' ); + return 1 if ( defined $permissions->{is_admin} ) && ( $permissions->{is_admin} eq '1' ); + return 0 if $permissions->{create_event_of_series} ne '1'; - return is_series_assigned_to_user( $request, $options ); + return is_series_assigned_to_user( $request, $options ); } sub is_series_assigned_to_user { - my $request = shift; - my $options = shift; + my $request = shift; + my $options = shift; - my $config = $request->{config}; - my $permissions = $request->{permissions}; + my $config = $request->{config}; + my $permissions = $request->{permissions}; - return 0 unless defined $options->{project_id}; - return 0 unless defined $options->{studio_id}; - return 0 unless defined $options->{series_id}; - return 0 unless defined $request->{user}; + return 0 unless defined $options->{project_id}; + return 0 unless defined $options->{studio_id}; + return 0 unless defined $options->{series_id}; + return 0 unless defined $request->{user}; - my $series_users = series::get_users( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id}, - name => $request->{user} - } - ); - return 0 if ( @$series_users == 0 ); - return 1; + my $series_users = series::get_users( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id}, + name => $request->{user} + } + ); + return 0 if scalar @$series_users == 0; + return 1; } # check if user is assigned to studio where location matchs to event # return 1 on success or error text sub is_event_assigned_to_user { - my $request = shift; - my $options = shift; + my $request = shift; + my $options = shift; - my $config = $request->{config}; + my $config = $request->{config}; - return "missing user" unless defined $request->{user}; - return "missing project_id" unless defined $options->{project_id}; - return "missing studio_id" unless defined $options->{studio_id}; - return "missing series_id" unless defined $options->{series_id}; - return "missing event_id" unless defined $options->{event_id}; + return "missing user" unless defined $request->{user}; + return "missing project_id" unless defined $options->{project_id}; + return "missing studio_id" unless defined $options->{studio_id}; + return "missing series_id" unless defined $options->{series_id}; + return "missing event_id" unless defined $options->{event_id}; - #check roles - my $user_studios = uac::get_studios_by_user( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - user => $request->{user}, - } - ); - return "user is not assigned to studio" if @$user_studios == 0; - my $studio = $user_studios->[0]; - my $location = $studio->{location}; - return "could not get studio location" if $location eq ''; + #check roles + my $user_studios = uac::get_studios_by_user( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + user => $request->{user}, + } + ); + return "user is not assigned to studio" if scalar @$user_studios == 0; + my $studio = $user_studios->[0]; + my $location = $studio->{location}; + return "could not get studio location" if $location eq ''; - #TODO: replace legacy support - my $events = series::get_events( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id}, - event_id => $options->{event_id}, - location => $location, - limit => 1 - } - ); + #TODO: replace legacy support + my $events = series::get_events( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id}, + event_id => $options->{event_id}, + location => $location, + limit => 1 + } + ); - #print STDERR Dumper(@$events); - return - "no event found for" - . " project $options->{project_id}," - . " studio $options->{studio_id}," - . " location $location," - . " series $options->{series_id}" - . " and event $options->{event_id}" - if @$events == 0; - return 1; + #print STDERR Dumper(@$events); + return + "no event found for" + . " project $options->{project_id}," + . " studio $options->{studio_id}," + . " location $location," + . " series $options->{series_id}" + . " and event $options->{event_id}" + if scalar @$events == 0; + return 1; } # to find multiple recurrences this does not include the recurrence_count # use events::get_key to add the recurrence sub get_event_key { - my $event = shift; + my $event = shift; - my $program = $event->{program} || ''; - my $series_name = $event->{series_name} || ''; - my $title = $event->{title} || ''; - my $user_title = $event->{user_title} || ''; - my $episode = $event->{episode} || ''; + my $program = $event->{program} || ''; + my $series_name = $event->{series_name} || ''; + my $title = $event->{title} || ''; + my $user_title = $event->{user_title} || ''; + my $episode = $event->{episode} || ''; - my $key = ''; - $key .= $series_name if $series_name ne ''; - $key .= ' - ' if ( $series_name ne '' ) && ( $title ne '' ); - $key .= $title if $title ne ''; - $key .= ': ' if ( $title ne '' ) && ( $user_title ne '' ); - $key .= $user_title if $user_title ne ''; - $key .= ' #' . $episode if $episode ne ''; - return $key; + my $key = ''; + $key .= $series_name if $series_name ne ''; + $key .= ' - ' if ( $series_name ne '' ) && ( $title ne '' ); + $key .= $title if $title ne ''; + $key .= ': ' if ( $title ne '' ) && ( $user_title ne '' ); + $key .= $user_title if $user_title ne ''; + $key .= ' #' . $episode if $episode ne ''; + return $key; } sub update_recurring_events { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return "missing project_id" unless defined $options->{project_id}; - return "missing studio_id" unless defined $options->{studio_id}; - return "missing series_id" unless defined $options->{series_id}; - return "missing event_id" unless defined $options->{event_id}; + return "missing project_id" unless defined $options->{project_id}; + return "missing studio_id" unless defined $options->{studio_id}; + return "missing series_id" unless defined $options->{series_id}; + return "missing event_id" unless defined $options->{event_id}; - my $events = series::get_events( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id}, - draft => 0 - } - ); - @$events = sort { $a->{start} cmp $b->{start} } @$events; + my $events = series::get_events( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id}, + draft => 0 + } + ); + @$events = sort { $a->{start} cmp $b->{start} } @$events; - # store events with recurrences by key (series_name, title, user_title, episode) - my $events_by_key = {}; - for my $event (@$events) { - my $key = get_event_key($event); - next unless $key =~ /\#\d+$/; - $event->{key} = $key; - push @{ $events_by_key->{$key} }, $event; - } + # store events with recurrences by key (series_name, title, user_title, episode) + my $events_by_key = {}; + for my $event (@$events) { + my $key = get_event_key($event); + next unless $key =~ /\#\d+$/; + $event->{key} = $key; + push @{ $events_by_key->{$key} }, $event; + } - # handle all events with the same key - for my $key ( keys %$events_by_key ) { - my $events = $events_by_key->{$key}; - next unless scalar @$events > 0; + # handle all events with the same key + for my $key ( keys %$events_by_key ) { + my $events = $events_by_key->{$key}; + next unless scalar @$events > 0; - if ( scalar @$events == 1 ) { + if ( scalar @$events == 1 ) { - # one event found -> check if recurrence is to be removed - my $event = $events->[0]; - next if $event->{recurrence} == 0; - next if $event->{recurrence_count} == 0; - print STDERR - "remove recurrence\t'$event->{event_id}'\t'$event->{start}'\t'$event->{rerun}'\t'$event->{recurrence}'\t'$event->{key}'\n"; - $event->{recurrence} = 0; - $event->{recurrence_count} = 0; - $event->{rerun} = 0; - series::update_recurring_event( $config, $event ); + # one event found -> check if recurrence is to be removed + my $event = $events->[0]; + next if $event->{recurrence} == 0; + next if $event->{recurrence_count} == 0; + print STDERR + "remove recurrence\t'$event->{event_id}'\t'$event->{start}'\t'$event->{rerun}'\t'$event->{recurrence}'\t'$event->{key}'\n"; + $event->{recurrence} = 0; + $event->{recurrence_count} = 0; + $event->{rerun} = 0; + series::update_recurring_event( $config, $event ); - } elsif ( scalar @$events > 1 ) { + } elsif ( scalar @$events > 1 ) { - # multiple events found with same key - # first event is the original - my $event = $events->[0]; - my $originalId = $event->{event_id}; - print STDERR + # multiple events found with same key + # first event is the original + my $event = $events->[0]; + my $originalId = $event->{event_id}; + print STDERR "0\t'$event->{recurrence_count}'\t'$event->{event_id}'\t'$event->{start}'\t'$event->{rerun}'\t'$event->{recurrence}'\t'$event->{key}'\n"; - # succeeding events are reruns - for ( my $c = 1 ; $c < scalar(@$events) ; $c++ ) { - my $event = $events->[$c]; - print STDERR + # succeeding events are reruns + for ( my $c = 1 ; $c < scalar(@$events) ; $c++ ) { + my $event = $events->[$c]; + print STDERR "$c\t'$event->{recurrence_count}'\t'$event->{event_id}'\t'$event->{start}'\t'$event->{rerun}'\t'$event->{recurrence}'\t'$event->{key}'\n"; - my $update = 0; - $update = 1 if $event->{recurrence} ne $originalId; - $update = 1 if $event->{rerun} ne '1'; - $update = 1 if $event->{recurrence_count} ne $c; - next if $update == 0; + my $update = 0; + $update = 1 if $event->{recurrence} ne $originalId; + $update = 1 if $event->{rerun} ne '1'; + $update = 1 if $event->{recurrence_count} ne $c; + next if $update == 0; - $event->{recurrence} = $originalId; - $event->{recurrence_count} = $c; - $event->{rerun} = 1; - series::update_recurring_event( $config, $event ); - } - } - } + $event->{recurrence} = $originalId; + $event->{recurrence_count} = $c; + $event->{rerun} = 1; + series::update_recurring_event( $config, $event ); + } + } + } } sub update_recurring_event { - my $config = shift; - my $event = shift; + my $config = shift; + my $event = shift; - return undef unless defined $event->{event_id}; - return undef unless defined $event->{recurrence}; - return undef unless defined $event->{recurrence_count}; - return undef unless defined $event->{rerun}; + return undef unless defined $event->{event_id}; + return undef unless defined $event->{recurrence}; + return undef unless defined $event->{recurrence_count}; + return undef unless defined $event->{rerun}; - return unless $event->{event_id} =~ /^\d+$/; - return unless $event->{recurrence} =~ /^\d+$/; - return unless $event->{recurrence_count} =~ /^\d+$/; - return unless $event->{rerun} =~ /^\d+$/; + return unless $event->{event_id} =~ /^\d+$/; + return unless $event->{recurrence} =~ /^\d+$/; + return unless $event->{recurrence_count} =~ /^\d+$/; + return unless $event->{rerun} =~ /^\d+$/; - my $bind_values = []; - push @$bind_values, $event->{recurrence}; - push @$bind_values, $event->{recurrence_count}; - push @$bind_values, $event->{rerun}; - push @$bind_values, $event->{id}; + my $bind_values = []; + push @$bind_values, $event->{recurrence}; + push @$bind_values, $event->{recurrence_count}; + push @$bind_values, $event->{rerun}; + push @$bind_values, $event->{id}; - my $update_sql = qq{ + my $update_sql = qq{ update calcms_events set recurrence=?, recurrence_count=?, rerun=? where id=? }; - #print STDERR $update_sql."\n".Dumper($bind_values)."\n"; - my $dbh = db::connect($config); - db::put( $dbh, $update_sql, $bind_values ); + #print STDERR $update_sql."\n".Dumper($bind_values)."\n"; + my $dbh = db::connect($config); + db::put( $dbh, $update_sql, $bind_values ); } sub error { - my $msg = shift; - print "ERROR: $msg
$query'.$query.Dumper($bind_values).''; - db::put( $dbh, $query, $bind_values ); + #print '
$query'.$query.Dumper($bind_values).''; + db::put( $dbh, $query, $bind_values ); } # get all series dates where no event has been created for sub getDatesWithoutEvent { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - return unless defined $options->{project_id}; - return unless defined $options->{studio_id}; - return unless defined $options->{from}; - return unless defined $options->{till}; + return unless defined $options->{project_id}; + return unless defined $options->{studio_id}; + return unless defined $options->{from}; + return unless defined $options->{till}; - my $dbh = db::connect($config); + my $dbh = db::connect($config); - my $query = q{ + my $query = q{ SELECT sd.* FROM calcms_series_dates sd LEFT JOIN calcms_events e on (sd.start = e.start) @@ -587,15 +587,15 @@ sub getDatesWithoutEvent { order by sd.start }; - my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{from}, $options->{till} ]; - my $entries = db::get( $dbh, $query, $bind_values ); - return $entries; + my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{from}, $options->{till} ]; + my $entries = db::get( $dbh, $query, $bind_values ); + return $entries; } sub error { - my $msg = shift; - print "ERROR: $msg
)?//g;
- #$entry->{'html_'.$attr}=~s/(<\/p>)?\s*$//g;
- }
- }
+ #$entry->{'html_'.$attr}=~s/([^\>])\n+([^\<])/$1
)?//g; + #$entry->{'html_'.$attr}=~s/(<\/p>)?\s*$//g; + } + } - #print STDERR Dumper(\$entry->{series_image}); - #print STDERR "ok2\n"; - #return; - $entry->{modified_at} = time::time_to_datetime( time() ); + #print STDERR Dumper(\$entry->{series_image}); + #print STDERR "ok2\n"; + #return; + $entry->{modified_at} = time::time_to_datetime( time() ); - #return; - #update only existing atributes + #return; + #update only existing atributes - #TODO: double check series_name (needed for reassignment but not for editing...) - my @keys = (); - for my $key ( - 'series_name', 'title', 'excerpt', 'content', - 'html_content', 'user_title', 'user_excerpt', 'topic', - 'html_topic', 'episode', 'image', 'image_label', - 'series_image', 'series_image_label', 'podcast_url', 'archive_url', - 'live', 'published', 'playout', 'archived', - 'rerun', 'draft', 'disable_event_sync', 'modified_by' - ) - { - push @keys, $key if defined $entry->{$key}; - } - $entry->{episode} = undef if ( defined $entry->{episode} ) && ( $entry->{episode} eq '0' ); - $entry->{published} = 0 if ( defined $entry->{draft} ) && ( $entry->{draft} eq '1' ); + #TODO: double check series_name (needed for reassignment but not for editing...) + my @keys = (); + for my $key ( + 'series_name', 'title', 'excerpt', 'content', + 'html_content', 'user_title', 'user_excerpt', 'topic', + 'html_topic', 'episode', 'image', 'image_label', + 'series_image', 'series_image_label', 'podcast_url', 'archive_url', + 'live', 'published', 'playout', 'archived', + 'rerun', 'draft', 'disable_event_sync', 'modified_by' + ) + { + push @keys, $key if defined $entry->{$key}; + } + $entry->{episode} = undef if ( defined $entry->{episode} ) && ( $entry->{episode} eq '0' ); + $entry->{published} = 0 if ( defined $entry->{draft} ) && ( $entry->{draft} eq '1' ); - my $values = join( ",", map { $_ . '=?' } (@keys) ); - my @bind_values = map { $entry->{$_} } (@keys); + my $values = join( ",", map { $_ . '=?' } (@keys) ); + my @bind_values = map { $entry->{$_} } (@keys); - push @bind_values, $entry->{id}; - my $query = qq{ + push @bind_values, $entry->{id}; + my $query = qq{ update calcms_events set $values where id=? }; - #print STDERR "update:".$query.Dumper(\@bind_values); - my $result = db::put( $dbh, $query, \@bind_values ); - unless ( defined $result ) { - print STDERR "error on updating event\n"; - return undef; - } + #print STDERR "update:".$query.Dumper(\@bind_values); + my $result = db::put( $dbh, $query, \@bind_values ); + unless ( defined $result ) { + print STDERR "error on updating event\n"; + return undef; + } - #print STDERR "result=$result\n"; - #print STDERR "entr after update".Dumper($entry); - return $entry; + #print STDERR "result=$result\n"; + #print STDERR "entr after update".Dumper($entry); + return $entry; } # save event time by id # do not check project, studio, series # for history handling all changed columns are returned sub save_event_time { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless ( defined $entry->{id} ); - return undef unless ( defined $entry->{duration} ); - return undef unless ( defined $entry->{start_date} ); + return undef unless ( defined $entry->{id} ); + return undef unless ( defined $entry->{duration} ); + return undef unless ( defined $entry->{start_date} ); - my $dbh = db::connect($config); - my $event = { - id => $entry->{id}, - start => $entry->{start_date}, - end => time::add_minutes_to_datetime( $entry->{start_date}, $entry->{duration} ) - }; + my $dbh = db::connect($config); + my $event = { + id => $entry->{id}, + start => $entry->{start_date}, + end => time::add_minutes_to_datetime( $entry->{start_date}, $entry->{duration} ) + }; - my $day_start = $config->{date}->{day_starting_hour}; - my $event_hour = int( ( split( /[\-\:\sT]/, $event->{start} ) )[3] ); + my $day_start = $config->{date}->{day_starting_hour}; + my $event_hour = int( ( split( /[\-\:\sT]/, $event->{start} ) )[3] ); - my @update_columns = (); - my $bind_values = []; - push @update_columns, 'start=?'; - push @$bind_values, $event->{start}; + my @update_columns = (); + my $bind_values = []; + push @update_columns, 'start=?'; + push @$bind_values, $event->{start}; - push @update_columns, 'end=?'; - push @$bind_values, $event->{end}; + push @update_columns, 'end=?'; + push @$bind_values, $event->{end}; - # add start date - my $start_date = time::add_hours_to_datetime( $event->{start}, -$day_start ); - push @update_columns, 'start_date=?'; - push @$bind_values, $start_date; - $event->{start_date} = $start_date; + # add start date + my $start_date = time::add_hours_to_datetime( $event->{start}, -$day_start ); + push @update_columns, 'start_date=?'; + push @$bind_values, $start_date; + $event->{start_date} = $start_date; - # add end date - my $end_date = time::add_hours_to_datetime( $event->{end}, -$day_start ); - push @update_columns, 'end_date=?'; - push @$bind_values, $end_date; - $event->{end_date} = $end_date; + # add end date + my $end_date = time::add_hours_to_datetime( $event->{end}, -$day_start ); + push @update_columns, 'end_date=?'; + push @$bind_values, $end_date; + $event->{end_date} = $end_date; - my $update_columns = join( ",\n", @update_columns ); - my $update_sql = qq{ + my $update_columns = join( ",\n", @update_columns ); + my $update_sql = qq{ update calcms_events set $update_columns where id=? }; - push @$bind_values, $event->{id}; + push @$bind_values, $event->{id}; - #print STDERR $update_sql."\n".Dumper($bind_values)."\n"; - db::put( $dbh, $update_sql, $bind_values ); - return $event; + #print STDERR $update_sql."\n".Dumper($bind_values)."\n"; + db::put( $dbh, $update_sql, $bind_values ); + return $event; } sub set_playout_status { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - return undef unless defined $entry->{start}; - return undef unless defined $entry->{playout}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + return undef unless defined $entry->{start}; + return undef unless defined $entry->{playout}; - my $dbh = db::connect($config); + my $dbh = db::connect($config); - # check if event is assigned to project and studio - my $sql = qq{ + # check if event is assigned to project and studio + my $sql = qq{ select se.event_id event_id from calcms_series_events se, calcms_events e where @@ -188,82 +188,82 @@ sub set_playout_status { and se.project_id=? and se.studio_id=? }; - my $bind_values = [ $entry->{start}, $entry->{project_id}, $entry->{studio_id} ]; + my $bind_values = [ $entry->{start}, $entry->{project_id}, $entry->{studio_id} ]; - #print STDERR Dumper($sql).Dumper($bind_values); - my $events = db::get( $dbh, $sql, $bind_values ); + #print STDERR Dumper($sql).Dumper($bind_values); + my $events = db::get( $dbh, $sql, $bind_values ); - #print STDERR Dumper($events); - return undef if scalar(@$events) != 1; - my $event_id = $events->[0]->{event_id}; - $sql = qq{ + #print STDERR Dumper($events); + return undef if scalar(@$events) != 1; + my $event_id = $events->[0]->{event_id}; + $sql = qq{ update calcms_events set playout=? where id=? and start=? }; - $bind_values = [ $entry->{playout}, $event_id, $entry->{start} ]; + $bind_values = [ $entry->{playout}, $event_id, $entry->{start} ]; - #print STDERR $sql."\n".Dumper($bind_values)."\n"; - my $result = db::put( $dbh, $sql, $bind_values ); - return $result; + #print STDERR $sql."\n".Dumper($bind_values)."\n"; + my $result = db::put( $dbh, $sql, $bind_values ); + return $result; } # is event assigned to project, studio and series? sub is_event_assigned { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return 0 unless defined $entry->{project_id}; - return 0 unless defined $entry->{studio_id}; - return 0 unless defined $entry->{series_id}; - return 0 unless defined $entry->{event_id}; + return 0 unless defined $entry->{project_id}; + return 0 unless defined $entry->{studio_id}; + return 0 unless defined $entry->{series_id}; + return 0 unless defined $entry->{event_id}; - my $dbh = db::connect($config); + my $dbh = db::connect($config); - my $sql = q{ + my $sql = q{ select * from calcms_series_events where project_id=? and studio_id=? and series_id=? and event_id=? }; - my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; - my $results = db::get( $dbh, $sql, $bind_values ); + my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; + my $results = db::get( $dbh, $sql, $bind_values ); - return 1 if @$results >= 1; - return 0; + return 1 if scalar @$results >= 1; + return 0; } sub delete_event { - my $config = shift; - my $entry = shift; + my $config = shift; + my $entry = shift; - return undef unless defined $entry->{project_id}; - return undef unless defined $entry->{studio_id}; - return undef unless defined $entry->{series_id}; - return undef unless defined $entry->{event_id}; - return undef unless defined $entry->{user}; + return undef unless defined $entry->{project_id}; + return undef unless defined $entry->{studio_id}; + return undef unless defined $entry->{series_id}; + return undef unless defined $entry->{event_id}; + return undef unless defined $entry->{user}; - #is event assigned to project, studio and series? - unless ( is_event_assigned( $config, $entry ) == 1 ) { - print STDERR + #is event assigned to project, studio and series? + unless ( is_event_assigned( $config, $entry ) == 1 ) { + print STDERR "cannot delete event with project_id=$entry->{project_id}, studio_id=$entry->{studio_id}, series_id=$entry->{series_id}, event_id=$entry->{event_id}"; - return 0; - } + return 0; + } - event_history::insert_by_event_id( $config, $entry ); + event_history::insert_by_event_id( $config, $entry ); - #delete the association - series::unassign_event( $config, $entry ); + #delete the association + series::unassign_event( $config, $entry ); - # delete the event - my $dbh = db::connect($config); - my $sql = q{ + # delete the event + my $dbh = db::connect($config); + my $sql = q{ delete from calcms_events where id=? }; - my $bind_values = [ $entry->{event_id} ]; - db::put( $dbh, $sql, $bind_values ); + my $bind_values = [ $entry->{event_id} ]; + db::put( $dbh, $sql, $bind_values ); - return 1; + return 1; } #check permissions @@ -272,141 +272,141 @@ sub delete_event { # key check_for: user, studio, series, events, schedule # return error text or 1 if okay sub check_permission { - my $request = shift; - my $options = shift; + my $request = shift; + my $options = shift; - return "missing permission at check" unless defined $options->{permission}; - return "missing check_for at check" unless defined $options->{check_for}; - return "missing user at check" unless defined $request->{user}; - return "missing project_id at check" unless defined $options->{project_id}; - return "missing studio_id at check" unless defined $options->{studio_id}; - return "missing series_id at check" unless defined $options->{series_id}; + return "missing permission at check" unless defined $options->{permission}; + return "missing check_for at check" unless defined $options->{check_for}; + return "missing user at check" unless defined $request->{user}; + return "missing project_id at check" unless defined $options->{project_id}; + return "missing studio_id at check" unless defined $options->{studio_id}; + return "missing series_id at check" unless defined $options->{series_id}; - my $permissions = $request->{permissions}; - my $config = $request->{config}; + my $permissions = $request->{permissions}; + my $config = $request->{config}; - my $studio_check = studios::check( $config, $options ); - return $studio_check if ( $studio_check ne '1' ); - print STDERR "check studio ok\n"; + my $studio_check = studios::check( $config, $options ); + return $studio_check if ( $studio_check ne '1' ); + print STDERR "check studio ok\n"; - my $project_check = project::check( $config, $options ); - return $project_check if ( $project_check ne '1' ); - print STDERR "check project ok\n"; + my $project_check = project::check( $config, $options ); + return $project_check if ( $project_check ne '1' ); + print STDERR "check project ok\n"; - #check if permissions are set (like create_event) - my $found = 0; - for my $permission ( split /\,/, $options->{permission} ) { - $found = 1 if ( ( defined $permissions->{$permission} ) && ( $permissions->{$permission} ) eq '1' ); - } - return 'missing permission to ' . $options->{permission} if $found == 0; - delete $options->{permission}; + #check if permissions are set (like create_event) + my $found = 0; + for my $permission ( split /\,/, $options->{permission} ) { + $found = 1 if ( defined $permissions->{$permission} ) && ( $permissions->{$permission} ) eq '1' ; + } + return 'missing permission to ' . $options->{permission} if $found == 0; + delete $options->{permission}; - #convert check list to hash - my $check = {}; - for my $permission ( @{ $options->{check_for} } ) { - $check->{$permission} = 1; - } - delete $options->{check_for}; + #convert check list to hash + my $check = {}; + for my $permission ( @{ $options->{check_for} } ) { + $check->{$permission} = 1; + } + delete $options->{check_for}; - # is project assigned to studio - return "studio is not assigned to project" unless project::is_studio_assigned( $config, $options ) == 1; + # is project assigned to studio + return "studio is not assigned to project" unless project::is_studio_assigned( $config, $options ) == 1; - #get studio names - my $studios = studios::get( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id} - } - ); - return "unknown studio" unless defined $studios; - return "unknown studio" unless ( @$studios == 1 ); - my $studio = $studios->[0]; - my $studio_name = $studio->{name} || ''; + #get studio names + my $studios = studios::get( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id} + } + ); + return "unknown studio" unless defined $studios; + return "unknown studio" unless scalar @$studios == 1; + my $studio = $studios->[0]; + my $studio_name = $studio->{name} || ''; - #get series names - my $series = series::get( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id} - } - ); - my $series_name = $series->[0]->{series_name} || ''; - $series_name .= ' - ' . $series->[0]->{title} if $series->[0]->{series_name} ne ''; + #get series names + my $series = series::get( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id} + } + ); + my $series_name = $series->[0]->{series_name} || ''; + $series_name .= ' - ' . $series->[0]->{title} if $series->[0]->{series_name} ne ''; - my $draft = 0; - $draft = 1 if ( defined $options->{draft} ) && ( $options->{draft} == 1 ); + my $draft = 0; + $draft = 1 if ( defined $options->{draft} ) && ( $options->{draft} == 1 ); - #check all items from checklist - if ( ( defined $check->{user} ) && ( uac::is_user_assigned_to_studio( $request, $options ) == 0 ) ) { - return "User '$request->{user}' is not assigned to studio $studio_name ($options->{studio_id})"; - } + #check all items from checklist + if ( ( defined $check->{user} ) && ( uac::is_user_assigned_to_studio( $request, $options ) == 0 ) ) { + return "User '$request->{user}' is not assigned to studio $studio_name ($options->{studio_id})"; + } - if ( ( defined $check->{studio} ) && ( project::is_series_assigned( $config, $options ) == 0 ) ) { - return "Series '$series_name' ($options->{series_id}) is not assigned to studio '$studio_name' ($options->{studio_id})"; - } + if ( ( defined $check->{studio} ) && ( project::is_series_assigned( $config, $options ) == 0 ) ) { + return "Series '$series_name' ($options->{series_id}) is not assigned to studio '$studio_name' ($options->{studio_id})"; + } - # check series and can user update events - if ( ( defined $check->{series} ) && ( series::can_user_update_events( $request, $options ) == 0 ) ) { - return "unknown series" unless defined $series; - return "User $request->{user} cannot update events for series '$series_name' ($options->{series_id})"; - } + # check series and can user update events + if ( ( defined $check->{series} ) && ( series::can_user_update_events( $request, $options ) == 0 ) ) { + return "unknown series" unless defined $series; + return "User $request->{user} cannot update events for series '$series_name' ($options->{series_id})"; + } - # check series and can user create events - if ( ( defined $check->{create_events} ) && ( series::can_user_create_events( $request, $options ) == 0 ) ) { - return "unknown series" unless defined $series; - return "User $request->{user} cannot create events for series '$series_name' ($options->{series_id})"; - } + # check series and can user create events + if ( ( defined $check->{create_events} ) && ( series::can_user_create_events( $request, $options ) == 0 ) ) { + return "unknown series" unless defined $series; + return "User $request->{user} cannot create events for series '$series_name' ($options->{series_id})"; + } - if ( ( $draft == 0 ) - && ( defined $check->{studio_timeslots} ) - && ( studio_timeslot_dates::can_studio_edit_events( $config, $options ) == 0 ) ) - { - return "requested time is not assigned to studio '$studio_name' ($options->{studio_id})"; - } + if ( ( $draft == 0 ) + && ( defined $check->{studio_timeslots} ) + && ( studio_timeslot_dates::can_studio_edit_events( $config, $options ) == 0 ) ) + { + return "requested time is not assigned to studio '$studio_name' ($options->{studio_id})"; + } - #check if event is assigned to user,project,studio,series,location - if ( defined $check->{events} ) { - return "missing event_id" unless defined $options->{event_id}; - my $result = series::is_event_assigned_to_user( $request, $options ); - return $result if $result ne '1'; - } + #check if event is assigned to user,project,studio,series,location + if ( defined $check->{events} ) { + return "missing event_id" unless defined $options->{event_id}; + my $result = series::is_event_assigned_to_user( $request, $options ); + return $result if $result ne '1'; + } - # prevent editing events that are over for more than 14 days - if ( ( $draft == 0 ) && ( defined $check->{event_age} ) ) { - if ( - series::is_event_older_than_days( - $config, - { - project_id => $options->{project_id}, - studio_id => $options->{studio_id}, - series_id => $options->{series_id}, - event_id => $options->{event_id}, - max_age => 14 - } - ) == 1 - ) - { - return "show is over for more than 2 weeks" - unless ( ( defined $permissions->{update_event_after_week} ) - && ( $permissions->{update_event_after_week} eq '1' ) ); - } - } + # prevent editing events that are over for more than 14 days + if ( ( $draft == 0 ) && ( defined $check->{event_age} ) ) { + if ( + series::is_event_older_than_days( + $config, + { + project_id => $options->{project_id}, + studio_id => $options->{studio_id}, + series_id => $options->{series_id}, + event_id => $options->{event_id}, + max_age => 14 + } + ) == 1 + ) + { + return "show is over for more than 2 weeks" + unless ( ( defined $permissions->{update_event_after_week} ) + && ( $permissions->{update_event_after_week} eq '1' ) ); + } + } - #check if schedule event exists for given date - if ( ( $draft == 0 ) && ( defined $check->{schedule} ) ) { - return "unknown series" unless defined $series; - return "missing start_at at check_permission" unless defined $options->{start_date}; + #check if schedule event exists for given date + if ( ( $draft == 0 ) && ( defined $check->{schedule} ) ) { + return "unknown series" unless defined $series; + return "missing start_at at check_permission" unless defined $options->{start_date}; - #TODO: check "is_event_scheduled" if start_at could be moved to start_date - $options->{start_at} = $options->{start_date}; - return "No event scheduled for series '$series_name' ($options->{series_id})" - if ( series_dates::is_event_scheduled( $request, $options ) == 0 ); - } + #TODO: check "is_event_scheduled" if start_at could be moved to start_date + $options->{start_at} = $options->{start_date}; + return "No event scheduled for series '$series_name' ($options->{series_id})" + if ( series_dates::is_event_scheduled( $request, $options ) == 0 ); + } - return '1'; + return '1'; } #not handled, yet: @@ -415,126 +415,126 @@ sub check_permission { #insert event sub insert_event { - my $config = shift; - my $options = shift; + my $config = shift; + my $options = shift; - my $project_id = $options->{project_id}; - my $studio = $options->{studio}; - my $serie = $options->{serie}; - my $params = $options->{event}; - my $user = $options->{user}; + my $project_id = $options->{project_id}; + my $studio = $options->{studio}; + my $serie = $options->{serie}; + my $params = $options->{event}; + my $user = $options->{user}; - return 0 unless defined $studio; - return 0 unless defined $serie; - return 0 unless defined $params; - return 0 unless defined $user; - return 0 unless defined $studio->{location}; + return 0 unless defined $studio; + return 0 unless defined $serie; + return 0 unless defined $params; + return 0 unless defined $user; + return 0 unless defined $studio->{location}; - my $projects = project::get( $config, { project_id => $project_id } ); - if ( @$projects == 0 ) { - print STDERR "project not found at insert event\n"; - return 0; - } - my $projectName = $projects->[0]->{name}; - my $event = { - project => $projectName, - location => $studio->{location}, # location from studio - }; + my $projects = project::get( $config, { project_id => $project_id } ); + if ( scalar @$projects == 0 ) { + print STDERR "project not found at insert event\n"; + return 0; + } + my $projectName = $projects->[0]->{name}; + my $event = { + project => $projectName, + location => $studio->{location}, # location from studio + }; - #print '
';
- $event = series_events::add_event_dates( $config, $event, $params );
+ #print '';
+ $event = series_events::add_event_dates( $config, $event, $params );
- #get event content from series
- for my $attr ( 'program', 'series_name', 'title', 'excerpt', 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url' ) {
- $event->{$attr} = $serie->{$attr} if defined $serie->{$attr};
- }
- $event->{series_image} = $serie->{image} if defined $serie->{image};
- $event->{series_image_label} = $serie->{licence} if defined $serie->{licence};
+ #get event content from series
+ for my $attr ( 'program', 'series_name', 'title', 'excerpt', 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url' ) {
+ $event->{$attr} = $serie->{$attr} if defined $serie->{$attr};
+ }
+ $event->{series_image} = $serie->{image} if defined $serie->{image};
+ $event->{series_image_label} = $serie->{licence} if defined $serie->{licence};
- #overwrite series values from parameters
- for my $attr (
- 'program', 'series_name', 'title', 'user_title', 'excerpt', 'user_except',
- 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url'
- )
- {
- $event->{$attr} = $params->{$attr} if defined $params->{$attr};
- }
- $event->{'html_content'} = markup::creole_to_html( $event->{'content'} ) if defined $event->{'content'};
- $event->{'html_topic'} = markup::creole_to_html( $event->{'topic'} ) if defined $event->{'topic'};
+ #overwrite series values from parameters
+ for my $attr (
+ 'program', 'series_name', 'title', 'user_title', 'excerpt', 'user_except',
+ 'content', 'topic', 'image', 'episode', 'podcast_url', 'archive_url'
+ )
+ {
+ $event->{$attr} = $params->{$attr} if defined $params->{$attr};
+ }
+ $event->{'html_content'} = markup::creole_to_html( $event->{'content'} ) if defined $event->{'content'};
+ $event->{'html_topic'} = markup::creole_to_html( $event->{'topic'} ) if defined $event->{'topic'};
- #add event status
- for my $attr ( 'live', 'published', 'playout', 'archived', 'rerun', 'draft', 'disable_event_sync' ) {
- $event->{$attr} = $params->{$attr} || 0;
- }
+ #add event status
+ for my $attr ( 'live', 'published', 'playout', 'archived', 'rerun', 'draft', 'disable_event_sync' ) {
+ $event->{$attr} = $params->{$attr} || 0;
+ }
- if ( $serie->{has_single_events} eq '1' ) {
- delete $event->{series_name};
- delete $event->{episode};
- }
+ if ( $serie->{has_single_events} eq '1' ) {
+ delete $event->{series_name};
+ delete $event->{episode};
+ }
- $event->{modified_at} = time::time_to_datetime( time() );
- $event->{created_at} = time::time_to_datetime( time() );
- $event->{modified_by} = $user;
+ $event->{modified_at} = time::time_to_datetime( time() );
+ $event->{created_at} = time::time_to_datetime( time() );
+ $event->{modified_by} = $user;
- #print STDERR Dumper($event);
- my $dbh = db::connect($config);
- my $event_id = db::insert( $dbh, 'calcms_events', $event );
+ #print STDERR Dumper($event);
+ my $dbh = db::connect($config);
+ my $event_id = db::insert( $dbh, 'calcms_events', $event );
- #add to history
- $event->{project_id} = $project_id;
- $event->{studio_id} = $studio->{id};
- $event->{series_id} = $serie->{series_id};
- $event->{event_id} = $event_id;
- event_history::insert( $config, $event );
- return $event_id;
+ #add to history
+ $event->{project_id} = $project_id;
+ $event->{studio_id} = $studio->{id};
+ $event->{series_id} = $serie->{series_id};
+ $event->{event_id} = $event_id;
+ event_history::insert( $config, $event );
+ return $event_id;
}
#set start, end, start-date, end_date to an event
sub add_event_dates {
- my $config = shift;
- my $event = shift;
- my $params = shift;
+ my $config = shift;
+ my $event = shift;
+ my $params = shift;
- #start and end datetime
- $event->{start} = $params->{start_date};
- $event->{end} = time::add_minutes_to_datetime( $params->{start_date}, $params->{duration} );
+ #start and end datetime
+ $event->{start} = $params->{start_date};
+ $event->{end} = time::add_minutes_to_datetime( $params->{start_date}, $params->{duration} );
- #set program days
- my $day_start = $config->{date}->{day_starting_hour};
- $event->{start_date} = time::date_cond( time::add_hours_to_datetime( $event->{start}, -$day_start ) );
- $event->{end_date} = time::date_cond( time::add_hours_to_datetime( $event->{end}, -$day_start ) );
- return $event;
+ #set program days
+ my $day_start = $config->{date}->{day_starting_hour};
+ $event->{start_date} = time::date_cond( time::add_hours_to_datetime( $event->{start}, -$day_start ) );
+ $event->{end_date} = time::date_cond( time::add_hours_to_datetime( $event->{end}, -$day_start ) );
+ return $event;
}
sub update_series_images {
- my $config = shift;
- my $options = shift;
+ my $config = shift;
+ my $options = shift;
- return "missing project_id" unless defined $options->{project_id};
- return "missing studio_id" unless defined $options->{studio_id};
- return "missing series_id" unless defined $options->{series_id};
- return "missing series_image" unless defined $options->{series_image};
+ return "missing project_id" unless defined $options->{project_id};
+ return "missing studio_id" unless defined $options->{studio_id};
+ return "missing series_id" unless defined $options->{series_id};
+ return "missing series_image" unless defined $options->{series_image};
- #print "save $options->{series_image}\n";
+ #print "save $options->{series_image}\n";
- my $events = series::get_events(
- $config,
- {
- project_id => $options->{project_id},
- studio_id => $options->{studio_id},
- series_id => $options->{series_id},
- }
- );
+ my $events = series::get_events(
+ $config,
+ {
+ project_id => $options->{project_id},
+ studio_id => $options->{studio_id},
+ series_id => $options->{series_id},
+ }
+ );
- for my $event (@$events) {
- $event->{series_image} = $options->{series_image};
- series_events::save_content( $config, $event );
- }
+ for my $event (@$events) {
+ $event->{series_image} = $options->{series_image};
+ series_events::save_content( $config, $event );
+ }
}
sub error {
- my $msg = shift;
- print "ERROR: $msg
\n";
+ my $msg = shift;
+ print "ERROR: $msg
\n";
}
#do not delete last line!
diff --git a/lib/calcms/startup.pl b/lib/calcms/startup.pl
index 55a6121..8daa587 100644
--- a/lib/calcms/startup.pl
+++ b/lib/calcms/startup.pl
@@ -2,6 +2,7 @@ use lib qw(/home/radio/calcms/calcms/);
use Data::Dumper;
use Apache::DBI();
+
#$Apache::DBI::DEBUG = 2;
use Time::Local();
diff --git a/lib/calcms/studios.pm b/lib/calcms/studios.pm
index 490c119..f9efaac 100644
--- a/lib/calcms/studios.pm
+++ b/lib/calcms/studios.pm
@@ -16,157 +16,157 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
- my $config = shift;
+ my $config = shift;
- my $dbh = db::connect($config);
- my $cols = db::get_columns( $dbh, 'calcms_studios' );
- my $columns = {};
- for my $col (@$cols) {
- $columns->{$col} = 1;
- }
- return $columns;
+ my $dbh = db::connect($config);
+ my $cols = db::get_columns( $dbh, 'calcms_studios' );
+ my $columns = {};
+ for my $col (@$cols) {
+ $columns->{$col} = 1;
+ }
+ return $columns;
}
sub get {
- my $config = shift;
- my $condition = shift || {};
+ my $config = shift;
+ my $condition = shift || {};
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 's.id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 's.id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
- push @conditions, 's.name=?';
- push @bind_values, $condition->{name};
- }
+ if ( ( defined $condition->{name} ) && ( $condition->{name} ne '' ) ) {
+ push @conditions, 's.name=?';
+ push @bind_values, $condition->{name};
+ }
- if ( ( defined $condition->{location} ) && ( $condition->{location} ne '' ) ) {
- push @conditions, 's.location=?';
- push @bind_values, $condition->{location};
- }
+ if ( ( defined $condition->{location} ) && ( $condition->{location} ne '' ) ) {
+ push @conditions, 's.location=?';
+ push @bind_values, $condition->{location};
+ }
- my $limit = '';
- if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
- $limit = 'limit ' . $condition->{limit};
- }
+ my $limit = '';
+ if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
+ $limit = 'limit ' . $condition->{limit};
+ }
- my $query = '';
- unless ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- $query = qq{
+ my $query = '';
+ unless ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ $query = qq{
select *
from calcms_studios s
$conditions
$limit
};
- } else {
- push @conditions, 's.id=ps.studio_id';
+ } else {
+ push @conditions, 's.id=ps.studio_id';
- push @conditions, 'ps.project_id=?';
- push @bind_values, $condition->{project_id};
- my $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- $query = qq{
+ push @conditions, 'ps.project_id=?';
+ push @bind_values, $condition->{project_id};
+ my $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ $query = qq{
select *
from calcms_studios s, calcms_project_studios ps
$conditions
$limit
};
- }
- my $dbh = db::connect($config);
+ }
+ my $dbh = db::connect($config);
- #print STDERR Dumper($query).Dumper(\@bind_values);
- my $studios = db::get( $dbh, $query, \@bind_values );
- return $studios;
+ #print STDERR Dumper($query).Dumper(\@bind_values);
+ my $studios = db::get( $dbh, $query, \@bind_values );
+ return $studios;
}
sub getImageById {
- my $config = shift;
- my $conditions = shift;
+ my $config = shift;
+ my $conditions = shift;
- return undef unless defined $conditions->{project_id};
- return undef unless defined $conditions->{studio_id};
- my $studios = studios::get( $config, $conditions );
- return undef if scalar(@$studios) != 1;
- return $studios->[0]->{image};
+ return undef unless defined $conditions->{project_id};
+ return undef unless defined $conditions->{studio_id};
+ my $studios = studios::get( $config, $conditions );
+ return undef if scalar(@$studios) != 1;
+ return $studios->[0]->{image};
}
sub insert {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- $entry->{created_at} = time::time_to_datetime( time() );
- $entry->{modified_at} = time::time_to_datetime( time() );
- $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
+ $entry->{created_at} = time::time_to_datetime( time() );
+ $entry->{modified_at} = time::time_to_datetime( time() );
+ $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
- my $dbh = db::connect($config);
- my $id = db::insert( $dbh, 'calcms_studios', $entry );
- return $id;
+ my $dbh = db::connect($config);
+ my $id = db::insert( $dbh, 'calcms_studios', $entry );
+ return $id;
}
sub update {
- my $config = shift;
- my $studio = shift;
+ my $config = shift;
+ my $studio = shift;
- $studio->{modified_at} = time::time_to_datetime( time() );
+ $studio->{modified_at} = time::time_to_datetime( time() );
- my $columns = get_columns($config);
- my $entry = {};
- for my $column ( keys %$columns ) {
- $entry->{$column} = $studio->{$column} if defined $studio->{$column};
- }
- $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
+ my $columns = get_columns($config);
+ my $entry = {};
+ for my $column ( keys %$columns ) {
+ $entry->{$column} = $studio->{$column} if defined $studio->{$column};
+ }
+ $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
- my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
- my @bind_values = map { $entry->{$_} } ( keys %$entry );
- push @bind_values, $entry->{id};
+ my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
+ my @bind_values = map { $entry->{$_} } ( keys %$entry );
+ push @bind_values, $entry->{id};
- my $query = qq{
+ my $query = qq{
update calcms_studios
set $values
where id=?
};
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- #print STDERR Dumper($query)." ".Dumper(\@bind_values);
- db::put( $dbh, $query, \@bind_values );
+ #print STDERR Dumper($query)." ".Dumper(\@bind_values);
+ db::put( $dbh, $query, \@bind_values );
}
sub delete {
- my $config = shift;
- my $studio = shift;
+ my $config = shift;
+ my $studio = shift;
- my $dbh = db::connect($config);
- db::put( $dbh, 'delete from calcms_studios where id=?', [ $studio->{id} ] );
+ my $dbh = db::connect($config);
+ db::put( $dbh, 'delete from calcms_studios where id=?', [ $studio->{id} ] );
}
#TODO rename to check
sub check_studio {
- my $config = shift;
- my $options = shift;
- return check( $config, $options );
+ my $config = shift;
+ my $options = shift;
+ return check( $config, $options );
}
sub check {
- my $config = shift;
- my $options = shift;
- return "missing studio_id" unless defined $options->{studio_id};
- return "Please select a studio" if ( $options->{studio_id} eq '-1' );
- return "Please select a studio" if ( $options->{studio_id} eq '' );
- my $studios = studios::get( $config, { studio_id => $options->{studio_id} } );
- return "Sorry. unknown studio" unless defined $studios;
- return "Sorry. unknown studio" unless @$studios == 1;
- return 1;
+ my $config = shift;
+ my $options = shift;
+ return "missing studio_id" unless defined $options->{studio_id};
+ return "Please select a studio" if ( $options->{studio_id} eq '-1' );
+ return "Please select a studio" if ( $options->{studio_id} eq '' );
+ my $studios = studios::get( $config, { studio_id => $options->{studio_id} } );
+ return "Sorry. unknown studio" unless defined $studios;
+ return "Sorry. unknown studio" unless scalar @$studios == 1;
+ return 1;
}
sub error {
- my $msg = shift;
- print "ERROR: $msg
\n";
+ my $msg = shift;
+ print "ERROR: $msg
\n";
}
#do not delete last line!
diff --git a/lib/calcms/template.pm b/lib/calcms/template.pm
index b296e5d..35d1061 100644
--- a/lib/calcms/template.pm
+++ b/lib/calcms/template.pm
@@ -23,205 +23,205 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub process {
- # my $output=$_[0];
- my $filename = $_[1];
- my $params = $_[2];
+ # my $output=$_[0];
+ my $filename = $_[1];
+ my $params = $_[2];
- my $config = $config::config;
- for my $key ( keys %{ $config::config->{locations} } ) {
- $params->{$key} = $config::config->{locations}->{$key} if ( $key =~ /\_url$/ );
- }
+ my $config = $config::config;
+ for my $key ( keys %{ $config::config->{locations} } ) {
+ $params->{$key} = $config::config->{locations}->{$key} if ( $key =~ /\_url$/ );
+ }
- # add current project
- unless ( defined $params->{project_title} ) {
- my $projects = project::get_with_dates( $config, { name => $config->{project} } );
- if ( @$projects == 1 ) {
- my $project = $projects->[0];
- foreach my $key ( keys %$project ) {
- $params->{ 'project_' . $key } = $project->{$key};
- }
- }
- }
+ # add current project
+ unless ( defined $params->{project_title} ) {
+ my $projects = project::get_with_dates( $config, { name => $config->{project} } );
+ if ( scalar @$projects == 1 ) {
+ my $project = $projects->[0];
+ foreach my $key ( keys %$project ) {
+ $params->{ 'project_' . $key } = $project->{$key};
+ }
+ }
+ }
- $params->{user} = $ENV{REMOTE_USER} unless defined $params->{user};
+ $params->{user} = $ENV{REMOTE_USER} unless defined $params->{user};
- my $user_permissions = roles::get_user_permissions();
- for my $permission ( keys %$user_permissions ) {
- $params->{$permission} = $user_permissions->{$permission} if ( $user_permissions->{$permission} eq '1' );
- }
+ my $user_permissions = roles::get_user_permissions();
+ for my $permission ( keys %$user_permissions ) {
+ $params->{$permission} = $user_permissions->{$permission} if ( $user_permissions->{$permission} eq '1' );
+ }
- $params->{jobs} = roles::get_user_jobs();
- if ( ( $filename =~ /json\-p/ ) || (params::isJson) ) {
- my $header = "Content-type:application/json; charset=utf-8\n\n";
- my $json = JSON::to_json( $params, { pretty => 1 } );
+ $params->{jobs} = roles::get_user_jobs();
+ if ( ( $filename =~ /json\-p/ ) || (params::isJson) ) {
+ my $header = "Content-type:application/json; charset=utf-8\n\n";
+ my $json = JSON::to_json( $params, { pretty => 1 } );
- # $json=$header.$params->{json_callback}.'['.$json.']';
- $json = $header . $params->{json_callback} . $json;
- if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
- print $json. "\n";
- } else {
- $_[0] = $json . "\n";
- }
- return;
- }
+ # $json=$header.$params->{json_callback}.'['.$json.']';
+ $json = $header . $params->{json_callback} . $json;
+ if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
+ print $json. "\n";
+ } else {
+ $_[0] = $json . "\n";
+ }
+ return;
+ }
- #print STDERR $filename."\n";
- log::error( $config, "cannot find template $filename " ) unless -e $filename;
- log::error( $config, "cannot read template $filename " ) unless -r $filename;
+ #print STDERR $filename."\n";
+ log::error( $config, "cannot find template $filename " ) unless -e $filename;
+ log::error( $config, "cannot read template $filename " ) unless -r $filename;
- my $default_escape = '0';
- $default_escape = 'JS' if ( $filename =~ /\.js$/ );
- $default_escape = 'JS' if ( $filename =~ /\.json$/ );
- $default_escape = 'HTML_ALL' if ( $filename =~ /\.html$/ );
+ my $default_escape = '0';
+ $default_escape = 'JS' if ( $filename =~ /\.js$/ );
+ $default_escape = 'JS' if ( $filename =~ /\.json$/ );
+ $default_escape = 'HTML_ALL' if ( $filename =~ /\.html$/ );
- my $html_template = undef;
+ my $html_template = undef;
- unless ( $filename =~ /\.xml$/ ) {
- $html_template = HTML::Template::Compiled->new(
- filename => $filename,
- die_on_bad_params => 0,
- case_sensitive => 0,
- loop_context_vars => 0,
- global_vars => 0,
- tagstyle => '-asp -comment',
- default_escape => $default_escape,
- cache => 0,
- utf8 => 1,
- );
- } else {
- $html_template = HTML::Template::Compiled->new(
- filename => $filename,
- die_on_bad_params => 0,
- case_sensitive => 1,
- loop_context_vars => 0,
- global_vars => 0,
- tagstyle => '-asp -comment',
- default_escape => 'XML',
- plugin => [qw(HTML::Template::Compiled::Plugin::XMLEscape)],
- utf8 => 1
- );
- }
+ unless ( $filename =~ /\.xml$/ ) {
+ $html_template = HTML::Template::Compiled->new(
+ filename => $filename,
+ die_on_bad_params => 0,
+ case_sensitive => 0,
+ loop_context_vars => 0,
+ global_vars => 0,
+ tagstyle => '-asp -comment',
+ default_escape => $default_escape,
+ cache => 0,
+ utf8 => 1,
+ );
+ } else {
+ $html_template = HTML::Template::Compiled->new(
+ filename => $filename,
+ die_on_bad_params => 0,
+ case_sensitive => 1,
+ loop_context_vars => 0,
+ global_vars => 0,
+ tagstyle => '-asp -comment',
+ default_escape => 'XML',
+ plugin => [qw(HTML::Template::Compiled::Plugin::XMLEscape)],
+ utf8 => 1
+ );
+ }
- #$params=
- setRelativeUrls( $params, 0 ) unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' );
+ #$params=
+ setRelativeUrls( $params, 0 ) unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' );
- # HTML::Template::Compiled->preload($cache_dir);
- $html_template->param($params);
- if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
- print $html_template->output;
- } else {
- $_[0] = $html_template->output;
- }
+ # HTML::Template::Compiled->preload($cache_dir);
+ $html_template->param($params);
+ if ( ( defined $_[0] ) && ( $_[0] eq 'print' ) ) {
+ print $html_template->output;
+ } else {
+ $_[0] = $html_template->output;
+ }
}
# set relative urls in nested params structure
sub setRelativeUrls {
- my $params = shift;
- my $depth = shift || 0;
+ my $params = shift;
+ my $depth = shift || 0;
- #print STDERR "setRelativeUrls depth:$depth ".ref($params)."\n";
+ #print STDERR "setRelativeUrls depth:$depth ".ref($params)."\n";
- return unless defined $params;
+ return unless defined $params;
- if ( $depth > 10 ) {
- print STDERR "prevent deep recursion in template::setRelativeUrls()\n";
- return;
- }
+ if ( $depth > 10 ) {
+ print STDERR "prevent deep recursion in template::setRelativeUrls()\n";
+ return;
+ }
- # set recursive for hash
- if ( ref($params) eq 'HASH' ) {
- for my $key ( keys %$params ) {
+ # set recursive for hash
+ if ( ref($params) eq 'HASH' ) {
+ for my $key ( keys %$params ) {
- #next unless ($key eq 'icon') || ($key eq 'thumb');
- my $val = $params->{$key};
- next unless defined $val;
- if ( ref($val) eq '' ) {
+ #next unless ($key eq 'icon') || ($key eq 'thumb');
+ my $val = $params->{$key};
+ next unless defined $val;
+ if ( ref($val) eq '' ) {
- # make link relative
- $params->{$key} =~ s/^https?\:(\/\/[^\/]+)/$1/;
- } elsif ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
- setRelativeUrls( $params->{$key}, $depth + 1 );
- }
- }
- return $params;
- }
+ # make link relative
+ $params->{$key} =~ s/^https?\:(\/\/[^\/]+)/$1/;
+ } elsif ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
+ setRelativeUrls( $params->{$key}, $depth + 1 );
+ }
+ }
+ return $params;
+ }
- # set recursive for arrays
- if ( ref($params) eq 'ARRAY' ) {
- for my $i ( 0 .. @$params ) {
- my $val = $params->[$i];
- next unless defined $val;
- if ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
- setRelativeUrls( $params->[$i], $depth + 1 );
- }
- }
- return $params;
- }
+ # set recursive for arrays
+ if ( ref($params) eq 'ARRAY' ) {
+ for my $i ( 0 .. @$params ) {
+ my $val = $params->[$i];
+ next unless defined $val;
+ if ( ( ref($val) eq 'HASH' ) || ( ref($val) eq 'ARRAY' ) ) {
+ setRelativeUrls( $params->[$i], $depth + 1 );
+ }
+ }
+ return $params;
+ }
- return $params;
+ return $params;
}
#requires read config
sub check {
- my $template = shift || '';
- my $default = shift;
+ my $template = shift || '';
+ my $default = shift;
- if ( $template =~ /json\-p/ ) {
- $template =~ s/[^a-zA-Z0-9\-\_\.]//g;
- $template =~ s/\.{2,99}/\./g;
- return $template;
- }
+ if ( $template =~ /json\-p/ ) {
+ $template =~ s/[^a-zA-Z0-9\-\_\.]//g;
+ $template =~ s/\.{2,99}/\./g;
+ return $template;
+ }
- my $config = $config::config;
- if ( $template eq '' ) {
- $template = $default;
- } else {
- $template =~ s/^\.\///gi;
+ my $config = $config::config;
+ if ( $template eq '' ) {
+ $template = $default;
+ } else {
+ $template =~ s/^\.\///gi;
- #template does use ';' in filename
- log::error( $config, 'invalid template!' ) if ( $template =~ /;/ );
+ #template does use ';' in filename
+ log::error( $config, 'invalid template!' ) if ( $template =~ /;/ );
- #template does use '..' in filename
- log::error( $config, 'invalid template!' ) if ( $template =~ /\.\./ );
- }
+ #template does use '..' in filename
+ log::error( $config, 'invalid template!' ) if ( $template =~ /\.\./ );
+ }
- #print STDERR $config::config->{cache}->{compress}."<.compres default:$template\n";
- $template = ( split( /\//, $template ) )[-1];
- my $cwd = Cwd::getcwd();
+ #print STDERR $config::config->{cache}->{compress}."<.compres default:$template\n";
+ $template = ( split( /\//, $template ) )[-1];
+ my $cwd = Cwd::getcwd();
- $template .= '.html' unless ( $template =~ /\./ );
- if ( ( $config::config->{cache}->{compress} eq '1' ) && ( -e $cwd . '/templates/compressed/' . $template ) ) {
- $template = $cwd . '/templates/compressed/' . $template;
- } elsif ( -e $cwd . '/templates/' . $template ) {
- $template = $cwd . '/templates/' . $template;
- } else {
- log::error( $config, "template not found: '$cwd/$template'" );
+ $template .= '.html' unless ( $template =~ /\./ );
+ if ( ( $config::config->{cache}->{compress} eq '1' ) && ( -e $cwd . '/templates/compressed/' . $template ) ) {
+ $template = $cwd . '/templates/compressed/' . $template;
+ } elsif ( -e $cwd . '/templates/' . $template ) {
+ $template = $cwd . '/templates/' . $template;
+ } else {
+ log::error( $config, "template not found: '$cwd/$template'" );
- }
+ }
- log::error( $config, "missing permission to read template '$template'" ) unless ( -r $template );
- return $template;
+ log::error( $config, "missing permission to read template '$template'" ) unless ( -r $template );
+ return $template;
}
#deprecated (for old admin only)
sub exit_on_missing_permission {
- my $permission = shift;
- my $user_permissions = roles::get_user_permissions();
- if ( $user_permissions->{$permission} ne '1' ) {
- print STDERR "missing permission to $permission\n";
- template::process( 'print', template::check('default.html'), { error => 'sorry, missing permission!' } );
- die();
+ my $permission = shift;
+ my $user_permissions = roles::get_user_permissions();
+ if ( $user_permissions->{$permission} ne '1' ) {
+ print STDERR "missing permission to $permission\n";
+ template::process( 'print', template::check('default.html'), { error => 'sorry, missing permission!' } );
+ die();
- #exit;
- }
+ #exit;
+ }
}
sub clear_cache {
- HTML::Template::Compiled->clear_cache();
+ HTML::Template::Compiled->clear_cache();
- # return;
- # my $html_template = HTML::Template::Compiled->new();
- # $html_template->clear_cache();
+ # return;
+ # my $html_template = HTML::Template::Compiled->new();
+ # $html_template->clear_cache();
}
#do not delete last line!
diff --git a/lib/calcms/time.pm b/lib/calcms/time.pm
index 6182ef4..04b8394 100644
--- a/lib/calcms/time.pm
+++ b/lib/calcms/time.pm
@@ -32,584 +32,584 @@ our @EXPORT_OK = qw(
our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
our $names = {
- 'de' => {
- months =>
- [ 'Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' ],
- months_abbr => [ 'Jan', 'Feb', 'Mär', 'Apr', 'Mai', 'Jun', 'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez' ],
- weekdays => [ 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag' ],
- weekdays_abbr => [ 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So' ],
- },
- 'en' => {
- months =>
- [ 'January', 'February', 'March', 'April', 'May', 'June', 'Jule', 'August', 'September', 'October', 'November', 'December' ],
- months_abbr => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ],
- weekdays => [ 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday' ],
- weekdays_abbr => [ 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su' ],
- },
+ 'de' => {
+ months =>
+ [ 'Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' ],
+ months_abbr => [ 'Jan', 'Feb', 'Mär', 'Apr', 'Mai', 'Jun', 'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez' ],
+ weekdays => [ 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag' ],
+ weekdays_abbr => [ 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa', 'So' ],
+ },
+ 'en' => {
+ months =>
+ [ 'January', 'February', 'March', 'April', 'May', 'June', 'Jule', 'August', 'September', 'October', 'November', 'December' ],
+ months_abbr => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ],
+ weekdays => [ 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday' ],
+ weekdays_abbr => [ 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su' ],
+ },
};
our $durations = [
- 0, 5, 10, 15, 20, 30, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 110, 115,
- 120, 135, 150, 165, 180, 195, 210, 225, 240, 300, 360, 420, 480, 540, 600, 660, 720, 1440
+ 0, 5, 10, 15, 20, 30, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 110, 115,
+ 120, 135, 150, 165, 180, 195, 210, 225, 240, 300, 360, 420, 480, 540, 600, 660, 720, 1440
];
sub get_names {
- my $language = shift || 'en';
- return $time::names->{$language};
+ my $language = shift || 'en';
+ return $time::names->{$language};
}
sub get_all_names {
- return $time::names;
+ return $time::names;
}
sub get_durations {
- return $time::durations;
+ return $time::durations;
}
#TODO: build from datenames
our $weekday_index = {
- '0' => 0,
- '1' => 1,
- '2' => 2,
- '3' => 3,
- '4' => 4,
- '5' => 5,
- '6' => 6,
- 'Mo' => 0,
- 'Tu' => 1,
- 'Di' => 1,
- 'We' => 2,
- 'Mi' => 2,
- 'Th' => 3,
- 'Do' => 3,
- 'Fr' => 4,
- 'Sa' => 5,
- 'Su' => 6,
- 'So' => 6
+ '0' => 0,
+ '1' => 1,
+ '2' => 2,
+ '3' => 3,
+ '4' => 4,
+ '5' => 5,
+ '6' => 6,
+ 'Mo' => 0,
+ 'Tu' => 1,
+ 'Di' => 1,
+ 'We' => 2,
+ 'Mi' => 2,
+ 'Th' => 3,
+ 'Do' => 3,
+ 'Fr' => 4,
+ 'Sa' => 5,
+ 'Su' => 6,
+ 'So' => 6
};
sub get_weekdays {
- return {
- 1 => 1,
- 2 => 2,
- 3 => 3,
- 4 => 4,
- 5 => 5,
- 6 => 6,
- 7 => 7,
- 'Mo' => 1,
- 'Tu' => 2,
- 'Di' => 2,
- 'We' => 3,
- 'Mi' => 3,
- 'Th' => 4,
- 'Do' => 4,
- 'Fr' => 5,
- 'Sa' => 6,
- 'Su' => 7,
- 'So' => 7
- };
+ return {
+ 1 => 1,
+ 2 => 2,
+ 3 => 3,
+ 4 => 4,
+ 5 => 5,
+ 6 => 6,
+ 7 => 7,
+ 'Mo' => 1,
+ 'Tu' => 2,
+ 'Di' => 2,
+ 'We' => 3,
+ 'Mi' => 3,
+ 'Th' => 4,
+ 'Do' => 4,
+ 'Fr' => 5,
+ 'Sa' => 6,
+ 'Su' => 7,
+ 'So' => 7
+ };
}
#deprecated, for wordpress sync
sub format_datetime {
- my $datetime = shift;
- return $datetime if ( $datetime eq '' );
- return add_hours_to_datetime( $datetime, 0 );
+ my $datetime = shift;
+ return $datetime if ( $datetime eq '' );
+ return add_hours_to_datetime( $datetime, 0 );
}
#deprecated
sub format_time {
- my $t = $_[0];
+ my $t = $_[0];
- my $year = $t->[5] + 1900;
- my $month = $t->[4] + 1;
- $month = '0' . $month if ( length($month) == 1 );
+ my $year = $t->[5] + 1900;
+ my $month = $t->[4] + 1;
+ $month = '0' . $month if ( length($month) == 1 );
- my $day = $t->[3];
- $day = '0' . $day if ( length($day) == 1 );
+ my $day = $t->[3];
+ $day = '0' . $day if ( length($day) == 1 );
- my $hour = $t->[2];
- $hour = '0' . $hour if ( length($hour) == 1 );
+ my $hour = $t->[2];
+ $hour = '0' . $hour if ( length($hour) == 1 );
- my $minute = $t->[1];
- $minute = '0' . $minute if ( length($minute) == 1 );
+ my $minute = $t->[1];
+ $minute = '0' . $minute if ( length($minute) == 1 );
- return [ $day, $month, $year, $hour, $minute ];
+ return [ $day, $month, $year, $hour, $minute ];
}
# convert datetime to unix time
sub datetime_to_time {
- my $datetime = $_[0];
+ my $datetime = $_[0];
- # print $datetime."\n";
- if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)[T\s](\d+)\:(\d+)(\:(\d+))?/ ) {
- my $year = $1;
- my $month = $2 - 1;
- my $day = $3;
- my $hour = $4;
- my $minute = $5;
- my $second = $8 || 0;
- return Time::Local::timelocal( $second, $minute, $hour, $day, $month, $year );
+ # print $datetime."\n";
+ if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)[T\s](\d+)\:(\d+)(\:(\d+))?/ ) {
+ my $year = $1;
+ my $month = $2 - 1;
+ my $day = $3;
+ my $hour = $4;
+ my $minute = $5;
+ my $second = $8 || 0;
+ return Time::Local::timelocal( $second, $minute, $hour, $day, $month, $year );
- } else {
- print STDERR "datetime_to_time: no valid date time found! ($datetime )\n";
- return -1;
- }
+ } else {
+ print STDERR "datetime_to_time: no valid date time found! ($datetime )\n";
+ return -1;
+ }
}
#get rfc822 datetime string from datetime string
sub datetime_to_rfc822 {
- my $datetime = $_[0];
- my $time = datetime_to_time($datetime);
- return POSIX::strftime( "%a, %d %b %Y %H:%M:%S %z", localtime($time) );
+ my $datetime = $_[0];
+ my $time = datetime_to_time($datetime);
+ return POSIX::strftime( "%a, %d %b %Y %H:%M:%S %z", localtime($time) );
}
#get seconds from epoch
sub datetime_to_utc {
- my $datetime = shift;
- my $time_zone = shift;
- $datetime = get_datetime( $datetime, $time_zone );
- return $datetime->epoch();
+ my $datetime = shift;
+ my $time_zone = shift;
+ $datetime = get_datetime( $datetime, $time_zone );
+ return $datetime->epoch();
}
# get full utc datetime including timezone offset
sub datetime_to_utc_datetime {
- my $datetime = shift;
- my $time_zone = shift;
- $datetime = get_datetime( $datetime, $time_zone );
- return $datetime->format_cldr("yyyy-MM-ddTHH:mm:ssZZZZZ");
+ my $datetime = shift;
+ my $time_zone = shift;
+ $datetime = get_datetime( $datetime, $time_zone );
+ return $datetime->format_cldr("yyyy-MM-ddTHH:mm:ssZZZZZ");
}
#add hours to datetime string
sub add_hours_to_datetime {
- my $datetime = shift;
- my $hours = shift;
- $hours = 0 unless defined $hours;
- return time_to_datetime( datetime_to_time($datetime) + ( 3600 * $hours ) );
+ my $datetime = shift;
+ my $hours = shift;
+ $hours = 0 unless defined $hours;
+ return time_to_datetime( datetime_to_time($datetime) + ( 3600 * $hours ) );
}
#add minutes to datetime string
sub add_minutes_to_datetime {
- my $datetime = shift;
- my $minutes = shift;
- $minutes = 0 unless defined $minutes;
- return time_to_datetime( datetime_to_time($datetime) + ( 60 * $minutes ) );
+ my $datetime = shift;
+ my $minutes = shift;
+ $minutes = 0 unless defined $minutes;
+ return time_to_datetime( datetime_to_time($datetime) + ( 60 * $minutes ) );
}
#add days to datetime string
sub add_days_to_datetime {
- my $datetime = shift;
- my $days = shift;
- $days = 0 unless defined $days;
- my $time = datetime_to_array($datetime);
+ my $datetime = shift;
+ my $days = shift;
+ $days = 0 unless defined $days;
+ my $time = datetime_to_array($datetime);
- #print STDERR Dumper($time);
- ( $time->[0], $time->[1], $time->[2] ) = Date::Calc::Add_Delta_Days( $time->[0] + 0, $time->[1] + 0, $time->[2] + 0, $days );
- return array_to_datetime($time);
+ #print STDERR Dumper($time);
+ ( $time->[0], $time->[1], $time->[2] ) = Date::Calc::Add_Delta_Days( $time->[0] + 0, $time->[1] + 0, $time->[2] + 0, $days );
+ return array_to_datetime($time);
}
sub add_days_to_date {
- my $datetime = shift;
- my $days = shift;
- $days = 0 unless defined $days;
- my $date = date_to_array($datetime);
- ( $date->[0], $date->[1], $date->[2] ) = Date::Calc::Add_Delta_Days( $date->[0] + 0, $date->[1] + 0, $date->[2] + 0, $days );
- return array_to_date($date);
+ my $datetime = shift;
+ my $days = shift;
+ $days = 0 unless defined $days;
+ my $date = date_to_array($datetime);
+ ( $date->[0], $date->[1], $date->[2] ) = Date::Calc::Add_Delta_Days( $date->[0] + 0, $date->[1] + 0, $date->[2] + 0, $days );
+ return array_to_date($date);
}
# convert unix time to datetime format
sub time_to_datetime {
- my $time = shift;
- $time = time() unless ( ( defined $time ) && ( $time ne '' ) );
- my @t = localtime($time);
- return sprintf( '%04d-%02d-%02d %02d:%02d:%02d', $t[5] + 1900, $t[4] + 1, $t[3], $t[2], $t[1], $t[0] );
+ my $time = shift;
+ $time = time() unless ( defined $time ) && ( $time ne '' );
+ my @t = localtime($time);
+ return sprintf( '%04d-%02d-%02d %02d:%02d:%02d', $t[5] + 1900, $t[4] + 1, $t[3], $t[2], $t[1], $t[0] );
}
# convert unix time to date format
sub time_to_date {
- my $time = shift;
- $time = time() unless ( ( defined $time ) && ( $time ne '' ) );
- my @t = localtime($time);
- return sprintf( '%04d-%02d-%02d', $t[5] + 1900, $t[4] + 1, $t[3] );
+ my $time = shift;
+ $time = time() unless ( defined $time ) && ( $time ne '' );
+ my @t = localtime($time);
+ return sprintf( '%04d-%02d-%02d', $t[5] + 1900, $t[4] + 1, $t[3] );
}
# convert datetime to a array of date/time values
sub datetime_to_array {
- my $datetime = $_[0] || '';
- if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)([T\s]+(\d+)\:(\d+)(\:(\d+))?)?/ ) {
- my $year = $1;
- my $month = $2;
- my $day = $3;
- my $hour = $5 || '00';
- my $minute = $6 || '00';
- my $second = $8 || '00';
- return [ $year, $month, $day, $hour, $minute, $second ];
- }
- return undef;
+ my $datetime = $_[0] || '';
+ if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)([T\s]+(\d+)\:(\d+)(\:(\d+))?)?/ ) {
+ my $year = $1;
+ my $month = $2;
+ my $day = $3;
+ my $hour = $5 || '00';
+ my $minute = $6 || '00';
+ my $second = $8 || '00';
+ return [ $year, $month, $day, $hour, $minute, $second ];
+ }
+ return undef;
}
# convert datetime to date
sub datetime_to_date {
- my $datetime = $_[0] || '';
- if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
- my $year = $1;
- my $month = $2;
- my $day = $3;
- return sprintf( "%04d-%02d-%02d", $year, $month, $day );
- }
- return undef;
+ my $datetime = $_[0] || '';
+ if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
+ my $year = $1;
+ my $month = $2;
+ my $day = $3;
+ return sprintf( "%04d-%02d-%02d", $year, $month, $day );
+ }
+ return undef;
}
#convert datetime array or single value to datetime string
sub array_to_datetime {
- my $date = shift;
- if ( ref($date) eq 'ARRAY' ) {
- return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date->[0], $date->[1], $date->[2], $date->[3], $date->[4], $date->[5] );
- }
- my $month = shift;
- my $day = shift;
- my $hour = shift || '0';
- my $minute = shift || '0';
- my $second = shift || '0';
- return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date, $month, $day, $hour, $minute, $second );
+ my $date = shift;
+ if ( ref($date) eq 'ARRAY' ) {
+ return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date->[0], $date->[1], $date->[2], $date->[3], $date->[4], $date->[5] );
+ }
+ my $month = shift;
+ my $day = shift;
+ my $hour = shift || '0';
+ my $minute = shift || '0';
+ my $second = shift || '0';
+ return sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $date, $month, $day, $hour, $minute, $second );
}
#convert date array or single values to date string
sub array_to_date {
- my $date = shift;
- if ( ref($date) eq 'ARRAY' ) {
- return sprintf( "%04d-%02d-%02d", $date->[0], $date->[1], $date->[2] );
- }
- my $month = shift;
- my $day = shift;
- return sprintf( "%04d-%02d-%02d", $date, $month, $day );
+ my $date = shift;
+ if ( ref($date) eq 'ARRAY' ) {
+ return sprintf( "%04d-%02d-%02d", $date->[0], $date->[1], $date->[2] );
+ }
+ my $month = shift;
+ my $day = shift;
+ return sprintf( "%04d-%02d-%02d", $date, $month, $day );
}
sub array_to_time {
- my $date = shift;
- if ( ref($date) eq 'ARRAY' ) {
- return sprintf( "%02d:%02d:%02d", $date->[3], $date->[4], $date->[5] );
- }
- my $minute = shift || 0;
- my $second = shift || 0;
- return sprintf( "%02d:%02d:%02d", $date, $minute, $second );
+ my $date = shift;
+ if ( ref($date) eq 'ARRAY' ) {
+ return sprintf( "%02d:%02d:%02d", $date->[3], $date->[4], $date->[5] );
+ }
+ my $minute = shift || 0;
+ my $second = shift || 0;
+ return sprintf( "%02d:%02d:%02d", $date, $minute, $second );
}
sub array_to_time_hm {
- my $date = shift;
- if ( ref($date) eq 'ARRAY' ) {
- return sprintf( "%02d:%02d", $date->[3], $date->[4] );
- }
- my $minute = shift || 0;
- return sprintf( "%02d:%02d", $date, $minute );
+ my $date = shift;
+ if ( ref($date) eq 'ARRAY' ) {
+ return sprintf( "%02d:%02d", $date->[3], $date->[4] );
+ }
+ my $minute = shift || 0;
+ return sprintf( "%02d:%02d", $date, $minute );
}
# get number of days between two days
sub days_between {
- my $today = $_[0];
- my $date = $_[1];
- my $delta_days = eval { Date::Calc::Delta_Days( $today->[0], $today->[1], $today->[2], $date->[0], $date->[1], $date->[2] ) };
- return $delta_days;
+ my $today = $_[0];
+ my $date = $_[1];
+ my $delta_days = eval { Date::Calc::Delta_Days( $today->[0], $today->[1], $today->[2], $date->[0], $date->[1], $date->[2] ) };
+ return $delta_days;
}
sub dayOfYear {
- my $datetime = $_[0];
- if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
- my $year = $1;
- my $month = $2;
- my $day = $3;
- return Date::Calc::Day_of_Year( $year, $month, $day );
- }
- return undef;
+ my $datetime = $_[0];
+ if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
+ my $year = $1;
+ my $month = $2;
+ my $day = $3;
+ return Date::Calc::Day_of_Year( $year, $month, $day );
+ }
+ return undef;
}
# get duration in minutes
sub get_duration {
- my $start = shift;
- my $end = shift;
- my $timezone = shift;
- $start = time::get_datetime( $start, $timezone );
- $end = time::get_datetime( $end, $timezone );
- my $duration = $end->epoch() - $start->epoch();
- return $duration / 60;
+ my $start = shift;
+ my $end = shift;
+ my $timezone = shift;
+ $start = time::get_datetime( $start, $timezone );
+ $end = time::get_datetime( $end, $timezone );
+ my $duration = $end->epoch() - $start->epoch();
+ return $duration / 60;
}
# get duration in seconds
sub get_duration_seconds {
- my $start = shift;
- my $end = shift;
- my $timezone = shift || 'UTC';
+ my $start = shift;
+ my $end = shift;
+ my $timezone = shift || 'UTC';
- unless ( defined $start ) {
- print STDERR "time::get_duration_seconds(): start is missing\n";
- return 0;
- }
- unless ( defined $end ) {
- print STDERR "time::get_duration_seconds(): end is missing\n";
- return 0;
- }
+ unless ( defined $start ) {
+ print STDERR "time::get_duration_seconds(): start is missing\n";
+ return 0;
+ }
+ unless ( defined $end ) {
+ print STDERR "time::get_duration_seconds(): end is missing\n";
+ return 0;
+ }
- $start = time::get_datetime( $start, $timezone );
- $end = time::get_datetime( $end, $timezone );
- unless ( defined $start ) {
- print STDERR "time::get_duration_seconds(): invalid start\n";
- return 0;
- }
- unless ( defined $end ) {
- print STDERR "time::get_duration_seconds(): invalid end\n";
- return 0;
- }
- my $duration = $end->epoch() - $start->epoch();
- return $duration;
+ $start = time::get_datetime( $start, $timezone );
+ $end = time::get_datetime( $end, $timezone );
+ unless ( defined $start ) {
+ print STDERR "time::get_duration_seconds(): invalid start\n";
+ return 0;
+ }
+ unless ( defined $end ) {
+ print STDERR "time::get_duration_seconds(): invalid end\n";
+ return 0;
+ }
+ my $duration = $end->epoch() - $start->epoch();
+ return $duration;
}
# convert date string to a array of date values
sub date_to_array {
- my $datetime = $_[0];
- if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
- my $year = $1;
- my $month = $2;
- my $day = $3;
- return [ $year, $month, $day ];
- }
- return undef;
+ my $datetime = $_[0];
+ if ( $datetime =~ /(\d\d\d\d)\-(\d+)\-(\d+)/ ) {
+ my $year = $1;
+ my $month = $2;
+ my $day = $3;
+ return [ $year, $month, $day ];
+ }
+ return undef;
}
# parse date string and return date string
# pass 'today', return '' on parse error
sub date_cond {
- my $date = shift;
+ my $date = shift;
- return '' if ( $date eq '' );
- if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
- my $year = $1;
- my $month = $2;
- my $day = $3;
- return sprintf( "%04d-%02d-%02d", $year, $month, $day );
- }
- return 'today' if ( $date eq 'today' );
- return '';
+ return '' if ( $date eq '' );
+ if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
+ my $year = $1;
+ my $month = $2;
+ my $day = $3;
+ return sprintf( "%04d-%02d-%02d", $year, $month, $day );
+ }
+ return 'today' if ( $date eq 'today' );
+ return '';
}
#parse time and return time string hh:mm:ss
#return hh:00 if time is 'now'
sub time_cond {
- my $time = shift;
+ my $time = shift;
- return '' if ( $time eq '' );
- if ( $time =~ /(\d\d?)\:(\d\d?)(\:(\d\d))?/ ) {
- my $hour = $1;
- my $minute = $2;
- my $second = $4 || '00';
- return sprintf( "%02d:%02d:%02d", $hour, $minute, $second );
- }
- if ( $time eq 'now' ) {
- my $date = datetime_to_array( time_to_datetime( time() ) );
- my $hour = $date->[3] - 2;
- $hour = 0 if ( $hour < 0 );
- $time = sprintf( "%02d:00", $hour );
- return $time;
- }
- return '';
+ return '' if ( $time eq '' );
+ if ( $time =~ /(\d\d?)\:(\d\d?)(\:(\d\d))?/ ) {
+ my $hour = $1;
+ my $minute = $2;
+ my $second = $4 || '00';
+ return sprintf( "%02d:%02d:%02d", $hour, $minute, $second );
+ }
+ if ( $time eq 'now' ) {
+ my $date = datetime_to_array( time_to_datetime( time() ) );
+ my $hour = $date->[3] - 2;
+ $hour = 0 if ( $hour < 0 );
+ $time = sprintf( "%02d:00", $hour );
+ return $time;
+ }
+ return '';
}
#parse date and time string and return yyyy-mm-ddThh:mm:ss
sub datetime_cond {
- my $datetime = shift;
+ my $datetime = shift;
- return '' if ( $datetime eq '' );
- ( my $date, my $time ) = split /[ T]/, $datetime;
- $date = time::date_cond($date);
- return '' if ( $date eq '' );
- $time = time::time_cond($time);
- return '' if ( $time eq '' );
+ return '' if ( $datetime eq '' );
+ ( my $date, my $time ) = split /[ T]/, $datetime;
+ $date = time::date_cond($date);
+ return '' if ( $date eq '' );
+ $time = time::time_cond($time);
+ return '' if ( $time eq '' );
- return $date . 'T' . $time;
+ return $date . 'T' . $time;
}
sub check_date {
- my $date = shift;
+ my $date = shift;
- return "" if ( ( !defined $date ) || ( $date eq '' ) );
- if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
- return $1 . '-' . $2 . '-' . $3;
- } elsif ( $date =~ /(\d\d?)\.(\d\d?)\.(\d\d\d\d)/ ) {
- return $3 . '-' . $2 . '-' . $1;
- }
- return $date if ( $date eq 'today' || $date eq 'tomorrow' || $date eq 'yesterday' );
- return -1;
+ return "" if ( !defined $date ) || ( $date eq '' );
+ if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
+ return $1 . '-' . $2 . '-' . $3;
+ } elsif ( $date =~ /(\d\d?)\.(\d\d?)\.(\d\d\d\d)/ ) {
+ return $3 . '-' . $2 . '-' . $1;
+ }
+ return $date if ( $date eq 'today' || $date eq 'tomorrow' || $date eq 'yesterday' );
+ return -1;
- #error("no valid date format given!");
+ #error("no valid date format given!");
}
sub check_time {
- my $time = shift;
- return "" if ( ( !defined $time ) || ( $time eq '' ) );
- return $time if ( ( $time eq 'now' ) || ( $time eq 'future' ) );
- if ( $time =~ /(\d\d?)\:(\d\d?)/ ) {
- return $1 . ':' . $2;
- }
- return -1;
+ my $time = shift;
+ return "" if ( !defined $time ) || ( $time eq '' );
+ return $time if ( $time eq 'now' ) || ( $time eq 'future' );
+ if ( $time =~ /(\d\d?)\:(\d\d?)/ ) {
+ return $1 . ':' . $2;
+ }
+ return -1;
}
sub check_datetime {
- my $date = shift;
+ my $date = shift;
- return "" if ( ( !defined $date ) || ( $date eq '' ) );
- if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[T ](\d\d?)\:(\d\d?)/ ) {
- return sprintf( "%04d-%02d-%02dT%02d:%02d", $1, $2, $3, $4, $5 );
- }
- return -1;
+ return "" if ( !defined $date ) || ( $date eq '' );
+ if ( $date =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[T ](\d\d?)\:(\d\d?)/ ) {
+ return sprintf( "%04d-%02d-%02dT%02d:%02d", $1, $2, $3, $4, $5 );
+ }
+ return -1;
}
sub check_year_month {
- my $date = shift;
- return -1 unless ( defined $date );
- return $date if ( $date eq '' );
- if ( $date =~ /(\d\d\d\d)\-(\d\d?)/ ) {
- return $1 . '-' . $2 . '-' . $3;
- }
- return -1;
+ my $date = shift;
+ return -1 unless ( defined $date );
+ return $date if ( $date eq '' );
+ if ( $date =~ /(\d\d\d\d)\-(\d\d?)/ ) {
+ return $1 . '-' . $2 . '-' . $3;
+ }
+ return -1;
}
#TODO: remove config dependency
sub date_time_format {
- my $datetime = shift;
- my $language = shift || $config::config->{date}->{language} || 'en';
- if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[\sT](\d\d?\:\d\d?)/ ) {
- my $time = $4;
- my $day = $3;
- my $month = $2;
- my $year = $1;
+ my $datetime = shift;
+ my $language = shift || $config::config->{date}->{language} || 'en';
+ if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)[\sT](\d\d?\:\d\d?)/ ) {
+ my $time = $4;
+ my $day = $3;
+ my $month = $2;
+ my $year = $1;
- $month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
- return "$day. $month $year $time";
- }
- return $datetime;
+ $month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
+ return "$day. $month $year $time";
+ }
+ return $datetime;
}
#format datetime to date string
#TODO: remove config dependency
sub date_format {
- my $datetime = shift;
- my $language = shift || $config::config->{date}->{language} || 'en';
+ my $datetime = shift;
+ my $language = shift || $config::config->{date}->{language} || 'en';
- if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
- my $day = $3;
- my $month = $2;
- my $year = $1;
- $month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
- return "$day. $month $year";
- }
- return $datetime;
+ if ( defined $datetime && $datetime =~ /(\d\d\d\d)\-(\d\d?)\-(\d\d?)/ ) {
+ my $day = $3;
+ my $month = $2;
+ my $year = $1;
+ $month = $time::names->{$language}->{months_abbr}->[ $month - 1 ] || '';
+ return "$day. $month $year";
+ }
+ return $datetime;
}
#format datetime to time string
sub time_format {
- my $datetime = shift;
- if ( defined $datetime && $datetime =~ /(\d\d?\:\d\d?)/ ) {
- return $1;
- }
- return $datetime;
+ my $datetime = shift;
+ if ( defined $datetime && $datetime =~ /(\d\d?\:\d\d?)/ ) {
+ return $1;
+ }
+ return $datetime;
}
#get offset from given time_zone
sub utc_offset {
- my $time_zone = shift;
+ my $time_zone = shift;
- $a = DateTime->now();
- $a->set_time_zone($time_zone);
- return $a->strftime("%z");
+ $a = DateTime->now();
+ $a->set_time_zone($time_zone);
+ return $a->strftime("%z");
}
#get weekday from (yyyy,mm,dd)
sub weekday {
- my ( $year, $month, $day ) = @_;
- my $time = Time::Local::timelocal( 0, 0, 0, $day, $month - 1, $year );
- return ( localtime($time) )[6];
+ my ( $year, $month, $day ) = @_;
+ my $time = Time::Local::timelocal( 0, 0, 0, $day, $month - 1, $year );
+ return ( localtime($time) )[6];
}
#get current date, related to starting day_starting_hour
#TODO: remove config dependency
sub get_event_date {
- my $config = shift;
- $config = $config::config unless defined $config;
+ my $config = shift;
+ $config = $config::config unless defined $config;
- my $datetime = time::time_to_datetime( time() );
- my $hour = ( time::datetime_to_array($datetime) )->[3];
+ my $datetime = time::time_to_datetime( time() );
+ my $hour = ( time::datetime_to_array($datetime) )->[3];
- #print STDERR "datetime=$datetime hour=$hour\n";
- #today: between 0:00 and starting_hour show last day
- if ( $hour < $config->{date}->{day_starting_hour} ) {
- my $date = time::datetime_to_array( time::add_days_to_datetime( $datetime, -1 ) );
- return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
- } else {
+ #print STDERR "datetime=$datetime hour=$hour\n";
+ #today: between 0:00 and starting_hour show last day
+ if ( $hour < $config->{date}->{day_starting_hour} ) {
+ my $date = time::datetime_to_array( time::add_days_to_datetime( $datetime, -1 ) );
+ return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
+ } else {
- #today: between starting_hour and end of day show current day
- my $date = time::datetime_to_array( time::time_to_datetime( time() ) );
- return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
- }
+ #today: between starting_hour and end of day show current day
+ my $date = time::datetime_to_array( time::time_to_datetime( time() ) );
+ return join( '-', ( $date->[0], $date->[1], $date->[2] ) );
+ }
}
#get datetime object from datetime string
sub get_datetime {
- my $datetime = shift;
- my $timezone = shift;
+ my $datetime = shift;
+ my $timezone = shift;
- return unless defined $datetime;
- return if $datetime eq '';
- my @l = @{ time::datetime_to_array($datetime) };
- return undef if scalar(@l) == 0;
+ return unless defined $datetime;
+ return if $datetime eq '';
+ my @l = @{ time::datetime_to_array($datetime) };
+ return undef if scalar(@l) == 0;
- # catch invalid datees
- $datetime = undef;
- eval {
- $datetime = DateTime->new(
- year => $l[0],
- month => $l[1],
- day => $l[2],
- hour => $l[3],
- minute => $l[4],
- second => $l[5],
- time_zone => $timezone
- );
- };
- return undef unless defined $datetime;
- $datetime->set_locale('de_DE');
- return $datetime;
+ # catch invalid datees
+ $datetime = undef;
+ eval {
+ $datetime = DateTime->new(
+ year => $l[0],
+ month => $l[1],
+ day => $l[2],
+ hour => $l[3],
+ minute => $l[4],
+ second => $l[5],
+ time_zone => $timezone
+ );
+ };
+ return undef unless defined $datetime;
+ $datetime->set_locale('de_DE');
+ return $datetime;
}
#get list of nth weekday in month from start to end
sub get_nth_weekday_in_month {
- my $start = shift; # datetime string
- my $end = shift; # datetime string
- my $nth = shift; # every nth week of month
- my $weekday = shift; # weekday [1..7,'Mo'-'Su','Mo'-'Fr']
+ my $start = shift; # datetime string
+ my $end = shift; # datetime string
+ my $nth = shift; # every nth week of month
+ my $weekday = shift; # weekday [1..7,'Mo'-'Su','Mo'-'Fr']
- return [] unless defined $start;
- return [] unless defined $end;
- return [] unless defined $nth;
- return [] unless defined $weekday;
+ return [] unless defined $start;
+ return [] unless defined $end;
+ return [] unless defined $nth;
+ return [] unless defined $weekday;
- my $weekdays = time::get_weekdays();
- return [] unless defined $weekdays->{$weekday};
- $weekday = $weekdays->{$weekday};
+ my $weekdays = time::get_weekdays();
+ return [] unless defined $weekdays->{$weekday};
+ $weekday = $weekdays->{$weekday};
- my $dates = [];
+ my $dates = [];
- if ( $start =~ /(\d\d\d\d)-(\d\d)-(\d\d)[ T](\d\d)\:(\d\d)/ ) {
- my $hour = int($4);
- my $min = int($5);
- my $sec = 0;
- my @date = Date::Manip::ParseRecur( "0:1*$nth:$weekday:$hour:$min:$sec", "", $start, $end );
- for my $date (@date) {
- if ( $date =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d)\:(\d\d)\:(\d\d)/ ) {
- push @$dates, "$1-$2-$3 $4:$5:$6";
- }
- }
- }
- return $dates;
+ if ( $start =~ /(\d\d\d\d)-(\d\d)-(\d\d)[ T](\d\d)\:(\d\d)/ ) {
+ my $hour = int($4);
+ my $min = int($5);
+ my $sec = 0;
+ my @date = Date::Manip::ParseRecur( "0:1*$nth:$weekday:$hour:$min:$sec", "", $start, $end );
+ for my $date (@date) {
+ if ( $date =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d)\:(\d\d)\:(\d\d)/ ) {
+ push @$dates, "$1-$2-$3 $4:$5:$6";
+ }
+ }
+ }
+ return $dates;
}
#do not delete last line!
diff --git a/lib/calcms/uac.pm b/lib/calcms/uac.pm
index 2b558d0..f203092 100644
--- a/lib/calcms/uac.pm
+++ b/lib/calcms/uac.pm
@@ -31,53 +31,53 @@ sub debug;
# get user by name
sub get_user {
- my $config = shift;
- my $user = shift;
+ my $config = shift;
+ my $user = shift;
- my $query = qq{
+ my $query = qq{
select id, name, full_name, email, disabled, modified_at, created_at
from calcms_users
where name=?
};
- my $bind_values = [$user];
+ my $bind_values = [$user];
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, $bind_values );
- if ( @$users != 1 ) {
- print STDERR "cannot find user '$user'\n";
- return undef;
- }
- return $users->[0];
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, $bind_values );
+ if ( scalar @$users != 1 ) {
+ print STDERR "cannot find user '$user'\n";
+ return undef;
+ }
+ return $users->[0];
}
# get all users
sub get_users {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- for my $key ( 'name', 'email' ) {
- my $value = $condition->{$key};
- next unless defined $value;
- next if $value eq '';
- push @conditions, $key . '=?';
- push @bind_values, $value;
- }
+ for my $key ( 'name', 'email' ) {
+ my $value = $condition->{$key};
+ next unless defined $value;
+ next if $value eq '';
+ push @conditions, $key . '=?';
+ push @bind_values, $value;
+ }
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( scalar @conditions > 0 );
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( scalar @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select id, name, full_name, email, disabled, modified_at, created_at
from calcms_users
$conditions
};
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, \@bind_values );
- return $users;
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, \@bind_values );
+ return $users;
}
#TODO: get_users_by_project
@@ -85,376 +85,376 @@ sub get_users {
# get all users of a given studio id
# used at series (previously named get_studio_users)
sub get_users_by_studio {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- return unless ( defined $condition->{studio_id} );
+ return unless ( defined $condition->{studio_id} );
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( scalar @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( scalar @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select distinct(u.id), u.name, u.full_name
from calcms_user_roles ur, calcms_users u
where ur.user_id=u.id
$conditions
};
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, \@bind_values );
- return $users;
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, \@bind_values );
+ return $users;
}
# get projects a user is assigned by name
sub get_projects_by_user {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'u.name=?';
- push @bind_values, $condition->{user};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'u.name=?';
+ push @bind_values, $condition->{user};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select distinct p.*, ur.project_id project_id
from calcms_user_roles ur, calcms_users u, calcms_projects p
where ur.user_id=u.id and p.project_id=ur.project_id
$conditions
};
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, \@bind_values );
- return $users;
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, \@bind_values );
+ return $users;
}
# get all studios a user is assigned to by role
# used at series (previously named get_user_studios)
sub get_studios_by_user {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'u.name=?';
- push @bind_values, $condition->{user};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'u.name=?';
+ push @bind_values, $condition->{user};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select distinct s.*, ur.project_id project_id
from calcms_user_roles ur, calcms_users u, calcms_studios s
where ur.user_id=u.id and s.id=ur.studio_id
$conditions
};
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, \@bind_values );
- return $users;
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, \@bind_values );
+ return $users;
}
sub insert_user {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- $entry->{created_at} = time::time_to_datetime( time() );
- $entry->{modified_at} = time::time_to_datetime( time() );
+ $entry->{created_at} = time::time_to_datetime( time() );
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $dbh = db::connect($config);
- db::insert( $dbh, 'calcms_users', $entry );
+ my $dbh = db::connect($config);
+ db::insert( $dbh, 'calcms_users', $entry );
}
sub update_user {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- $entry->{modified_at} = time::time_to_datetime( time() );
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
- my @bind_values = map { $entry->{$_} } ( keys %$entry );
- push @bind_values, $entry->{id};
+ my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
+ my @bind_values = map { $entry->{$_} } ( keys %$entry );
+ push @bind_values, $entry->{id};
- my $query = qq{
+ my $query = qq{
update calcms_users
set $values
where id=?
};
- my $dbh = db::connect($config);
- db::put( $dbh, $query, \@bind_values );
+ my $dbh = db::connect($config);
+ db::put( $dbh, $query, \@bind_values );
}
sub delete_user {
- my $config = shift;
- my $id = shift;
- return unless ( defined $id && ( $id =~ /^\d+$/ ) );
+ my $config = shift;
+ my $id = shift;
+ return unless ( defined $id && ( $id =~ /^\d+$/ ) );
- my $query = qq{
+ my $query = qq{
delete from calcms_users
where id=?
};
- my $dbh = db::connect($config);
- db::put( $dbh, $query, [$id] );
+ my $dbh = db::connect($config);
+ db::put( $dbh, $query, [$id] );
}
# get all roles used by all users of a studio
# available conditions: project_id, studio_id
sub get_studio_roles {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- return [] if ( $condition->{studio_id} eq '' );
+ return [] if ( $condition->{studio_id} eq '' );
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select r.*, ur.studio_id, ur.project_id
from calcms_roles r, calcms_user_roles ur
where r.id=ur.role_id
$conditions
};
- my $dbh = db::connect($config);
- my $roles = db::get( $dbh, $query, \@bind_values );
- return $roles;
+ my $dbh = db::connect($config);
+ my $roles = db::get( $dbh, $query, \@bind_values );
+ return $roles;
}
# get role columns (for external use only)
sub get_role_columns {
- my $config = shift;
- my $dbh = db::connect($config);
- my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
- return $columns;
+ my $config = shift;
+ my $dbh = db::connect($config);
+ my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
+ return $columns;
}
# get roles
# filter: studio_id project_id
sub get_roles {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- my $dbh = db::connect($config);
- my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
+ my $dbh = db::connect($config);
+ my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
- for my $column ( keys %$columns ) {
- if ( defined $condition->{$column} ) {
- push @conditions, $column . '=?';
- push @bind_values, $condition->{$column};
- }
- }
- my $conditions = '';
- $conditions = ' where ' . join( ' and ', @conditions ) if ( @conditions > 0 );
+ for my $column ( keys %$columns ) {
+ if ( defined $condition->{$column} ) {
+ push @conditions, $column . '=?';
+ push @bind_values, $condition->{$column};
+ }
+ }
+ my $conditions = '';
+ $conditions = ' where ' . join( ' and ', @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select r.*
from calcms_roles r
$conditions
};
- my $roles = db::get( $dbh, $query, \@bind_values );
+ my $roles = db::get( $dbh, $query, \@bind_values );
- return $roles;
+ return $roles;
}
#insert role to database, set created_at and modified_at
sub insert_role {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- $entry->{created_at} = time::time_to_datetime( time() );
- $entry->{modified_at} = time::time_to_datetime( time() );
+ $entry->{created_at} = time::time_to_datetime( time() );
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $dbh = db::connect($config);
- my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
- my $role = {};
- for my $column ( keys %$columns ) {
- $role->{$column} = $entry->{$column} if defined $entry->{$column};
- }
- db::insert( $dbh, 'calcms_roles', $role );
+ my $dbh = db::connect($config);
+ my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
+ my $role = {};
+ for my $column ( keys %$columns ) {
+ $role->{$column} = $entry->{$column} if defined $entry->{$column};
+ }
+ db::insert( $dbh, 'calcms_roles', $role );
}
#update role, set modified_at
sub update_role {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- $entry->{modified_at} = time::time_to_datetime( time() );
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $dbh = db::connect($config);
- my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
- my $values = join( ",", map { $_ . '=?' } ( keys %$columns ) );
- my @bind_values = map { $entry->{$_} } ( keys %$columns );
- push @bind_values, $entry->{id};
+ my $dbh = db::connect($config);
+ my $columns = db::get_columns_hash( $dbh, 'calcms_roles' );
+ my $values = join( ",", map { $_ . '=?' } ( keys %$columns ) );
+ my @bind_values = map { $entry->{$_} } ( keys %$columns );
+ push @bind_values, $entry->{id};
- my $query = qq{
+ my $query = qq{
update calcms_roles
set $values
where id=?
};
- # print $query."
\n".Dumper(\@bind_values)."
\ņ";
+ # print $query."
\n".Dumper(\@bind_values)."
\ņ";
- db::put( $dbh, $query, \@bind_values );
+ db::put( $dbh, $query, \@bind_values );
}
# delete role from database
sub delete_role {
- my $config = shift;
- my $id = shift;
+ my $config = shift;
+ my $id = shift;
- return unless ( defined $id && ( $id =~ /^\d+$/ ) );
+ return unless ( defined $id && ( $id =~ /^\d+$/ ) );
- my $query = qq{
+ my $query = qq{
delete from calcms_roles
where id=?
};
- my $dbh = db::connect($config);
- db::put( $dbh, $query, [$id] );
+ my $dbh = db::connect($config);
+ db::put( $dbh, $query, [$id] );
}
# get all roles for given conditions: project_id, studio_id, user_id, name
# includes global admin user role
sub get_user_roles {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( defined $condition->{user} ) {
- push @conditions, 'u.name=?';
- push @bind_values, $condition->{user};
- }
- if ( defined $condition->{user_id} ) {
- push @conditions, 'ur.user_id=?';
- push @bind_values, $condition->{user_id};
- }
- if ( defined $condition->{studio_id} ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
- if ( defined $condition->{project_id} ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( defined $condition->{user} ) {
+ push @conditions, 'u.name=?';
+ push @bind_values, $condition->{user};
+ }
+ if ( defined $condition->{user_id} ) {
+ push @conditions, 'ur.user_id=?';
+ push @bind_values, $condition->{user_id};
+ }
+ if ( defined $condition->{studio_id} ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
+ if ( defined $condition->{project_id} ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select distinct r.*
from calcms_users u, calcms_user_roles ur, calcms_roles r
where ur.user_id=u.id and ur.role_id=r.id
$conditions
};
- my $dbh = db::connect($config);
- my $user_roles = db::get( $dbh, $query, \@bind_values );
+ my $dbh = db::connect($config);
+ my $user_roles = db::get( $dbh, $query, \@bind_values );
- #return roles, if the contain an admin role
- for my $role (@$user_roles) {
- return $user_roles if $role->{role} eq 'Admin';
- }
+ #return roles, if the contain an admin role
+ for my $role (@$user_roles) {
+ return $user_roles if $role->{role} eq 'Admin';
+ }
- #get all admin roles
- delete $condition->{studio_id} if defined $condition->{studio_id};
- delete $condition->{project_id} if defined $condition->{project_id};
- my $admin_roles = get_admin_user_roles( $config, $condition );
+ #get all admin roles
+ delete $condition->{studio_id} if defined $condition->{studio_id};
+ delete $condition->{project_id} if defined $condition->{project_id};
+ my $admin_roles = get_admin_user_roles( $config, $condition );
- #add admin roles to user roles
- my @user_roles = ( @$admin_roles, @$user_roles );
- $user_roles = \@user_roles;
+ #add admin roles to user roles
+ my @user_roles = ( @$admin_roles, @$user_roles );
+ $user_roles = \@user_roles;
- return $user_roles;
+ return $user_roles;
}
#return admin user roles for given conditions: project_id, studio_id, user, user_id
sub get_admin_user_roles {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'u.name=?';
- push @bind_values, $condition->{user};
- }
- if ( ( defined $condition->{user_id} ) && ( $condition->{user_id} ne '' ) ) {
- push @conditions, 'ur.user_id=?';
- push @bind_values, $condition->{user_id};
- }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'ur.studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'ur.project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'u.name=?';
+ push @bind_values, $condition->{user};
+ }
+ if ( ( defined $condition->{user_id} ) && ( $condition->{user_id} ne '' ) ) {
+ push @conditions, 'ur.user_id=?';
+ push @bind_values, $condition->{user_id};
+ }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'ur.studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'ur.project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- my $conditions = '';
- $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " and " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select distinct r.*, ur.studio_id, ur.project_id
from calcms_users u, calcms_user_roles ur, calcms_roles r
where ur.user_id=u.id and ur.role_id=r.id and r.role='Admin'
@@ -462,371 +462,371 @@ sub get_admin_user_roles {
limit 1
};
- my $dbh = db::connect($config);
- my $user_roles = db::get( $dbh, $query, \@bind_values );
- return $user_roles;
+ my $dbh = db::connect($config);
+ my $user_roles = db::get( $dbh, $query, \@bind_values );
+ return $user_roles;
}
# read permissions for given conditions and add to user_permissions
# return user_permissions
# studio_id, user_id, name
sub get_user_permissions {
- my $config = shift;
- my $conditions = shift;
- my $user_permissions = shift;
+ my $config = shift;
+ my $conditions = shift;
+ my $user_permissions = shift;
- my $user_roles = get_user_roles( $config, $conditions );
- my $admin_roles = get_admin_user_roles( $config, $conditions );
- my @user_roles = ( @$admin_roles, @$user_roles );
+ my $user_roles = get_user_roles( $config, $conditions );
+ my $admin_roles = get_admin_user_roles( $config, $conditions );
+ my @user_roles = ( @$admin_roles, @$user_roles );
- #set default permissions
- $user_permissions = {} unless ( defined $user_permissions );
- $user_permissions->{is_admin} = 1 if ( scalar @$admin_roles > 0 );
+ #set default permissions
+ $user_permissions = {} unless ( defined $user_permissions );
+ $user_permissions->{is_admin} = 1 if ( scalar @$admin_roles > 0 );
- my $max_level = 0;
+ my $max_level = 0;
- # aggregate max permissions
- # should be limited by project and studio
- for my $user_role (@user_roles) {
- if ( $user_role->{level} > $max_level ) {
- $user_permissions->{level} = $user_role->{level};
- $user_permissions->{id} = $user_role->{id};
- $user_permissions->{role} = $user_role->{role};
- $user_permissions->{studio_id} = $user_role->{studio_id};
- $user_permissions->{project_id} = $user_role->{project_id};
- $max_level = $user_role->{level};
- }
- for my $permission ( keys %$user_role ) {
- if ( ( $permission ne 'level' )
- && ( $permission ne 'id' )
- && ( $permission ne 'role' )
- && ( $permission ne 'studio_id' )
- && ( $permission ne 'project_id' ) )
- {
- $user_permissions->{$permission} = 1 if ( ( defined $user_role->{$permission} ) && ( $user_role->{$permission} ne '0' ) );
- }
- }
- }
- return $user_permissions;
+ # aggregate max permissions
+ # should be limited by project and studio
+ for my $user_role (@user_roles) {
+ if ( $user_role->{level} > $max_level ) {
+ $user_permissions->{level} = $user_role->{level};
+ $user_permissions->{id} = $user_role->{id};
+ $user_permissions->{role} = $user_role->{role};
+ $user_permissions->{studio_id} = $user_role->{studio_id};
+ $user_permissions->{project_id} = $user_role->{project_id};
+ $max_level = $user_role->{level};
+ }
+ for my $permission ( keys %$user_role ) {
+ if ( ( $permission ne 'level' )
+ && ( $permission ne 'id' )
+ && ( $permission ne 'role' )
+ && ( $permission ne 'studio_id' )
+ && ( $permission ne 'project_id' ) )
+ {
+ $user_permissions->{$permission} = 1 if ( defined $user_role->{$permission} ) && ( $user_role->{$permission} ne '0' );
+ }
+ }
+ }
+ return $user_permissions;
}
#get user id by user name
sub get_user_id {
- my $config = shift;
- my $user = shift;
+ my $config = shift;
+ my $user = shift;
- return undef unless ( defined $user );
+ return undef unless ( defined $user );
- my $query = qq{
+ my $query = qq{
select id
from calcms_users
where binary name=?
};
- my $dbh = db::connect($config);
- my $users = db::get( $dbh, $query, [$user] );
- return undef if ( @$users == 0 );
- return $users->[0]->{id};
+ my $dbh = db::connect($config);
+ my $users = db::get( $dbh, $query, [$user] );
+ return undef if scalar @$users == 0;
+ return $users->[0]->{id};
}
#get role id by role name
sub get_role_id {
- my $config = shift;
- my $role = shift;
+ my $config = shift;
+ my $role = shift;
- return undef unless ( defined $role );
+ return undef unless ( defined $role );
- my $query = qq{
+ my $query = qq{
select id
from calcms_roles
where role=?
};
- my $dbh = db::connect($config);
- my $roles = db::get( $dbh, $query, [$role] );
- return undef if ( @$roles == 0 );
- return $roles->[0]->{id};
+ my $dbh = db::connect($config);
+ my $roles = db::get( $dbh, $query, [$role] );
+ return undef if scalar @$roles == 0;
+ return $roles->[0]->{id};
}
# assign a role to an user (for a studio)
sub assign_user_role {
- my $config = shift;
- my $options = shift;
+ my $config = shift;
+ my $options = shift;
- #print STDERR Dumper($options);
- return undef unless defined $options->{project_id};
- return undef unless defined $options->{studio_id};
- return undef unless defined $options->{user_id};
- return undef unless defined $options->{role_id};
+ #print STDERR Dumper($options);
+ return undef unless defined $options->{project_id};
+ return undef unless defined $options->{studio_id};
+ return undef unless defined $options->{user_id};
+ return undef unless defined $options->{role_id};
- #return if already exists
- my $query = qq{
+ #return if already exists
+ my $query = qq{
select *
from calcms_user_roles
where project_id=? and studio_id=? and user_id=? and role_id=?
};
- my $dbh = db::connect($config);
- my $user_roles = db::get( $dbh, $query, [ $options->{project_id}, $options->{studio_id}, $options->{user_id}, $options->{role_id} ] );
- return undef if ( @$user_roles > 0 );
+ my $dbh = db::connect($config);
+ my $user_roles = db::get( $dbh, $query, [ $options->{project_id}, $options->{studio_id}, $options->{user_id}, $options->{role_id} ] );
+ return undef if scalar @$user_roles > 0;
- #insert entry
- my $entry = {
- project_id => $options->{project_id},
- studio_id => $options->{studio_id},
- user_id => $options->{user_id},
- role_id => $options->{role_id},
- created_at => time::time_to_datetime( time() )
- };
+ #insert entry
+ my $entry = {
+ project_id => $options->{project_id},
+ studio_id => $options->{studio_id},
+ user_id => $options->{user_id},
+ role_id => $options->{role_id},
+ created_at => time::time_to_datetime( time() )
+ };
- return db::insert( $dbh, 'calcms_user_roles', $entry );
+ return db::insert( $dbh, 'calcms_user_roles', $entry );
}
# unassign a user from a role of (for a studio)
sub remove_user_role {
- my $config = shift;
- my $options = shift;
+ my $config = shift;
+ my $options = shift;
- return undef unless defined $options->{project_id};
- return undef unless defined $options->{studio_id};
- return undef unless defined $options->{user_id};
- return undef unless defined $options->{role_id};
+ return undef unless defined $options->{project_id};
+ return undef unless defined $options->{studio_id};
+ return undef unless defined $options->{user_id};
+ return undef unless defined $options->{role_id};
- my $query = qq{
+ my $query = qq{
delete
from calcms_user_roles
where project_id=? and studio_id=? and user_id=? and role_id=?
};
- my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{user_id}, $options->{role_id} ];
+ my $bind_values = [ $options->{project_id}, $options->{studio_id}, $options->{user_id}, $options->{role_id} ];
- #print STDERR Dumper($query).Dumper($bind_values);
- my $dbh = db::connect($config);
- my $result = db::put( $dbh, $query, $bind_values );
+ #print STDERR Dumper($query).Dumper($bind_values);
+ my $dbh = db::connect($config);
+ my $result = db::put( $dbh, $query, $bind_values );
- # successfully return even if no entry exists
- return 1;
+ # successfully return even if no entry exists
+ return 1;
}
#checks
sub is_user_assigned_to_studio {
- my $request = shift;
- my $options = shift;
+ my $request = shift;
+ my $options = shift;
- my $config = $request->{config};
+ my $config = $request->{config};
- return 0 unless defined $request->{user};
- return 0 unless defined $options->{studio_id};
- return 0 unless defined $options->{project_id};
+ return 0 unless defined $request->{user};
+ return 0 unless defined $options->{studio_id};
+ return 0 unless defined $options->{project_id};
- my $options2 = {
- user => $request->{user},
- studio_id => $options->{studio_id},
- project_id => $options->{project_id}
- };
+ my $options2 = {
+ user => $request->{user},
+ studio_id => $options->{studio_id},
+ project_id => $options->{project_id}
+ };
- my $user_studios = uac::get_studios_by_user( $config, $options2 );
- return 1 if ( @$user_studios == 1 );
- return 0;
+ my $user_studios = uac::get_studios_by_user( $config, $options2 );
+ return 1 if scalar @$user_studios == 1;
+ return 0;
}
# print errors at get_user_presets and check for project id and studio id
# call after header is printed
sub check {
- my $config = shift;
- my $params = shift;
- my $user_presets = shift;
+ my $config = shift;
+ my $params = shift;
+ my $user_presets = shift;
- if ( defined $user_presets->{error} ) {
- uac::print_error( $user_presets->{error} );
- return undef;
- }
+ if ( defined $user_presets->{error} ) {
+ uac::print_error( $user_presets->{error} );
+ return undef;
+ }
- my $project_check = project::check( $config, { project_id => $params->{project_id} } );
- if ( $project_check ne '1' ) {
- uac::print_error($project_check);
- return undef;
- }
+ my $project_check = project::check( $config, { project_id => $params->{project_id} } );
+ if ( $project_check ne '1' ) {
+ uac::print_error($project_check);
+ return undef;
+ }
- my $studio_check = studios::check( $config, { studio_id => $params->{studio_id} } );
- if ( $studio_check ne '1' ) {
- uac::print_error($studio_check);
- return undef;
- }
- return 1;
+ my $studio_check = studios::check( $config, { studio_id => $params->{studio_id} } );
+ if ( $studio_check ne '1' ) {
+ uac::print_error($studio_check);
+ return undef;
+ }
+ return 1;
}
# get user, projects and studios user is assigned to for selected values from params
# set permissions for selected project and studio
# return request
sub get_user_presets {
- my $config = shift;
- my $options = shift;
+ my $config = shift;
+ my $options = shift;
- my $user = $options->{user} || '';
- my $error = undef;
- return { error => "no user selected" } if ( $user eq '' );
+ my $user = $options->{user} || '';
+ my $error = undef;
+ return { error => "no user selected" } if ( $user eq '' );
- my $project_id = $options->{project_id} || '';
- my $studio_id = $options->{studio_id} || '';
- $config->{access}->{write} = 0;
+ my $project_id = $options->{project_id} || '';
+ my $studio_id = $options->{studio_id} || '';
+ $config->{access}->{write} = 0;
- #get
- my $admin_roles = get_admin_user_roles( $config, { user => $user } );
+ #get
+ my $admin_roles = get_admin_user_roles( $config, { user => $user } );
- #get all projects by user
- my $projects = uac::get_projects_by_user( $config, { user => $user } );
- return { error => "no project is assigned to user" } if ( @$projects == 0 );
+ #get all projects by user
+ my $projects = uac::get_projects_by_user( $config, { user => $user } );
+ return { error => "no project is assigned to user" } if scalar @$projects == 0;
- $projects = project::get($config) if ( @$admin_roles > 0 );
- my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects);
- $projects = \@projects;
+ $projects = project::get($config) if ( @$admin_roles > 0 );
+ my @projects = reverse sort { $a->{end_date} cmp $b->{end_date} } (@$projects);
+ $projects = \@projects;
- if ( $project_id ne '' && $project_id ne '-1' ) {
- my $projectFound = 0;
- for my $project (@$projects) {
- if ( $project->{project_id} eq $project_id ) {
- $projectFound = 1;
- last;
- }
- }
- return { error => "project is not assigned to user" } if ( $projectFound == 0 );
- } else {
- $project_id = $projects->[0]->{project_id};
- }
+ if ( $project_id ne '' && $project_id ne '-1' ) {
+ my $projectFound = 0;
+ for my $project (@$projects) {
+ if ( $project->{project_id} eq $project_id ) {
+ $projectFound = 1;
+ last;
+ }
+ }
+ return { error => "project is not assigned to user" } if ( $projectFound == 0 );
+ } else {
+ $project_id = $projects->[0]->{project_id};
+ }
- #print STDERR "project:$project_id\n";
+ #print STDERR "project:$project_id\n";
- #check if studios are assigned to project
- my $studios = project::get_studios( $config, { project_id => $project_id } );
- $error = "no studio is assigned to project" if ( @$studios == 0 );
+ #check if studios are assigned to project
+ my $studios = project::get_studios( $config, { project_id => $project_id } );
+ $error = "no studio is assigned to project" if scalar @$studios == 0;
- if ( @$admin_roles == 0 ) {
+ if ( scalar @$admin_roles == 0 ) {
- #get all studios by user
- $studios = uac::get_studios_by_user( $config, { user => $user, project_id => $project_id } );
- $error = "no studio is assigned to user" if ( @$studios == 0 );
- if ( ( $studio_id ne '' ) && ( $studio_id ne '-1' ) ) {
- my $studioFound = 0;
- for my $studio (@$studios) {
- if ( $studio->{id} eq $studio_id ) {
- $studioFound = 1;
- last;
- }
- }
- $error = "studio is not assigned to user" if ( $studioFound == 0 );
- } else {
- $studio_id = $studios->[0]->{id};
- }
- } else {
+ #get all studios by user
+ $studios = uac::get_studios_by_user( $config, { user => $user, project_id => $project_id } );
+ $error = "no studio is assigned to user" if scalar @$studios == 0;
+ if ( ( $studio_id ne '' ) && ( $studio_id ne '-1' ) ) {
+ my $studioFound = 0;
+ for my $studio (@$studios) {
+ if ( $studio->{id} eq $studio_id ) {
+ $studioFound = 1;
+ last;
+ }
+ }
+ $error = "studio is not assigned to user" if ( $studioFound == 0 );
+ } else {
+ $studio_id = $studios->[0]->{id};
+ }
+ } else {
- #for admin get studios by project
- $studios = studios::get( $config, { project_id => $project_id } );
- if ( ( $studio_id ne '' ) && ( $studio_id ne '-1' ) ) {
- my $studioFound = 0;
- for my $studio (@$studios) {
- if ( $studio->{id} eq $studio_id ) {
- $studioFound = 1;
- last;
- }
- }
- $error = "studio is not assigned to project" if ( $studioFound == 0 );
- } else {
- $studio_id = $studios->[0]->{id};
- }
- }
+ #for admin get studios by project
+ $studios = studios::get( $config, { project_id => $project_id } );
+ if ( ( $studio_id ne '' ) && ( $studio_id ne '-1' ) ) {
+ my $studioFound = 0;
+ for my $studio (@$studios) {
+ if ( $studio->{id} eq $studio_id ) {
+ $studioFound = 1;
+ last;
+ }
+ }
+ $error = "studio is not assigned to project" if ( $studioFound == 0 );
+ } else {
+ $studio_id = $studios->[0]->{id};
+ }
+ }
- my $permissions = uac::get_user_permissions( $config, { user => $user, project_id => $project_id, studio_id => $studio_id } );
+ my $permissions = uac::get_user_permissions( $config, { user => $user, project_id => $project_id, studio_id => $studio_id } );
- #only admin is allowed to select all projects
- # if($permissions->{is_admin}==1){
- # $projects=project::get($config);
- # }
+ #only admin is allowed to select all projects
+ # if($permissions->{is_admin}==1){
+ # $projects=project::get($config);
+ # }
- #set studios and projects as selected, TODO:do in JS
- my $selectedProject = {};
- for my $project (@$projects) {
- if ( $project_id eq $project->{project_id} ) {
- $project->{selected} = 'selected="selected"';
- $selectedProject = $project;
- last;
- }
- }
+ #set studios and projects as selected, TODO:do in JS
+ my $selectedProject = {};
+ for my $project (@$projects) {
+ if ( $project_id eq $project->{project_id} ) {
+ $project->{selected} = 'selected="selected"';
+ $selectedProject = $project;
+ last;
+ }
+ }
- my $selectedStudio = {};
- for my $studio (@$studios) {
- if ( $studio_id eq $studio->{id} ) {
- $studio->{selected} = 'selected="selected"';
- $selectedStudio = $studio;
- last;
- }
- }
+ my $selectedStudio = {};
+ for my $studio (@$studios) {
+ if ( $studio_id eq $studio->{id} ) {
+ $studio->{selected} = 'selected="selected"';
+ $selectedStudio = $studio;
+ last;
+ }
+ }
- my $logout_url = ( split( /\//, $0 ) )[-1];
+ my $logout_url = ( split( /\//, $0 ) )[-1];
- #print STDERR "ok\n";
- my $result = {
- user => $user,
- logout_url => $logout_url,
+ #print STDERR "ok\n";
+ my $result = {
+ user => $user,
+ logout_url => $logout_url,
- project_id => $project_id, # from parameter or default
- projects => $projects,
- project => $selectedProject,
+ project_id => $project_id, # from parameter or default
+ projects => $projects,
+ project => $selectedProject,
- studio_id => $studio_id, # from parameter or default
- studios => $studios,
- studio => $selectedStudio,
+ studio_id => $studio_id, # from parameter or default
+ studios => $studios,
+ studio => $selectedStudio,
- permissions => $permissions, # from parameter or default
- config => $config
- };
- $result->{error} = $error if defined $error;
- return $result;
+ permissions => $permissions, # from parameter or default
+ config => $config
+ };
+ $result->{error} = $error if defined $error;
+ return $result;
}
#set user preset properties to request
sub prepare_request {
- my $request = shift;
- my $user_presets = shift;
+ my $request = shift;
+ my $user_presets = shift;
- for my $key ( keys %$user_presets ) {
- $request->{$key} = $user_presets->{$key};
- }
+ for my $key ( keys %$user_presets ) {
+ $request->{$key} = $user_presets->{$key};
+ }
- #enrich menu parameters
- for my $key ( 'studio_id', 'project_id', 'studio', 'project', 'studios', 'projects', 'user', 'logout_url' ) {
- $request->{params}->{checked}->{presets}->{$key} = $user_presets->{$key};
- }
- return $request;
+ #enrich menu parameters
+ for my $key ( 'studio_id', 'project_id', 'studio', 'project', 'studios', 'projects', 'user', 'logout_url' ) {
+ $request->{params}->{checked}->{presets}->{$key} = $user_presets->{$key};
+ }
+ return $request;
}
#TODO: shift to permissions sub entry
sub set_template_permissions {
- my $permissions = shift;
- my $params = shift;
+ my $permissions = shift;
+ my $params = shift;
- for my $usecase ( keys %$permissions ) {
- $params->{'allow'}->{$usecase} = 1 if ( $permissions->{$usecase} eq '1' );
- }
- return $params;
+ for my $usecase ( keys %$permissions ) {
+ $params->{'allow'}->{$usecase} = 1 if ( $permissions->{$usecase} eq '1' );
+ }
+ return $params;
}
#print error message
sub permissions_denied {
- my $message = shift;
- $message =~ s/_/ /g;
- print 'Sorry! Missing permissions to ' . $message . '' . "\n";
- print STDERR 'Sorry! Missing permissions to ' . $message . "\n";
+ my $message = shift;
+ $message =~ s/_/ /g;
+ print 'Sorry! Missing permissions to ' . $message . '' . "\n";
+ print STDERR 'Sorry! Missing permissions to ' . $message . "\n";
}
sub print_info {
- print '' . ' ' . $_[0] . '' . "\n";
+ print '' . ' ' . $_[0] . '' . "\n";
}
sub print_warn {
- print '' . ' ' . $_[0] . '' . "\n";
+ print '' . ' ' . $_[0] . '' . "\n";
}
sub print_error {
- my $message = shift;
- print STDERR "ERROR:" . $message . "\n";
- print '' . ' ' . $message . '' . "\n";
+ my $message = shift;
+ print STDERR "ERROR:" . $message . "\n";
+ print '' . ' ' . $message . '' . "\n";
}
#do not delete last line!
diff --git a/lib/calcms/user_settings.pm b/lib/calcms/user_settings.pm
index 07b06bb..5b0aa68 100644
--- a/lib/calcms/user_settings.pm
+++ b/lib/calcms/user_settings.pm
@@ -14,218 +14,218 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
our $defaultColors = [
- {
- name => 'color_event',
- css => '#content .event',
- color => '#c5e1a5'
- },
- {
- name => 'color_draft',
- css => '#content .draft',
- color => '#eeeeee',
- },
- {
- name => 'color_schedule',
- css => '#content .schedule',
- color => '#dde4e6',
- },
- {
- name => 'color_published',
- css => '#content .event.published',
- color => '#a5d6a7',
- },
- {
- name => 'color_no_series',
- css => '#content .event.no_series',
- color => '#fff59d',
- },
- {
- name => 'color_marked',
- css => '#content .event.marked',
- color => '#81d4fa',
- },
- {
- name => 'color_event_error',
- css => '#content.conflicts .event.error',
- color => '#ffab91',
- },
- {
- name => 'color_schedule_error',
- css => '#content.conflicts .schedule.error',
- color => '#ffcc80'
- },
- {
- name => 'color_work',
- css => '#content .work',
- color => '#b39ddb'
- },
- {
- name => 'color_playout',
- css => '#content .play',
- color => '#90caf9'
- }
+ {
+ name => 'color_event',
+ css => '#content .event',
+ color => '#c5e1a5'
+ },
+ {
+ name => 'color_draft',
+ css => '#content .draft',
+ color => '#eeeeee',
+ },
+ {
+ name => 'color_schedule',
+ css => '#content .schedule',
+ color => '#dde4e6',
+ },
+ {
+ name => 'color_published',
+ css => '#content .event.published',
+ color => '#a5d6a7',
+ },
+ {
+ name => 'color_no_series',
+ css => '#content .event.no_series',
+ color => '#fff59d',
+ },
+ {
+ name => 'color_marked',
+ css => '#content .event.marked',
+ color => '#81d4fa',
+ },
+ {
+ name => 'color_event_error',
+ css => '#content.conflicts .event.error',
+ color => '#ffab91',
+ },
+ {
+ name => 'color_schedule_error',
+ css => '#content.conflicts .schedule.error',
+ color => '#ffcc80'
+ },
+ {
+ name => 'color_work',
+ css => '#content .work',
+ color => '#b39ddb'
+ },
+ {
+ name => 'color_playout',
+ css => '#content .play',
+ color => '#90caf9'
+ }
];
sub getColors {
- my $config = shift;
- my $conditions = shift;
- return unless defined $conditions->{user};
- my $user = $conditions->{user};
+ my $config = shift;
+ my $conditions = shift;
+ return unless defined $conditions->{user};
+ my $user = $conditions->{user};
- #get defaultColors
- my $colors = [];
- my $colorMap = {};
- for my $defaultColor (@$defaultColors) {
- my $color = {
- name => $defaultColor->{name},
- css => $defaultColor->{css},
- color => $defaultColor->{color},
- };
- push @$colors, $color;
- $colorMap->{ $color->{css} } = $color;
- }
+ #get defaultColors
+ my $colors = [];
+ my $colorMap = {};
+ for my $defaultColor (@$defaultColors) {
+ my $color = {
+ name => $defaultColor->{name},
+ css => $defaultColor->{css},
+ color => $defaultColor->{color},
+ };
+ push @$colors, $color;
+ $colorMap->{ $color->{css} } = $color;
+ }
- my $settings = user_settings::get( $config, { user => $user } );
- $settings->{colors} |= '';
+ my $settings = user_settings::get( $config, { user => $user } );
+ $settings->{colors} |= '';
- #overwrite colors from user settings
- for my $line ( split( /\n+/, $settings->{colors} ) ) {
- my ( $key, $value ) = split( /\=/, $line );
- $key =~ s/^\s+//;
- $key =~ s/\s+$//;
- $value =~ s/^\s+//;
- $value =~ s/\s+$//;
- $colorMap->{$key}->{color} = $value if ( ( $key ne '' ) && ( $value ne '' ) && ( defined $colorMap->{$key} ) );
- }
- return $colors;
+ #overwrite colors from user settings
+ for my $line ( split( /\n+/, $settings->{colors} ) ) {
+ my ( $key, $value ) = split( /\=/, $line );
+ $key =~ s/^\s+//;
+ $key =~ s/\s+$//;
+ $value =~ s/^\s+//;
+ $value =~ s/\s+$//;
+ $colorMap->{$key}->{color} = $value if ( $key ne '' ) && ( $value ne '' ) && ( defined $colorMap->{$key} ) ;
+ }
+ return $colors;
}
sub getColorCss {
- my $config = shift;
- my $conditions = shift;
- return unless defined $conditions->{user};
+ my $config = shift;
+ my $conditions = shift;
+ return unless defined $conditions->{user};
- my $shift = 20;
- my $limit = 220;
+ my $shift = 20;
+ my $limit = 220;
- my $colors = getColors( $config, $conditions );
- my $style = "\n";
- return $style;
+ my $colors = getColors( $config, $conditions );
+ my $style = "\n";
+ return $style;
}
sub get_columns {
- my $config = shift;
+ my $config = shift;
- my $dbh = db::connect($config);
- my $cols = db::get_columns( $dbh, 'calcms_user_settings' );
- my $columns = {};
- for my $col (@$cols) {
- $columns->{$col} = 1;
- }
- return $columns;
+ my $dbh = db::connect($config);
+ my $cols = db::get_columns( $dbh, 'calcms_user_settings' );
+ my $columns = {};
+ for my $col (@$cols) {
+ $columns->{$col} = 1;
+ }
+ return $columns;
}
sub get {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'user=?';
- push @bind_values, $condition->{user};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'user=?';
+ push @bind_values, $condition->{user};
+ }
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select *
from calcms_user_settings
$conditions
};
- #print $query."\n";
- #print Dumper(\@bind_values);
+ #print $query."\n";
+ #print Dumper(\@bind_values);
- my $entries = db::get( $dbh, $query, \@bind_values );
- return $entries->[0] || undef;
+ my $entries = db::get( $dbh, $query, \@bind_values );
+ return $entries->[0] || undef;
}
sub insert {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- return unless ( defined $entry->{user} );
- return unless ( defined $entry->{colors} );
- my $dbh = db::connect($config);
- return db::insert( $dbh, 'calcms_user_settings', $entry );
+ return unless ( defined $entry->{user} );
+ return unless ( defined $entry->{colors} );
+ my $dbh = db::connect($config);
+ return db::insert( $dbh, 'calcms_user_settings', $entry );
}
sub update {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- return unless ( defined $entry->{user} );
- return unless ( defined $entry->{colors} );
+ return unless ( defined $entry->{user} );
+ return unless ( defined $entry->{colors} );
- my $dbh = db::connect($config);
- my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
- my @bind_values = map { $entry->{$_} } ( keys %$entry );
- push @bind_values, $entry->{user};
+ my $dbh = db::connect($config);
+ my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
+ my @bind_values = map { $entry->{$_} } ( keys %$entry );
+ push @bind_values, $entry->{user};
- my $query = qq{
+ my $query = qq{
update calcms_user_settings
set $values
where user=?
};
- db::put( $dbh, $query, \@bind_values );
- print "done\n";
+ db::put( $dbh, $query, \@bind_values );
+ print "done\n";
}
sub delete {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- return unless ( defined $entry->{user} );
+ return unless ( defined $entry->{user} );
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my $query = qq{
+ my $query = qq{
delete
from calcms_user_settings
where user=?
};
- my $bind_values = [ $entry->{user} ];
+ my $bind_values = [ $entry->{user} ];
- #print '$query'.$query.Dumper($bind_values).'
';
- db::put( $dbh, $query, $bind_values );
+ #print '$query'.$query.Dumper($bind_values).'
';
+ db::put( $dbh, $query, $bind_values );
}
sub error {
- my $msg = shift;
- print "ERROR: $msg
\n";
+ my $msg = shift;
+ print "ERROR: $msg
\n";
}
#do not delete last line!
diff --git a/lib/calcms/user_stats.pm b/lib/calcms/user_stats.pm
index 6f80503..8aace0d 100644
--- a/lib/calcms/user_stats.pm
+++ b/lib/calcms/user_stats.pm
@@ -13,55 +13,55 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
- my $config = shift;
+ my $config = shift;
- my $dbh = db::connect($config);
- my $cols = db::get_columns( $dbh, 'calcms_user_stats' );
- my $columns = {};
- for my $col (@$cols) {
- $columns->{$col} = 1;
- }
- return $columns;
+ my $dbh = db::connect($config);
+ my $cols = db::get_columns( $dbh, 'calcms_user_stats' );
+ my $columns = {};
+ for my $col (@$cols) {
+ $columns->{$col} = 1;
+ }
+ return $columns;
}
sub get {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
- push @conditions, 'series_id=?';
- push @bind_values, $condition->{series_id};
- }
+ if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
+ push @conditions, 'series_id=?';
+ push @bind_values, $condition->{series_id};
+ }
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'user=?';
- push @bind_values, $condition->{user};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'user=?';
+ push @bind_values, $condition->{user};
+ }
- my $limit = '';
- if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
- $limit = 'limit ' . $condition->{limit};
- }
+ my $limit = '';
+ if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
+ $limit = 'limit ' . $condition->{limit};
+ }
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select *
from calcms_user_stats
$conditions
@@ -69,50 +69,50 @@ sub get {
$limit
};
- #print STDERR Dumper($query).Dumper(\@bind_values);
+ #print STDERR Dumper($query).Dumper(\@bind_values);
- my $results = db::get( $dbh, $query, \@bind_values );
- return $results;
+ my $results = db::get( $dbh, $query, \@bind_values );
+ return $results;
}
sub get_stats {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
- push @conditions, 'series_id=?';
- push @bind_values, $condition->{series_id};
- }
+ if ( ( defined $condition->{series_id} ) && ( $condition->{series_id} ne '' ) ) {
+ push @conditions, 'series_id=?';
+ push @bind_values, $condition->{series_id};
+ }
- if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
- push @conditions, 'user=?';
- push @bind_values, $condition->{user};
- }
+ if ( ( defined $condition->{user} ) && ( $condition->{user} ne '' ) ) {
+ push @conditions, 'user=?';
+ push @bind_values, $condition->{user};
+ }
- my $limit = '';
- if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
- $limit = 'limit ' . $condition->{limit};
- }
+ my $limit = '';
+ if ( ( defined $condition->{limit} ) && ( $condition->{limit} ne '' ) ) {
+ $limit = 'limit ' . $condition->{limit};
+ }
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select user, project_id, studio_id,
max(modified_at) modified_at,
sum(create_events) create_events,
@@ -127,126 +127,126 @@ sub get_stats {
$limit
};
- #print STDERR Dumper($query).Dumper(\@bind_values);
+ #print STDERR Dumper($query).Dumper(\@bind_values);
- my $results = db::get( $dbh, $query, \@bind_values );
- for my $result (@$results) {
- $result->{score} = 0;
- for my $column ( 'create_events', 'update_events', 'delete_events', 'create_series', 'update_series', 'delete_series' ) {
- $result->{score} += $result->{$column};
- }
- }
- my @results = reverse sort { $a->{score} <=> $b->{score} } @$results;
- return \@results;
+ my $results = db::get( $dbh, $query, \@bind_values );
+ for my $result (@$results) {
+ $result->{score} = 0;
+ for my $column ( 'create_events', 'update_events', 'delete_events', 'create_series', 'update_series', 'delete_series' ) {
+ $result->{score} += $result->{$column};
+ }
+ }
+ my @results = reverse sort { $a->{score} <=> $b->{score} } @$results;
+ return \@results;
}
sub insert {
- my $config = shift;
- my $stats = shift;
+ my $config = shift;
+ my $stats = shift;
- return undef unless defined $stats->{project_id};
- return undef unless defined $stats->{studio_id};
- return undef unless defined $stats->{series_id};
- return undef unless defined $stats->{user};
+ return undef unless defined $stats->{project_id};
+ return undef unless defined $stats->{studio_id};
+ return undef unless defined $stats->{series_id};
+ return undef unless defined $stats->{user};
- #TODO:filter for existing attributes
- my $columns = get_columns($config);
- my $entry = {};
- for my $column ( keys %$columns ) {
- $entry->{$column} = $stats->{$column} if defined $stats->{$column};
- }
- $entry->{modified_at} = time::time_to_datetime( time() );
+ #TODO:filter for existing attributes
+ my $columns = get_columns($config);
+ my $entry = {};
+ for my $column ( keys %$columns ) {
+ $entry->{$column} = $stats->{$column} if defined $stats->{$column};
+ }
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $dbh = db::connect($config);
- my $id = db::insert( $dbh, 'calcms_user_stats', $entry );
- return $id;
+ my $dbh = db::connect($config);
+ my $id = db::insert( $dbh, 'calcms_user_stats', $entry );
+ return $id;
}
# update project
sub update {
- my $config = shift;
- my $stats = shift;
+ my $config = shift;
+ my $stats = shift;
- return undef unless defined $stats->{project_id};
- return undef unless defined $stats->{studio_id};
- return undef unless defined $stats->{series_id};
- return undef unless defined $stats->{user};
+ return undef unless defined $stats->{project_id};
+ return undef unless defined $stats->{studio_id};
+ return undef unless defined $stats->{series_id};
+ return undef unless defined $stats->{user};
- my $columns = get_columns($config);
- my $entry = {};
- for my $column ( keys %$columns ) {
- $entry->{$column} = $stats->{$column} if defined $stats->{$column};
- }
- $entry->{modified_at} = time::time_to_datetime( time() );
+ my $columns = get_columns($config);
+ my $entry = {};
+ for my $column ( keys %$columns ) {
+ $entry->{$column} = $stats->{$column} if defined $stats->{$column};
+ }
+ $entry->{modified_at} = time::time_to_datetime( time() );
- my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
- my @bind_values = map { $entry->{$_} } ( keys %$entry );
- push @bind_values, $entry->{user};
- push @bind_values, $entry->{project_id};
- push @bind_values, $entry->{studio_id};
- push @bind_values, $entry->{series_id};
+ my $values = join( ",", map { $_ . '=?' } ( keys %$entry ) );
+ my @bind_values = map { $entry->{$_} } ( keys %$entry );
+ push @bind_values, $entry->{user};
+ push @bind_values, $entry->{project_id};
+ push @bind_values, $entry->{studio_id};
+ push @bind_values, $entry->{series_id};
- my $query = qq{
+ my $query = qq{
update calcms_user_stats
set $values
where user=? and project_id=? and studio_id=? and series_id=?
};
- #print STDERR Dumper($query).Dumper(\@bind_values);
- my $dbh = db::connect($config);
- return db::put( $dbh, $query, \@bind_values );
+ #print STDERR Dumper($query).Dumper(\@bind_values);
+ my $dbh = db::connect($config);
+ return db::put( $dbh, $query, \@bind_values );
}
sub increase {
- my $config = shift;
- my $usecase = shift;
- my $options = shift;
+ my $config = shift;
+ my $usecase = shift;
+ my $options = shift;
- #print STDERR Dumper($usecase)." ".Dumper($options);
+ #print STDERR Dumper($usecase)." ".Dumper($options);
- return undef unless defined $usecase;
- return undef unless defined $options->{project_id};
- return undef unless defined $options->{studio_id};
- return undef unless defined $options->{series_id};
- return undef unless defined $options->{user};
+ return undef unless defined $usecase;
+ return undef unless defined $options->{project_id};
+ return undef unless defined $options->{studio_id};
+ return undef unless defined $options->{series_id};
+ return undef unless defined $options->{user};
- #print STDERR "ok\n";
+ #print STDERR "ok\n";
- my $columns = get_columns($config);
+ my $columns = get_columns($config);
- #print STDERR "columns:".Dumper($columns);
- return undef unless defined $columns->{$usecase};
+ #print STDERR "columns:".Dumper($columns);
+ return undef unless defined $columns->{$usecase};
- my $entries = get( $config, $options );
+ my $entries = get( $config, $options );
- #print STDERR "exist:".Dumper($columns);
+ #print STDERR "exist:".Dumper($columns);
- if ( @$entries == 0 ) {
- my $entry = {
- project_id => $options->{project_id},
- studio_id => $options->{studio_id},
- series_id => $options->{series_id},
- user => $options->{user},
- $usecase => 1,
- };
+ if ( scalar @$entries == 0 ) {
+ my $entry = {
+ project_id => $options->{project_id},
+ studio_id => $options->{studio_id},
+ series_id => $options->{series_id},
+ user => $options->{user},
+ $usecase => 1,
+ };
- #print STDERR "user_stats::insert\n";
- return insert( $config, $entry );
- } elsif ( @$entries == 1 ) {
- my $entry = $entries->[0];
- $entry->{$usecase}++ if defined
+ #print STDERR "user_stats::insert\n";
+ return insert( $config, $entry );
+ } elsif ( scalar @$entries == 1 ) {
+ my $entry = $entries->[0];
+ $entry->{$usecase}++ if defined
- #print STDERR "user_stats::update\n";
- return update( $config, $entry );
- } else {
- print STDERR "user_stats: to few options given: $usecase," . Dumper($options) . "\n";
- }
+ #print STDERR "user_stats::update\n";
+ return update( $config, $entry );
+ } else {
+ print STDERR "user_stats: to few options given: $usecase," . Dumper($options) . "\n";
+ }
}
sub error {
- my $msg = shift;
- print "ERROR: $msg
\n";
+ my $msg = shift;
+ print "ERROR: $msg
\n";
}
#do not delete last line!
diff --git a/lib/calcms/work_dates.pm b/lib/calcms/work_dates.pm
index 7f8d09f..91e0132 100644
--- a/lib/calcms/work_dates.pm
+++ b/lib/calcms/work_dates.pm
@@ -22,80 +22,80 @@ our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
sub debug;
sub get_columns {
- my $config = shift;
+ my $config = shift;
- my $dbh = db::connect($config);
- my $cols = db::get_columns( $dbh, 'calcms_work_dates' );
- my $columns = {};
- for my $col (@$cols) {
- $columns->{$col} = 1;
- }
- return $columns;
+ my $dbh = db::connect($config);
+ my $cols = db::get_columns( $dbh, 'calcms_work_dates' );
+ my $columns = {};
+ for my $col (@$cols) {
+ $columns->{$col} = 1;
+ }
+ return $columns;
}
# get all work_dates for studio_id and schedule_id within given time range
# calculate start_date, end_date, weeday, day from start and end(datetime)
sub get {
- my $config = shift;
- my $condition = shift;
+ my $config = shift;
+ my $condition = shift;
- my $date_range_include = 0;
- $date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
+ my $date_range_include = 0;
+ $date_range_include = 1 if ( defined $condition->{date_range_include} ) && ( $condition->{date_range_include} == 1 );
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my @conditions = ();
- my @bind_values = ();
+ my @conditions = ();
+ my @bind_values = ();
- if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
- push @conditions, 'project_id=?';
- push @bind_values, $condition->{project_id};
- }
+ if ( ( defined $condition->{project_id} ) && ( $condition->{project_id} ne '' ) ) {
+ push @conditions, 'project_id=?';
+ push @bind_values, $condition->{project_id};
+ }
- if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
- push @conditions, 'studio_id=?';
- push @bind_values, $condition->{studio_id};
- }
+ if ( ( defined $condition->{studio_id} ) && ( $condition->{studio_id} ne '' ) ) {
+ push @conditions, 'studio_id=?';
+ push @bind_values, $condition->{studio_id};
+ }
- if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
- push @conditions, 'schedule_id=?';
- push @bind_values, $condition->{schedule_id};
- }
+ if ( ( defined $condition->{schedule_id} ) && ( $condition->{schedule_id} ne '' ) ) {
+ push @conditions, 'schedule_id=?';
+ push @bind_values, $condition->{schedule_id};
+ }
- if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
- push @conditions, 'start=?';
- push @bind_values, $condition->{start_at};
- }
+ if ( ( defined $condition->{start_at} ) && ( $condition->{start_at} ne '' ) ) {
+ push @conditions, 'start=?';
+ push @bind_values, $condition->{start_at};
+ }
- if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
- if ( $date_range_include == 1 ) {
- push @conditions, 'end_date>=?';
- push @bind_values, $condition->{from};
- } else {
- push @conditions, 'start_date>=?';
- push @bind_values, $condition->{from};
- }
- }
+ if ( ( defined $condition->{from} ) && ( $condition->{from} ne '' ) ) {
+ if ( $date_range_include == 1 ) {
+ push @conditions, 'end_date>=?';
+ push @bind_values, $condition->{from};
+ } else {
+ push @conditions, 'start_date>=?';
+ push @bind_values, $condition->{from};
+ }
+ }
- if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
- if ( $date_range_include == 1 ) {
- push @conditions, 'start_date<=?';
- push @bind_values, $condition->{till};
- } else {
- push @conditions, 'end_date<=?';
- push @bind_values, $condition->{till};
- }
- }
+ if ( ( defined $condition->{till} ) && ( $condition->{till} ne '' ) ) {
+ if ( $date_range_include == 1 ) {
+ push @conditions, 'start_date<=?';
+ push @bind_values, $condition->{till};
+ } else {
+ push @conditions, 'end_date<=?';
+ push @bind_values, $condition->{till};
+ }
+ }
- if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
- push @conditions, 'exclude=?';
- push @bind_values, $condition->{exclude};
- }
+ if ( ( defined $condition->{exclude} ) && ( $condition->{exclude} ne '' ) ) {
+ push @conditions, 'exclude=?';
+ push @bind_values, $condition->{exclude};
+ }
- my $conditions = '';
- $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
+ my $conditions = '';
+ $conditions = " where " . join( " and ", @conditions ) if ( @conditions > 0 );
- my $query = qq{
+ my $query = qq{
select date(start) start_date
,date(end) end_date
,dayname(start) weekday
@@ -114,281 +114,281 @@ sub get {
order by start
};
- #print STDERR $query."\n";
- #print STDERR Dumper(\@bind_values);
+ #print STDERR $query."\n";
+ #print STDERR Dumper(\@bind_values);
- my $entries = db::get( $dbh, $query, \@bind_values );
- for my $entry (@$entries) {
- $entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
- }
+ my $entries = db::get( $dbh, $query, \@bind_values );
+ for my $entry (@$entries) {
+ $entry->{weekday} = substr( $entry->{weekday}, 0, 2 );
+ }
- return $entries;
+ return $entries;
}
#update work dates for all schedules of a work and studio_id
sub update {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- return undef unless defined $entry->{project_id};
- return undef unless defined $entry->{studio_id};
- return undef unless defined $entry->{schedule_id};
+ return undef unless defined $entry->{project_id};
+ return undef unless defined $entry->{studio_id};
+ return undef unless defined $entry->{schedule_id};
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- #delete all existing work dates (by project, studio and schedule id)
- work_dates::delete( $config, $entry );
+ #delete all existing work dates (by project, studio and schedule id)
+ work_dates::delete( $config, $entry );
- my $day_start = $config->{date}->{day_starting_hour};
+ my $day_start = $config->{date}->{day_starting_hour};
- #get all schedules for schedule id ordered by exclude, date
- my $schedules = work_schedule::get(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- schedule_id => $entry->{schedule_id},
- }
- );
+ #get all schedules for schedule id ordered by exclude, date
+ my $schedules = work_schedule::get(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ schedule_id => $entry->{schedule_id},
+ }
+ );
- #add scheduled work dates and remove exluded dates
- my $work_dates = {};
+ #add scheduled work dates and remove exluded dates
+ my $work_dates = {};
- #TODO:set schedules exclude to 0 if not 1
- #insert all normal dates (not excludes)
- for my $schedule (@$schedules) {
- my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
- for my $date (@$dates) {
- $date->{exclude} = 0;
- $work_dates->{ $date->{start} } = $date;
+ #TODO:set schedules exclude to 0 if not 1
+ #insert all normal dates (not excludes)
+ for my $schedule (@$schedules) {
+ my $dates = get_schedule_dates( $schedule, { exclude => 0 } );
+ for my $date (@$dates) {
+ $date->{exclude} = 0;
+ $work_dates->{ $date->{start} } = $date;
- #print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
- }
- }
+ #print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
+ }
+ }
- #insert / overwrite all exlude dates
- for my $schedule (@$schedules) {
- my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
- for my $date (@$dates) {
- $date->{exclude} = 1;
- $work_dates->{ $date->{start} } = $date;
+ #insert / overwrite all exlude dates
+ for my $schedule (@$schedules) {
+ my $dates = get_schedule_dates( $schedule, { exclude => 1 } );
+ for my $date (@$dates) {
+ $date->{exclude} = 1;
+ $work_dates->{ $date->{start} } = $date;
- #print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
- }
- }
+ #print STDERR Dumper($date)."\n" if ($date->{start} eq'2014-02-05 19:00:00');
+ }
+ }
- #print STDERR Dumper($work_dates->{'2014-02-05 19:00:00'});
+ #print STDERR Dumper($work_dates->{'2014-02-05 19:00:00'});
- my $request = { config => $config };
+ my $request = { config => $config };
- my $i = 0;
- my $j = 0;
- for my $date ( keys %$work_dates ) {
- my $work_date = $work_dates->{$date};
+ my $i = 0;
+ my $j = 0;
+ for my $date ( keys %$work_dates ) {
+ my $work_date = $work_dates->{$date};
- #insert date
- my $entry = {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- schedule_id => $entry->{schedule_id},
- title => $entry->{title},
- type => $entry->{type},
- schedule_id => $entry->{schedule_id},
- start => $work_date->{start},
- end => $work_date->{end},
- exclude => $work_date->{exclude}
- };
- if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
- $entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
- $entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
- db::insert( $dbh, 'calcms_work_dates', $entry );
+ #insert date
+ my $entry = {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ schedule_id => $entry->{schedule_id},
+ title => $entry->{title},
+ type => $entry->{type},
+ schedule_id => $entry->{schedule_id},
+ start => $work_date->{start},
+ end => $work_date->{end},
+ exclude => $work_date->{exclude}
+ };
+ if ( studio_timeslot_dates::can_studio_edit_events( $config, $entry ) == 1 ) { # by studio_id, start, end
+ $entry->{start_date} = time::add_hours_to_datetime( $entry->{start}, -$day_start );
+ $entry->{end_date} = time::add_hours_to_datetime( $entry->{end}, -$day_start );
+ db::insert( $dbh, 'calcms_work_dates', $entry );
- #print STDERR "$entry->{start_date}\n";
- $i++;
- } else {
- $j++;
+ #print STDERR "$entry->{start_date}\n";
+ $i++;
+ } else {
+ $j++;
- #print STDERR Dumper($entry);
- }
- }
+ #print STDERR Dumper($entry);
+ }
+ }
- #print STDERR "$i work_dates updates\n";
- return $j . " dates out of studio times, " . $i;
+ #print STDERR "$i work_dates updates\n";
+ return $j . " dates out of studio times, " . $i;
}
sub get_schedule_dates {
- my $schedule = shift;
- my $options = shift;
+ my $schedule = shift;
+ my $options = shift;
- my $is_exclude = $options->{exclude} || 0;
- my $dates = [];
- return $dates if ( ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' ) );
- return $dates if ( ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' ) );
+ my $is_exclude = $options->{exclude} || 0;
+ my $dates = [];
+ return $dates if ( $is_exclude eq '1' ) && ( $schedule->{exclude} ne '1' );
+ return $dates if ( $is_exclude eq '0' ) && ( $schedule->{exclude} eq '1' );
- if ( $schedule->{period_type} eq 'single' ) {
- $dates = get_single_date( $schedule->{start}, $schedule->{duration} );
- } elsif ( $schedule->{period_type} eq 'days' ) {
- $dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
- } elsif ( $schedule->{period_type} eq 'week_of_month' ) {
- $dates = get_week_of_month_dates(
- $schedule->{start}, $schedule->{end}, $schedule->{duration},
- $schedule->{week_of_month}, $schedule->{weekday}, $schedule->{month}
- );
- } else {
- print STDERR "unknown schedule period_type\n";
- }
- return $dates;
+ if ( $schedule->{period_type} eq 'single' ) {
+ $dates = get_single_date( $schedule->{start}, $schedule->{duration} );
+ } elsif ( $schedule->{period_type} eq 'days' ) {
+ $dates = get_dates( $schedule->{start}, $schedule->{end}, $schedule->{duration}, $schedule->{frequency} );
+ } elsif ( $schedule->{period_type} eq 'week_of_month' ) {
+ $dates = get_week_of_month_dates(
+ $schedule->{start}, $schedule->{end}, $schedule->{duration},
+ $schedule->{week_of_month}, $schedule->{weekday}, $schedule->{month}
+ );
+ } else {
+ print STDERR "unknown schedule period_type\n";
+ }
+ return $dates;
}
sub get_week_of_month_dates {
- my $start = shift; # datetime string
- my $end = shift; # datetime string
- my $duration = shift; # in minutes
- my $week = shift; # every nth week of month
- my $weekday = shift; # weekday [1..7]
- my $frequency = shift; # every 1st,2nd,3th time
+ my $start = shift; # datetime string
+ my $end = shift; # datetime string
+ my $duration = shift; # in minutes
+ my $week = shift; # every nth week of month
+ my $weekday = shift; # weekday [1..7]
+ my $frequency = shift; # every 1st,2nd,3th time
- return undef if $start eq '';
- return undef if $end eq '';
- return undef if $duration eq '';
- return undef if $week eq '';
- return undef if $weekday eq '';
- return undef if $frequency eq '';
- return undef if $frequency == 0;
+ return undef if $start eq '';
+ return undef if $end eq '';
+ return undef if $duration eq '';
+ return undef if $week eq '';
+ return undef if $weekday eq '';
+ return undef if $frequency eq '';
+ return undef if $frequency == 0;
- my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
+ my $start_dates = time::get_nth_weekday_in_month( $start, $end, $week, $weekday );
- my $results = [];
+ my $results = [];
- my $c = -1;
- for my $start_datetime (@$start_dates) {
- $c++;
- my @start = @{ time::datetime_to_array($start_datetime) };
- next unless @start >= 6;
- next if ( ( $c % $frequency ) != 0 );
+ my $c = -1;
+ for my $start_datetime (@$start_dates) {
+ $c++;
+ my @start = @{ time::datetime_to_array($start_datetime) };
+ next unless @start >= 6;
+ next if ( $c % $frequency ) != 0;
- my @end_datetime = Date::Calc::Add_Delta_DHMS(
- $start[0], $start[1], $start[2], # start date
- $start[3], $start[4], $start[5], # start time
- 0, 0, $duration, 0 # delta days, hours, minutes, seconds
- );
- my $end_datetime = time::array_to_datetime( \@end_datetime );
+ my @end_datetime = Date::Calc::Add_Delta_DHMS(
+ $start[0], $start[1], $start[2], # start date
+ $start[3], $start[4], $start[5], # start time
+ 0, 0, $duration, 0 # delta days, hours, minutes, seconds
+ );
+ my $end_datetime = time::array_to_datetime( \@end_datetime );
- push @$results,
- {
- start => $start_datetime,
- end => $end_datetime
- };
- }
- return $results;
+ push @$results,
+ {
+ start => $start_datetime,
+ end => $end_datetime
+ };
+ }
+ return $results;
}
#add duration to a single date
sub get_single_date {
- my $start_datetime = shift;
- my $duration = shift;
+ my $start_datetime = shift;
+ my $duration = shift;
- my @start = @{ time::datetime_to_array($start_datetime) };
- return unless @start >= 6;
+ my @start = @{ time::datetime_to_array($start_datetime) };
+ return unless @start >= 6;
- my @end_datetime = Date::Calc::Add_Delta_DHMS(
- $start[0], $start[1], $start[2], # start date
- $start[3], $start[4], $start[5], # start time
- 0, 0, $duration, 0 # delta days, hours, minutes, seconds
- );
- my $date = {
- start => $start_datetime,
- end => time::array_to_datetime( \@end_datetime )
- };
- return [$date];
+ my @end_datetime = Date::Calc::Add_Delta_DHMS(
+ $start[0], $start[1], $start[2], # start date
+ $start[3], $start[4], $start[5], # start time
+ 0, 0, $duration, 0 # delta days, hours, minutes, seconds
+ );
+ my $date = {
+ start => $start_datetime,
+ end => time::array_to_datetime( \@end_datetime )
+ };
+ return [$date];
}
#calculate all dates between start_datetime and end_date with duration(minutes) and frequency(days)
sub get_dates {
- my $start_datetime = shift;
- my $end_date = shift;
- my $duration = shift; # in minutes
- my $frequency = shift; # in days
- #print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
+ my $start_datetime = shift;
+ my $end_date = shift;
+ my $duration = shift; # in minutes
+ my $frequency = shift; # in days
+ #print "start_datetime:$start_datetime end_date:$end_date duration:$duration frequency:$frequency\n";
- my @start = @{ time::datetime_to_array($start_datetime) };
- return unless @start >= 6;
- my @start_date = ( $start[0], $start[1], $start[2] );
- my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
+ my @start = @{ time::datetime_to_array($start_datetime) };
+ return unless @start >= 6;
+ my @start_date = ( $start[0], $start[1], $start[2] );
+ my $start_time = sprintf( '%02d:%02d:%02d', $start[3], $start[4], $start[5] );
- #print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
+ #print STDERR "$start_datetime,$end_date,$duration,$frequency\n";
- #return on single date
- my $date = {};
- $date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
- return undef if $duration eq '';
+ #return on single date
+ my $date = {};
+ $date->{start} = sprintf( "%04d-%02d-%02d", @start_date ) . ' ' . $start_time;
+ return undef if $duration eq '';
- return undef if ( ( $frequency eq '' ) || ( $end_date eq '' ) );
+ return undef if ( $frequency eq '' ) || ( $end_date eq '' );
- #continue on recurring date
- my @end = @{ time::datetime_to_array($end_date) };
- return unless @end >= 3;
- my @end_date = ( $end[0], $end[1], $end[2] );
+ #continue on recurring date
+ my @end = @{ time::datetime_to_array($end_date) };
+ return unless @end >= 3;
+ my @end_date = ( $end[0], $end[1], $end[2] );
- my $today = time::time_to_date();
- my ( $year, $month, $day ) = split( /\-/, $today );
+ my $today = time::time_to_date();
+ my ( $year, $month, $day ) = split( /\-/, $today );
- #do not show dates one month back
- my $not_before = sprintf( "%04d-%02d-%02d", Date::Calc::Add_Delta_Days( $year, $month, $day, -30 ) );
+ #do not show dates one month back
+ my $not_before = sprintf( "%04d-%02d-%02d", Date::Calc::Add_Delta_Days( $year, $month, $day, -30 ) );
- my $dates = [];
- return $dates if ( $end_date lt $today );
- return $dates if ( $frequency < 1 );
+ my $dates = [];
+ return $dates if ( $end_date lt $today );
+ return $dates if ( $frequency < 1 );
- my $j = Date::Calc::Delta_Days( @start_date, @end_date );
- my $c = 0;
- for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
- my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
- my $date = {};
- $date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
+ my $j = Date::Calc::Delta_Days( @start_date, @end_date );
+ my $c = 0;
+ for ( my $i = 0 ; $i <= $j ; $i += $frequency ) {
+ my @date = Date::Calc::Add_Delta_Days( $start[0], $start[1], $start[2], $i );
+ my $date = {};
+ $date->{start} = sprintf( "%04d-%02d-%02d", @date ) . ' ' . $start_time;
- my @end_datetime = Date::Calc::Add_Delta_DHMS(
- $date[0], $date[1], $date[2], # start date
- $start[3], $start[4], $start[5], # start time
- 0, 0, $duration, 0 # delta days, hours, minutes, seconds
- );
- $date->{end} = time::array_to_datetime( \@end_datetime );
+ my @end_datetime = Date::Calc::Add_Delta_DHMS(
+ $date[0], $date[1], $date[2], # start date
+ $start[3], $start[4], $start[5], # start time
+ 0, 0, $duration, 0 # delta days, hours, minutes, seconds
+ );
+ $date->{end} = time::array_to_datetime( \@end_datetime );
- last if ( $c > 200 );
- $c++;
+ last if ( $c > 200 );
+ $c++;
- next if $date->{end} lt $not_before;
- push @$dates, $date;
+ next if $date->{end} lt $not_before;
+ push @$dates, $date;
- }
- return $dates;
+ }
+ return $dates;
}
#remove all work_dates for studio_id and schedule_id
sub delete {
- my $config = shift;
- my $entry = shift;
+ my $config = shift;
+ my $entry = shift;
- return undef unless defined $entry->{project_id};
- return undef unless defined $entry->{studio_id};
- return undef unless defined $entry->{schedule_id};
+ return undef unless defined $entry->{project_id};
+ return undef unless defined $entry->{studio_id};
+ return undef unless defined $entry->{schedule_id};
- my $dbh = db::connect($config);
+ my $dbh = db::connect($config);
- my $query = qq{
+ my $query = qq{
delete
from calcms_work_dates
where project_id=? and studio_id=? and schedule_id=?
};
- my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{schedule_id} ];
+ my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{schedule_id} ];
- #print '$query'.$query.Dumper($bind_values).'
';
- return db::put( $dbh, $query, $bind_values );
+ #print '$query'.$query.Dumper($bind_values).'
';
+ return db::put( $dbh, $query, $bind_values );
}
sub error {
- my $msg = shift;
- print "ERROR: $msg
\n";
+ my $msg = shift;
+ print "ERROR: $msg
\n";
}
#do not delete last line!
diff --git a/website/agenda/planung/assign_series.cgi b/website/agenda/planung/assign_series.cgi
index 1cb164c..406b813 100755
--- a/website/agenda/planung/assign_series.cgi
+++ b/website/agenda/planung/assign_series.cgi
@@ -2,7 +2,6 @@
use warnings "all";
use strict;
-
use Data::Dumper;
use URI::Escape();
use Encode();
@@ -32,30 +31,30 @@ my $r = shift;
my $config = config::get('../config/config.cgi');
my $debug = $config->{system}->{debug};
my ( $user, $expires ) = auth::get_user( $cgi, $config );
-return if ( ( !defined $user ) || ( $user eq '' ) );
+return if ( !defined $user ) || ( $user eq '' );
#print STDERR $params->{project_id}."\n";
my $user_presets = uac::get_user_presets(
- $config,
- {
- project_id => $params->{project_id},
- studio_id => $params->{studio_id},
- user => $user
- }
+ $config,
+ {
+ project_id => $params->{project_id},
+ studio_id => $params->{studio_id},
+ user => $user
+ }
);
$params->{default_studio_id} = $user_presets->{studio_id};
$params->{studio_id} = $params->{default_studio_id}
- if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
+ if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
$params->{project_id} = $user_presets->{project_id}
- if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
+ if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
#print STDERR $params->{project_id}."\n";
my $request = {
- url => $ENV{QUERY_STRING} || '',
- params => {
- original => $params,
- checked => check_params($params),
- },
+ url => $ENV{QUERY_STRING} || '',
+ params => {
+ original => $params,
+ checked => check_params($params),
+ },
};
$request = uac::prepare_request( $request, $user_presets );
@@ -76,170 +75,170 @@ print q{
my $permissions = $request->{permissions};
unless ( $permissions->{scan_series_events} == 1 ) {
- uac::permissions_denied('scan_series_events');
- return;
+ uac::permissions_denied('scan_series_events');
+ return;
}
if ( defined $params->{action} ) {
- assign_series( $config, $request ) if ( $params->{action} eq 'assign_series' );
+ assign_series( $config, $request ) if $params->{action} eq 'assign_series';
}
show_events( $config, $request );
sub show_events {
- my $config = shift;
- my $request = shift;
+ my $config = shift;
+ my $request = shift;
- my $params = $request->{params}->{checked};
- my $permissions = $request->{permissions};
- unless ( $permissions->{assign_series_events} == 1 ) {
- uac::permissions_denied('assign_series_events');
- return;
- }
+ my $params = $request->{params}->{checked};
+ my $permissions = $request->{permissions};
+ unless ( $permissions->{assign_series_events} == 1 ) {
+ uac::permissions_denied('assign_series_events');
+ return;
+ }
- my $projects = project::get( $config, { project_id => $params->{project_id} } );
- my $project = $projects->[0];
- return unless ( @$projects == 1 );
+ my $projects = project::get( $config, { project_id => $params->{project_id} } );
+ my $project = $projects->[0];
+ return unless scalar @$projects == 1 ;
- my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
- my $studio = $studios->[0];
- return unless ( @$studios == 1 );
+ my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
+ my $studio = $studios->[0];
+ return unless scalar @$studios == 1 ;
- my $project_name = $project->{name};
- my $studio_name = $studio->{location};
+ my $project_name = $project->{name};
+ my $studio_name = $studio->{location};
- #get series_names
- my $dbh = db::connect($config);
- my $query = q{
+ #get series_names
+ my $dbh = db::connect($config);
+ my $query = q{
select project_id, studio_id, series_id, series_name, title
from calcms_series s, calcms_project_series ps
where s.id=ps.series_id
order by series_name, title
};
- my $results = db::get( $dbh, $query );
+ my $results = db::get( $dbh, $query );
- # get projects by id
- my $projects_by_id = {};
- $projects = project::get($config);
- for my $project (@$projects) {
- $projects_by_id->{ $project->{project_id} } = $project;
- }
+ # get projects by id
+ my $projects_by_id = {};
+ $projects = project::get($config);
+ for my $project (@$projects) {
+ $projects_by_id->{ $project->{project_id} } = $project;
+ }
- # get studios by id
- my $studios_by_id = {};
- $studios = studios::get($config);
- for my $studio (@$studios) {
- $studios_by_id->{ $studio->{id} } = $studio;
- }
+ # get studios by id
+ my $studios_by_id = {};
+ $studios = studios::get($config);
+ for my $studio (@$studios) {
+ $studios_by_id->{ $studio->{id} } = $studio;
+ }
- #add project and studio name to series
- for my $result (@$results) {
- $result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
- $result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
- $result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
- }
- $params->{series} = $results;
+ #add project and studio name to series
+ for my $result (@$results) {
+ $result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
+ $result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
+ $result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
+ }
+ $params->{series} = $results;
- #fill template
- $params->{project_name} = $project_name;
- $params->{studio_name} = $studio_name;
+ #fill template
+ $params->{project_name} = $project_name;
+ $params->{studio_name} = $studio_name;
- template::process( 'print', $params->{template}, $params );
+ template::process( 'print', $params->{template}, $params );
}
sub assign_series {
- my $config = shift;
- my $request = shift;
+ my $config = shift;
+ my $request = shift;
- my $params = $request->{params}->{checked};
- my $permissions = $request->{permissions};
- unless ( $permissions->{assign_series_events} == 1 ) {
- uac::permissions_denied('assign_series_events');
- return;
- }
+ my $params = $request->{params}->{checked};
+ my $permissions = $request->{permissions};
+ unless ( $permissions->{assign_series_events} == 1 ) {
+ uac::permissions_denied('assign_series_events');
+ return;
+ }
- my $entry = {};
- for my $attr ( 'project_id', 'studio_id', 'series_id' ) {
- if ( defined $params->{$attr} ) {
- $entry->{$attr} = $params->{$attr};
- } else {
- uac::print_error( $attr . ' not given!' );
- return;
- }
- }
+ my $entry = {};
+ for my $attr ( 'project_id', 'studio_id', 'series_id' ) {
+ if ( defined $params->{$attr} ) {
+ $entry->{$attr} = $params->{$attr};
+ } else {
+ uac::print_error( $attr . ' not given!' );
+ return;
+ }
+ }
- $config->{access}->{write} = 1;
+ $config->{access}->{write} = 1;
- #check if series is assigned to project/studio
- my $series = series::get(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- }
- );
+ #check if series is assigned to project/studio
+ my $series = series::get(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ }
+ );
- #print Dumper($series);
- if ( @$series == 0 ) {
+ #print Dumper($series);
+ if ( @$series == 0 ) {
- # assign series to project/studio
- project::assign_series(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- }
- );
+ # assign series to project/studio
+ project::assign_series(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ }
+ );
- #print "assign\n";
- } else {
- print STDERR
+ #print "assign\n";
+ } else {
+ print STDERR
"event $entry->{event_id} already assigned to project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}\n";
- #print "is schon\n";
- }
+ #print "is schon\n";
+ }
- $config->{access}->{write} = 0;
- uac::print_info("event successfully assigned to series");
+ $config->{access}->{write} = 0;
+ uac::print_info("event successfully assigned to series");
}
sub check_params {
- my $params = shift;
+ my $params = shift;
- my $checked = {};
+ my $checked = {};
- my $debug = $params->{debug} || '';
- if ( $debug =~ /([a-z\_\,]+)/ ) {
- $debug = $1;
- }
- $checked->{debug} = $debug;
+ my $debug = $params->{debug} || '';
+ if ( $debug =~ /([a-z\_\,]+)/ ) {
+ $debug = $1;
+ }
+ $checked->{debug} = $debug;
- #actions and roles
- $checked->{action} = '';
- if ( defined $params->{action} ) {
- if ( $params->{action} =~ /^(assign_series)$/ ) {
- $checked->{action} = $params->{action};
- }
- }
+ #actions and roles
+ $checked->{action} = '';
+ if ( defined $params->{action} ) {
+ if ( $params->{action} =~ /^(assign_series)$/ ) {
+ $checked->{action} = $params->{action};
+ }
+ }
- #numeric values
- $checked->{exclude} = 0;
- for my $param ( 'id', 'project_id', 'studio_id', 'series_id' ) {
- if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
- $checked->{$param} = $params->{$param};
- }
- }
+ #numeric values
+ $checked->{exclude} = 0;
+ for my $param ( 'id', 'project_id', 'studio_id', 'series_id' ) {
+ if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
+ $checked->{$param} = $params->{$param};
+ }
+ }
- if ( defined $checked->{studio_id} ) {
- $checked->{default_studio_id} = $checked->{studio_id};
- } else {
- $checked->{studio_id} = -1;
- }
+ if ( defined $checked->{studio_id} ) {
+ $checked->{default_studio_id} = $checked->{studio_id};
+ } else {
+ $checked->{studio_id} = -1;
+ }
- $checked->{template} = template::check( $params->{template}, 'assign_series' );
+ $checked->{template} = template::check( $params->{template}, 'assign_series' );
- return $checked;
+ return $checked;
}
__DATA__
diff --git a/website/agenda/planung/assignments.cgi b/website/agenda/planung/assignments.cgi
index 967e954..73d8ccf 100755
--- a/website/agenda/planung/assignments.cgi
+++ b/website/agenda/planung/assignments.cgi
@@ -36,26 +36,26 @@ return if ( ( !defined $user ) || ( $user eq '' ) );
#print STDERR $params->{project_id}."\n";
my $user_presets = uac::get_user_presets(
- $config,
- {
- project_id => $params->{project_id},
- studio_id => $params->{studio_id},
- user => $user
- }
+ $config,
+ {
+ project_id => $params->{project_id},
+ studio_id => $params->{studio_id},
+ user => $user
+ }
);
$params->{default_studio_id} = $user_presets->{studio_id};
$params->{studio_id} = $params->{default_studio_id}
- if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
+ if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
$params->{project_id} = $user_presets->{project_id}
- if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
+ if ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
#print STDERR $params->{project_id}."\n";
my $request = {
- url => $ENV{QUERY_STRING} || '',
- params => {
- original => $params,
- checked => check_params($params),
- },
+ url => $ENV{QUERY_STRING} || '',
+ params => {
+ original => $params,
+ checked => check_params($params),
+ },
};
$request = uac::prepare_request( $request, $user_presets );
@@ -76,86 +76,86 @@ print q{
my $permissions = $request->{permissions};
unless ( $permissions->{scan_series_events} == 1 ) {
- uac::permissions_denied('scan_series_events');
- return;
+ uac::permissions_denied('scan_series_events');
+ return;
}
if ( defined $params->{action} ) {
- assign_events( $config, $request ) if ( $params->{action} eq 'assign_events' );
+ assign_events( $config, $request ) if ( $params->{action} eq 'assign_events' );
}
show_events( $config, $request );
sub show_events {
- my $config = shift;
- my $request = shift;
+ my $config = shift;
+ my $request = shift;
- my $params = $request->{params}->{checked};
- my $permissions = $request->{permissions};
- unless ( $permissions->{assign_series_events} == 1 ) {
- uac::permissions_denied('assign_series_events');
- return;
- }
+ my $params = $request->{params}->{checked};
+ my $permissions = $request->{permissions};
+ unless ( $permissions->{assign_series_events} == 1 ) {
+ uac::permissions_denied('assign_series_events');
+ return;
+ }
- my $projects = project::get( $config, { project_id => $params->{project_id} } );
- my $project = $projects->[0];
+ my $projects = project::get( $config, { project_id => $params->{project_id} } );
+ my $project = $projects->[0];
- #print STDERR Dumper($project);
- return unless ( @$projects == 1 );
+ #print STDERR Dumper($project);
+ return unless ( @$projects == 1 );
- my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
- my $studio = $studios->[0];
+ my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
+ my $studio = $studios->[0];
- #print STDERR Dumper($studio);
- return unless ( @$studios == 1 );
+ #print STDERR Dumper($studio);
+ return unless ( @$studios == 1 );
- my $project_name = $project->{name};
- my $studio_name = $studio->{location};
+ my $project_name = $project->{name};
+ my $studio_name = $studio->{location};
- #get series_names
- my $dbh = db::connect($config);
- my $query = q{
+ #get series_names
+ my $dbh = db::connect($config);
+ my $query = q{
select project_id, studio_id, series_id, series_name, title
from calcms_series s, calcms_project_series ps
where s.id=ps.series_id
order by series_name, title
};
- my $results = db::get( $dbh, $query );
+ my $results = db::get( $dbh, $query );
- # get projects by id
- my $projects_by_id = {};
- $projects = project::get($config);
- for my $project (@$projects) {
- $projects_by_id->{ $project->{project_id} } = $project;
- }
+ # get projects by id
+ my $projects_by_id = {};
+ $projects = project::get($config);
+ for my $project (@$projects) {
+ $projects_by_id->{ $project->{project_id} } = $project;
+ }
- # get studios by id
- my $studios_by_id = {};
- $studios = studios::get($config);
- for my $studio (@$studios) {
- $studios_by_id->{ $studio->{id} } = $studio;
- }
+ # get studios by id
+ my $studios_by_id = {};
+ $studios = studios::get($config);
+ for my $studio (@$studios) {
+ $studios_by_id->{ $studio->{id} } = $studio;
+ }
- #add project and studio name to series
- for my $result (@$results) {
- $result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
- $result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
- $result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
- }
- $params->{series} = $results;
+ #add project and studio name to series
+ for my $result (@$results) {
+ $result->{project_name} = $projects_by_id->{ $result->{project_id} }->{name};
+ $result->{studio_name} = $studios_by_id->{ $result->{studio_id} }->{location};
+ $result->{series_name} = 'Einzelsendung' if $result->{series_name} eq '_single_';
+ }
+ $params->{series} = $results;
- # get events not assigned to series
- my $conditions = [];
- my $bind_values = [];
- if ( $project_name ne '' ) {
- push @$conditions, 'e.project=?';
- push @$bind_values, $project_name;
- }
- if ( $studio_name ne '' ) {
- push @$conditions, 'e.location=?';
- push @$bind_values, $studio_name;
- }
- $conditions = ' and ' . join( ' and ', @$conditions ) if ( @$conditions > 0 );
- $query = qq{
+ # get events not assigned to series
+ my $conditions = [];
+ my $bind_values = [];
+ if ( $project_name ne '' ) {
+ push @$conditions, 'e.project=?';
+ push @$bind_values, $project_name;
+ }
+ if ( $studio_name ne '' ) {
+ push @$conditions, 'e.location=?';
+ push @$bind_values, $studio_name;
+ }
+ $conditions = ' and ' . join( ' and ', @$conditions ) if scalar(@$conditions) > 0;
+ $query = qq{
select e.id, program, project, location, start, series_name, title, episode, rerun
from calcms_events e left join calcms_series_events se on se.event_id =e.id
where se.event_id is null
@@ -163,252 +163,252 @@ sub show_events {
order by series_name,title,start
limit 1000
};
- print '' . Dumper($query) . Dumper($bind_values) . '
';
- $results = db::get( $dbh, $query, $bind_values );
+ print '' . Dumper($query) . Dumper($bind_values) . '
';
+ $results = db::get( $dbh, $query, $bind_values );
- # detect title and episode
- for my $result (@$results) {
- $result->{rerun} .= '';
- if ( $result->{title} =~ /\#(\d+)([a-z])?\s*$/ ) {
- $result->{episode} = $1 unless defined $result->{episode};
- $result->{rerun} = $2 || '' unless ( $result->{rerun} =~ /\d/ );
- $result->{title} =~ s/\#\d+[a-z]?\s*$//;
- $result->{title} =~ s/\s+$//;
- }
- my $a = time::datetime_to_array( $result->{start} );
+ # detect title and episode
+ for my $result (@$results) {
+ $result->{rerun} .= '';
+ if ( $result->{title} =~ /\#(\d+)([a-z])?\s*$/ ) {
+ $result->{episode} = $1 unless defined $result->{episode};
+ $result->{rerun} = $2 || '' unless ( $result->{rerun} =~ /\d/ );
+ $result->{title} =~ s/\#\d+[a-z]?\s*$//;
+ $result->{title} =~ s/\s+$//;
+ }
+ my $a = time::datetime_to_array( $result->{start} );
- #print STDERR "($a->[0],$a->[1],$a->[2])\n";
- $result->{weekday} = time::weekday( $a->[0], $a->[1], $a->[2] );
- $result->{weekday} = $time::names->{de}->{weekdays_abbr}->[ $result->{weekday} - 1 ];
- }
+ #print STDERR "($a->[0],$a->[1],$a->[2])\n";
+ $result->{weekday} = time::weekday( $a->[0], $a->[1], $a->[2] );
+ $result->{weekday} = $time::names->{de}->{weekdays_abbr}->[ $result->{weekday} - 1 ];
+ }
- #fill template
- $params->{unassigned_events} = $results;
- $params->{sum_events} = @$results;
- $params->{project_name} = $project_name;
- $params->{studio_name} = $studio_name;
+ #fill template
+ $params->{unassigned_events} = $results;
+ $params->{sum_events} = @$results;
+ $params->{project_name} = $project_name;
+ $params->{studio_name} = $studio_name;
- template::process( 'print', $params->{template}, $params );
+ template::process( 'print', $params->{template}, $params );
}
sub assign_events {
- my $config = shift;
- my $request = shift;
+ my $config = shift;
+ my $request = shift;
- my $params = $request->{params}->{checked};
- my $permissions = $request->{permissions};
- unless ( $permissions->{assign_series_events} == 1 ) {
- uac::permissions_denied('assign_series_events');
- return;
- }
+ my $params = $request->{params}->{checked};
+ my $permissions = $request->{permissions};
+ unless ( $permissions->{assign_series_events} == 1 ) {
+ uac::permissions_denied('assign_series_events');
+ return;
+ }
- my $entry = {};
- for my $attr ( 'project_id', 'studio_id', 'series_id', 'event_ids' ) {
- if ( defined $params->{$attr} ) {
- $entry->{$attr} = $params->{$attr};
- } else {
- uac::print_error( $attr . ' not given!' );
- return;
- }
- }
+ my $entry = {};
+ for my $attr ( 'project_id', 'studio_id', 'series_id', 'event_ids' ) {
+ if ( defined $params->{$attr} ) {
+ $entry->{$attr} = $params->{$attr};
+ } else {
+ uac::print_error( $attr . ' not given!' );
+ return;
+ }
+ }
- $config->{access}->{write} = 1;
- for my $event_id ( split( /[\,\s]+/, $params->{event_ids} ) ) {
- next unless $event_id =~ /^\d+/;
- $entry->{event_id} = $event_id;
+ $config->{access}->{write} = 1;
+ for my $event_id ( split( /[\,\s]+/, $params->{event_ids} ) ) {
+ next unless $event_id =~ /^\d+/;
+ $entry->{event_id} = $event_id;
- #get and parse event
- my $request2 = {
- params => {
- checked => events::check_params(
- $config,
- {
- event_id => $entry->{event_id},
- template => 'no',
- limit => 1,
- archive => 'all',
- }
- )
- },
- config => $request->{config},
- permissions => $request->{permissions}
- };
- $request2->{params}->{checked}->{published} = 'all';
- my $events = events::get( $config, $request2 );
- my $event = $events->[0];
- unless ( defined $event ) {
- print STDERR
+ #get and parse event
+ my $request2 = {
+ params => {
+ checked => events::check_params(
+ $config,
+ {
+ event_id => $entry->{event_id},
+ template => 'no',
+ limit => 1,
+ archive => 'all',
+ }
+ )
+ },
+ config => $request->{config},
+ permissions => $request->{permissions}
+ };
+ $request2->{params}->{checked}->{published} = 'all';
+ my $events = events::get( $config, $request2 );
+ my $event = $events->[0];
+ unless ( defined $event ) {
+ print STDERR
"event not found for project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}, event $entry->{event_id}\n";
- next;
- }
- print STDERR "'" . $event->{event_id} . "' '" . $event->{series_name} . "' '" . $event->{title} . "' '" . $event->{episode} . "'\n";
+ next;
+ }
+ print STDERR "'" . $event->{event_id} . "' '" . $event->{series_name} . "' '" . $event->{title} . "' '" . $event->{episode} . "'\n";
- #next;
+ #next;
- #check if series is assigned to project/studio
- my $series = series::get(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- }
- );
- if ( @$series == 0 ) {
+ #check if series is assigned to project/studio
+ my $series = series::get(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ }
+ );
+ if ( scalar(@$series) == 0 ) {
- # assign series to project/studio
- project::assign_series(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- }
- );
- } else {
- print STDERR
+ # assign series to project/studio
+ project::assign_series(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ }
+ );
+ } else {
+ print STDERR
"event $entry->{event_id} already asigned to project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}\n";
- }
+ }
- #get series
- $series = series::get(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- }
- );
- if ( @$series == 1 ) {
- my $serie = $series->[0];
+ #get series
+ $series = series::get(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ }
+ );
+ if ( scalar(@$series) == 1 ) {
+ my $serie = $series->[0];
- #set event's series name to value from series
- my $series_name = $serie->{series_name} || '';
- if ( $series_name ne '' ) {
+ #set event's series name to value from series
+ my $series_name = $serie->{series_name} || '';
+ if ( $series_name ne '' ) {
- # prepend series_name from event to title on adding to single_events series
- my $title = $event->{title};
- if ( $serie->{has_single_events} eq '1' ) {
- $title = $event->{series_name} . ' - ' . $title if $event->{series_name} ne '';
- }
+ # prepend series_name from event to title on adding to single_events series
+ my $title = $event->{title};
+ if ( $serie->{has_single_events} eq '1' ) {
+ $title = $event->{series_name} . ' - ' . $title if $event->{series_name} ne '';
+ }
- # save event content
- series_events::save_content(
- $config,
- {
- studio_id => $entry->{studio_id},
- id => $entry->{event_id}, #TODO: id=> event_id
- series_name => $series_name,
- title => $title,
- episode => $event->{episode},
- rerun => $event->{rerun},
- modified_by => $params->{presets}->{user},
- }
- );
+ # save event content
+ series_events::save_content(
+ $config,
+ {
+ studio_id => $entry->{studio_id},
+ id => $entry->{event_id}, #TODO: id=> event_id
+ series_name => $series_name,
+ title => $title,
+ episode => $event->{episode},
+ rerun => $event->{rerun},
+ modified_by => $params->{presets}->{user},
+ }
+ );
- # add to history
- $event->{project_id} = $entry->{project_id};
- $event->{studio_id} = $entry->{studio_id};
- $event->{series_id} = $entry->{series_id};
- $event->{event_id} = $entry->{event_id};
- $event->{series_name} = $series_name;
- $event->{title} = $title;
- $event->{user} = $params->{presets}->{user};
- event_history::insert( $config, $event );
+ # add to history
+ $event->{project_id} = $entry->{project_id};
+ $event->{studio_id} = $entry->{studio_id};
+ $event->{series_id} = $entry->{series_id};
+ $event->{event_id} = $entry->{event_id};
+ $event->{series_name} = $series_name;
+ $event->{title} = $title;
+ $event->{user} = $params->{presets}->{user};
+ event_history::insert( $config, $event );
- # print STDERR "ok\n";
- }
- } else {
- print STDERR "no series title found for studio $entry->{studio_id} series $entry->{series_id}, event $entry->{event_id}\n";
- next;
- }
+ # print STDERR "ok\n";
+ }
+ } else {
+ print STDERR "no series title found for studio $entry->{studio_id} series $entry->{series_id}, event $entry->{event_id}\n";
+ next;
+ }
- #assign event
- my $result = series::assign_event(
- $config,
- {
- project_id => $entry->{project_id},
- studio_id => $entry->{studio_id},
- series_id => $entry->{series_id},
- event_id => $entry->{event_id},
- manual => 1
- }
- );
- unless ( defined $result ) {
- uac::print_error("error on assigning event to series");
- return undef;
- }
- }
+ #assign event
+ my $result = series::assign_event(
+ $config,
+ {
+ project_id => $entry->{project_id},
+ studio_id => $entry->{studio_id},
+ series_id => $entry->{series_id},
+ event_id => $entry->{event_id},
+ manual => 1
+ }
+ );
+ unless ( defined $result ) {
+ uac::print_error("error on assigning event to series");
+ return undef;
+ }
+ }
- $config->{access}->{write} = 0;
- uac::print_info("event successfully assigned to series");
+ $config->{access}->{write} = 0;
+ uac::print_info("event successfully assigned to series");
- #$params->{getBack}=1;
+ #$params->{getBack}=1;
}
sub check_params {
- my $params = shift;
+ my $params = shift;
- my $checked = {};
+ my $checked = {};
- my $debug = $params->{debug} || '';
- if ( $debug =~ /([a-z\_\,]+)/ ) {
- $debug = $1;
- }
- $checked->{debug} = $debug;
+ my $debug = $params->{debug} || '';
+ if ( $debug =~ /([a-z\_\,]+)/ ) {
+ $debug = $1;
+ }
+ $checked->{debug} = $debug;
- #actions and roles
- $checked->{action} = '';
- if ( defined $params->{action} ) {
- if ( $params->{action} =~ /^(assign_events)$/ ) {
- $checked->{action} = $params->{action};
- }
- }
+ #actions and roles
+ $checked->{action} = '';
+ if ( defined $params->{action} ) {
+ if ( $params->{action} =~ /^(assign_events)$/ ) {
+ $checked->{action} = $params->{action};
+ }
+ }
- #numeric values
- $checked->{exclude} = 0;
- for my $param ( 'id', 'project_id', 'studio_id', 'series_id', 'event_id' ) {
- if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
- $checked->{$param} = $params->{$param};
- }
- }
+ #numeric values
+ $checked->{exclude} = 0;
+ for my $param ( 'id', 'project_id', 'studio_id', 'series_id', 'event_id' ) {
+ if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
+ $checked->{$param} = $params->{$param};
+ }
+ }
- for my $param ('event_ids') {
- if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^[\d,]+$/ ) ) {
- $checked->{$param} = $params->{$param};
- }
- }
+ for my $param ('event_ids') {
+ if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^[\d,]+$/ ) ) {
+ $checked->{$param} = $params->{$param};
+ }
+ }
- if ( defined $checked->{studio_id} ) {
- $checked->{default_studio_id} = $checked->{studio_id};
- } else {
- $checked->{studio_id} = -1;
- }
+ if ( defined $checked->{studio_id} ) {
+ $checked->{default_studio_id} = $checked->{studio_id};
+ } else {
+ $checked->{studio_id} = -1;
+ }
- $checked->{template} = template::check( $params->{template}, 'assignments' );
+ $checked->{template} = template::check( $params->{template}, 'assignments' );
- if ( ( defined $checked->{action} ) && ( $checked->{action} eq 'save_schedule' ) ) {
+ if ( ( defined $checked->{action} ) && ( $checked->{action} eq 'save_schedule' ) ) {
- #set defaults
- $checked->{create_events} = 0;
- $checked->{publish_events} = 0;
- }
- for my $param ( 'frequency', 'duration', 'default_duration', 'create_events', 'publish_events', 'live', 'count_episodes' ) {
- if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /(\d+)/ ) ) {
- $checked->{$param} = $1;
- }
- }
+ #set defaults
+ $checked->{create_events} = 0;
+ $checked->{publish_events} = 0;
+ }
+ for my $param ( 'frequency', 'duration', 'default_duration', 'create_events', 'publish_events', 'live', 'count_episodes' ) {
+ if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /(\d+)/ ) ) {
+ $checked->{$param} = $1;
+ }
+ }
- #scalars
- for my $param ( 'search', 'from', 'till' ) {
- if ( defined $params->{$param} ) {
- $checked->{$param} = $params->{$param};
- $checked->{$param} =~ s/^\s+//g;
- $checked->{$param} =~ s/\s+$//g;
- }
- }
+ #scalars
+ for my $param ( 'search', 'from', 'till' ) {
+ if ( defined $params->{$param} ) {
+ $checked->{$param} = $params->{$param};
+ $checked->{$param} =~ s/^\s+//g;
+ $checked->{$param} =~ s/\s+$//g;
+ }
+ }
- return $checked;
+ return $checked;
}
__DATA__
diff --git a/website/agenda/planung/audio_recordings.cgi b/website/agenda/planung/audio_recordings.cgi
index ef2aca6..5bdddd6 100755
--- a/website/agenda/planung/audio_recordings.cgi
+++ b/website/agenda/planung/audio_recordings.cgi
@@ -6,7 +6,7 @@ use warnings;
use strict;
use Data::Dumper;
-use CGI::Simple ();
+use CGI::Simple ();
use ModPerl::Util ();
use Date::Calc();
use Time::Local();
@@ -141,8 +141,9 @@ sub uploadRecording {
#print STDERR Dumper($fh)."
";
my $fileInfo = uploadFile( $config, $fh, $params->{event_id}, $user, $params->{upload} );
$params->{error} .= $fileInfo->{error} if defined $fileInfo->{error};
- $params->{path} = $fileInfo->{path};
- $params->{size} = $fileInfo->{size};
+ $params->{path} = $fileInfo->{path};
+ $params->{size} = $fileInfo->{size};
+
#$params->{duration} = $fileInfo->{duration};
$params = updateDatabase( $config, $params, $user ) if $params->{error} eq '';
} else {
@@ -292,18 +293,19 @@ sub showAudioRecordings {
event_id => $params->{event_id},
}
);
+
#print Dumper($audioRecordings);
for my $recording (@$audioRecordings) {
$recording->{size} =~ s/(\d)(\d\d\d)$/$1\.$2/g;
$recording->{size} =~ s/(\d)(\d\d\d\.\d\d\d)$/$1\.$2/g;
$recording->{processed} = $recording->{processed} ? 'yes' : 'no';
- $recording->{mastered} = $recording->{mastered} ? 'yes' : 'no';
+ $recording->{mastered} = $recording->{mastered} ? 'yes' : 'no';
$recording->{eventDuration} = getDuration( $recording->{eventDuration} );
$recording->{audioDuration} = getDuration( $recording->{audioDuration} );
- $recording->{rmsLeft} ||= '-';
+ $recording->{rmsLeft} ||= '-';
$recording->{rmsRight} ||= '-';
}
@@ -323,19 +325,19 @@ sub showAudioRecordings {
}
-sub getDuration{
- my $duration=shift;
- my $hour = int($duration / 3600);
- $duration -= $hour * 3600;
+sub getDuration {
+ my $duration = shift;
+ my $hour = int( $duration / 3600 );
+ $duration -= $hour * 3600;
- my $minutes = int($duration / 60);
- $duration -= $minutes * 60;
+ my $minutes = int( $duration / 60 );
+ $duration -= $minutes * 60;
- my $seconds = int($duration);
- $duration -= $seconds;
+ my $seconds = int($duration);
+ $duration -= $seconds;
- my $milli= int(100 * $duration);
- return sprintf("%02d:%02d:%02d.%02d",$hour, $minutes, $seconds, $milli);
+ my $milli = int( 100 * $duration );
+ return sprintf( "%02d:%02d:%02d.%02d", $hour, $minutes, $seconds, $milli );
}
sub uploadFile {
@@ -391,7 +393,7 @@ sub updateDatabase {
my $params = shift;
my $user = shift;
- my $eventDuration = getEventDuration($config, $params->{event_id});
+ my $eventDuration = getEventDuration( $config, $params->{event_id} );
my $entry = {
project_id => $params->{project_id},
@@ -402,6 +404,7 @@ sub updateDatabase {
created_by => $user,
eventDuration => $eventDuration
};
+
#print STDERR "updateDatabase:" . Dumper($entry);
#connect
@@ -425,14 +428,14 @@ sub updateDatabase {
$params->{id} = $entry->{id};
} else {
print STDERR "insert\n";
- $entry->{created_by} = $user;
- $entry->{processed} = 0;
- $entry->{mastered} = 0;
- $entry->{rmsLeft} = 0.0;
- $entry->{rmsRight} = 0.0;
- $entry->{audioDuration} = 0.0;
- $entry->{modified_at} = time();
- $params->{id} = audio_recordings::insert( $config, $dbh, $entry );
+ $entry->{created_by} = $user;
+ $entry->{processed} = 0;
+ $entry->{mastered} = 0;
+ $entry->{rmsLeft} = 0.0;
+ $entry->{rmsRight} = 0.0;
+ $entry->{audioDuration} = 0.0;
+ $entry->{modified_at} = time();
+ $params->{id} = audio_recordings::insert( $config, $dbh, $entry );
}
$config->{access}->{write} = 0;
$params->{action_result} = 'done!';
@@ -504,15 +507,15 @@ sub checkFilename {
}
# return event duration in seconds
-sub getEventDuration{
- my $config = shift;
- my $eventId = shift;
+sub getEventDuration {
+ my $config = shift;
+ my $eventId = shift;
+
+ if ( $eventId < 1 ) {
+ print STDERR "invalid eventId $eventId\n";
+ return 0;
+ }
- if ($eventId<1){
- print STDERR "invalid eventId $eventId\n";
- return 0;
- }
-
my $request = {
params => {
checked => events::check_params(
@@ -524,16 +527,16 @@ sub getEventDuration{
}
)
},
- config => $config
+ config => $config
};
- $request->{params}->{checked}->{published}='all';
- my $events = events::get( $config, $request );
- if (scalar @$events == 0){
- print STDERR "getEventDuration: no event found with event_id=$eventId\n";
+ $request->{params}->{checked}->{published} = 'all';
+ my $events = events::get( $config, $request );
+ if ( scalar @$events == 0 ) {
+ print STDERR "getEventDuration: no event found with event_id=$eventId\n";
}
- my $event = $events->[0];
- my $duration = time::get_duration_seconds( $event->{start}, $event->{end}, $config->{date}->{time_zone} );
- return $duration;
+ my $event = $events->[0];
+ my $duration = time::get_duration_seconds( $event->{start}, $event->{end}, $config->{date}->{time_zone} );
+ return $duration;
}
sub check_params {
diff --git a/website/agenda/planung/calendar.cgi b/website/agenda/planung/calendar.cgi
index 267877f..131a2ab 100644
--- a/website/agenda/planung/calendar.cgi
+++ b/website/agenda/planung/calendar.cgi
@@ -37,15 +37,15 @@ my $r = shift;
my $config = config::get('../config/config.cgi');
my $debug = $config->{system}->{debug};
my ( $user, $expires ) = auth::get_user( $cgi, $config );
-return if ( ( !defined $user ) || ( $user eq '' ) );
+return if ( !defined $user ) || ( $user eq '' );
my $user_presets = uac::get_user_presets(
- $config,
- {
- user => $user,
- project_id => $params->{project_id},
- studio_id => $params->{studio_id}
- }
+ $config,
+ {
+ user => $user,
+ project_id => $params->{project_id},
+ studio_id => $params->{studio_id}
+ }
);
$params->{default_studio_id} = $user_presets->{studio_id};
$params->{project_id} = $user_presets->{project_id}
@@ -59,24 +59,24 @@ my $scriptName = 'calendar.cgi';
#add "all" studio to select box
unshift @{ $user_presets->{studios} },
{
- id => -1,
- name => '-all-'
+ id => -1,
+ name => '-all-'
};
# select studios, TODO: do in JS
if ( $params->{studio_id} eq '-1' ) {
- for my $studio ( @{ $user_presets->{studios} } ) {
- delete $studio->{selected};
- $studio->{selected} = 1 if $params->{studio_id} eq $studio->{id};
- }
+ for my $studio ( @{ $user_presets->{studios} } ) {
+ delete $studio->{selected};
+ $studio->{selected} = 1 if $params->{studio_id} eq $studio->{id};
+ }
}
my $request = {
- url => $ENV{QUERY_STRING} || '',
- params => {
- original => $params,
- checked => check_params( $params, $config ),
- },
+ url => $ENV{QUERY_STRING} || '',
+ params => {
+ original => $params,
+ checked => check_params( $params, $config ),
+ },
};
$request = uac::prepare_request( $request, $user_presets );
@@ -85,21 +85,21 @@ $params = $request->{params}->{checked};
#print STDERR Dumper($request);
if (
- (
- ( defined $params->{action} ) && ( ( $params->{action} eq 'show' )
- || ( $params->{action} eq 'edit_event' ) )
- )
- || ( $params->{part} == 1 )
+ (
+ ( defined $params->{action} ) && ( ( $params->{action} eq 'show' )
+ || ( $params->{action} eq 'edit_event' ) )
+ )
+ || ( $params->{part} == 1 )
)
{
- print "Content-type:text/html; charset=UTF-8;\n\n";
+ print "Content-type:text/html; charset=UTF-8;\n\n";
} else {
- #process header
- my $headerParams = uac::set_template_permissions( $request->{permissions}, $params );
- $headerParams->{loc} = localization::get( $config, { user => $user, file => 'menu' } );
- template::process( 'print', template::check('default.html'), $headerParams );
- print q{
+ #process header
+ my $headerParams = uac::set_template_permissions( $request->{permissions}, $params );
+ $headerParams->{loc} = localization::get( $config, { user => $user, file => 'menu' } );
+ template::process( 'print', template::check('default.html'), $headerParams );
+ print q{
@@ -107,43 +107,43 @@ if (
};
- if ( $params->{list} eq '1' ) {
- print q{
+ if ( $params->{list} eq '1' ) {
+ print q{
};
- }
+ }
}
if ( defined $user_presets->{error} ) {
- print "
";
- uac::print_error( $user_presets->{error} );
- return;
+ print "
";
+ uac::print_error( $user_presets->{error} );
+ return;
}
$config->{access}->{write} = 0;
unless ( defined $params->{project_id} ) {
- uac::print_error("Please select a project");
- return;
+ uac::print_error("Please select a project");
+ return;
}
if ( $params->{project_id} ne '-1' ) {
- if ( project::check( $config, { project_id => $params->{project_id} } ) ne '1' ) {
- uac::print_error("invalid project");
- return;
- }
+ if ( project::check( $config, { project_id => $params->{project_id} } ) ne '1' ) {
+ uac::print_error("invalid project");
+ return;
+ }
}
unless ( defined $params->{studio_id} ) {
- uac::print_error("Please select a studio");
- return;
+ uac::print_error("Please select a studio");
+ return;
}
if ( $params->{studio_id} ne '-1' ) {
- if ( studios::check( $config, { studio_id => $params->{studio_id} } ) ne '1' ) {
- uac::print_error("invalid studio");
- return;
- }
+ if ( studios::check( $config, { studio_id => $params->{studio_id} } ) ne '1' ) {
+ uac::print_error("invalid studio");
+ return;
+ }
}
my $start_of_day = $params->{day_start};
@@ -153,291 +153,295 @@ our $hour_height = 60;
our $yzoom = 1.5;
showCalendar(
- $config, $request,
- {
- hour_height => $hour_height,
- yzoom => $yzoom,
- start_of_day => $start_of_day,
- end_of_day => $end_of_day,
- }
+ $config, $request,
+ {
+ hour_height => $hour_height,
+ yzoom => $yzoom,
+ start_of_day => $start_of_day,
+ end_of_day => $end_of_day,
+ }
);
sub showCalendar {
- my $config = shift;
- my $request = shift;
- my $cal_options = shift;
+ my $config = shift;
+ my $request = shift;
+ my $cal_options = shift;
- my $hour_height = $cal_options->{hour_height};
- my $yzoom = $cal_options->{yzoom};
- my $start_of_day = $cal_options->{start_of_day};
- my $end_of_day = $cal_options->{end_of_day};
+ my $hour_height = $cal_options->{hour_height};
+ my $yzoom = $cal_options->{yzoom};
+ my $start_of_day = $cal_options->{start_of_day};
+ my $end_of_day = $cal_options->{end_of_day};
- my $params = $request->{params}->{checked};
- my $permissions = $request->{permissions};
- unless ( $permissions->{read_series} == 1 ) {
- uac::permissions_denied('read_series');
- return;
- }
+ my $params = $request->{params}->{checked};
+ my $permissions = $request->{permissions};
+ unless ( $permissions->{read_series} == 1 ) {
+ uac::permissions_denied('read_series');
+ return;
+ }
- #get range from user settings
- my $user_settings = user_settings::get( $config, { user => $params->{presets}->{user} } );
- $params->{range} = $user_settings->{range} unless defined $params->{range};
- $params->{range} = 28 unless defined $params->{range};
+ #get range from user settings
+ my $user_settings = user_settings::get( $config, { user => $params->{presets}->{user} } );
+ $params->{range} = $user_settings->{range} unless defined $params->{range};
+ $params->{range} = 28 unless defined $params->{range};
- #get colors from user settings
- print user_settings::getColorCss( $config, { user => $params->{presets}->{user} } ) if $params->{part} == 0;
+ #get colors from user settings
+ print user_settings::getColorCss( $config, { user => $params->{presets}->{user} } ) if $params->{part} == 0;
- $params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'all,calendar' } );
- my $language = $user_settings->{language} || 'en';
- $params->{language} = $language;
- print localization::getJavascript( $params->{loc} ) if $params->{part} == 0;
+ $params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'all,calendar' } );
+ my $language = $user_settings->{language} || 'en';
+ $params->{language} = $language;
+ print localization::getJavascript( $params->{loc} ) if $params->{part} == 0;
- my $calendar = getCalendar( $config, $params, $language );
- my $options = {};
- my $events = [];
+ my $calendar = getCalendar( $config, $params, $language );
+ my $options = {};
+ my $events = [];
- if ( ( $params->{part} == 1 ) || ( $params->{list} == 1 ) ) {
+ if ( ( $params->{part} == 1 ) || ( $params->{list} == 1 ) ) {
- #set date range
- my $from = $calendar->{from_date};
- my $till = $calendar->{till_date};
+ #set date range
+ my $from = $calendar->{from_date};
+ my $till = $calendar->{till_date};
- my $project_id = $params->{project_id};
- my $studio_id = $params->{studio_id};
+ my $project_id = $params->{project_id};
+ my $studio_id = $params->{studio_id};
- #build event filter
- $options = {
- project_id => $project_id,
- template => 'no',
- limit => 600,
- get => 'no_content',
- from_date => $from,
- till_date => $till,
- date_range_include => 1,
- archive => 'all',
- };
+ #build event filter
+ $options = {
+ project_id => $project_id,
+ template => 'no',
+ limit => 600,
+ get => 'no_content',
+ from_date => $from,
+ till_date => $till,
+ date_range_include => 1,
+ archive => 'all',
+ };
- # set options depending on switches
- if ( $params->{studio_id} ne '-1' ) {
- $options->{studio_id} = $studio_id;
- my $location = $params->{presets}->{studio}->{location};
- $options->{location} = $location if $location =~ /\S/;
- }
+ # set options depending on switches
+ if ( $params->{studio_id} ne '-1' ) {
+ $options->{studio_id} = $studio_id;
+ my $location = $params->{presets}->{studio}->{location};
+ $options->{location} = $location if $location =~ /\S/;
+ }
- if ( $params->{project_id} ne '-1' ) {
- $options->{project_id} = $project_id;
- my $project = $params->{presets}->{project}->{name};
- $options->{project} = $project if $project =~ /\S/;
- }
+ if ( $params->{project_id} ne '-1' ) {
+ $options->{project_id} = $project_id;
+ my $project = $params->{presets}->{project}->{name};
+ $options->{project} = $project if $project =~ /\S/;
+ }
- if ( defined $params->{series_id} ) {
- $options->{series_id} = $params->{series_id};
- delete $options->{from_date};
- delete $options->{till_date};
- delete $options->{date_range_include};
- }
+ if ( defined $params->{series_id} ) {
+ $options->{series_id} = $params->{series_id};
+ delete $options->{from_date};
+ delete $options->{till_date};
+ delete $options->{date_range_include};
+ }
- if ( $params->{search} =~ /\S/ ) {
- $options->{search} = $params->{search};
- delete $options->{from_date} if ( $params->{list} == 1 );
- delete $options->{till_date} if ( $params->{list} == 1 );
- delete $options->{date_range_include} if ( $params->{list} == 1 );
- }
+ if ( $params->{search} =~ /\S/ ) {
+ if ( $params->{list} == 1 ) {
+ $options->{search} = $params->{search};
+ delete $options->{from_date};
+ delete $options->{till_date};
+ delete $options->{date_range_include};
+ }
+ }
- $options->{draft} = 0 unless $params->{list} == 1;
+ $options->{draft} = 0 unless $params->{list} == 1;
- #get events sorted by date
- $events = getSeriesEvents( $config, $request, $options, $params );
- unless ( $params->{list} == 1 ) {
- for my $event (@$events) {
- $event->{origStart} = $event->{start};
- }
- $events = break_dates( $events, $start_of_day );
- }
+ #get events sorted by date
+ $events = getSeriesEvents( $config, $request, $options, $params );
+ unless ( $params->{list} == 1 ) {
+ for my $event (@$events) {
+ $event->{origStart} = $event->{start};
+ }
+ $events = break_dates( $events, $start_of_day );
+ }
- # recalc after break (for list only?)
- for my $event (@$events) {
+ # recalc after break (for list only?)
+ for my $event (@$events) {
- #if ($event->{splitCount}>0){
- delete $event->{day};
- delete $event->{start_date};
- delete $event->{end_date};
- $event = events::calc_dates( $config, $event );
+ #if ($event->{splitCount}>0){
+ delete $event->{day};
+ delete $event->{start_date};
+ delete $event->{end_date};
+ $event = events::calc_dates( $config, $event );
- #}
- }
+ #}
+ }
- my $events_by_start = {};
- for my $event (@$events) {
- $events_by_start->{ $event->{start} } = $event;
- }
+ my $events_by_start = {};
+ for my $event (@$events) {
+ $events_by_start->{ $event->{start} } = $event;
+ }
- #build series filter
- $options = {
- project_id => $project_id,
- studio_id => $studio_id,
- from => $from,
- till => $till,
- date_range_include => 1,
- exclude => 0
- };
+ #build series filter
+ $options = {
+ project_id => $project_id,
+ studio_id => $studio_id,
+ from => $from,
+ till => $till,
+ date_range_include => 1,
+ exclude => 0
+ };
- if ( defined $params->{series_id} ) {
- $options->{series_id} = $params->{series_id};
- delete $options->{from};
- delete $options->{till};
- delete $options->{date_range_include};
- }
+ if ( defined $params->{series_id} ) {
+ $options->{series_id} = $params->{series_id};
+ delete $options->{from};
+ delete $options->{till};
+ delete $options->{date_range_include};
+ }
- if ( $params->{search} =~ /\S/ ) {
- $options->{search} = $params->{search};
- delete $options->{from} if ( $params->{list} == 1 );
- delete $options->{till} if ( $params->{list} == 1 );
- delete $options->{date_range_include} if ( $params->{list} == 1 );
- }
+ if ( $params->{search} =~ /\S/ ) {
+ $options->{search} = $params->{search};
+ if ( $params->{list} == 1 ) {
+ delete $options->{from};
+ delete $options->{till};
+ delete $options->{date_range_include};
+ }
+ }
- #get all series dates
- my $series_dates = series_dates::get_series( $config, $options );
- my $id = 0;
- for my $date (@$series_dates) {
- $date->{schedule} = 1;
+ #get all series dates
+ my $series_dates = series_dates::get_series( $config, $options );
+ my $id = 0;
+ for my $date (@$series_dates) {
+ $date->{schedule} = 1;
- #$date->{event_id}=-1;
- $date->{event_id} = $id;
- $date->{origStart} = $date->{start};
- delete $date->{day};
- delete $date->{start_date};
- delete $date->{end_date};
- $id++;
- }
- unless ( $params->{list} == 1 ) {
- $series_dates = break_dates( $series_dates, $start_of_day );
- }
+ #$date->{event_id}=-1;
+ $date->{event_id} = $id;
+ $date->{origStart} = $date->{start};
+ delete $date->{day};
+ delete $date->{start_date};
+ delete $date->{end_date};
+ $id++;
+ }
+ unless ( $params->{list} == 1 ) {
+ $series_dates = break_dates( $series_dates, $start_of_day );
+ }
- #merge series and events
- for my $date (@$series_dates) {
- $date = events::calc_dates( $config, $date );
- push @$events, $date;
- }
+ #merge series and events
+ for my $date (@$series_dates) {
+ $date = events::calc_dates( $config, $date );
+ push @$events, $date;
+ }
- #get timeslot_dates
- my $studio_dates = studio_timeslot_dates::get( $config, $options );
+ #get timeslot_dates
+ my $studio_dates = studio_timeslot_dates::get( $config, $options );
- #print STDERR Dumper($options);
- $id = 0;
- for my $date (@$studio_dates) {
- $date->{grid} = 1;
- $date->{series_id} = -1;
+ #print STDERR Dumper($options);
+ $id = 0;
+ for my $date (@$studio_dates) {
+ $date->{grid} = 1;
+ $date->{series_id} = -1;
- #$date->{event_id}=-1;
- $date->{event_id} = $id;
- $date->{origStart} = $date->{start};
- delete $date->{day};
- delete $date->{start_date};
- delete $date->{end_date};
- $id++;
- }
- unless ( $params->{list} == 1 ) {
- $studio_dates = break_dates( $studio_dates, $start_of_day );
- }
+ #$date->{event_id}=-1;
+ $date->{event_id} = $id;
+ $date->{origStart} = $date->{start};
+ delete $date->{day};
+ delete $date->{start_date};
+ delete $date->{end_date};
+ $id++;
+ }
+ unless ( $params->{list} == 1 ) {
+ $studio_dates = break_dates( $studio_dates, $start_of_day );
+ }
- for my $date (@$studio_dates) {
- $date = events::calc_dates( $config, $date );
- push @$events, $date;
- }
+ for my $date (@$studio_dates) {
+ $date = events::calc_dates( $config, $date );
+ push @$events, $date;
+ }
- #get work_dates
- my $work_dates = work_dates::get( $config, $options );
- for my $date (@$work_dates) {
- $date->{work} = 1;
- $date->{series_id} = -1;
- $date->{event_id} = -1;
- $date->{origStart} = $date->{start};
- delete $date->{day};
- delete $date->{start_date};
- delete $date->{end_date};
- }
- unless ( $params->{list} == 1 ) {
- $work_dates = break_dates( $work_dates, $start_of_day );
- }
+ #get work_dates
+ my $work_dates = work_dates::get( $config, $options );
+ for my $date (@$work_dates) {
+ $date->{work} = 1;
+ $date->{series_id} = -1;
+ $date->{event_id} = -1;
+ $date->{origStart} = $date->{start};
+ delete $date->{day};
+ delete $date->{start_date};
+ delete $date->{end_date};
+ }
+ unless ( $params->{list} == 1 ) {
+ $work_dates = break_dates( $work_dates, $start_of_day );
+ }
- for my $date (@$work_dates) {
- $date = events::calc_dates( $config, $date );
- push @$events, $date;
- }
+ for my $date (@$work_dates) {
+ $date = events::calc_dates( $config, $date );
+ push @$events, $date;
+ }
- #get playout
- delete $options->{exclude};
- my $playout_dates = playout::get( $config, $options );
- $id = 0;
- for my $date (@$playout_dates) {
- my $format = undef;
- if ( defined $date->{'format'} ) {
- $format =
- ( $date->{'format'} || '' ) . " " . ( $date->{'format_version'} || '' ) . " " . ( $date->{'format_profile'} || '' );
- $format =~ s/MPEG Audio Version 1 Layer 3/MP3/g;
- $format .= ' ' . ( $date->{'format_settings'} || '' ) if defined $date->{'format_settings'};
- $format .= '
';
- }
+ #get playout
+ delete $options->{exclude};
+ my $playout_dates = playout::get( $config, $options );
+ $id = 0;
+ for my $date (@$playout_dates) {
+ my $format = undef;
+ if ( defined $date->{'format'} ) {
+ $format =
+ ( $date->{'format'} || '' ) . " " . ( $date->{'format_version'} || '' ) . " " . ( $date->{'format_profile'} || '' );
+ $format =~ s/MPEG Audio Version 1 Layer 3/MP3/g;
+ $format .= ' ' . ( $date->{'format_settings'} || '' ) if defined $date->{'format_settings'};
+ $format .= '
';
+ }
- #print STDERR Dumper($date);
- $date->{play} = 1;
- $date->{series_id} = -1;
- $date->{event_id} = $id;
- $date->{title} = '';
- $date->{title} .= 'errors: ' . $date->{errors} . '
' if defined $date->{errors};
- $date->{title} .= formatDuration( $date->{duration} ) . "s
" if defined $date->{duration};
- $date->{title} .= formatLoudness( "L:", $date->{rms_left} ) . ' dB, ' if defined $date->{rms_left};
- $date->{title} .= formatLoudness( "R:", $date->{rms_right} ) . ' dB
' if defined $date->{rms_right};
- $date->{title} .= formatBitrate( $date->{bitrate} ) . ' ' . $date->{bitrate_mode} . '
' if defined $date->{bitrate};
- $date->{title} .= 'replay gain ' . sprintf( "%.1f", $date->{replay_gain} ) . '
' if defined $date->{replay_gain};
- $date->{title} .= ( ( $date->{sampling_rate} || '0' ) / 1000 ) . ' kHz
' if defined $date->{sampling_rate};
- $date->{title} .= ( $date->{channels} || '' ) . ' channels
' if defined $date->{channels};
- $date->{title} .= int( ( $date->{'stream_size'} || '0' ) / ( 1024 * 1024 ) ) . 'MB
' if defined $date->{'stream_size'};
- $date->{title} .= $format if defined $format;
- $date->{title} .= 'library: ' . ( $date->{writing_library} || '' ) . '
' if defined $date->{'writing_library'};
- $date->{title} .= 'path: ' . ( $date->{file} || '' ) . '
' if defined $date->{file};
- $date->{title} .= 'updated_at: ' . ( $date->{updated_at} || '' ) . '
' if defined $date->{updated_at};
- $date->{title} .= 'modified_at: ' . ( $date->{modified_at} || '' ) . '
' if defined $date->{modified_at};
+ #print STDERR Dumper($date);
+ $date->{play} = 1;
+ $date->{series_id} = -1;
+ $date->{event_id} = $id;
+ $date->{title} = '';
+ $date->{title} .= 'errors: ' . $date->{errors} . '
' if defined $date->{errors};
+ $date->{title} .= formatDuration( $date->{duration} ) . "s
" if defined $date->{duration};
+ $date->{title} .= formatLoudness( "L:", $date->{rms_left} ) . ' dB, ' if defined $date->{rms_left};
+ $date->{title} .= formatLoudness( "R:", $date->{rms_right} ) . ' dB
' if defined $date->{rms_right};
+ $date->{title} .= formatBitrate( $date->{bitrate} ) . ' ' . $date->{bitrate_mode} . '
' if defined $date->{bitrate};
+ $date->{title} .= 'replay gain ' . sprintf( "%.1f", $date->{replay_gain} ) . '
' if defined $date->{replay_gain};
+ $date->{title} .= ( ( $date->{sampling_rate} || '0' ) / 1000 ) . ' kHz
' if defined $date->{sampling_rate};
+ $date->{title} .= ( $date->{channels} || '' ) . ' channels
' if defined $date->{channels};
+ $date->{title} .= int( ( $date->{'stream_size'} || '0' ) / ( 1024 * 1024 ) ) . 'MB
' if defined $date->{'stream_size'};
+ $date->{title} .= $format if defined $format;
+ $date->{title} .= 'library: ' . ( $date->{writing_library} || '' ) . '
' if defined $date->{'writing_library'};
+ $date->{title} .= 'path: ' . ( $date->{file} || '' ) . '
' if defined $date->{file};
+ $date->{title} .= 'updated_at: ' . ( $date->{updated_at} || '' ) . '
' if defined $date->{updated_at};
+ $date->{title} .= 'modified_at: ' . ( $date->{modified_at} || '' ) . '
' if defined $date->{modified_at};
- #print STDERR Dumper($date) if $date->{file}=~/180503/;
- #$date->{title}.= 'rms_image: ' .($date->{rms_image}||'').'
' if defined $date->{rms_image};
+ #print STDERR Dumper($date) if $date->{file}=~/180503/;
+ #$date->{title}.= 'rms_image: ' .($date->{rms_image}||'').'
' if defined $date->{rms_image};
- $date->{rms_image} = URI::Escape::uri_unescape( $date->{rms_image} ) if defined $date->{rms_image};
+ $date->{rms_image} = URI::Escape::uri_unescape( $date->{rms_image} ) if defined $date->{rms_image};
- $date->{origStart} = $date->{start};
+ $date->{origStart} = $date->{start};
- # set end date seconds to 00 to handle error at break_dates/join_dates
- $date->{end} =~ s/(\d\d\:\d\d)\:\d\d/$1\:00/;
- delete $date->{day};
- delete $date->{start_date};
- delete $date->{end_date};
- $id++;
- }
+ # set end date seconds to 00 to handle error at break_dates/join_dates
+ $date->{end} =~ s/(\d\d\:\d\d)\:\d\d/$1\:00/;
+ delete $date->{day};
+ delete $date->{start_date};
+ delete $date->{end_date};
+ $id++;
+ }
- unless ( $params->{list} == 1 ) {
- $playout_dates = break_dates( $playout_dates, $start_of_day );
- }
+ unless ( $params->{list} == 1 ) {
+ $playout_dates = break_dates( $playout_dates, $start_of_day );
+ }
- for my $date (@$playout_dates) {
- $date = events::calc_dates( $config, $date );
- if ( defined $events_by_start->{ $date->{start} } ) {
- $events_by_start->{ $date->{start} }->{duration} = $date->{duration} || 0;
- $events_by_start->{ $date->{start} }->{rms_left} = $date->{rms_left} || 0;
- $events_by_start->{ $date->{start} }->{rms_right} = $date->{rms_right} || 0;
- $events_by_start->{ $date->{start} }->{playout_modified_at} = $date->{modified_at};
- $events_by_start->{ $date->{start} }->{playout_updated_at} = $date->{updated_at};
- }
- push @$events, $date;
- }
+ for my $date (@$playout_dates) {
+ $date = events::calc_dates( $config, $date );
+ if ( defined $events_by_start->{ $date->{start} } ) {
+ $events_by_start->{ $date->{start} }->{duration} = $date->{duration} || 0;
+ $events_by_start->{ $date->{start} }->{rms_left} = $date->{rms_left} || 0;
+ $events_by_start->{ $date->{start} }->{rms_right} = $date->{rms_right} || 0;
+ $events_by_start->{ $date->{start} }->{playout_modified_at} = $date->{modified_at};
+ $events_by_start->{ $date->{start} }->{playout_updated_at} = $date->{updated_at};
+ }
+ push @$events, $date;
+ }
- }
+ }
- #output
- printToolbar( $config, $params, $calendar ) if $params->{part} == 0;
+ #output
+ printToolbar( $config, $params, $calendar ) if $params->{part} == 0;
- #if($params->{part}==1){
- print qq{
+ #if($params->{part}==1){
+ print qq{
};
- #}
+ #}
- #filter events by time
- unless ( $params->{list} == 1 ) {
- $events = filterEvents( $events, $options, $start_of_day );
- }
+ #filter events by time
+ unless ( $params->{list} == 1 ) {
+ $events = filterEvents( $events, $options, $start_of_day );
+ }
- #sort events by start
- @$events = sort { $a->{start} cmp $b->{start} } @$events;
+ #sort events by start
+ @$events = sort { $a->{start} cmp $b->{start} } @$events;
- #for my $date(@$events){debugDate($date);}
+ #for my $date(@$events){debugDate($date);}
- #separate by day (e.g. to 6 pm)
- my $events_by_day = {};
- for my $event (@$events) {
- my $day = time::datetime_to_date( time::add_hours_to_datetime( $event->{start}, -$start_of_day ) );
- push @{ $events_by_day->{$day} }, $event;
- }
+ #separate by day (e.g. to 6 pm)
+ my $events_by_day = {};
+ for my $event (@$events) {
+ my $day = time::datetime_to_date( time::add_hours_to_datetime( $event->{start}, -$start_of_day ) );
+ push @{ $events_by_day->{$day} }, $event;
+ }
- #get min and max hour from all events
- unless ( $params->{list} == 1 ) {
- my $min_hour = 48;
- my $max_hour = 0;
+ #get min and max hour from all events
+ unless ( $params->{list} == 1 ) {
+ my $min_hour = 48;
+ my $max_hour = 0;
- for my $event (@$events) {
- if ( $event->{start} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
- my $hour = $1;
- $hour += 24 if $hour < $start_of_day;
- $min_hour = $hour if ( ( $hour < $min_hour ) && ( $hour >= $start_of_day ) );
- }
- if ( $event->{end} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
- my $hour = $1;
- $hour += 24 if $hour <= $start_of_day;
- $max_hour = $hour if ( ( $hour > $max_hour ) && ( $hour <= $end_of_day ) );
- }
- }
- $cal_options->{min_hour} = $min_hour;
- $cal_options->{max_hour} = $max_hour;
- }
+ for my $event (@$events) {
+ if ( $event->{start} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
+ my $hour = $1;
+ $hour += 24 if $hour < $start_of_day;
+ $min_hour = $hour if ( $hour < $min_hour ) && ( $hour >= $start_of_day );
+ }
+ if ( $event->{end} =~ /(\d\d)\:\d\d\:\d\d$/ ) {
+ my $hour = $1;
+ $hour += 24 if $hour <= $start_of_day;
+ $max_hour = $hour if ( $hour > $max_hour ) && ( $hour <= $end_of_day );
+ }
+ }
+ $cal_options->{min_hour} = $min_hour;
+ $cal_options->{max_hour} = $max_hour;
+ }
- #print STDERR $start_of_day." ".$cal_options->{min_hour}."\n";
+ #print STDERR $start_of_day." ".$cal_options->{min_hour}."\n";
- # calculate positions and find schedule errors (depending on position)
- for my $date ( sort ( keys %$events_by_day ) ) {
- my $events = $events_by_day->{$date};
- calc_positions( $events, $cal_options );
- find_errors($events);
- }
+ # calculate positions and find schedule errors (depending on position)
+ for my $date ( sort ( keys %$events_by_day ) ) {
+ my $events = $events_by_day->{$date};
+ calc_positions( $events, $cal_options );
+ find_errors($events);
+ }
- for my $event (@$events) {
- next unless defined $event->{uploaded_at};
+ for my $event (@$events) {
+ next unless defined $event->{uploaded_at};
#print STDERR "uploadAt=$event->{uploaded_at}, playoutModified:$event->{playout_modified_at}, playoutUpdatedAt:$event->{playout_updated_at}\n";
- next if ( defined $event->{playout_updated_at} ) && ( $event->{uploaded_at} lt $event->{playout_updated_at} );
+ next if ( defined $event->{playout_updated_at} ) && ( $event->{uploaded_at} lt $event->{playout_updated_at} );
- #print STDERR Dumper($event);
- #$event->{upload} ='pending' ;
- #$event->{title}.='
pending';
- }
+ #print STDERR Dumper($event);
+ #$event->{upload} ='pending' ;
+ #$event->{title}.='
pending';
+ }
- if ( $params->{list} == 1 ) {
- showEventList( $config, $permissions, $params, $events_by_day );
- } else {
- if ( $params->{part} == 0 ) {
- print qq{ };
- }
- if ( $params->{part} == 1 ) {
- calcCalendarTable( $config, $permissions, $params, $calendar, $events_by_day, $cal_options );
- printTableHeader( $config, $permissions, $params, $cal_options );
- printTableBody( $config, $permissions, $params, $cal_options );
- }
- if ( $params->{part} == 0 ) {
- printSeries( $config, $permissions, $params, $cal_options );
- print qq{
+ if ( $params->{list} == 1 ) {
+ showEventList( $config, $permissions, $params, $events_by_day );
+ } else {
+ if ( $params->{part} == 0 ) {
+ print qq{ };
+ }
+ if ( $params->{part} == 1 ) {
+ calcCalendarTable( $config, $permissions, $params, $calendar, $events_by_day, $cal_options );
+ printTableHeader( $config, $permissions, $params, $cal_options );
+ printTableBody( $config, $permissions, $params, $cal_options );
+ }
+ if ( $params->{part} == 0 ) {
+ printSeries( $config, $permissions, $params, $cal_options );
+ print qq{
};
- }
+ }
- # time has to be set when events come in
- printJavascript( $config, $permissions, $params, $cal_options );
- if ( $params->{part} == 0 ) {
- print qq{
+ # time has to be set when events come in
+ printJavascript( $config, $permissions, $params, $cal_options );
+ if ( $params->{part} == 0 ) {
+ print qq{