projekt kivitendo

  my ($self, $table, $option) = @_;

  return                                       unless $self->{id};

  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});

  $ref->{mtime} ||= $ref->{itime};

      my $etxt = ($option eq 'mail') ? "The document has been changed from other user. Please reopen it in another window and copy the changes to the new window" :

                                       "The document has been changed from other user. No mail was sent. Please reopen it in another window and copy the changes to the new window";

    $self->{mtime}   ||= $self->{itime};

=item mtime_ischanged

Tries to avoid concurrent write operations to records by checking the database mtime with a fetched one.

Can be used / called with any table, that has itime and mtime attributes.

Valid C<table> names are: oe, ar, ap, delivery_orders, parts.

Can be called wit C<option> mail to generate a different error message.

Returns undef if no save operation has been done yet ($self->{id} not present).

Returns undef if no concurrent write process is detected otherwise a error message.