Merge branch 'f-bundled-perl-modules'

diff --combined SL/BackgroundJob/SelfTest/Transactions.pm
index a30acc7012f36b04319a0fbe195f2b93a0f9a861,0176f858d444ed0f7d626cc13440956ab702520d..3fbc0d14e96fac374deb7414177070856058255f
--- 1/SL/BackgroundJob/SelfTest/Transactions.pm
--- 2/SL/BackgroundJob/SelfTest/Transactions.pm
+++ b/SL/BackgroundJob/SelfTest/Transactions.pm
@@@ -15,7 -15,7 +15,7 @@@ sub run 
  
    $self->_setup;
  
 -  $self->tester->plan(tests => 29);
 +  $self->tester->plan(tests => 32);
  
    $self->check_konten_mit_saldo_nicht_in_guv;
    $self->check_bilanzkonten_mit_pos_eur;
@@@ -44,7 -44,6 +44,7 @@@
    $self->check_orphaned_reconciliated_links;
    $self->check_recommended_client_settings;
    $self->check_orphaned_bank_transaction_acc_trans_links;
 +  $self->check_consistent_itimes;
  }
  
  sub _setup {
@@@ -697,7 -696,7 +697,7 @@@ sub check_orphaned_bank_transaction_acc
      $self->tester->ok(1, "Keine verwaisten Einträge in verknüpften Bankbewegungen (Richtung Bank).");
    }
    # check for deleted acc_trans_ids
-   my $query = qq|
+   $query = qq|
            SELECT purpose from bank_transactions
            WHERE id in
            (SELECT bank_transaction_id from bank_transaction_acc_trans
@@@ -717,76 -716,6 +717,76 @@@
    }
  }
  
 +sub check_consistent_itimes {
 +  my ($self) = @_;
 +  my $query;
 +
 +  $query = qq|
 +    SELECT mtime, itime,gldate, acc_trans_id, trans_id
 +    FROM  acc_trans a
 +    WHERE itime::date <> gldate::date
 +    AND a.transdate >= ? and a.transdate <= ?|;
 +
 +  my $itimes_ac = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
 +
 +  if ( scalar @{ $itimes_ac } > 0 ) {
 +    $self->tester->ok(0, "Inkonsistente Zeitstempel in der acc_trans gefunden. Bei folgenden ids:");
 +    for my $bogus_time (@{ $itimes_ac }) {
 +      $self->tester->diag("ID: $bogus_time->{trans_id} acc_trans_id: $bogus_time->{acc_trans_id} ");
 +    }
 +  } else {
 +    $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in der acc_trans.");
 +  }
 +  $query = qq|
 +    SELECT amount, itime, gldate, id
 +    FROM ap a
 +    WHERE itime::date <> gldate::date
 +    AND a.transdate >= ? and a.transdate <= ?|;
 +
 +  my $itimes_ap = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
 +
 +  if ( scalar @{ $itimes_ap } > 0 ) {
 +    $self->tester->ok(0, "Inkonsistente Zeitstempel in ap gefunden. Bei folgenden ids:");
 +    for my $bogus_time (@{ $itimes_ap }) {
 +      $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
 +    }
 +  } else {
 +    $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in ap.");
 +  }
 +  $query = qq|
 +    SELECT amount, itime, gldate, id
 +    FROM ar a
 +    WHERE itime::date <> gldate::date
 +    AND a.transdate >= ? and a.transdate <= ?|;
 +
 +  my $itimes_ar = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
 +
 +  if ( scalar @{ $itimes_ap } > 0 ) {
 +    $self->tester->ok(0, "Inkonsistente Zeitstempel in ar gefunden. Bei folgenden ids:");
 +    for my $bogus_time (@{ $itimes_ar }) {
 +      $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
 +    }
 +  } else {
 +    $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in ar.");
 +  }
 +  $query = qq|
 +    SELECT itime, gldate, id, mtime
 +    FROM gl a
 +    WHERE itime::date <> gldate::date
 +    AND a.transdate >= ? and a.transdate <= ?|;
 +
 +  my $itimes_gl = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
 +
 +  if ( scalar @{ $itimes_gl } > 0 ) {
 +    $self->tester->ok(0, "Inkonsistente Zeitstempel in gl gefunden. Bei folgenden ids:");
 +    for my $bogus_time (@{ $itimes_ar }) {
 +      $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
 +    }
 +  } else {
 +    $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in gl.");
 +  }
 +}
 +
  1;
  
  __END__