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

series.pm: remove whitespaces from eol

Browse Source
This commit is contained in:
Milan
2020-12-28 14:15:10 +01:00
parent 5dbe801a11
commit 4740d307c4
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
lib/calcms/series.pm
View File

@@ -187,7 +187,7 @@ sub update ($$) {
push @bind_values, $entry->{id}; push @bind_values, $entry->{id};
my $query = qq{ my $query = qq{
update calcms_series update calcms_series
set $values set $values
where id=? where id=?
}; };
@@ -277,7 +277,7 @@ sub delete($$) {
$bind_values = [$series_id]; $bind_values = [$series_id];
$query = qq{ $query = qq{
delete from calcms_series delete from calcms_series
where id=? where id=?
}; };
@@ -317,7 +317,7 @@ sub get_users ($$) {
my $query = qq{ my $query = qq{
select u.id, u.name, u.full_name, u.email, us.modified_by, us.modified_at select u.id, u.name, u.full_name, u.email, us.modified_by, us.modified_at
from calcms_users u, calcms_user_series us from calcms_users u, calcms_user_series us
where us.user_id=u.id where us.user_id=u.id
$conditions $conditions
}; };
@@ -340,8 +340,8 @@ sub add_user ($$) {
return unless defined $entry->{user}; return unless defined $entry->{user};
my $query = qq{ my $query = qq{
select id select id
from calcms_user_series from calcms_user_series
where project_id=? and studio_id=? and series_id=? and user_id=? where project_id=? and studio_id=? and series_id=? and user_id=?
}; };
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id} ]; my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{user_id} ];
@@ -351,7 +351,7 @@ sub add_user ($$) {
return unless scalar @$results == 0; return unless scalar @$results == 0;
$query = qq{ $query = qq{
insert calcms_user_series insert calcms_user_series
set project_id=?, studio_id=?, series_id=?, user_id=?, modified_by=?, modified_at=now() set project_id=?, studio_id=?, series_id=?, user_id=?, modified_by=?, modified_at=now()
}; };
$bind_values = $bind_values =
@@ -395,7 +395,7 @@ sub remove_user ($$) {
$conditions = join( " and ", @conditions ) if ( @conditions > 0 ); $conditions = join( " and ", @conditions ) if ( @conditions > 0 );
my $query = qq{ my $query = qq{
delete from calcms_user_series delete from calcms_user_series
where $conditions where $conditions
}; };
my $dbh = db::connect($config); my $dbh = db::connect($config);
@@ -653,13 +653,13 @@ sub get_event_age($$) {
$conditions = join( ' and ', @conditions ); $conditions = join( ' and ', @conditions );
} }
my $query = qq{ my $query = qq{
select s.id series_id, s.series_name, s.title, s.has_single_events has_single_events, (to_days(now())-to_days(max(e.start))) days_over select s.id series_id, s.series_name, s.title, s.has_single_events has_single_events, (to_days(now())-to_days(max(e.start))) days_over
from calcms_project_series ps from calcms_project_series ps
left join calcms_series s on ps.series_id=s.id left join calcms_series s on ps.series_id=s.id
left join calcms_series_events se on s.id=se.series_id left join calcms_series_events se on s.id=se.series_id
left join calcms_events e on e.id=se.event_id left join calcms_events e on e.id=se.event_id
where $conditions where $conditions
group by s.id group by s.id
order by has_single_events desc, days_over order by has_single_events desc, days_over
}; };
@@ -713,7 +713,7 @@ sub get_next_episode($$) {
#return if episodes should not be counted for this series #return if episodes should not be counted for this series
my $query = q{ my $query = q{
select count_episodes select count_episodes
from calcms_series from calcms_series
where id=? where id=?
}; };
@@ -761,12 +761,12 @@ sub get_images ($$) {
series_id => $options->{series_id} series_id => $options->{series_id}
} }
); );
my $images = { my $images = {
map { map {
my $image = $_->{image}; my $image = $_->{image};
$image =~ s/.*\///; $image =~ s/.*\///;
{ $image => 1 }; { $image => 1 };
} @$events } @$events
}; };
my $found = scalar(keys %$images); my $found = scalar(keys %$images);
@@ -818,7 +818,7 @@ sub assign_event($$) {
$conditions = 'and manual=1' if $entry->{manual} eq '1'; $conditions = 'and manual=1' if $entry->{manual} eq '1';
my $query = qq{ my $query = qq{
select * from calcms_series_events select * from calcms_series_events
where project_id=? and studio_id=? and series_id=? and event_id=? $conditions where project_id=? and studio_id=? and series_id=? and event_id=? $conditions
}; };
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ];
@@ -860,8 +860,8 @@ sub unassign_event($$) {
$conditions = 'and manual=1' if ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' ); $conditions = 'and manual=1' if ( defined $entry->{manual} ) && ( $entry->{manual} eq '1' );
my $query = qq{ my $query = qq{
delete from calcms_series_events delete from calcms_series_events
where project_id=? and studio_id=? and series_id=? and event_id=? where project_id=? and studio_id=? and series_id=? and event_id=?
$conditions $conditions
}; };
my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ]; my $bind_values = [ $entry->{project_id}, $entry->{studio_id}, $entry->{series_id}, $entry->{event_id} ];
@@ -892,7 +892,7 @@ sub add_series_ids_to_events ($$) {
my $dbh = db::connect($config); my $dbh = db::connect($config);
my $query = qq{ my $query = qq{
select project_id, studio_id, series_id, event_id select project_id, studio_id, series_id, event_id
from calcms_series_events from calcms_series_events
where event_id in ($event_ids) where event_id in ($event_ids)
}; };
my $results = db::get( $dbh, $query, \@bind_values ); my $results = db::get( $dbh, $query, \@bind_values );
@@ -941,7 +941,7 @@ sub set_event_ids ($$$$$) {
#my $bind_names=join(',', (map { '?' } @$event_ids)); #my $bind_names=join(',', (map { '?' } @$event_ids));
my $query = qq{ my $query = qq{
select event_id from calcms_series_events select event_id from calcms_series_events
where project_id=? and studio_id=? and series_id=? where project_id=? and studio_id=? and series_id=?
}; };
my $bind_values = [ $project_id, $studio_id, $serie_id ]; my $bind_values = [ $project_id, $studio_id, $serie_id ];