Revision 8c1d5d75
Von Martin Helmling mh@waldpark.octosoft.eu vor fast 9 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2590 | 2590 |
$main::lxdebug->leave_sub(); |
| 2591 | 2591 |
} |
| 2592 | 2592 |
|
| 2593 |
sub new_lastmtime {
|
|
| 2594 |
my ($self, $table, $option) = @_; |
|
| 2595 |
|
|
| 2596 |
return unless $self->{id};
|
|
| 2597 |
croak ("wrong call, no valid table defined") unless $table =~ /^(oe|ar|ap|delivery_orders|parts)$/;
|
|
| 2598 |
|
|
| 2599 |
my $query = "SELECT mtime, itime FROM " . $table . " WHERE id = ?"; |
|
| 2600 |
my $ref = selectfirst_hashref_query($self, $self->get_standard_dbh, $query, $self->{id});
|
|
| 2601 |
$ref->{mtime} ||= $ref->{itime};
|
|
| 2602 |
$self->{lastmtime} = $ref->{mtime};
|
|
| 2603 |
$main::lxdebug->message(LXDebug->DEBUG2(),"new lastmtime=".$self->{lastmtime});
|
|
| 2604 |
} |
|
| 2605 |
|
|
| 2593 | 2606 |
sub mtime_ischanged {
|
| 2594 | 2607 |
my ($self, $table, $option) = @_; |
| 2595 | 2608 |
|
Auch abrufbar als: Unified diff
4. Überarbeitung Prüfen beim Speichern, ob Dokument geändert ist
An einigen Stellen wird nach dem Speichern nicht neu gelesen,
sondern die alten Forms-Variablen zum Aufbau der Webseite verwendet, z.B. "Auslagern".
Deshalb wird $form->lastmtime nun nach jedem Speichern aktualisiert.