projekt kivitendo

  my $sortorder = join ', ',

    $form->sort_columns(qw(transdate reference description));

  my ($null, $department_id) = split(/--/, $form->{department});

  my ($dpt_where, $dpt_join, @department_values);

    # get all transactions

    $query =

      qq|SELECT a.id, a.reference, a.description, ac.transdate, ac.chart_id, | .

      qq§(SELECT accno||'--'||rate FROM tax LEFT JOIN chart ON (tax.chart_id=chart.id) WHERE tax.id = (SELECT tax_id FROM taxkeys WHERE taxkey_id = ac.taxkey AND taxkeys.startdate <= ac.transdate ORDER BY taxkeys.startdate DESC LIMIT 1)) AS taxinfo, ac.source || ' ' || ac.memo AS memo § .

      qq|FROM acc_trans ac, gl a | .

      $dpt_join .

}

sub apply_dbupgrade_scripts {

}

sub authenticate_root {

  $params{path_suffix} ||= '';

  $params{schema}      ||= '';

  map { $self->{$_} = $params{$_} } keys %params;

  my ($self, $dbh, $filename, $version_or_control, $db_charset) = @_;

  $dbh->begin_work;

  local *SQLDIR;

  closedir SQLDIR;

  return ($#upgradescripts > -1);

    $::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $control->{file}");

    print $self->{form}->parse_html_template("dbupgrade/upgrade_message2", $control);

  }

  print $self->{form}->parse_html_template("dbupgrade/footer", { is_admin => 1 }) if $called_from_admin;

  # Apply outstanding updates to the authentication database

  my $scripts = SL::DBUpgrade2->new(

    form     => $::form,

    auth     => 1

  );

  $scripts->apply_admin_dbupgrade_scripts(1);

  # Apply updates to a user database

  my $scripts = SL::DBUpgrade2->new(

    form     => $::form,

    auth     => 1

  );

  User->dbupdate2($form, $scripts->parse_dbupdate_controls);

C<SL::Form> object to use. Required.

=item auth

Optional parameter defaulting to 0. If trueish then the scripts read

    delete $form->{id};

  }

  # retrieve individual items

  # this query looks up all information about the items

  # stuff different from the whole will not be overwritten, but saved with a suffix.

       LEFT JOIN project pr ON (doi.project_id = pr.id)

       LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

       WHERE doi.delivery_order_id IN ($do_ids_placeholders)

  $form->{form_details} = selectall_hashref_query($form, $dbh, $query, @do_ids);

  my $partsgroup;

  my $position = 0;

  my (@project_ids, %projectnumbers, %projectdescriptions);

  push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});

      my $sortorder = "";

      if ($form->{groupitems}) {

        $sortorder =

      } else {

      }

      do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));

    }

  }

  my %sort_columns =  (

    'id'           => [ qw(id)                   ],

    'transdate'    => [ qw(transdate id)         ],

  $query =

    qq|SELECT

        g.description, ac.transdate, ac.gldate, ac.source, ac.trans_id,

        ac.amount, c.accno, g.notes, t.chart_id,

        CASE WHEN (COALESCE(e.name, '') = '') THEN e.login ELSE e.name END AS employee

  my $i;

  my @partsgroup = ();

  my $partsgroup;

  # sort items by partsgroup

  for $i (1 .. $form->{rowcount}) {

        my $sortorder = "";

        if ($form->{groupitems}) {

          $sortorder =

        } else {

        }

        $query =

      map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);

    }    # if !@ids

    my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";

    $form->{taxzone_id} = 0 unless ($form->{taxzone_id});

      ($form->{id}

       ? qq|WHERE o.trans_id = ?|

       : qq|WHERE o.trans_id IN (| . join(", ", map("?", @ids)) . qq|)|) .

    @ids = $form->{id} ? ($form->{id}) : @ids;

    $sth = prepare_execute_query($form, $dbh, $query, @values);

  my $tax_rate;

  my $taxamount;

  my (@project_ids, %projectnumbers, %projectdescriptions);

  push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});

        # get parts and push them onto the stack

        my $sortorder = "";

        if ($form->{groupitems}) {

        } else {

        }

        $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .

  ($form->{beginningbalance}, $form->{category}) =

    selectrow_query($form, $dbh, $query, @values);

  @values = ();

  $query =

    qq|SELECT c.name, ac.source, ac.transdate, ac.cleared, | .

    qq|  ac.fx_transaction, ac.amount, a.id, | .

    qq|FROM customer c, acc_trans ac, ar a, chart ch | .

    qq|WHERE c.id = a.customer_id | .

    qq|  AND ac.cleared = '0' | .

    qq|SELECT v.name, ac.source, ac.transdate, ac.cleared, | .

    qq|  ac.fx_transaction, ac.amount, a.id, | .

    qq|FROM vendor v, acc_trans ac, ap a, chart ch | .

    qq|WHERE v.id = a.vendor_id | .

    qq|  AND ac.cleared = '0' | .

    qq|SELECT g.description, ac.source, ac.transdate, ac.cleared, | .

    qq|  ac.fx_transaction, ac.amount, g.id, | .

    qq|FROM gl g, acc_trans ac, chart ch | .

    qq|WHERE g.id = ac.trans_id | .

    qq|  AND ac.cleared = '0' | .

  my $dbh = $form->dbconnect($myconfig);

  my ($query, $i);

  # clear flags

  for $i (1 .. $form->{rowcount}) {

    if ($form->{"cleared_$i"}) {

      $query =

        qq|UPDATE acc_trans SET cleared = '1' | .

      do_query($form, $dbh, $query, $form->{"oid_$i"});

      # clear fx_transaction

      if ($form->{"fxoid_$i"}) {

        $query =

          qq|UPDATE acc_trans SET cleared = '1' | .

        do_query($form, $dbh, $query, $form->{"fxoid_$i"});

      }

    }

sub login {

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

  return -3 if !$self->{login} || !$::auth->client;

  my $dbh = $form->dbconnect_noauto;

  # we got a connection, check the version

  $self->create_employee_entry($form, $dbh, \%myconfig);

  $self->create_schema_info_table($form, $dbh);

  # Auth DB upgrades available?

  return -3 if $dbupdater_auth->unapplied_upgrade_scripts($::auth->dbconnect);

  $form->{$_} = $::auth->client->{$_} for qw(dbname dbhost dbport dbuser dbpasswd);

  $form->{$_} = $myconfig{$_}         for qw(dateformat);

  $self->dbupdate($form);

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

  close($fh);

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

  my %dboptions = (

  $main::lxdebug->leave_sub();

}

sub dbsources {

  my ($sth, $query);

  $form->{dbdefault} = $form->{dbuser} unless $form->{dbdefault};

  &dbconnect_vars($form, $form->{dbdefault});

  my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)

    or $form->dberror;

    if ($form->{only_acc_db}) {

    }

  }

  $sth->finish;

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

  &dbconnect_vars($form, $form->{dbdefault});

  my $dbh =

    SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)

    or $form->dberror;

  $form->{db} =~ s/\"//g;

  if ($form->{"dbdefault"}) {

    my $dbdefault = $form->{"dbdefault"};

    $dbdefault =~ s/[^a-zA-Z0-9_\-]//g;

  }

  # Ignore errors if the database exists.

  $dbh->do($query);

  $dbh->disconnect;

  &dbconnect_vars($form, $form->{db});

  $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)

  my $db_charset = $Common::db_encoding_to_charset{$form->{encoding}};

  $db_charset ||= Common::DEFAULT_CHARSET;

  # create the tables

  $dbupdater->process_query($dbh, "sql/lx-office.sql", undef, $db_charset);

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

  $form->{db} =~ s/\"//g;

  &dbconnect_vars($form, $form->{dbdefault});

  my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options)

    or $form->dberror;

  do_query($form, $dbh, $query);

  $dbh->disconnect;

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

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

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

  local *SQLDIR;

  my @upgradescripts = ();

  my $query;

  my $rc = -2;

  if ($form->{dbupdate}) {

    # read update scripts into memory

    @upgradescripts =

      sort(cmp_script_version

                readdir(SQLDIR)));

    closedir(SQLDIR);

  }

  my $db_charset = $::lx_office_conf{system}->{dbcharset};

  $db_charset ||= Common::DEFAULT_CHARSET;

  foreach my $db (split(/ /, $form->{dbupdate})) {

    foreach my $upgradescript (@upgradescripts) {

      my $a = $upgradescript;

      my ($mindb, $maxdb) = split /-/, $a;

      my $str_maxdb = $maxdb;

      # apply upgrade

      $main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $upgradescript");

      $version = $maxdb;

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

  my $rc         = -2;

  my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;

      $main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $control->{file}");

      print $form->parse_html_template("dbupgrade/upgrade_message2", $control);

    }

    $rc = 0;

      call_sub($locale->findsub($form->{action}));

    }

  } else {

    adminlogin();

  }

  $::lxdebug->leave_sub;

