remove cache

* remove cache, cache setup is not easy, todays servers do not really
* need it anymore
* add prototypes and fix parameter issues
* suppress redefinition
This commit is contained in:
Milan
2019-04-13 20:31:25 +02:00
parent e90ea3929d
commit d3fc5f998a
81 changed files with 3190 additions and 20267 deletions

View File

@@ -1,7 +1,9 @@
#! /usr/bin/perl -w
#!/usr/bin/perl
use warnings "all";
use strict;
use warnings;
no warnings 'redefine';
use Data::Dumper;
use config();
@@ -230,7 +232,8 @@ sub show_projects {
for my $project (@$projects) {
# get assigned studios
my $project_studio_assignements = project::get_studio_assignments( $config, { project_id => $project->{project_id} } );
my $project_studio_assignements =
project::get_studio_assignments( $config, { project_id => $project->{project_id} } );
$project->{pid} = $project->{project_id};
# get assigned studios by id
@@ -255,8 +258,8 @@ sub show_projects {
$project->{assigned_studios} = $assigned_studios;
$project->{unassigned_studios} = $unassigned_studios;
if ( (defined $params->{setImage}) && ($project->{pid} eq $params->{pid}) ){
$project->{image} = $params->{setImage};
if ( ( defined $params->{setImage} ) && ( $project->{pid} eq $params->{pid} ) ) {
$project->{image} = $params->{setImage};
}
}