Revision e998dd2f
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my ($self, $table, $option) = @_;
|
||
|
|
||
|
return unless $self->{id};
|
||
|
croak ("wrong call, no valid table defined") unless $table =~ /(oe|ar|ap|delivery_orders|parts)/;
|
||
|
croak ("wrong call, no valid table defined") unless $table =~ /^(oe|ar|ap|delivery_orders|parts)$/;
|
||
|
|
||
|
my $query = "SELECT mtime, itime FROM " . $table . " WHERE id = ?";
|
||
|
my $ref = selectfirst_hashref_query($self, $self->get_standard_dbh, $query, $self->{id});
|
||
Auch abrufbar als: Unified diff
3. Überarbeitung Prüfen beim Speichern, ob Dokument geändert ist
Verbesserte Regex für API-Aufruf. Gorash Code-QS. Abfangen von
SQL-Injections auf API-Ebene (100%)