=head3 warn_person

C<warn_person( Tabelle ID Person )>

Gibt eine Warnung aus, wenn in der Spalte C<Person> des Datensatzes mit
der ID I<id> in der Tabelle I<Tabelle> ein anderer Wert als I<Person> steht.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);

sub warn_person($$$) {
    my($db,$id,$pid) = @_;
    my $rp = DoFn("select person from $db where id = $id");
    print <<END if $pid and $rp and $pid != $rp;

*** Vorsicht: Du bearbeitest gerade Person #$pid.
              Dieser Eintrag gehört aber zu Person #$rp!

END
}
1;