sub pg_database_administration {

  my $form = $main::form;

  dbselect_source();

}

sub dbselect_source {

  my $form   = $main::form;

  my $locale = $main::locale;

  User::dbconnect_vars($form, $form->{dbname});

  my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd});

    restore_form($saved_form);

    %::myconfig = ();

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

    $form->{$form->{dbname}} = 1;

    User->dbupdate($form);

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

  }

    print "Applying upgrade $control->{file}\n";

    if ($file_type eq "sql") {

    } else {

    }

  }

show_help() if ($opt_help);

$controls   = $dbupgrader->parse_dbupdate_controls->{all_controls};

dump_list()                                 if ($opt_list);

  <form name="Form" method="post" action="admin.pl">

   <input type="hidden" name="dbhost" value="[% HTML.escape(dbhost) %]">

   <input type="hidden" name="dbport" value="[% HTML.escape(dbport) %]">

   <input type="hidden" name="dbuser" value="[% HTML.escape(dbuser) %]">

    </tr>

   </table>

   <input type="hidden" name="dbuser"    value="[% HTML.escape(dbuser) %]">

   <input type="hidden" name="dbhost"    value="[% HTML.escape(dbhost) %]">

   <input type="hidden" name="dbport"    value="[% HTML.escape(dbport) %]">

      <table>

       <tr>

        <td>

         <table>

   <select name="db">[% FOREACH row = DBSOURCES %]<option>[% HTML.escape(row.name) %]</option>[% END %]</select>

  </p>

  <input type="hidden" name="dbuser"    value="[% HTML.escape(dbuser) %]">

  <input type="hidden" name="dbhost"    value="[% HTML.escape(dbhost) %]">

  <input type="hidden" name="dbport"    value="[% HTML.escape(dbport) %]">

 <form name="Form" method="post" action="admin.pl" enctype="multipart/form-data">

  <input type="hidden" name="dbhost" value="[% HTML.escape(dbhost) %]">

  <input type="hidden" name="dbport" value="[% HTML.escape(dbport) %]">

  <input type="hidden" name="dbuser" value="[% HTML.escape(dbuser) %]">

   <table>

    <tr>

     <th class="listtop">[% 'Update?' | $T8 %]</th>

     <th class="listtop">[% 'Driver' | $T8 %]</th>

     <th class="listtop">[% 'Host' | $T8 %]</th>

     <th class="listtop">[% 'Port' | $T8 %]</th>

       <input type="hidden" name="dbname_[% loop.count %]" value="[% HTML.escape(row.dbname) %]">

       <label for="update_[% loop.count %]">[% HTML.escape(row.dbname) %]</label>

      </td>

      <td><input type="hidden" name="dbhost_[% loop.count %]" value="[% HTML.escape(row.dbhost) %]">[% HTML.escape(row.dbhost) %]</td>

      <td><input type="hidden" name="dbport_[% loop.count %]" value="[% HTML.escape(row.dbport) %]">[% HTML.escape(row.dbport) %]</td>

      <td><input type="hidden" name="dbuser_[% loop.count %]" value="[% HTML.escape(row.dbuser) %]">[% HTML.escape(row.dbuser) %]</td>