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

fix template configuration

Browse Source
This commit is contained in:
Milan
2018-09-06 23:06:48 +02:00
parent 2481490e7d
commit e043493847
30 changed files with 4482 additions and 4487 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
website/agenda/series.cgi
View File

@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
use warnings "all";
use strict;
@@ -18,84 +18,85 @@ my $r = shift;
my $config = config::get('config/config.cgi');
$params = check_params($params);
$params = check_params( $config, $params );
list_series( $config, $params );
sub list_series {
my $config = shift;
my $params = shift;
my $config = shift;
my $params = shift;
$config->{access}->{write} = 0;
$config->{access}->{write} = 0;
my $project_id = $params->{project_id};
my $studio_id = $params->{studio_id};
my $location = $params->{location};
my $project_id = $params->{project_id};
my $studio_id = $params->{studio_id};
my $location = $params->{location};
if (defined $location){
my $studios = studios::get(
$config,
{
project_id => $project_id,
if ( defined $location ) {
my $studios = studios::get(
$config,
{
project_id => $project_id,
location => $location
}
);
}
);
$studio_id = $studios->[0]->{id};
}
my $conditions = {};
my $conditions = {};
$conditions->{project_id} = $project_id if defined $project_id;
$conditions->{studio_id} = $studio_id if defined $studio_id;
$conditions->{studio_id} = $studio_id if defined $studio_id;
if (scalar (keys %$conditions) == 0){
if ( scalar( keys %$conditions ) == 0 ) {
$params->{info} .= "missing parameters";
return;
}
$params->{info}.= Dumper($conditions);
$params->{info} .= Dumper($conditions);
my $series = series::get_event_age( $config, $conditions );
my $series2 = [];
for my $serie ( sort { lc $a->{series_name} cmp lc $b->{series_name} } (@$series) ) {
next if $serie->{days_over} > 80 ;
next if $serie->{days_over} == 0 ;
my $series = series::get_event_age( $config, $conditions );
my $series2 = [];
for my $serie ( sort { lc $a->{series_name} cmp lc $b->{series_name} } (@$series) ) {
next if $serie->{days_over} > 80;
next if $serie->{days_over} == 0;
next unless defined $serie->{series_name};
next if $serie->{series_name} eq '_single_';
push @$series2, $serie;
}
$params->{series} = $series2;
push @$series2, $serie;
}
$params->{series} = $series2;
$params->{info}.="no results found" if scalar(@$series)==0;
$params->{info}='';
$params->{info} .= "no results found" if scalar(@$series) == 0;
$params->{info} = '';
template::process($config, 'print', 'templates/series.html', $params );
template::process( $config, 'print', 'templates/series.html', $params );
}
sub check_params {
my $params = shift;
my $config = 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;
for my $param ('project_id', 'studio_id') {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
for my $param ( 'project_id', 'studio_id' ) {
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
$checked->{$param} = $params->{$param};
}
}
for my $param ( 'location') {
if ( defined $params->{$param} ) {
$checked->{$param} = $params->{$param};
$checked->{$param} =~ s/^\s+//g;
$checked->{$param} =~ s/\s+$//g;
}
}
for my $param ('location') {
if ( defined $params->{$param} ) {
$checked->{$param} = $params->{$param};
$checked->{$param} =~ s/^\s+//g;
$checked->{$param} =~ s/\s+$//g;
}
}
return $checked;
return $checked;
}