sub such_eintr {        my ($param)=@_;        print "\n";        print "FORMULAR";        print "\n\n";        if ($suchen){              #### Zeile 225                print '
Dokumententyp:'.$param->{doctyp}.'
';                }        elsif ($eintragen) {                print '
Dokumententyp: '.$doctyp.'
';                }        print '
';        print "

Ident-Nummer:";        print ' ';        if ($suchen) {                print '';                }        print "

DE:
";        print '
';        if ($doctyp eq 'EI') {             print '';                }        print "

EN:
";        print '
';        if ($doctyp eq 'EI') {            print '';                }        print "

FR:
";        print '
';        if ($doctyp eq 'EI') {            print '';        ###$franz                }