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

remove comments and cleanup

Browse Source
This commit is contained in:
Milan
2020-03-07 23:11:44 +01:00
parent 9b7a1ebc88
commit 4584125923
30 changed files with 34 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
website/agenda/planung/assign-series.cgi
View File

@@ -179,7 +179,6 @@ sub assign_series {
}
);
#print Dumper($series);
if ( @$series == 0 ) {
# assign series to project/studio
@@ -192,12 +191,9 @@ sub assign_series {
}
);
#print "assign\n";
} else {
print STDERR
"event $entry->{event_id} already assigned to project $entry->{project_id}, studio $entry->{studio_id}, series $entry->{series_id}\n";
#print "is schon\n";
}
$config->{access}->{write} = 0;

3
website/agenda/planung/assignments.cgi
View File

@@ -97,13 +97,11 @@ sub show_events {
my $projects = project::get( $config, { project_id => $params->{project_id} } );
my $project = $projects->[0];
#print STDERR Dumper($project);
return unless ( @$projects == 1 );
my $studios = studios::get( $config, { project_id => $params->{project_id}, studio_id => $params->{studio_id} } );
my $studio = $studios->[0];
#print STDERR Dumper($studio);
return unless ( @$studios == 1 );
my $project_name = $project->{name};
@@ -161,7 +159,6 @@ sub show_events {
order by series_name,title,start
limit 1000
};
print '<pre>' . Dumper($query) . Dumper($bind_values) . '</pre>';
$results = db::get( $dbh, $query, $bind_values );
# detect title and episode

15
website/agenda/planung/audio-recordings.cgi
View File

@@ -98,8 +98,6 @@ my $permissions = $request->{permissions};
$params->{action} = '' unless defined $params->{action};
$params->{error} = $error || '';
#print STDERR Dumper($params);
if ( $params->{action} eq 'upload' ) {
uploadRecording( $config, $request );
} elsif ( $params->{action} eq 'delete' ) {
@@ -137,7 +135,6 @@ sub uploadRecording {
if ( defined $fh ) {
print STDERR "upload\n";
#print STDERR Dumper($fh)."<br>";
my $fileInfo = uploadFile( $config, $fh, $params->{event_id}, $user, $params->{upload} );
$params->{error} .= $fileInfo->{error} if defined $fileInfo->{error};
$params->{path} = $fileInfo->{path};
@@ -284,8 +281,6 @@ sub showAudioRecordings {
return;
}
#print '<pre>'.Dumper($event).'</pre>';
my $audioRecordings = audio_recordings::get(
$config,
{
@@ -294,8 +289,6 @@ sub showAudioRecordings {
event_id => $params->{event_id},
}
);
#print Dumper($audioRecordings);
for my $recording (@$audioRecordings) {
$recording->{size} =~ s/(\d)(\d\d\d)$/$1\.$2/g;
$recording->{size} =~ s/(\d)(\d\d\d\.\d\d\d)$/$1\.$2/g;
@@ -411,8 +404,6 @@ sub updateDatabase {
eventDuration => $eventDuration
};
#print STDERR "updateDatabase:" . Dumper($entry);
#connect
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
@@ -466,17 +457,12 @@ sub getFilename {
}
#print STDERR "cgi:".Dumper($cgi);
# fallback to CGI module
my $file = $cgi->param("upload");
return { error => "is no file" } if ( defined $file ) && ( $file =~ /\|/ );
#print STDERR "file:".Dumper($file);
my $fileInfo = $cgi->uploadInfo($file);
#print STDERR "fileInfo:".Dumper($fileInfo);
if ( defined $fileInfo ) {
my $filename = $fileInfo->{'Content-Disposition'} || '';
if ( $filename =~ /filename=\"(.*?)\"/ ) {
@@ -559,7 +545,6 @@ sub check_params {
$checked->{template} =
template::check( $config, $params->{template}, 'upload-audio-recordings' );
#print Dumper($params);
#numeric values
for my $param ( 'project_id', 'studio_id', 'default_studio_id', 'series_id', 'event_id', 'id' )
{

1
website/agenda/planung/comment.cgi
View File

@@ -60,7 +60,6 @@ $request = uac::prepare_request( $request, $user_presets );
$params = $request->{params}->{checked};
#print Dumper($params);
#show header
if ( ( params::isJson() ) || ( defined $params->{action} ) ) {
print "Content-Type:text/html; charset=utf-8;\n\n";

1
website/agenda/planung/create-events.cgi
View File

@@ -192,7 +192,6 @@ sub createEvent {
$event->{start_date} = $event->{start};
eventOps::createEvent( $request, $event, 'create_event_from_schedule' );
print STDERR Dumper($date);
return $event;
}

7
website/agenda/planung/event-history.cgi
View File

@@ -48,8 +48,6 @@ my $request = {
},
};
#print STDERR Dumper($request)."\n";
#set user at params->presets->user
$request = uac::prepare_request( $request, $user_presets );
@@ -106,15 +104,12 @@ sub show_history {
my $events = event_history::get( $config, $options );
#print STDERR Dumper($events);
return unless defined $events;
$params->{events} = $events;
for my $permission ( keys %{$permissions} ) {
$params->{'allow'}->{$permission} = $request->{permissions}->{$permission};
}
#print STDERR Dumper($params);
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'event-history' } );
template::process( $config, 'print', template::check( $config, 'event-history' ), $params );
@@ -280,8 +275,6 @@ sub check_params {
$checked->{action} = $params->{action};
}
}
#print STDERR Dumper($checked);
return $checked;
}

2
website/agenda/planung/image-upload.cgi
View File

@@ -84,7 +84,6 @@ if ( defined $r ) {
print STDERR "fallback\n";
}
print STDERR Dumper($params);
print "Content-type:text/html; charset=UTF-8;\n\n";
my ( $user, $expires ) = auth::get_user( $config, $params, $cgi );
return if ( ( !defined $user ) || ( $user eq '' ) );
@@ -214,7 +213,6 @@ sub update_database {
studio_id => $params->{studio_id},
licence => $params->{licence}
};
print STDERR Dumper($image);
#connect
$config->{access}->{write} = 1;

8
website/agenda/planung/image.cgi
View File

@@ -168,8 +168,6 @@ sub show_image {
$selectedImage = $filenames->{$selectedFilename};
} else {
#print STDERR "getByName:".Dumper($params);
#put selected image to the top
my $imagesByNames = images::get(
$config,
@@ -179,8 +177,6 @@ sub show_image {
filename => $selectedFilename
}
);
#print STDERR Dumper($imagesByNames);
$selectedImage = $imagesByNames->[0] if scalar @$imagesByNames > 0;
}
@@ -293,8 +289,6 @@ sub save_image {
print STDERR "going to save\n";
#print STDERR Dumper($image);
my $entries = images::get(
$config,
{
@@ -480,8 +474,6 @@ sub check_params {
$checked->{from} = time::check_date( $params->{from} );
$checked->{till} = time::check_date( $params->{till} );
#print STDERR 'checked:'.Dumper ($checked);
return $checked;
}

2
website/agenda/planung/notify-events.cgi
View File

@@ -51,8 +51,6 @@ my $request = {
},
};
#print STDERR Dumper($request)."\n";
#set user at params->presets->user
$request = uac::prepare_request( $request, $user_presets );

5
website/agenda/planung/roles.cgi
View File

@@ -74,7 +74,6 @@ if ( defined $params->{action} ) {
$config->{access}->{write} = 0;
show_roles( $config, $request );
#print '<pre>'.Dumper($request);
return;
# update roles in database:
@@ -108,8 +107,6 @@ sub save_roles {
my $columns = uac::get_role_columns($config);
#print '<pre>'.Dumper($columns).'</pre>';
#initialize all value ids (given by params matching to database columns)
my $values = {};
for my $param ( keys %$params ) {
@@ -163,7 +160,6 @@ sub save_roles {
}
}
#print STDERR Dumper($values);
#order roles to update by level
for my $id ( sort { $values->{$a}->{level} <=> $values->{$b}->{level} } keys %$values ) {
my $role = $values->{$id};
@@ -313,7 +309,6 @@ sub show_roles {
for my $role (@$roles) {
#print Dumper($role);
my $id = $role->{id} || '';
my $value = $role->{role} || '';
my $style = '';

3
website/agenda/planung/select-event.cgi
View File

@@ -110,13 +110,10 @@ sub show_events {
push @$years, $date;
}
#print Dumper($params->{loc});
$params->{studios} = $user_studios;
$params->{series} = $series;
$params->{events} = $events;
$params->{years} = $years;
#print STDERR Dumper($params);
template::process( $config, 'print', $params->{template}, $params );
return;
}

7
website/agenda/planung/studio-timeslots.cgi
View File

@@ -108,7 +108,6 @@ sub save_schedule {
return;
}
#print Dumper($params);
my $params = $request->{params}->{checked};
for my $attr ( 'project_id', 'studio_id', 'start', 'end', 'end_date', 'schedule_studio_id' ) {
@@ -131,22 +130,16 @@ sub save_schedule {
return;
}
#print Dumper($entry);
$config->{access}->{write} = 1;
if ( defined $params->{schedule_id} ) {
$entry->{schedule_id} = $params->{schedule_id};
#print Dumper($entry);
studio_timeslot_schedule::update( $config, $entry );
#my $updates=0;
#print Dumper($entry);
my $updates = studio_timeslot_dates::update( $config, $entry );
uac::print_info("timeslot schedule saved. $updates dates scheduled");
} else {
$entry->{schedule_id} = studio_timeslot_schedule::insert( $config, $entry );
#my $updates=0;
my $updates = studio_timeslot_dates::update( $config, $entry );
uac::print_info("timeslot schedule added. $updates dates added");
}

1
website/agenda/planung/user-settings.cgi
View File

@@ -34,7 +34,6 @@ my $user_presets = uac::get_user_presets(
studio_id => $params->{studio_id}
}
);
#print STDERR Dumper($user_presets);
$params->{default_studio_id} = $user_presets->{studio_id};
$params = uac::setDefaultStudio( $params, $user_presets );
$params = uac::setDefaultProject( $params, $user_presets );

15
website/agenda/planung/users.cgi
View File

@@ -100,7 +100,6 @@ sub show_users {
for my $user (@$users) {
$user->{disabled_checked} = 'selected="selected"' if ( $user->{disabled} eq '1' );
#print Dumper($user);
my $user_roles = uac::get_user_roles(
$config,
{
@@ -111,8 +110,6 @@ sub show_users {
);
my @user_roles = ( map { { role => $_->{role} } } @$user_roles );
#print Dumper(\@user_roles);
#@user_roles[-1]->{__last__}=1 unless(@user_roles==0);
$user->{user_roles} = \@user_roles;
#mark all roles assigned to user
@@ -167,11 +164,8 @@ sub show_users {
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'users' } );
uac::set_template_permissions( $permissions, $params );
#print Dumper($permissions);
template::process( $config, 'print', $params->{template}, $params );
# template::process($config, 'print', template::check($config, 'users'), $params);
}
sub update_user {
@@ -198,11 +192,9 @@ sub update_user {
return;
}
#print Dumper($params);
my $users = uac::get_users( $config, { email => $params->{user_email} } );
if ( scalar(@$users) > 0 ) {
#print Dumper($users);
error('There is already a user registered for the given email address');
return;
}
@@ -217,7 +209,6 @@ sub update_user {
$user->{salt} = $crypt->{salt};
$user->{pass} = $crypt->{crypt};
#print '<pre>'.Dumper($user).'</pre>';
$user->{created_at} = time::time_to_datetime( time() );
$user->{modified_at} = time::time_to_datetime( time() );
$user->{created_by} = $params->{presets}->{user};
@@ -250,7 +241,6 @@ sub change_password {
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'users' } );
uac::set_template_permissions( $permissions, $params );
#print Dumper($permissions);
template::process( $config, 'print', template::check( $config, 'change-password' ), $params );
}
@@ -275,9 +265,6 @@ sub update_user_roles {
my $config = shift;
my $request = shift;
# print Dumper($params).'<br>';
# print Dumper($request->{params}->{checked});
my $permissions = $request->{permissions};
unless ( $permissions->{update_user_role} == 1 ) {
uac::permissions_denied('update_user_role');
@@ -453,8 +440,6 @@ sub check_params {
}
}
#print Dumper($params);
#print '<pre>'.Dumper($checked).'</pre>';
return $checked;
}

2
website/agenda/planung/work-time.cgi
View File

@@ -80,7 +80,6 @@ sub save_schedule {
return;
}
#print Dumper($params);
for my $attr ( 'project_id', 'studio_id', 'start' ) {
unless ( defined $params->{$attr} ) {
uac::print_error( $attr . ' not given!' );
@@ -255,7 +254,6 @@ sub show_work_schedule {
$params->{$key} = $serie->{$key};
}
#print STDERR '<pre>'.Dumper($params).'</pre>';
$params->{loc} = localization::get( $config, { user => $params->{presets}->{user}, file => 'work-time' } );
template::process( $config, 'print', $params->{template}, $params );
}