projekt kivitendo

use SL::Common;

use strict;

sub parse_dbupdate_controls {

  $main::lxdebug->enter_sub();

  my $locale = $main::locale;

  local *IN;

  my %all_controls;

  foreach my $file_name (<$path/*.sql>, <$path/*.pl>) {

    next unless (open(IN, $file_name));

  map({ _dbupdate2_calculate_depth(\%all_controls, $_->{"tag"}) }

      values(%all_controls));

  $main::lxdebug->leave_sub();

  return \%all_controls;

}

sub sort_dbupdate_controls {

  return sort({   $a->{"depth"}    !=  $b->{"depth"}    ? $a->{"depth"}    <=> $b->{"depth"}

                : $a->{"priority"} !=  $b->{"priority"} ? $a->{"priority"} <=> $b->{"priority"}

}

1;

    $rc = 0;

    map({ $form->{$_} = $myconfig{$_} }

        qw(dbname dbhost dbport dbdriver dbuser dbpasswd dbconnect dateformat));

      $SIG{QUIT} = 'IGNORE';

      $self->dbupdate($form);

      close(FH);

  my ($self, $form) = @_;

  my %members  = $main::auth->read_all_users();

  my ($query, $sth, %dbs_needing_updates);

sub dbupdate2 {

  $main::lxdebug->enter_sub();

  $form->{sid} = $form->{dbdefault};

  my ($query, $sth, $tag);

  my $rc = -2;

  my $db_charset = $main::dbcharset;

  $db_charset ||= Common::DEFAULT_CHARSET;

    $sth = $dbh->prepare($query);

    $sth->execute() || $form->dberror($query);

    while (($tag) = $sth->fetchrow_array()) {

    }

    $sth->finish();