Version 2.3.0.3

Global_Indexer/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.0.1")>
+<Assembly: AssemblyVersion("2.3.0.3")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmAdministration.vb

@@ -791,25 +791,6 @@ Public Class frmAdministration
                     Case 7 : value = "$Usercode"
                 End Select
 
-                'Select Case lbFileparameter.SelectedItem.ToString.ToUpper
-                '    Case "Dateiname (mit Endung)".ToUpper
-                '        value = "$filename_ext"
-                '    Case "Dateiname (ohne Endung)".ToUpper
-                '        value = "$filename"
-                '    Case "Dateiendung".ToUpper
-                '        value = "$extension"
-                '    Case "Datei Erstelldatum".ToUpper
-                '        value = "$FileCreateDate"
-                '    Case "Datei Erstellt wer".ToUpper
-                '        value = "$FileCreatedWho"
-                '    Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
-                '        value = "$DateDDMMYYY"
-                '    Case "Username"
-                '        value = "$Username"
-                '    Case "Usercode"
-                '        value = "$Usercode"
-                'End Select
-
                 If value <> "" Then
                     VALUETextBox.Text = value
                     Save_IndexAuto()

Global_Indexer/frmIndex.vb

@@ -1,15 +1,10 @@
-Imports System.Windows.Forms
-Imports System.Data.SqlClient
-Imports System.IO
+Imports System.IO
 Imports System.Text.RegularExpressions
 Imports Independentsoft
-Imports Oracle.ManagedDataAccess.Client
 Imports System.Text
 Imports System.Security.AccessControl
 Imports System.Security.Principal
 Imports System.DirectoryServices
-Imports DevExpress.XtraEditors.Controls
-Imports System.ComponentModel
 Imports DigitalData.Modules.Logging
 
 Public Class frmIndex
@@ -1844,10 +1839,10 @@ Public Class frmIndex
                     End If
                 Next
 
-
-                'TODO: Replace Windream Patterns?
                 oSqlResult = ClassPatterns.ReplaceControlValues(oSqlResult, pnlIndex)
                 oSqlResult = ClassPatterns.ReplaceInternalValues(oSqlResult)
+                oSqlResult = ClassPatterns.ReplaceUserValues(oSqlResult, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
+
                 If oSqlResult <> String.Empty Then
                     _Logger.Debug("oSqlResult after Replace [" & oSqlResult & "]")
                 End If