In WordPress ist für dieses Menü die funktion “wp_list_categories()” bzw “wp_list_pages()” verantwortlich. Beide Funktionen kennen das Argument “use_desc_for_title=0” was aber leider nicht wie erhofft dazu führt, das kein title=” ” mehr eingefügt wird, sondern nur dafür das nicht der Beschreibungstext, sondern ein Standarttext verwendet wird. Aber es ist nicht allex verlohren, denn beide Funktionen kennen als Argument auch “echo=0” die verhindern, daß das Menü sofort ausgegeben wird uund das umleiten in eine Variable ermöglichen. Noch ein bischen mit “preg_replace()” gezaubert und schon hat man den PopUp Text los:

So sieht der Code bei Alex & Kathrin´s Theme aus:

//Ursrünglicher Code:
wp_list_categories('sort_column=menu_order&depth=3&title_li=&;exclude=');

//Änderung:
$merl_nav_var = wp_list_categories('sort_column=menu_order&depth=3&title_li=&exclude=&use_desc_for_title=0&echo=0');
$merl_nav_var = preg_replace("/title=\"(.*?)\">/is"," >",$merl_nav_var);
echo $merl_nav_var;

Und da mir aufgefallen ist, daß bei mir auch das Problem herscht, hier noch bei mir:

//Ursprünglich:
function j_globalnav() {
$menu = wp_list_pages('title_li=&echo=0'); // Params for the page list in header.php
echo str_replace(array("\r", "\n", "\t"), '', $menu);
}

//Geändert:
function j_globalnav() {
$menu = wp_list_pages('title_li=&echo=0'); // Params for the page list in header.php
$menu = preg_replace("/title=\"(.*?)\"/is","",$menu);
echo str_replace(array("\r", "\n", "\t"), '', $menu);
}

Dabei bin ich gleich noch auf ein sehr Interessantes Plugin gestoßen: WordPress Code Editor

Mit diesem Plugin werden der sehr magere Theme und Plugin Editor von WordPress um Zeilenummern und Syntaxhighlighting ergänzt. Verdammt praktisch wenn man irgendwo rumbastelt wo man keinen FTP Zugang und vor allem keine anständigen Entwicklertools zur verfügung hat.

Links:

• WordPress Code Editor
• WordPress Codex Funktionsrefferenz
• Alex & Kathrin

Um das zu bewerkstelligen muß aus einer Fehler-Log-Datei der Inhalt in ein Excel-Sheet und alles was kein Call ist gelöscht werden. Ursprünglich war das einfach Copy&Paste und jede 2. Zeile löschen.

Dabei hat sich dann aber erwiesen, manchmal sind 1. und 2. Zeile vertauscht und manchmal steht Mist drin, also ist das Script gewachsen zu einem “Lösch alles was nicht da sein soll”. Als das Fertig war hat ein Kollege mich drauf gebracht, daß das so ja noch voll langweilig ist, weil es eigentlich nicht viel macht was man icht von Hand auch könnte .. also hab ichs noch gepimpt und jetzt list es auf Knopfdruck automatisch die Dastei ein, löscht alle Daten die entweder nicht von Heute sind (wenn das Worksheet neu ist) oder nicht dem Dateinamen des Worksheets entsprechen (z.B: 19.03.2009) und danach auch gleich noch den ganzen überflüssigen schlonz und gibt am Ende noch brav als MsgBox aus wieviel Calls ich gemacht habe.

Um euch den Source natürlich nicht vorzuenthalten bin ich nach einiger Suche auch auf ein sehr gutes WordPress Plugin gestoßen, mit dem man den Source ordentlich mit Highlighting darstellen kann: SyntaxHighlighterPlus, das auf dem SyntaxHighlighter von Alex Gorbatchev beruht, den auch WordPress.com selbst für ihre Blogs verwenden

Sub Delete_Non_Call_Row()

Set xRng = Selection ' Auswahl in Objekt setzen
del = True
I = 0 ' Zählvariable um die Zeile, die die Zelle enthält nachher auch löschen zu können

For xRowCounter = 1 To xRng.Rows.Count
For xCellCounter = 1 To xRng.Columns.Count
I = I + 1
If xRng.Cells(I).Value Like "*Incoming Call*" Then
del = False
End If
Next xCellCounter

If del Then
xRng.Cells(I).EntireRow.Delete
I = I - xRng.Columns.Count ' Die Zeile ist weg, also die Zählvariable
' auch für die neuen Zeilen setzen
End If
del = True
Next xRowCounter

End Sub

Sub Einlesen_der_Calls()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Pfad:zurDatei.txt", Destination:=Range("$A$1"))
.Name = "vba"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Sub Delete_Altes_Datum(tableDate)

Set xRng = Selection ' Auswahl in Objekt setzen
del = True
I = 0 ' Zählvariable um die Zeile, die die Zelle enthält nachher auch löschen zu können
colCount = xRng.Columns.Count

For xRowCounter = 1 To xRng.Rows.Count
For xCellCounter = 1 To colCount
I = I + 1
If xRng.Cells(I).Value Like tableDate + " *" Then
del = False
End If
Next xCellCounter

If del Then
xRng.Cells(I).EntireRow.Delete
I = I - colCount ' Die Zeile ist weg, also die Zählvariable
' auch für die neuen Zeilen setzen
End If
del = True
Next xRowCounter

End Sub

Sub Calls_in_aktives_Sheet()
If ActiveSheet.Name Like "Tabelle*" Then
ActiveSheet.Name = Date
End If
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Delete
ActiveSheet.Range("A1").Select
Call Einlesen_der_Calls
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
Call Delete_Altes_Datum(ActiveSheet.Name)
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
Call Delete_Non_Call_Row
ActiveSheet.Range("A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
MsgBox (CStr(ActiveSheet.UsedRange.Rows.Count) + " Calls am " + CStr(ActiveSheet.Name))
End Sub

Sub Calls_in_neues_Sheet()
Sheets.Add
Call Calls_in_aktives_Sheet
End Sub

Update 26.09.2010:
Ich habe heute das Plugin für den Syntaxhighlighter auf SyntaxHighlighter ComPress von Andre Gärtner geändert.
Das hat unter anderem den Vorteil, dass es die benötigten JavaScript Dateien dynamisch einbindet und damit weniger Ladezeit benötigt. Außerdem nutzt es das aktuelle SyntaxHighlighter JS, das für Copy&Paste kein Flash mehr benötigt.