159 lines
3.6 KiB
Perl
159 lines
3.6 KiB
Perl
#!/bin/perl
|
|
|
|
use CGI;
|
|
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
|
|
use CGI::Session qw(-ip-match);
|
|
use CGI::Cookie;
|
|
#$CGI::Session::IP_MATCH=1;
|
|
|
|
package studios;
|
|
use warnings "all";
|
|
use strict;
|
|
use Data::Dumper;
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT_OK = qw(get_columns get get_by_id insert update delete check check_studio);
|
|
our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
|
|
|
|
sub debug;
|
|
|
|
sub get_columns{
|
|
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;
|
|
}
|
|
|
|
sub get{
|
|
my $config=shift;
|
|
my $condition=shift||{};
|
|
|
|
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->{name}) && ($condition->{name} ne '')){
|
|
push @conditions, 's.name=?';
|
|
push @bind_values, $condition->{name};
|
|
}
|
|
|
|
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{
|
|
select *
|
|
from calcms_studios s
|
|
$conditions
|
|
$limit
|
|
};
|
|
}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{
|
|
select *
|
|
from calcms_studios s, calcms_project_studios ps
|
|
$conditions
|
|
$limit
|
|
};
|
|
}
|
|
my $dbh=db::connect($config);
|
|
#print STDERR Dumper($query).Dumper(\@bind_values);
|
|
my $studios=db::get($dbh, $query,\@bind_values);
|
|
return $studios;
|
|
}
|
|
|
|
sub insert{
|
|
my $config=shift;
|
|
my $entry=shift;
|
|
|
|
$entry->{created_at} = time::time_to_datetime(time());
|
|
$entry->{modified_at}= time::time_to_datetime(time());
|
|
|
|
my $dbh=db::connect($config);
|
|
my $id=db::insert($dbh, 'calcms_studios', $entry);
|
|
return $id;
|
|
}
|
|
|
|
|
|
sub update{
|
|
my $config=shift;
|
|
my $studio=shift;
|
|
|
|
$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};
|
|
}
|
|
|
|
my $values =join(",", map {$_.'=?'} (keys %$entry));
|
|
my @bind_values =map {$entry->{$_}} (keys %$entry);
|
|
push @bind_values,$entry->{id};
|
|
|
|
my $query=qq{
|
|
update calcms_studios
|
|
set $values
|
|
where id=?
|
|
};
|
|
|
|
my $dbh=db::connect($config);
|
|
db::put($dbh, $query, \@bind_values);
|
|
}
|
|
|
|
sub delete{
|
|
my $config=shift;
|
|
my $studio=shift;
|
|
|
|
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);
|
|
}
|
|
|
|
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;
|
|
}
|
|
|
|
|
|
sub error{
|
|
my $msg=shift;
|
|
print "ERROR: $msg<br/>\n";
|
|
}
|
|
|
|
#do not delete last line!
|
|
1;
|
|
|