#!/usr/bin/perl -w

    package de::kuechler::Test;

    use lib qw ( /kunden/119421_40670/pl-test/test/lib );

    use strict;
    use de::plugnine::Email;
    use CGI::Carp qw ( fatalsToBrowser );

    use MStudio::MCGI;

    use de::kuechler::test::Probant;

    my $self = new de::kuechler::Test();

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self = {};

        $self->{m} = new MStudio::MCGI();
        $self->{m}->set_HTML_Dir("../html/");
        bless($self, $class);

        $self->{fun} = $self->{m}->vars("fun");

        SWITCH : {
            $self->personalData(),     last SWITCH if ($self->{fun} eq "personalData");
            $self->showP1(),           last SWITCH if ($self->{fun} eq "showP1");
            $self->showP2(),           last SWITCH if ($self->{fun} eq "showP2");
            $self->showP3(),           last SWITCH if ($self->{fun} eq "showP3");
            $self->showP4(),           last SWITCH if ($self->{fun} eq "showP4");
            $self->showP5(),           last SWITCH if ($self->{fun} eq "showP5");
            $self->showP6(),           last SWITCH if ($self->{fun} eq "showP6");
            $self->finish(),           last SWITCH if ($self->{fun} eq "finish");
            $self->showPersonalData(), last SWITCH if ($self->{fun} eq "");
       }

        return $self;
    }

    sub showPersonalData {
        my $self = shift;
        my $anchor;
        if ($self->{m}->vars("error")) {
            $anchor = "form";
        }
        $self->{m}->show("index.htm", "nohead");
    }

    sub personalData {
        my $self = shift;
        my $m = $self->{m};
        my $p = new de::kuechler::test::Probant();
        my @field_error;

        my $geschlecht = $self->{m}->vars("Geschlecht") eq "Maennlich" ? "Herr" : "Frau";

        $p->Vorname($m->vars("Vorname")) || push(@field_error, "Vorname");
        $p->Name($m->vars("Name")) || push(@field_error, "Name");
        $p->Geschlecht($geschlecht) || push(@field_error, "Geschlecht");
        $p->Strasse($m->vars("Strasse")) || push(@field_error, "Strasse");
        $p->PLZ($m->vars("PLZ")) || push(@field_error, "PLZ");
        $p->Ort($m->vars("Ort")) || push(@field_error, "Ort");
        $p->Tel_privat($m->vars("Tel_privat")) || push(@field_error, "Tel. privat");
        $p->Tel_geschaeftlich($m->vars("Tel_geschaeftlich"));
        $p->Tel_mobil($m->vars("Tel_mobil"));
        $p->eMail_privat($m->vars("eMail_privat")) || push(@field_error, "E-Mail privat");
        $p->eMail_geschaeftlich($m->vars("eMail_geschaeftlich"));
        $p->Derz_Position($m->vars("Derz_Position")) || push(@field_error, "Derzeitige Position");

        my $i = 0;
        my $error;

        if (! $#field_error) {
            $error = "Bitte füllen Sie das Feld ";
        }
        elsif ($#field_error >= 1) {
            $error = "Bitte füllen Sie die Felder ";
        }

        if ($#field_error >= 0) {
            foreach(@field_error) {
                $error .= "$_";
                if ($i != $#field_error) {
                    $error .= ",";
                }
                $error .= " ";
                $i += 1;
            }
            $error .= "aus";

            if ($m->vars("Geschlecht") eq "Maennlich") {
                $m->vars("m_checked", "1");
            }
            elsif($m->vars("Geschlecht") eq "Weiblich") {
                $m->vars("w_checked", "1");
            }


            $m->vars("error", $error);
            $self->showPersonalData();
        }
        else {
            $p->write();
            $self->showP1();
        }
    }

    sub calcResult {
        my $self = shift;
        my ($i, $result);
        for ($i = 1; $i <= 15; $i++) {
            $result += $self->{m}->vars("q$i");
        }
        return $result;
    }

    sub showP1 {
        my $self = shift;
        my $prfx = $self->{m}->vars("Geschlecht") eq "Maennlich" ? "Sehr geehrter Herr" : "Sehr geehrte Frau";
        $self->{m}->vars("email", $self->{m}->vars("eMail_privat"));
        $self->{m}->vars("Vorname", $prfx." ".$self->{m}->vars("Vorname")." ".$self->{m}->vars("Name"));
        $self->{m}->show("t01.htm", "nohead");
    }

    sub showP2 {
        my $self = shift;
        $self->{m}->vars("p1", $self->calcResult());
        $self->{m}->show("t02.htm", "nohead");
    }

    sub showP3 {
        my $self = shift;
        $self->{m}->vars("p2", $self->calcResult());
        $self->{m}->show("t03.htm", "nohead");
    }

    sub showP4 {
        my $self = shift;
        $self->{m}->vars("p3", $self->calcResult());
        $self->{m}->show("t04.htm", "nohead");
    }

    sub showP5 {
        my $self = shift;
        $self->{m}->vars("p4", $self->calcResult());
        $self->{m}->show("t05.htm", "nohead");
    }

    sub showP6 {
        my $self = shift;
        $self->{m}->vars("p5", $self->calcResult());
        $self->{m}->show("t06.htm", "nohead");
    }

    sub finish {
        my $self = shift;

        my $m = $self->{m};
        my $p = new de::kuechler::test::Probant();
        my $e = new de::plugnine::Email();

        my $msg;

        $self->{m}->vars("p6", $self->calcResult());

        $p->eMail_privat($m->vars("email"));

        $msg = $p->read();

        $msg .= "\n\n";
        $msg .= "Emotionale Stabilität:\n";
        $msg .= $self->getText(1)."\n\n";
        $msg .= "Risikobereitschaft und Mut:\n";
        $msg .= $self->getText(2)."\n\n";
        $msg .= "Offenheit und Phantasie:\n";
        $msg .= $self->getText(3)."\n\n";
        $msg .= "Gewissenhaftigkeit und Kontrolliertheit:\n";
        $msg .= $self->getText(4)."\n\n";
        $msg .= "Kontaktfreudigkeit und Extrovertiertheit:\n";
        $msg .= $self->getText(5)."\n\n";
        $msg .= "Soziale Kompetenz und Verträglichkeit:\n";
        $msg .= $self->getText(6)."\n\n";

        $e->senderMail("info\@lostandfound-tms.com");
        $e->addRecipient({'email' => 'lostandfound@bitwerk.de'});
       
        $e->reply_to($self->{m}->vars("email"));
        $e->subject("Eignungstest LOST&FOUND");

        $e->text($msg);

        $e->useSendmail();
        $e->sendmail('/usr/lib/sendmail');
#        $e->print2Screen();
        $e->send();

        $p->eMail_privat($m->vars("email"));

        $msg = $p->read()."\n\n";

        $msg  .= "IHR TESTERGEBNIS\n";
        $msg .= "Lost and Found Personalberatung\n\n";

        $msg .= $self->{m}->vars("Vorname").",

wir freuen uns sehr, dass Sie an unserem Eignungstest teilgenommen haben
und übersenden nachfolgend Ihr persönliches Testergebnis. Sollten Sie zu
diesem noch Fragen haben, so steht Ihnen unser Team gern telefonisch zur
Verfügung. Sie erreichen uns unter der Telefonnummer +49 - 211 - 41 65 11 10.

Wann immer Sie auf der Suche nach beruflicher Veränderung sind, bitte
lassen Sie es uns wissen. Seit Jahren zählen wir zu den führenden
Personalberatungsgesellschaften für die internationale Hotellerie und
Touristik mit Büros in Düsseldorf, Mainz, und Hamburg.
Für unsere Kandidaten arbeiten wir grundsätzlich kostenlos und es versteht
sich von selbst, dass Sie in uns den vertrauensvollen, diskreten und
verschwiegenen Partner finden.

Sollten Sie an der Zusendung unseres kostenlosen E Mail-Newsletters
interessiert sein, bitte abonnieren Sie diesen umgehend unter
www.lostandfound-tms.com. Dieser Newsletter informiert Sie regelmäßig auch
über alle vakanten Positionen unserer internationalen Kunden.

Wir freuen uns auf den weiteren Dialog mit Ihnen und verbleiben für heute

mit freundlichen Grüßen

LOST AND FOUND Personalberatung GmbH\n\n";

$msg .= "--------------------------------------------------\n\n";
$msg .= "IHR TESTERGEBNIS:\n\n";

        $msg .= "Emotionale Stabilität:\n";
        $msg .= $self->getText(1)."\n\n";
        $msg .= "Risikobereitschaft und Mut:\n";
        $msg .= $self->getText(2)."\n\n";
        $msg .= "Offenheit und Phantasie:\n";
        $msg .= $self->getText(3)."\n\n";
        $msg .= "Gewissenhaftigkeit und Kontrolliertheit:\n";
        $msg .= $self->getText(4)."\n\n";
        $msg .= "Kontaktfreudigkeit und Extrovertiertheit:\n";
        $msg .= $self->getText(5)."\n\n";
        $msg .= "Soziale Kompetenz und Verträglichkeit:\n";
        $msg .= $self->getText(6)."\n\n";

        $e->text($msg);

        $e->{recipients} = undef;

        $e->addRecipient({'email' => 'info@lostandfound-tms.com'});


#        $e->print2Screen();
        $e->send();

        system ("rm", $self->{m}->vars("email"));

        $self->{m}->show("ende.htm", "nohead");

    }

    sub getText {
        my $self = shift;
        my $p = $_[0];

        my $texts = [];

        my $score = $self->{m}->vars("p$p");

        if ($score <= 10) { $score = 10; }
        elsif (($score <= 20) && ($score >= 10)) { $score = 20; }
        elsif (($score <= 30) && ($score >= 20)) { $score = 30; }

        $texts->[1]->{10}->{Maennlich} = 'Die emotionale Stabilität und das Selbstvertrauen des Kandidaten sind unterdurchschnittlich ausgeprägt. Der Kandidat ist sehr schnell aus dem Gleichgewicht zu bringen und neigt dazu, überzureagieren. Der Kandidat quält sich mit Grübeleien, Perfektionsstreben, Selbstabwertung und Selbstverurteilung. Angst vor Ablehnung, Kritik und Blamage hindert den Kandidat daran, seine Meinung zu vertreten. Seine Stimmungsschwankungen machen bisweilen auch seinen Kollegen zu schaffen. Seinen Körper behandelt er auch nicht besonders liebevoll, so dass er sich oftmals angespannt und energielos fühlt. Er sollte dennoch nicht den Mut verlieren, denn in ihm stecken bereits alle Fähigkeiten, sich in ein seelisches Gleichgewicht zu bringen. Er benötigt lediglich ein wenig Zeit und Energie, um sich hilfreiche Einstellungs- und Verhaltensmuster zu erarbeiten.';
        $texts->[1]->{20}->{Maennlich} = 'Der Kandidat ist bereits auf dem richtigen Weg. In vielen alltäglichen Belastungssituationen reagiert er bereits gelassen. Doch gibt es einige Bereiche, in denen der Kandidat sein Talent zur emotionalen Stabilität noch steigern kann. Dort ist er bisher leicht störbar und reagiert unsicher. Der Kandidat sollte sich diese Situationen etwas genauer anschauen. Was benötigt der Kandidat noch, um sein Selbstvertrauen und sein inneres Gleichgewicht auch in diesen Situationen zu stärken? Es wird sich für den Kandidaten auszahlen, weiterhin an sich zu arbeiten. Mit einem ausgeprägten Selbstvertrauen und innerer Gelassenheit kann der Kandidat noch mehr Erfolge erzielen';
        $texts->[1]->{30}->{Maennlich} = 'Die emotionale Stabilität des Kandidaten ist seine Stärke. Er ist ein Mensch, der in sich ruht und unerschütterlich ist. Auch Krisensituationen kann er gut meistern und verliert nicht den Überblick. Er kennt seine Stärken und Schwächen. Der Kandidat hat den Mut, über seine Leistungen und seine Qualitäten zu sprechen. Gegen Kritik ist er ebenso gefeit wie gegen Widerspruch von Seiten der Kollegen. Seine Mitarbeiter, Kollegen und Geschäftspartner schätzen ihn als Partner, denn mit ihm kann man konstruktiv diskutieren. Er hält mit seiner Meinung nicht hinter dem Berg. Er lebt in einem gesunden Gleichgewicht zwischen beruflicher Anspannung und privater Entspannung. Der Kandidat sollte weiterhin dafür sorgen, dass er zukünftig mit sich im Einklang steht. Der Kandidat sollte seine positiven Einstellungen und sein gesundheitsförderndes Verhalten beibehalten, dann kann er jede berufliche Herausforderung annehmen und meistern.';

        $texts->[1]->{10}->{Weiblich} = 'Die emotionale Stabilität und das Selbstvertrauen der Kandidatin sind unterdurchschnittlich ausgeprägt. Die Kandidatin ist sehr schnell aus dem Gleichgewicht zu bringen und neigt dazu, überzureagieren. Die Kandidatin quält sich mit Grübeleien, Perfektionsstreben, Selbstabwertung und Selbstverurteilung. Angst vor Ablehnung, Kritik und Blamage hindert die Kandidatin daran, ihre Meinung zu vertreten. Ihre Stimmungsschwankungen machen bisweilen auch ihren Kollegen zu schaffen. Ihren Körper behandelt sie auch nicht besonders liebevoll, so dass sie sich oftmals angespannt und energielos fühlt. Sie sollte dennoch nicht den Mut verlieren, denn in ihr stecken bereits alle Fähigkeiten, sich in ein seelisches Gleichgewicht zu bringen. Sie benötigt lediglich ein wenig Zeit und Energie, um sich hilfreiche Einstellungs- und Verhaltensmuster zu erarbeiten.';
        $texts->[1]->{20}->{Weiblich} = 'Die Kandidatin ist bereits auf dem richtigen Weg. In vielen alltäglichen Belastungssituationen reagiert sie bereits gelassen. Doch gibt es einige Bereiche, in denen die Kandidatin ihr Talent zur emotionalen Stabilität noch steigern kann. Dort ist sie bisher leicht störbar und reagiert unsicher. Die Kandidatin sollte sich diese Situationen etwas genauer anschauen. Was benötigt die Kandidatin noch, um ihr Selbstvertrauen und ihr inneres Gleichgewicht auch in diesen Situationen zu stärken? Es wird sich für die Kandidatin auszahlen, weiterhin an sich zu arbeiten. Mit einem ausgeprägten Selbstvertrauen und innerer Gelassenheit kann die Kandidatin noch mehr Erfolge erzielen';
        $texts->[1]->{30}->{Weiblich} = 'Die emotionale Stabilität der Kandidatin ist ihre Stärke. Sie ist ein Mensch, der in sich ruht und unerschütterlich ist. Auch Krisensituationen kann sie gut meistern und verliert nicht den Überblick. Sie kennt ihre Stärken und Schwächen. Die Kandidatin hat den Mut, über ihre Leistungen und ihre Qualitäten zu sprechen. Gegen Kritik ist sie ebenso gefeit wie gegen Widerspruch von Seiten der Kollegen. Ihre Mitarbeiter, Kollegen und Geschäftspartner schätzen sie als Partner, denn mit ihr kann man konstruktiv diskutieren. Sie hält mit ihrer Meinung nicht hinter dem Berg. Sie lebt in einem gesunden Gleichgewicht zwischen beruflicher Anspannung und privater Entspannung. Die Kandidatin sollte weiterhin dafür sorgen, dass sie zukünftig mit sich im Einklang steht. Die Kandidatin sollte ihre positiven Einstellungen und ihr gesundheitsförderndes Verhalten beibehalten, dann kann sie jede berufliche Herausforderung annehmen und meistern.';
		

        $texts->[2]->{10}->{Maennlich} = 'Risikobereitschaft gehört im Augenblick nicht zu den Talenten des Kandidaten. Er ist ein Mensch, dem das Risiko eher Angst macht. Aktive Verantwortung zu übernehmen und auf eigene Faust vorzugehen, das überlässt der Kandidat lieber anderen. Er steht lieber in der zweiten Reihe und lässt andere in den erbitterten Konkurrenzkampf ziehen. Er benötigt andere, die ihn mitziehen, ermutigen und die Kastanien aus dem Feuer holen. Er sollte sich überlegen, ob es sich nicht auch für ihn lohnen könnte, die Angst zu überwinden. Wer Neues wagt und stetig zum Dazulernen bereit ist, dessen Selbstvertrauen und Kompetenz werden wachsen.';
        $texts->[2]->{20}->{Maennlich} = 'Die Risikobereitschaft und der Mut des Kandidaten sind durchschnittlich stark ausgeprägt. In manchen Bereichen ist der Kandidat begierig nach Herausforderungen und hat ein enormes Selbstvertrauen. Aber beim Kandidaten gibt es durchaus auch Situationen, in denen er lieber in die zweite Reihe zurücktritt und die Verantwortung abgibt. Dann fühlt er sich der Situation nicht gewachsen und kommt aus dem Gleichgewicht. Lieber bleibt er dann im alten Fahrwasser und fühlt sich sicher. Andere dürfen dann die großen Ziele anstreben und sich in den Konkurrenzkampf stürzen. Die Risikobereitschaft des Kandidaten hat durchaus noch Reserven. Er kann seinen Mut noch stärken, indem er genauer analysiert, welche negativen Einstellungen ihn daran hindern, ein Risiko einzugehen und diese durch motivierende Einstellungen ersetzen.';
        $texts->[2]->{30}->{Maennlich} = 'Risikobereitschaft und Mut sind Talente des Kandidaten. Er geht darin auf, immer wieder neue Herausforderungen anzugehen und zu bestehen. Nichts ist für den Kandidaten schlimmer als Langeweile, Unfreiheit und der Alltagstrott. Er ist geradezu dafür geschaffen, als Pionier neue Wege zu entdecken. Vor Eigenverantwortung scheut er nicht zurück. Konkurrenz macht dem Kandidaten keine Angst, sondern spornt ihn an. Er kann sich sowohl als Einzelkämpfer, aber auch als Teamchef behaupten. Der Kandidat sollte bei all seiner Risikofreude nur sorgfältig darauf achten, dass er mit seiner Begeisterung andere Menschen nicht überfordert und in etwas hineinzieht, das diesen schadet.';

        $texts->[2]->{10}->{Weiblich} = 'Risikobereitschaft gehört im Augenblick nicht zu den Talenten der Kandidatin. Sie ist ein Mensch, der das Risiko eher Angst macht. Aktive Verantwortung zu übernehmen und auf eigene Faust vorzugehen, das überlässt die Kandidatin lieber anderen. Sie steht lieber in der zweiten Reihe und lässt andere in den erbitterten Konkurrenzkampf ziehen. Sie benötigt andere, die sie mitziehen, ermutigen und die Kastanien aus dem Feuer holen. Sie sollte sich überlegen, ob es sich nicht auch für sie lohnen könnte, die Angst zu überwinden. Wer Neues wagt und stetig zum Dazulernen bereit ist, dessen Selbstvertrauen und Kompetenz werden wachsen.';
        $texts->[2]->{20}->{Weiblich} = 'Die Risikobereitschaft und der Mut der Kandidatin sind durchschnittlich stark ausgeprägt. In manchen Bereichen ist die Kandidatin begierig nach Herausforderungen und hat ein enormes Selbstvertrauen. Aber bei der Kandidatin gibt es durchaus auch Situationen, in denen sie lieber in die zweite Reihe zurücktritt und die Verantwortung abgibt. Dann fühlt sie sich der Situation nicht gewachsen und kommt aus dem Gleichgewicht. Lieber bleibt sie dann im alten Fahrwasser und fühlt sich sicher. Andere dürfen dann die großen Ziele anstreben und sich in den Konkurrenzkampf stürzen. Die Risikobereitschaft der Kandidatin hat durchaus noch Reserven. Sie kann ihren Mut noch stärken, indem sie genauer analysiert, welche negativen Einstellungen sie daran hindern, ein Risiko einzugehen und diese durch motivierende Einstellungen ersetzen.';
        $texts->[2]->{30}->{Weiblich} = 'Risikobereitschaft und Mut sind Talente der Kandidatin. Sie geht darin auf, immer wieder neue Herausforderungen anzugehen und zu bestehen. Nichts ist für die Kandidatin schlimmer als Langeweile, Unfreiheit und der Alltagstrott. Sie ist geradezu dafür geschaffen, als Pionier neue Wege zu entdecken. Vor Eigenverantwortung scheut sie nicht zurück. Konkurrenz macht der Kandidatin keine Angst, sondern spornt sie an. Sie kann sich sowohl als Einzelkämpfer, aber auch als Teamchef behaupten. Die Kandidatin sollte bei all ihrer Risikofreude nur sorgfältig darauf achten, dass sie mit ihrer Begeisterung andere Menschen nicht überfordert und in etwas hineinzieht, das diesen schadet.';


        $texts->[3]->{10}->{Maennlich} = 'Offenheit und Phantasie gehören keinesfalls zu den Talenten des Kandidaten. Er verharrt lieber in seinen alten Gleisen und Denkweisen. Dort fühlt er sich sicher und kann seine gewohnten Lösungswege einschlagen. Auf Vorschläge reagiert er zunächst mit \'Ja, aber...\' und sein Augenmerk richtet sich darauf, weshalb etwas nicht funktionieren kann. Schon ein kleinstes Detail kann dazu führen, dass er das ganze Thema abwehrt oder fallen lässt. Mit Abwehr und Unverständnis begegnet er kreativen Menschen. Der Kandidat kann sich Neues nicht gut vorstellen, sondern muss es quasi erst unmittelbar erleben. Er sollte überlegen, ob er die kindliche Neugier und Wissbegierde, die irgendwo in ihm ruht, nicht wieder ein wenig zum Vorschein kommen lassen möchte. Vielleicht probiert es der Kandidat einmal aus, indem er sich bei neuen Vorschlägen und Ideen zunächst der Frage zuwendet: \'Was kann ich gewinnen?\'';
        $texts->[3]->{20}->{Maennlich} = 'Die Offenheit des Kandidaten ist durchschnittlich ausgeprägt. In manchen Bereichen hat er sich den kindlichen Eroberungsgeist und seine grenzenlose Vorstellungskraft erhalten. Er ist neugierig, entwickelt Visionen, aus denen er Energie und Motivationskraft bezieht. Doch manchmal verlässt den Kandidaten seine Courage und er lässt sich von Angst und Einwänden blockieren. Dann geht er an ein Problem mit Vernunft, Logik und Vorerfahrungen heran. Der Kandidat lähmt sich, indem er danach sucht, weshalb es nicht funktionieren kann. Wenn er möchte, kann der Kandidat seine Offenheit in der Zukunft noch stärken. Beobachten sollte der Kandidat einmal, welche konkreten Einstellungen er hat und wie seine Vorstellungsbilder aussehen, wenn er offen ist. Er kann diese dann einfach auf die Bereiche übertragen, in denen er sich blockiert.';
        $texts->[3]->{30}->{Maennlich} = 'Offenheit und Phantasie gehören eindeutig zu den Talenten des Kandidaten. Er hat sich den kindlichen Eroberungsgeist und die grenzenlose Phantasie erhalten. Der Kandidat ist neugierig und entwickelt Visionen, aus denen er Energie und Motivationskraft bezieht. Konventionen und altbekannte Lösungsmuster lässt der Kandidat nicht gelten. Während andere mit \'Ja, aber ... das geht nicht\' - argumentieren, stellt er sich die Frage: \'Was könnte man daraus machen?\' Der Kandidat sieht die Lösung bereits bildhaft vor seinen Augen. Es begeistert ihn, etwas Neues zu schaffen und Dingen intensiv auf den Grund zu gehen. Der Kandidat sollte bei all seiner Offenheit lediglich darauf achten, dass er sich nicht durch seine ständige Ideenproduktion verzettelt oder vergisst, die Machbarkeit genau zu überprüfen.';

        $texts->[3]->{10}->{Weiblich} = 'Offenheit und Phantasie gehören keinesfalls zu den Talenten der Kandidatin. Sie verharrt lieber in ihren alten Gleisen und Denkweisen. Dort fühlt sie sich sicher und kann ihre gewohnten Lösungswege einschlagen. Auf Vorschläge reagiert sie zunächst mit \'Ja, aber...\' und ihr Augenmerk richtet sich darauf, weshalb etwas nicht funktionieren kann. Schon ein kleinstes Detail kann dazu führen, dass sie das ganze Thema abwehrt oder fallen lässt. Mit Abwehr und Unverständnis begegnet sie kreativen Menschen. Die Kandidatin kann sich Neues nicht gut vorstellen, sondern muss es quasi erst unmittelbar erleben. Sie sollte überlegen, ob sie die kindliche Neugier und Wissbegierde, die irgendwo in ihr ruht, nicht wieder ein wenig zum Vorschein kommen lassen möchte. Vielleicht probiert es die Kandidatin einmal aus, indem sie sich bei neuen Vorschlägen und Ideen zunächst der Frage zuwendet: \'Was kann ich gewinnen?\'';
        $texts->[3]->{20}->{Weiblich} = 'Die Offenheit der Kandidatin ist durchschnittlich ausgeprägt. In manchen Bereichen hat sie sich den kindlichen Eroberungsgeist und ihre grenzenlose Vorstellungskraft erhalten. Sie ist neugierig, entwickelt Visionen, aus denen sie Energie und Motivationskraft bezieht. Doch manchmal verlässt die Kandidatin ihre Courage und sie lässt sich von Angst und Einwänden blockieren. Dann geht sie an ein Problem mit Vernunft, Logik und Vorerfahrungen heran. Die Kandidatin lähmt sich, indem sie danach sucht, weshalb es nicht funktionieren kann. Wenn sie möchte, kann die Kandidatin ihre Offenheit in der Zukunft noch stärken. Beobachten sollte die Kandidatin einmal, welche konkreten Einstellungen sie hat und wie ihre Vorstellungsbilder aussehen, wenn sie offen ist. Sie kann diese dann einfach auf die Bereiche übertragen, in denen sie sich blockiert.';
        $texts->[3]->{30}->{Weiblich} = 'Offenheit und Phantasie gehören eindeutig zu den Talenten der Kandidatin. Sie hat sich den kindlichen Eroberungsgeist und die grenzenlose Phantasie erhalten. Die Kandidatin ist neugierig und entwickelt Visionen, aus denen sie Energie und Motivationskraft bezieht. Konventionen und altbekannte Lösungsmuster lässt die Kandidatin nicht gelten. Während andere mit \'Ja, aber ... das geht nicht\' - argumentieren, stellt sie sich die Frage: \'Was könnte man daraus machen?\' Die Kandidatin sieht die Lösung bereits bildhaft vor ihren Augen. Es begeistert sie, etwas Neues zu schaffen und Dingen intensiv auf den Grund zu gehen. Die Kandidatin sollte bei all ihrer Offenheit lediglich darauf achten, dass sie sich nicht durch ihre ständige Ideenproduktion verzettelt oder vergisst, die Machbarkeit genau zu überprüfen.';


        $texts->[4]->{10}->{Maennlich} = 'Gewissenhaftigkeit und Kontrolliertheit gehört nicht zu den Talenten des Kandidaten. Im Gegenteil, er hat eher eine Aversion gegen alles Reglementierte und Kontrollierte. Dahinter können sich unterschiedliche Motive verbergen. Es mag sein, dass der Kandidat gegen die Regeln protestiert, Angst vor dem Erfolg, ein geringes Selbstbewusstsein oder eine geringe Frustrationstoleranz hat. Auf andere wirkt er leicht unmotiviert, unzuverlässig und chaotisch. Das Verhalten des Kandidaten kann zu Verstimmungen und Unmut im Team führen. Daneben wird es ihm natürlich auch eine Menge Nachteile bescheren, denn er wird seine Qualitäten und Fähigkeiten nicht voll ausschöpfen können. Der Kandidat sollte sich also überlegen, ob er nicht in diesem Bereich etwas für sich tun sollte.';	
        $texts->[4]->{20}->{Maennlich} = 'Das Ausmaß an Gewissenhaftigkeit und Kontrolliertheit des Kandidaten liegt im durchschnittlichen Bereich. Er benötigt ein gewisses Maß an Ordnung und Kontrolle, um sich wohl zu fühlen. Der Kandidat hat für sich einige Grundsätze formuliert, die er auf alle Fälle einhalten möchte. Er hat sich aber durchaus auch Freiräume geschaffen, in denen er sich nicht den bürgerlichen Normen unterwirft. Der Kandidat hat erkannt, dass es durchaus auch Nachteile hat, sich streng nach den bürgerlichen Prinzipien von Leistung, Pflichterfüllung und moralischen Werten zu richten';	
        $texts->[4]->{30}->{Maennlich} = 'Gewissenhaftigkeit und Kontrolliertheit zählt zu den Talenten des Kandidaten. Er ist der geborene \'Zu- und Mitarbeiter\', ein Arbeitstier. Seine Konstanz, Zuverlässigkeit und Wohlorganisiertheit machen es Kollegen einfach, mit ihm zusammenzuarbeiten. Ein Griff und der Kandidat findet alles. Er genießt es, alles unter Kontrolle zu haben. Der Kandidat hat eine große Selbstdisziplin und erwartet diese auch von anderen. Sein Ehrgeiz liegt darin, Aufgaben perfekt zu erledigen. Aufgaben abzugeben, fällt dem Kandidaten aus diesem Grunde eher schwer. Er sollte bei all seiner Gewissenhaftigkeit und Kontrolliertheit jedoch darauf achten, dass er sich nicht überfordert. Ein wenig weniger Kontrolliertheit und Regeln können sich auf seinen Körper sehr wohltuend auswirken und auch die Distanz zu den Kollegen verringern.';

        $texts->[4]->{10}->{Weiblich} = 'Gewissenhaftigkeit und Kontrolliertheit gehört nicht zu den Talenten der Kandidatin. Im Gegenteil, sie hat eher eine Aversion gegen alles Reglementierte und Kontrollierte. Dahinter können sich unterschiedliche Motive verbergen. Es mag sein, dass die Kandidatin gegen die Regeln protestiert, Angst vor dem Erfolg, ein geringes Selbstbewusstsein oder eine geringe Frustrationstoleranz hat. Auf andere wirkt sie leicht unmotiviert, unzuverlässig und chaotisch. Das Verhalten der Kandidatin kann zu Verstimmungen und Unmut im Team führen. Daneben wird es ihr natürlich auch eine Menge Nachteile bescheren, denn sie wird ihre Qualitäten und Fähigkeiten nicht voll ausschöpfen können. Die Kandidatin sollte sich also überlegen, ob sie nicht in diesem Bereich etwas für sich tun sollte.';
        $texts->[4]->{20}->{Weiblich} = 'Das Ausmaß an Gewissenhaftigkeit und Kontrolliertheit der Kandidatin liegt im durchschnittlichen Bereich. Sie benötigt ein gewisses Maß an Ordnung und Kontrolle, um sich wohl zu fühlen. Die Kandidatin hat für sich einige Grundsätze formuliert, die sie auf alle Fälle einhalten möchte. Sie hat sich aber durchaus auch Freiräume geschaffen, in denen sie sich nicht den bürgerlichen Normen unterwirft. Die Kandidatin hat erkannt, dass es durchaus auch Nachteile hat, sich streng nach den bürgerlichen Prinzipien von Leistung, Pflichterfüllung und moralischen Werten zu richten';
        $texts->[4]->{30}->{Weiblich} = 'Gewissenhaftigkeit und Kontrolliertheit zählt zu den Talenten der Kandidatin. Sie ist die geborene \'Zu- und Mitarbeiterin\', ein Arbeitstier. Ihre Konstanz, Zuverlässigkeit und Wohlorganisiertheit machen es Kollegen einfach, mit ihr zusammenzuarbeiten. Ein Griff und die Kandidatin findet alles. Sie genießt es, alles unter Kontrolle zu haben. Die Kandidatin hat eine große Selbstdisziplin und erwartet diese auch von anderen. Ihr Ehrgeiz liegt darin, Aufgaben perfekt zu erledigen. Aufgaben abzugeben, fällt der Kandidatin aus diesem Grunde eher schwer. Sie sollte bei all ihrer Gewissenhaftigkeit und Kontrolliertheit jedoch darauf achten, dass sie sich nicht überfordert. Ein wenig weniger Kontrolliertheit und Regeln können sich auf ihren Körper sehr wohltuend auswirken und auch die Distanz zu den Kollegen verringern.';


        $texts->[5]->{10}->{Maennlich} = 'Kontaktfreudigkeit und Extrovertiertheit gehören nicht zu den Talenten des Kandidaten. Er ist eher ein Einzelgänger, der sich ins stille Kämmerlein zurückzieht. Der Kandidat fühlt sich im Hintergrund wohl und ist in seiner Stimmung eher verhalten und in sich gekehrt. Über Ihre Meinung und Gefühle lässt der Kandidat andere eher im Ungewissen. Nur ganz eng Vertraute lässt er an sich heran. Kontaktfreudige Menschen benötigt der Kandidat als Publikum. Er sollte sich überlegen, ob er ab und zu ein wenig über seinen \'Schatten\' springt und ein wenig mehr von sich zeigt. Zwar geht der Kandidat dann das Risiko ein, nicht anzukommen. Andererseits lehnt er andere Menschen vielleicht jetzt ab, weil sie unnahbar und arrogant wirken. Der Kandidat hat ganz sicher genug anzubieten, was andere interessieren könnte.';
        $texts->[5]->{20}->{Maennlich} = 'Die Kontaktfreudigkeit und Extrovertiertheit des Kandidaten ist durchschnittlich ausgeprägt. In ihm gibt es zwei unterschiedliche Strömungen. Der Kandidat genießt es in manchen Situationen, im Mittelpunkt zu stehen und die Führung zu übernehmen. Er kann aber auch gut mit sich alleine sein. Als Alleinunterhalter ist der Kandidat weniger geeignet. Er kann jedoch durchaus auch aus sich herausgehen, über seine Ansichten und Gefühle sprechen und eine gute Stimmung verbreiten.';
        $texts->[5]->{30}->{Maennlich} = 'Kontaktfreudigkeit und Extrovertiertheit gehören eindeutig zu den Talenten des Kandidaten. Er hat die Gabe, auf andere zuzugehen und in seinen Bann zu ziehen. Der Kandidat liebt das Bad in der Menge und das Zusammensein mit anderen. Er braucht andere Menschen wie Blumen das Wasser. Aber auch andere brauchen den Kandidaten. Seine Fröhlichkeit und Lebensfreude sind ansteckend. Wo der Kandidat ist, gibt es eine entspannte Gruppenatmosphäre. Bei ihm weiß man, woran man ist. Der Kandidat hält mit seiner Meinung nicht hinter dem Berg, lässt andere auch an seinen Gefühlen teilhaben. Andere überlassen dem Kandidaten gerne die Führung. Der Kandidat sollte jedoch darauf achten, dass er anderen ab und zu auch einmal die Regie überlässt und in die zweite Reihe zurücktritt.';

        $texts->[5]->{10}->{Weiblich} = 'Kontaktfreudigkeit und Extrovertiertheit gehören nicht zu den Talenten der Kandidatin. Sie ist eher ein Einzelgänger, der sich ins stille Kämmerlein zurückzieht. Die Kandidatin fühlt sich im Hintergrund wohl und ist in ihrer Stimmung eher verhalten und in sich gekehrt. Über Ihre Meinung und Gefühle lässt die Kandidatin andere eher im Ungewissen. Nur ganz eng Vertraute lässt sie an sich heran. Kontaktfreudige Menschen benötigt die Kandidatin als Publikum. Sie sollte sich überlegen, ob sie ab und zu ein wenig über ihren \'Schatten\' springt und ein wenig mehr von sich zeigt. Zwar geht die Kandidatin dann das Risiko ein, nicht anzukommen. Andererseits lehnt sie andere Menschen vielleicht jetzt ab, weil sie unnahbar und arrogant wirken. Die Kandidatin hat ganz sicher genug anzubieten, was andere interessieren könnte.';
        $texts->[5]->{20}->{Weiblich} = 'Die Kontaktfreudigkeit und Extrovertiertheit der Kandidatin ist durchschnittlich ausgeprägt. In ihr gibt es zwei unterschiedliche Strömungen. Die Kandidatin genießt es in manchen Situationen, im Mittelpunkt zu stehen und die Führung zu übernehmen. Sie kann aber auch gut mit sich alleine sein. Als Alleinunterhalter ist die Kandidatin weniger geeignet. Sie kann jedoch durchaus auch aus sich herausgehen, über ihre Ansichten und Gefühle sprechen und eine gute Stimmung verbreiten.';
        $texts->[5]->{30}->{Weiblich} = 'Kontaktfreudigkeit und Extrovertiertheit gehören eindeutig zu den Talenten der Kandidatin. Sie hat die Gabe, auf andere zuzugehen und in ihren Bann zu ziehen. Die Kandidatin liebt das Bad in der Menge und das Zusammensein mit anderen. Sie braucht andere Menschen wie Blumen das Wasser. Aber auch andere brauchen die Kandidatin. Ihre Fröhlichkeit und Lebensfreude sind ansteckend. Wo die Kandidatin ist, gibt es eine entspannte Gruppenatmosphäre. Bei ihr weiß man, woran man ist. Die Kandidatin hält mit ihrer Meinung nicht hinter dem Berg, lässt andere auch an ihren Gefühlen teilhaben. Andere überlassen der Kandidatin gerne die Führung. Die Kandidatin sollte jedoch darauf achten, dass sie anderen ab und zu auch einmal die Regie überlässt und in die zweite Reihe zurücktritt.';


        $texts->[6]->{10}->{Maennlich} = 'Soziale Kompetenz und Verträglichkeit gehören nicht zu den Talenten des Kandidaten. Im Vordergrund steht bei ihm die eigene Meinung und die eigenen Bedürfnisse. Dem Kandidaten ist es wichtig, recht zu behalten und seine Meinung durchzusetzen. Er kann gut trennen zwischen seiner eigenen Person und den Problemen anderer. Die Probleme anderer lässt er nicht an sich heran. Andere erleben den Kandidaten häufig als egoistisch, nachtragend und rechthaberisch. Wenn es nicht nach seinen Vorstellungen geht, wird er leicht ungehalten und ärgerlich. Im Team wird der Kandidat häufig Schwierigkeiten bekommen. Andere lassen sich sein Verhalten selten gefallen, sondern reagieren mit Gegenangriff und Vorwürfen. Der Kandidat sollte sich deshalb überlegen, ob er nicht zu seiner grundsätzlichen Frage: \'Was möchte ich?\' noch die zweite Frage: \'Was möchte der andere?\' hinzufügt. Der Kandidat braucht deshalb seine Bedürfnisse nicht gleich aufgeben, sondern lediglich seinen Blickwinkel auszuweiten. Für eine gute Arbeitsatmosphäre und beruflichen Erfolg ist es notwendig, andere zu respektieren und als Person ernst zu nehmen.';
        $texts->[6]->{20}->{Maennlich} = 'Das Ausmaß der sozialen Kompetenz und Verträglichkeit des Kandidaten liegt im durchschnittlichen Bereich. In ihm gibt es zwei Strömungen. Der Kandidat kann sehr gut auf andere eingehen und deren Bedürfnisse berücksichtigen. Aber es gibt auch Momente, in denen das kleine wütende Kind in ihm durchkommt, das nur an sich denkt. Dann ist der Kandidat nachtragend, fordernd, rechthaberisch oder auch verletzend. Es gelingt ihm jedoch immer wieder, auf Kooperation und Akzeptanz umzuschalten.';
        $texts->[6]->{30}->{Maennlich} = 'Die soziale Kompetenz und Verträglichkeit gehören eindeutig zu den Talenten des Kandidaten. Ihm ist es besonders wichtig, eine entspannte, friedliche Atmosphäre im Team zu haben. Dafür ist der Kandidat bereit, Kompromisse einzugehen und seine Bedürfnisse zurückzustecken. Kooperation ist dem Kandidaten wichtiger als Individualität. Er hält sich eher bescheiden im Hintergrund und verzichtet darauf, auf seine Erfolge und Leistungen hinzuweisen. Oftmals wird der Kandidat im Team als Vermittler herangezogen, denn er sorgt für den Ausgleich. Aufpassen sollte der Kandidat dabei, dass er die Bedürfnisse und Probleme der anderen nicht über seine eigenen stellt. Sein Verhalten kann dazu einladen, ihn als den Starken anzusehen, auf den man alles abladen kann und der für alles Verständnis hat. Auch wenn der Kandidat andere fair behandelt, ist dies keine Garantie, ebenfalls so behandelt zu werden.';

        $texts->[6]->{10}->{Weiblich} = 'Soziale Kompetenz und Verträglichkeit gehören nicht zu den Talenten der Kandidatin. Im Vordergrund steht bei ihr die eigene Meinung und die eigenen Bedürfnisse. Der Kandidatin ist es wichtig, recht zu behalten und ihre Meinung durchzusetzen. Sie kann gut trennen zwischen ihrer eigenen Person und den Problemen anderer. Die Probleme anderer lässt sie nicht an sich heran. Andere erleben die Kandidatin häufig als egoistisch, nachtragend und rechthaberisch. Wenn es nicht nach ihren Vorstellungen geht, wird sie leicht ungehalten und ärgerlich. Im Team wird die Kandidatin häufig Schwierigkeiten bekommen. Andere lassen sich ihr Verhalten selten gefallen, sondern reagieren mit Gegenangriff und Vorwürfen. Die Kandidatin sollte sich deshalb überlegen, ob sie nicht zu ihrer grundsätzlichen Frage: \'Was möchte ich?\' noch die zweite Frage: \'Was möchte der andere?\' hinzufügt. Die Kandidatin braucht deshalb ihre Bedürfnisse nicht gleich aufgeben, sondern lediglich ihren Blickwinkel auszuweiten. Für eine gute Arbeitsatmosphäre und beruflichen Erfolg ist es notwendig, andere zu respektieren und als Person ernst zu nehmen.';
        $texts->[6]->{20}->{Weiblich} = 'Das Ausmaß der sozialen Kompetenz und Verträglichkeit der Kandidatin liegt im durchschnittlichen Bereich. In ihr gibt es zwei Strömungen. Die Kandidatin kann sehr gut auf andere eingehen und deren Bedürfnisse berücksichtigen. Aber es gibt auch Momente, in denen das kleine wütende Kind in ihr durchkommt, das nur an sich denkt. Dann ist die Kandidatin nachtragend, fordernd, rechthaberisch oder auch verletzend. Es gelingt ihr jedoch immer wieder, auf Kooperation und Akzeptanz umzuschalten.';
        $texts->[6]->{30}->{Weiblich} = 'Die soziale Kompetenz und Verträglichkeit gehören eindeutig zu den Talenten der Kandidatin. Ihr ist es besonders wichtig, eine entspannte, friedliche Atmosphäre im Team zu haben. Dafür ist die Kandidatin bereit, Kompromisse einzugehen und ihre Bedürfnisse zurückzustecken. Kooperation ist der Kandidatin wichtiger als Individualität. Sie hält sich eher bescheiden im Hintergrund und verzichtet darauf, auf ihre Erfolge und Leistungen hinzuweisen. Oftmals wird die Kandidatin im Team als Vermittler herangezogen, denn sie sorgt für den Ausgleich. Aufpassen sollte die Kandidatin dabei, dass sie die Bedürfnisse und Probleme der anderen nicht über ihre eigenen stellt. Ihr Verhalten kann dazu einladen, sie als die Starke anzusehen, auf die man alles abladen kann und die für alles Verständnis hat. Auch wenn die Kandidatin andere fair behandelt, ist dies keine Garantie, ebenfalls so behandelt zu werden.';

        my $t = $texts->[$p]->{$score}->{$self->{m}->vars("Geschlecht")};
        $t = $self->wrap_text($t);
        return $t;
    }

#-------------------------------------
sub wrap_text {
#-------------------------------------
  my $self = shift;
  my $t = $_[0];
  my $s = "";
  my $l = 0;
  my $p = 0;

  while ( length($t) > 70 ) {
    $p = rindex(substr($t,0,70), "\n");
    if ( $p >= 0 ) {
      $s .= substr($t, 0, $p) . "\n";
      $t = substr($t, $p + 1);
      }
    else {
      $p = rindex(substr($t,0,70), " ");
      if ( $p >= 0 ) {
        $s .= substr($t, 0, $p) . "\n";
        $t = substr($t, $p + 1);
        }
      else {
	$s .= substr($t,0,70) . "\n";
	$t = substr($t,70);
        }
      }
    }
  return $s . $t;
}

