$subs{hint} .= qq~<p>PID: $query->{pid}</p>~;
# ---- alt
#        # validate ob keine <h2> und keine <hr />
#            if( $query->{beitrag_neu} =~ m|<hr />{2+}|i
#             or $query->{beitrag} =~ m|<hr />{2+}|i ){
#                $subs{error} .= qq~<p class="error">Beitrag darf kein &lt;hr /&gt enthalten!</p>~;
#            }
#        #ein <hr /> am Ende => wenn nicht, anhängen!
#            chomp( $query->{beitrag} );
#            if( $query->{beitrag} =~ m|<hr/>$|i ){
#                $subs{hint} .= qq~<p class=hint>hr am Ende enthalten!</p>~;
#            }else{
#                $query->{beitrag_neu} .= qq~<hr />~;
#            }
        # validate ob keine <h2> und keine <hr/>
            if( $query->{beitrag_neu} =~ m|(?:<hr />){2,}|i){
                $subs{error} .= qq~<p class="error">Beitrag darf kein &lt;hr /&gt enthalten!</p>~;
            }
        #ein <hr /> am Ende => wenn nicht, anhängen!
            chomp( $query->{beitrag} );
            if( $query->{beitrag} =~ m|<hr />$|i ){
                $subs{hint} .= qq~<p class=hint>hr am Ende enthalten!</p>~;
            }else{
                $query->{beitrag_neu} .= qq~<hr />~;
            }




            # validate auf andere verbotne Tags
            if( $query->{beitrag} =~ /<h2>/ ){
                $subs{error} .= qq~<p class="error">Beitrag darf kein &lt;h2&gt enthalten!</p>~;
            }
# ---- Fehlerbehandlung
            if( exists $subs{error} ){
                print "Fehler!\n";
                print substitute( extractFile( $tmplDir . '/artikel_edit_edit.html' ) );
            }else{
                print "weiter<p />$query->{topic_neu}\n";
                print qq~<table border="2"><tr><td>$query->{beitrag_neu}</td></tr></table>~;
                
# ---- toc editieren
            my @file = extractFile( $query->{file} );
            my %toc = ();
            my @toc = ();
            foreach ( 0..$#file ) {
                if( $file[$_] =~ m/<h2>/ig ) {
                    last;
                }else{
                    if( $file[$_] =~ m/<li>/i ) {
                        push @toc, $file[$_];
                        $toc{$file[$_]} = $_;
                    }
                }
            }
            
            # -> toc_alt löschen
            # -> toc_neu einfügen (=> insert-after) => Aufgabe von "Sortieren"
            my $tocZeile = undef; #Zeile in der Datei, in der der TOC-Eintrag gespeichert ist
            foreach( keys %toc ) {
                if( $_ =~ m/$toc[$query->{tocNr}]/ ) {
                    $tocZeile = $toc{$_};
                }
            }

            # $file[$tocZeile] = $query->{newTopic};
#            if( $zeile =~ m/<li>(<[^>]+>)*(.*)(<[^>]+>?)*/ig ){
#                # $2 = $query->{topic}
#            }
            # file auslesen
            # -> beitrag alt löschen
            # -> beitrag_neu einfügen
            # Meldung ausgeben
            }
            #beitrag speichern
            #open(DAT, ">$query->{file}" ) || die "$! ($query->{file})";
            #print DAT @inhalt;
            #close(DAT);