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

add event creation batch, lib changes for past changes

Browse Source
This commit is contained in:
Milan
2018-03-17 13:38:36 +01:00
parent aadf3fd06e
commit 077d9c5a53
15 changed files with 885 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/calcms/studios.pm
View File

@@ -1,16 +1,19 @@
#!/bin/perl
use CGI;
#use CGI;
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use CGI::Session qw(-ip-match);
use CGI::Cookie;
#use CGI::Session qw(-ip-match);
#use CGI::Cookie;
#$CGI::Session::IP_MATCH=1;
package studios;
use warnings "all";
use strict;
use Data::Dumper;
use images;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(get_columns get get_by_id insert update delete check check_studio);
@@ -96,8 +99,9 @@ sub insert{
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());
$entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
my $dbh=db::connect($config);
my $id=db::insert($dbh, 'calcms_studios', $entry);
@@ -116,6 +120,7 @@ sub update{
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);