/ - Diff - projekt kivitendo - wissen

« Zurück | Weiter »

Revision 451843cf

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

ID 451843cf750b655eb2678de12c369af74bca9867
Vorgänger 90daea72
Nachfolger 5f783ffe

Löschen von RecordLinks

                  selectall_hashref_query selectall_array_query
                  selectall_as_map
                  prepare_execute_query prepare_query
                  create_sort_spec does_table_exist);
                  create_sort_spec does_table_exist
                  add_token);
     sub conv_i {
       my ($value, $default) = @_;
-...
       return $result;
+    }
     # add token to values.
     # usage:
     #  add_token(
     #    \@where_tokens,
     #    \@where_values,
     #    col => 'id',
     #    val => [ 23, 34, 17 ]
     #    esc => \&conf_i
     #  )
     #  will append to the given arrays:
     #   -> 'id IN (?, ?, ?)'
     #   -> (conv_i(23), conv_i(34), conv_i(17))
+    #
     #  features:
     #   - don't care if one or multiple values are given. singlewill result in 'col = ?'
     #   - pass escape routines
     #   - expand for future method
     #   - no need to type "push @where_tokens, 'id = ?'" over and over again
     sub add_token {
       my $tokens = shift() || [];
       my $values = shift() || [];
       my %params = @_;
       my $col    = $params{col};
       my $val    = $params{val};
       my $method = $params{method} || '=';
       my $escape = $params{esc} || sub { $_ };
       $val = [ $val ] unless ref $val eq 'ARRAY';
       my %escapes = (
         id     => \&conv_i,
         date   => \&conv_date,
       );
       my %methods = (
         '=' => sub {
           my $col = shift;
           return scalar @_ >  1 ? sprintf '%s IN (%s)', $col, join ', ', ("?") x scalar @_
                : scalar @_ == 1 ? sprintf '%s = ?',     $col
                :                  undef;
         },
       );
       $method = $methods{$method} || $method;
       $escape = $escapes{$escape} || $escape;
       my $token = $method->($col, @{ $val });
       my @vals  = map { $escape->($_) } @{ $val };
       return unless $token;
       push @{ $tokens }, $token;
       push @{ $values }, @vals;
       return ($token, @vals);
+    }
 ;
-...
     =head1 SYNOPSIS
       use DBUtils;
       conv_i($str, $default)
       conv_date($str)
       conv_dateq($str)
-...
       my $all_results_ref       = selectall_hashref_query($form, $dbh, $query)
       my $first_result_hash_ref = selectfirst_hashref_query($form, $dbh, $query);
       my @first_result =  selectfirst_array_query($form, $dbh, $query);  # ==
       my @first_result =  selectrow_query($form, $dbh, $query);
       my %sort_spec = create_sort_spec(%params);
     =head1 DESCRIPTION
-...
       - Safe value binding. Although DBI is far from perfect in terms of binding, the rest of the bindings should happen here.
       - Error handling. Should a query fail, an error message will be generated here instead of in the backend code invoking DBUtils.
     Note that binding is not perfect here either...
     Note that binding is not perfect here either...
     =head2 QUOTING FUNCTIONS
     =over 4
-...
     =item selectrow_query FORM,DBH,QUERY,ARRAY
     Prepares and executes a query using DBUtils functions, retireves the first row from the database, and returns it as an arrayref of the first row.
     Prepares and executes a query using DBUtils functions, retireves the first row from the database, and returns it as an arrayref of the first row.
     =item selectfirst_hashref_query FORM,DBH,QUERY,ARRAY
     Prepares and executes a query using DBUtils functions, retireves the first row from the database, and returns it as a hashref of the first row.
     Prepares and executes a query using DBUtils functions, retireves the first row from the database, and returns it as a hashref of the first row.
     =item selectall_hashref_query FORM,DBH,QUERY,ARRAY
-...
     =item A more complicated example, using dynamic binding values:
       my @values;
       if ($form->{language_values} ne "") {
         $query = qq|SELECT l.id, l.description, tr.translation, tr.longdescription
                       FROM language l
-...
       } else {
         $query = qq|SELECT id, description FROM language|;
+      }
       my $languages = selectall_hashref_query($form, $dbh, $query, @values);
     =back
-...
     Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
     Sven Schoeling E<lt>s.schoeling@linet-services.deE<gt>
     =head1 DOCUMENTATION AUTHORS
     Udo Spallek E<lt>udono@gmx.netE<gt>
-...
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     =cut
     =cut

          lastcost     => ' ',
          factor       => 'pfac.',
          'SUM(ioi.qty)' => ' ',
          description => 'p.',
       );
       my %renamed_columns = (
-...
         'SUM(ioi.qty)' => 'soldtotal',
       );
       my %joins_needed;
       if (($form->{searchitems} eq 'assembly') && $form->{l_lastcost}) {
         @simple_l_switches = grep { $_ ne 'lastcost' } @simple_l_switches;
+      }
-...
       my @where_tokens  = qw(1=1);
       my @group_tokens  = ();
       my @bind_vars     = ();
       my %joins_needed  = ();
       # special case transdate
       if (grep { $form->{$_} } qw(transdatefrom transdateto)) {
-...
+        }
+      }
       my %simple_filter_table_prefix = (
          description  => 'p.',
       );
       foreach (@simple_filters, @makemodel_filters, @invoice_oi_filters) {
         next unless $form->{$_};
         $form->{"l_$_"} = '1'; # show the column
         push @where_tokens, "$simple_filter_table_prefix{$_}$_ ILIKE ?";
         push @where_tokens, "$table_prefix{$_}$_ ILIKE ?";
         push @bind_vars,    "%$form->{$_}%";
+      }

       return wantarray ? @{ $result } : $result;
+    }
     sub delete {
       $main::lxdebug->enter_sub();
       my $self     = shift;
       my %params   = @_;
       Common::check_params(\%params, [ qw(from_table from_id to_table to_id) ]);
       my $myconfig   = \%main::myconfig;
       my $form       = $main::form;
       my $dbh        = $params{dbh} || $form->get_standard_dbh($myconfig);
       # content
       my (@where_tokens, @where_values);
       for my $col (qw(from_table from_id to_table to_id)) {
         add_token(\@where_tokens, \@where_values, col => $col, val => $params{$col}) if $params{$col};
+      }
       my $where = "WHERE ". join ' AND ', map { "($_)" } @where_tokens if scalar @where_tokens;
       my $query = "DELETE FROM record_links $where";
       do_query($form, $dbh, $query, @where_values);
       $dbh->commit() unless ($params{dbh});
       $main::lxdebug->leave_sub();
+    }
 ;

Auch abrufbar als: Unified diff

Projekt

Allgemein

Profil

projekt kivitendo

Revision 451843cf

Von Sven Schöling vor etwa 15 Jahren hinzugefügt