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

copy current state of medienstaatsvertrag.org, to be verified

Browse Source
This commit is contained in:
Milan
2017-12-18 10:58:50 +01:00
parent 8b35e7c5c2
commit 69e5d0e4c6
401 changed files with 74197 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

478
lib/calcms/project.pm Normal file
View File

@@ -0,0 +1,478 @@
#!/bin/perl
package project;
use warnings "all";
use strict;
use Data::Dumper;
use Date::Calc;
use config;
use log;
use template;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
check get_columns get insert delete get_date_range
get_studios assign_studio unassign_studio is_studio_assigned get_studio_assignments
get_series_ids assign_series unassign_series is_series_assigned get_series_assignments
get_with_dates get_sorted
);
#TODO: globally replace get_studios by get_studio_assignments
our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
sub debug;
# get project columns
sub get_columns{
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;
}
# get projects
sub get{
my $config=shift;
my $condition=shift;
my $dbh=db::connect($config);
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->{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 $conditions='';
$conditions=" where ".join(" and ",@conditions) if (@conditions>0);
my $query=qq{
select *
from calcms_projects
$conditions
order by start_date
$limit
};
#print STDERR Dumper($query).Dumper(\@bind_values);
my $projects=db::get($dbh, $query, \@bind_values);
return $projects;
}
sub get_date_range{
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 $projects=db::get($dbh, $query);
return $projects->[0];
}
# insert project
sub insert{
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 $dbh=db::connect($config);
my $id=db::insert($dbh, 'calcms_projects', $project);
return $id;
}
# delete project
sub delete{
my $config=shift;
my $entry=shift;
my $dbh=db::connect($config);
db::put($dbh, 'delete from calcms_projects where project_id=?', [$entry->{project_id}]);
}
# update project
sub update{
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 $values =join(",", map {$_.'=?'} (keys %$entry));
my @bind_values =map {$entry->{$_}} (keys %$entry);
push @bind_values,$entry->{project_id};
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);
}
# get studios of a project
sub get_studios{
my $config=shift;
my $options=shift;
return undef unless defined $options->{project_id};
my $project_id=$options->{project_id};
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]);
return $project_studios;
}
sub get_studio_assignments{
my $config=shift;
my $options=shift;
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->{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 $query=qq{
select *
from calcms_project_studios
$conditions
};
my $dbh=db::connect($config);
my $results=db::get($dbh, $query, \@bind_values);
return $results;
}
# is studio assigned to project
sub is_studio_assigned{
my $config=shift;
my $entry=shift;
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 $query=qq{
select *
from calcms_project_studios
where project_id=? and 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;
}
# assign studio to project
sub assign_studio{
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};
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;
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);
}
# get series by project and studio
sub get_series{
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};
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);
return $project_series;
}
sub get_series_assignments{
my $config=shift;
my $options=shift;
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->{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};
}
my $conditions='';
$conditions=" where ".join(" and ",@conditions) if (@conditions>0);
my $query=qq{
select *
from calcms_project_series
$conditions
};
my $dbh=db::connect($config);
my $results=db::get($dbh, $query, \@bind_values);
return $results;
}
# is series assigned to project and studio
sub is_series_assigned{
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};
my $project_id=$entry->{project_id};
my $studio_id= $entry->{studio_id};
my $series_id= $entry->{series_id};
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 $dbh=db::connect($config);
my $project_series=db::get($dbh,$query, $bind_values);
return 1 if @$project_series==1;
return 0;
}
# assign series to project and studio
sub assign_series{
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};
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;
}
# unassign series from project
# TODO: remove series _single_ if no event is assigned to
sub unassign_series{
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};
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);
}
sub get_with_dates{
my $config=shift;
my $options=shift;
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});
}
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);
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 $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 $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;
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;
}
sub error{
my $msg=shift;
print "ERROR: $msg<br/>\n";
}
#do not delete last line!
1;