use utf8;
use warnings;
no warnings 'redefine';
use strict;

use Dbase::Globals qw(kpersinfo);
use Fehler qw(warnung);

sub warn_leitungsende($$$) {
    my ( $key, $ende, $hardware ) = @_;

    return if !defined $ende || !defined $hardware;

    require Dbase::Object::Hardware;

    # Hier nicht ->new_cached, denn der Standort könnte sich ja während
    # der kunde-Session ändern:
    ( my $hardware_standort =
          Dbase::Object::Hardware->new( id => $hardware )
          ->effektiver_standort->id ) == $ende
      and return;
    warnung("Das \u$key-Ende dieser Leitung ist Person #$ende ("
          . kpersinfo($ende)
          . "),\nwohingegen die Hardware an diesem Ende angeblich bei\nPerson #$hardware_standort ("
          . kpersinfo($hardware_standort)
          . ") steht.\nEvtl. möchte man das mal korrigieren. Vgl. auch Ticket #552056."
    );
}

1;
