projekt kivitendo

sub apply_admin_dbupgrade_scripts {

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

  my $dbh               = $::auth->dbconnect;

  my @unapplied_scripts = $self->unapplied_upgrade_scripts($dbh);

  my $db_charset           = $main::dbcharset || Common::DEFAULT_CHARSET;

  $self->{form}->{login} ||= 'admin';

  map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $self->{all_controls} };

  print $self->{form}->parse_html_template("dbupgrade/header", { dbname => $::auth->{DB_config}->{db} });

  foreach my $control (@unapplied_scripts) {

    $self->process_file($dbh, "sql/$self->{dbdriver}-upgrade2-auth/$control->{file}", $control, $db_charset);

  }

}

sub _check_for_loops {

      $self->dbupdate($form);

      $self->dbupdate2($form, $dbupdater);

      close(FH);

      print $form->parse_html_template("dbupgrade/footer", { "menufile" => $menufile });

      $rc = -2;

    }

  }

}

sub _apply_dbupgrade_scripts {

}

1;