DB_Query_Monitoring_DB { my $HTML_Anzeige_Zaehler = 0; foreach( @Ergebnis_SQL_DB ) { my $Anzahl = 1; my $x = 0; # ------------------------------------------------------------ my $HTML_Anzeige_SSTs = $Ergebnis_SQL_DB[$i][3]; my $HTML_Anzeige_Broker = $Ergebnis_SQL_DB[$i][4]; my $HTML_Anzeige_MTs = $Ergebnis_SQL_DB[$i][7]; my $HTML_Anzeige_Status = $Ergebnis_SQL_DB[$i][9]; my $HTML_Anzeige_EC = $Ergebnis_SQL_DB[$i][10]; my $HTML_Anzeige_Anzahl = $Ergebnis_SQL_DB[$i][11]; # ------------------------------------------------------------ for ( $x = 0; $x < $Anzahl; $x++ ) { if ( $Ergebnis_SQL_DB[$i][10] == '00000' ) { my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1]; my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2]; my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II ); my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs , $HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl ); &Anzeige_Ergebnisse( @HTML_Anzeige_Parameter ); # Ausgabe des Rückgabe - Parameter # print "\n"; # print "TS I : $HTML_Anzeige_TS_I" , "\n"; # print "TS II : $HTML_Anzeige_TS_II" , "\n"; # print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n"; # print "\n"; } if ( $Ergebnis_SQL_DB[$i][10] != '00000' ) { my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1]; my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2]; my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II ); my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs , $HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl ); &Anzeige_Ergebnisse( @HTML_Anzeige_Parameter ); # Ausgabe des Rückgabe - Parameter # print "\n"; # print "TS I : $HTML_Anzeige_TS_I" , "\n"; # print "TS II : $HTML_Anzeige_TS_II" , "\n"; # print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n"; # print "\n"; } } print "\n"; $i++; $HTML_Anzeige_Zaehler++; } }