projekt kivitendo

sub update_dataset {

  my $form              = $main::form;

  my $locale            = $main::locale;

  $form->{title}        = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Update Dataset');

  my @need_updates      = User->dbneedsupdate($form);

  $form->{NEED_UPDATES} = \@need_updates;

  $form->{ALL_UPDATED}  = !scalar @need_updates;

  $form->header();

  print $form->parse_html_template("admin/update_dataset");

}

sub dbupdate {

  my $form            = $main::form;

  my $locale          = $main::locale;

  $::request->{layout}->use_stylesheet("lx-office-erp.css");

  $form->{title}      = $locale->text("Dataset upgrade");

  $form->header();

  my $rowcount           = $form->{rowcount} * 1;

  my @update_rows        = grep { $form->{"update_$_"} } (1 .. $rowcount);

  $form->{NOTHING_TO_DO} = !scalar @update_rows;

  my $saved_form         = save_form();

  $| = 1;

  print $form->parse_html_template("admin/dbupgrade_all_header");

  foreach my $i (@update_rows) {

    restore_form($saved_form);

    %::myconfig = ();

    map { $form->{$_} = $::myconfig{$_} = $form->{"${_}_${i}"} } qw(dbname dbhost dbport dbuser dbpasswd);

    print $form->parse_html_template("admin/dbupgrade_header");

    User->dbupdate($form);

    User->dbupdate2(form => $form, updater => SL::DBUpgrade2->new(form => $form)->parse_dbupdate_controls, database => $form->{dbname});

    print $form->parse_html_template("admin/dbupgrade_footer");

  }

  print $form->parse_html_template("admin/dbupgrade_all_done");

}