lib/calcms: remove dead code

lib/calcms/aggregator.pm

@@ -18,7 +18,6 @@ sub get_list($$) {
     my $request = shift;
 
     my $params = $request->{params}->{checked};
-    my $debug  = $config->{system}->{debug};
 
     #customize prefiltered request parameters
     $request->{params}->{original}->{date} = $request->{params}->{checked}->{date};
@@ -101,7 +100,6 @@ sub get_calendar($$$) {
     my $date    = shift;
 
     my $params = $request->{params}->{checked};
-    my $debug  = $config->{system}->{debug};
 
     $request->{params}->{original}->{template} = 'calendar.html';
     $request->{params}->{original}->{date} = $date if defined $date;
@@ -160,13 +158,10 @@ sub check_params($$) {
     $date = time::time_to_date( time() )  if $date eq '';
     $date = time::get_event_date($config) if $date eq 'today';
 
-    #    $date    =$config->{date}->{start_date}        if ($date lt $config->{date}->{start_date});
-    #    $date    =$config->{date}->{end_date}        if ($date gt $config->{date}->{end_date});
     $date = $start_date if $date lt $start_date;
     $date = $end_date   if $date gt $end_date;
 
     #filter for date
-    #    my $date=time::check_date($params->{date});
     my $time = time::check_time( $params->{time} );
     if ( ( defined $params->{today} ) && ( $params->{today} eq '1' ) ) {
         $date = time::time_to_date( time() );
@@ -222,11 +217,6 @@ sub check_params($$) {
         }
     }
 
-    my $debug = $params->{debug} || '';
-    if ( $debug =~ /([a-z\_\,]+)/ ) {
-        $debug = $1;
-    }
-
     #set query string for caching
     if ( ( !exists $ENV{QUERY_STRING} ) || ( $ENV{QUERY_STRING} eq '' ) ) {
         my $options = [];
@@ -243,7 +233,6 @@ sub check_params($$) {
         from_date => $from_date,
         till_date => $till_date,
         event_id  => $event_id,
-        debug => $debug,
         ro    => $params->{ro}//'' ? 1 : 0
     };
 }

lib/calcms/db.pm

@@ -34,7 +34,6 @@ sub connect($;$) {
     return $request->{connection} if ( defined $request ) && ( defined $request->{connection} );
 
     my $access_options = $options->{access};
-
     my $hostname = $access_options->{hostname};
     my $port     = $access_options->{port};
     my $database = $access_options->{database};
@@ -53,14 +52,11 @@ sub connect($;$) {
 
     my $dbh = DBI->connect( $dsn, $username, $password, { mysql_enable_utf8 => 1 } )
       || die "could not connect to database: $DBI::errstr";
-
     $dbh->{RaiseError} = 1;
-
     $dbh->{'mysql_enable_utf8'} = 1;
     put( $dbh, "set character set utf8" );
     put( $dbh, "set names utf8" );
     put( $dbh, "set time_zone='" . $options->{date}->{time_zone} . "'" );
-
     $request->{connection} = $dbh;
     $options->{connections}->{$key} = $dbh;
     return $dbh;
@@ -78,14 +74,8 @@ sub disconnect ($){
 sub get($$;$) {
     my ( $dbh, $sql, $bind_values ) = @_;
 
-    if ( $debug_read == 1 ) {
-        print STDERR $sql . "\n";
-        print STDERR Dumper($bind_values) . "\n" if defined $bind_values;
-    }
-
     my $sth = $dbh->prepare($sql);
     if ( ( defined $bind_values ) && ( ref($bind_values) eq 'ARRAY' ) ) {
-
         my $result = $sth->execute(@$bind_values);
         unless ($result) {
             print STDERR $sql . "\n";

lib/calcms/template.pm

@@ -113,9 +113,6 @@ sub initTemplate($) {
         default_escape    => $default_escape,
         cache             => 1,
         utf8              => 1,
-
-        #pre_chomp => 1,
-        #post_chomp => 1,
     );
 }