Server Error in '/cyintranet' Application.

---

Line 155: Dim pd As DotNetNuke.Entities.Profile.ProfilePropertyDefinition Line 156: Line 157: ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) Line 158: Line 159: If Not pd Is Nothing Then

Line 240: Dim pd As DotNetNuke.Entities.Profile.ProfilePropertyDefinition Line 241: Line 242: ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) Line 243: Line 244: If Not pd Is Nothing Then

Line 1107: End If Line 1108: Line 1109: Return String.Format("{0}://{1}{2}{3}/DesktopModules/effority.UserDirectory/vCard.aspx?UserId={4}&ModuleId={5}&TabModuleId={6}", RequestUrl.Scheme, RequestUrl.Host, port, Request.ApplicationPath, CStr(UserId), CStr(Me.ModuleId), CStr(Me.TabModuleId)) Line 1110: Line 1111: End Function

Line 324: End If Line 325: Line 326: Return UserInfos Line 327: Line 328: End Function

Line 575: Dim PropertyValue As String = Null.SetNull(reader.GetString(2), Null.NullString).ToString Line 576: Line 577: If userDic.TryGetValue(UserId, workDic) Then Line 578: Line 579: ' es gibt bereits Werte für diesen User

Line 632: End If Line 633: Line 634: Return userDic Line 635: Line 636: End Function

Line 65: 'If _Settings Is Nothing Then Line 66: Line 67: Dim modSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetModuleSettings(Me.ModuleId) Line 68: Dim tabModSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetTabModuleSettings(Me.TabModuleId) Line 69: 

Line 66: Line 67: Dim modSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetModuleSettings(Me.ModuleId) Line 68: Dim tabModSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetTabModuleSettings(Me.TabModuleId) Line 69: Line 70: _Settings = New Generic.Dictionary(Of String, String)

Line 158: workrow(effority.UserDirectory.Consts.USERID_COLUMN) = user.UserId Line 159: Line 160: If userProfileDic.TryGetValue(user.UserId, profileForThisUser) Then Line 161: Line 162: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilesPropertiesToLoad

Line 184: UserTable.EndLoadData() Line 185: Line 186: DotNetNuke.Services.Cache.CachingProvider.Instance.Insert(Me.USERTABLE_MODULE_CACHE, UserTable, False) Line 187: Line 188: Dim dv As DataView = UserTable.DefaultView

Line 30: Dim cont As New DotNetNuke.Entities.Modules.DesktopModuleController Line 31: Line 32: Dim info As DotNetNuke.Entities.Modules.DesktopModuleInfo = cont.GetDesktopModuleByModuleName("effority.UserDirectory") Line 33: Line 34: Dim moduleCont As New DotNetNuke.Entities.Modules.ModuleController

C:\Windows\SysWOW64\inetsrv> "C:\Windows\Microsoft.NET\Framework\v3.5\vbc.exe" /t:library /utf8output /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\a79acaa8\9a0dba61_7bd0cb01\Papayas.DnnModules.DnnAutoUpgrade.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\42e8ef06\bd31c161_7bd0cb01\RadDock.Net2.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\2bc2ce50\c1069a60_7bd0cb01\Dnnskin.Net.SkinObjects.CssMenu.V2.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\857eba45\f363a961_7bd0cb01\OnyakTech.SupportFlash.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\2923ff7e\0065bb5c_76b7cb01\Telerik.Web.UI.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\d4ce9fe2\d3375d61_7bd0cb01\OnyakTech.Axon.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\5b7adedf\acb37807_2201cc01\DotNetNuke.WebUtility.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Xml.Linq\3.5.0.0__b77a5c561934e089\System.Xml.Linq.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\8f1c0f44\52aa0e61_7bd0cb01\LumenWorks.Framework.IO.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\cbda47ae\a218cd61_7bd0cb01\TabControlToolkit.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\3f2a6283\44af8561_7bd0cb01\OnyakTech.Oseta.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\be110e8d\3f9c2d61_7bd0cb01\Onyak.SigmaPro.Dashboard.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\ef51eb1c\de3a2b61_7bd0cb01\ONYAK.PDFPro.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\33c4ecd4\68110c63_7bd0cb01\XepientSolutions.XSDocumentlibrary.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\5669637d\30632560_7bd0cb01\Bring2mind.Telerik.RadUpload.Net2.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\73f914c0\acdd1b60_7bd0cb01\Bring2mind.DNN.Modules.DMX.WebDAV.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\426dbb5d\096a4561_7bd0cb01\Onyak.SigmaPro.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\4b317e23\72d65a61_7bd0cb01\OnyakTech.Axon.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\801f03ce\6c9d8d00_2201cc01\DotNetNuke.WebControls.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f4290288\78c6d060_7bd0cb01\DotNetNuke.Modules.Events.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\abbc5118\82ec8061_7bd0cb01\OnyakTech.OnyakAds.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_IFrame.krjz0w21.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\7dee4a00\40794b60_7bd0cb01\C1.Win.C1Chart.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\28907877\3ca47261_7bd0cb01\OnyakTech.MyLinks.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\14ef7c82\acdd1b60_7bd0cb01\Bring2mind.DNN.Modules.DMX.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\7efca22b\1e93c361_7bd0cb01\RadRotator.Net2.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\326070b1\5cd0be61_7bd0cb01\Papayas.ICSharpCode.SharpZipLib.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\e62c3948\5ab52161_7bd0cb01\Onyak.H2O.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\bc4a39ae\db427061_7bd0cb01\OnyakTech.License.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\b99a2223\65b8ef60_7bd0cb01\DotNetNuke.Modules.UsersOnline.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\a6767203\bcbaa0f3_2101cc01\DotNetNuke.Provider.AspNetProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\0ab7d861\fe667761_7bd0cb01\OnyakTech.MyLinks.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\4ae7905e\b4e82e60_7bd0cb01\C1.Common.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\6875119d\5c02a4f6_2101cc01\DotNetNuke.Services.Syndication.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c97e64f5\00f54698_8d8acb01\DotNetNuke.Modules.Taxonomy.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\27fc2e41\79a3ee5f_7bd0cb01\AdvancedIntellect.Ssl.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\6b8c9920\57bd6661_7bd0cb01\OnyakTech.DataView.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\3f0d14a1\d03fa261_7bd0cb01\OnyakTech.Soma.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\5a09bd8c\9bead760_7bd0cb01\DotNetNuke.Modules.Events.ScheduleControl.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\ef7e199a\e402c7f1_2101cc01\DotNetNuke.Membership.DataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\567650e7\5e8afa5f_7bd0cb01\aspNetMime.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\e98a3f2e\00f54698_8d8acb01\DotNetNuke.FckHtmlEditorProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\16bc6fc1\c619f260_7bd0cb01\DotNetNuke.Modules.UsersOnline.SqlDataProvider.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Core\3.5.0.0__b77a5c561934e089\System.Core.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\b3c42296\cf012360_7bd0cb01\Bring2mind.Telerik.Lock.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\b9b79f00\a5108861_7bd0cb01\OnyakTech.Oseta.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\7460986d\b81e6961_7bd0cb01\OnyakTech.H2O.FormsDesigner.DLL" /R:"C:\Windows\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\1b5429cf\0087fa5f_7bd0cb01\DotNetNuke.Modules.Html.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\30306313\7ae16d61_7bd0cb01\OnyakTech.Library.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f451de21\bb162461_7bd0cb01\Onyak.PDF.Library.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\06e41ab2\ac97e603_2201cc01\Microsoft.ApplicationBlocks.Data.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\a8e8638a\77e9b261_7bd0cb01\OnyakTech.WeatherControl.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\63497d21\d41b0ee9_2101cc01\CountryListBox.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c39a7638\3b66f35f_7bd0cb01\App_SubCode_Gumbosoft.AjaxTabs.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Data.DataSetExtensions\3.5.0.0__b77a5c561934e089\System.Data.DataSetExtensions.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\3ffa34bc\bfebfc5f_7bd0cb01\aspNetPOP3.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\6814f569\9a0dba61_7bd0cb01\Papayas.DnnModules.DnnAutoUpgrade.Core.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Abstractions\3.5.0.0__31bf3856ad364e35\System.Web.Abstractions.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\54afba29\f440c760_7bd0cb01\DotNetNuke.Modules.Announcements.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\2021bc86\85e43b61_7bd0cb01\Onyak.SigmaPro.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c953c4e3\832a0063_7bd0cb01\XepientSolutions.Brettle.Web.NeatUpload.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\33979f01\146d1361_7bd0cb01\Onyak.Catalook.Dashboard.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f7553661\db427061_7bd0cb01\OnyakTech.Library.SqlDataProvider.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\3d206767\c40ff0eb_2101cc01\DotNetNuke.DNNScheduler.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\3c897f5b\67d38c61_7bd0cb01\OnyakTech.POP3Monitor.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\1577a903\de3a2b61_7bd0cb01\ONYAK.PDFPro.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\18347faa\c0297c61_7bd0cb01\OnyakTech.Novus.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\aa85b16b\4ca2cfee_2101cc01\DotNetNuke.HtmlEditor.TelerikEditorProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\7c37216c\8af79361_7bd0cb01\OnyakTech.SigmaPro.Extensions.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\06491904\47a74061_7bd0cb01\Onyak.SigmaPro.EmailViewer.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\d2249121\00f54698_8d8acb01\DotNetNuke.Modules.Messaging.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c93dfdaa\60a59760_7bd0cb01\dnn4Success.Clock.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Management\2.0.0.0__b03f5f7f11d50a3a\System.Management.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Data.Linq\3.5.0.0__b77a5c561934e089\System.Data.Linq.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\57fe9792\29969161_7bd0cb01\OnyakTech.SigmaPro.CRM.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\618d7260\b30b1161_7bd0cb01\Onyak.Atom.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\376c2577\148c91f0_2101cc01\DotNetNuke.HttpModules.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Extensions\3.5.0.0__31bf3856ad364e35\System.Web.Extensions.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\fd15206c\bb162461_7bd0cb01\Onyak.H2O.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\366558f6\39acb761_7bd0cb01\Papayas.DnnModules.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\b5787dac\6fde9f61_7bd0cb01\OnyakTech.Soma.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\91603eb1\e132e660_7bd0cb01\DotNetNuke.Modules.Forum.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c7b161ba\dc316bff_2101cc01\DotNetNuke.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\c9238e5b\540dcff4_2101cc01\DotNetNuke.Provider.DNNProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\bf5ea347\bc9a3110_2201cc01\SharpZipLib.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\6f08dc47\e34d8361_7bd0cb01\OnyakTech.OnyakAds.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\91734d73\06728a61_7bd0cb01\OnyakTech.PlugIns.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\04863852\218b7e61_7bd0cb01\OnyakTech.Novus.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\0c118f86\05340b60_7bd0cb01\Bring2mind.DNN.Modules.DMX.Core.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\fa154057\f440c760_7bd0cb01\DotNetNuke.Modules.Announcements.SqlDataProvider.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f51da2e0\c8348f61_7bd0cb01\OnyakTech.RSS.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\853498d2\6c48eb10_2201cc01\WebFormsMvp.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"C:\Windows\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\bfa8d5e9\5fc87961_7bd0cb01\OnyakTech.MyWeather.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f2929e7a\e6453e61_7bd0cb01\Onyak.SigmaPro.EmailMonitor.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\4dc842f8\a8084361_7bd0cb01\Onyak.SigmaPro.HelpDesk.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\4cf8db47\06728a61_7bd0cb01\OnyakTech.PlugIns.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\2d148b9f\e055c861_7bd0cb01\RadTreeView.Net2.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\1776773d\79a3ee5f_7bd0cb01\Affirma.ThreeSharp.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\d78c4317\9ee29260_7bd0cb01\ComponentArt.Web.UI.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f4d6f3f4\f65b6461_7bd0cb01\OnyakTech.CRM.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\b326bb7f\6ea02060_7bd0cb01\Bring2mind.Lucene.Net.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\9ab22e27\e6453e61_7bd0cb01\Onyak.SigmaPro.EmailMonitor.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\91afcb60\22689c60_7bd0cb01\Dnnskin.Net.SkinObjects.V2.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.DirectoryServices\2.0.0.0__b03f5f7f11d50a3a\System.DirectoryServices.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\0caef712\77e9b261_7bd0cb01\OnyakTech.WebControls.Thumbnail.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f20f2d51\bca6f5fb_2101cc01\DotNetNuke.Web.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\f1051026\19806b61_7bd0cb01\OnyakTech.HttpModules.AxonBeacon.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\89bcd7e3\22c9fd62_7bd0cb01\XepientSolutions.Anthem.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\32b2ec4a\68110c63_7bd0cb01\XepientSolutions.XSWebDav.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\d4dd5abc\95fa6161_7bd0cb01\OnyakTech.CRM.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\8481f83b\dc802bf9_2101cc01\DotNetNuke.SqlDataProvider.DLL" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\8287fc3d\e34d8361_7bd0cb01\OnyakTech.OnyakTechPayPal.DLL" /R:"C:\Windows\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_GlobalResources.iriu6cdx.dll" /R:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\assembly\dl3\5011cc60\f2252a60_7bd0cb01\C1.C1Pdf.DLL" /R:"C:\Windows\assembly\GAC_MSIL\System.Design\2.0.0.0__b03f5f7f11d50a3a\System.Design.dll" /out:"C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.dll" /debug- /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls,System.ComponentModel,System.Data,System.Data.SqlClient,System.Drawing,Microsoft.VisualBasic,System.Globalization,DotNetNuke.Services.Localization,DotNetNuke.Entities.Users,DotNetNuke,DotNetNuke.Common,DotNetNuke.Data,DotNetNuke.Framework,DotNetNuke.Modules,DotNetNuke.Security,DotNetNuke.Services,DotNetNuke.UI,DotNetNuke.Entities.Portals,DotNetNuke.Common.Utilities,DotNetNuke.Services.Exceptions,DotNetNuke.Entities.Tabs /warnaserror- /optionInfer+ "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.8.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.7.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.0.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.10.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.2.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.9.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.4.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.11.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.1.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.3.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.6.vb" "C:\Windows\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\cyintranet\70860d9a\6e7c1426\App_SubCode_effority.UserDirectory.u1ez2f14.5.vb" Microsoft (R) Visual Basic Compiler version 9.0.30729.1 Copyright (c) Microsoft Corporation. All rights reserved. D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Base.vb(157) : warning BC42030: Variable 'pd' is passed by reference before it has been assigned a value. A null reference exception could result at runtime. ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) ~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Base.vb(242) : warning BC42030: Variable 'pd' is passed by reference before it has been assigned a value. A null reference exception could result at runtime. ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) ~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Base.vb(1109) : warning BC42104: Variable 'port' is used before it has been assigned a value. A null reference exception could result at runtime. Return String.Format("{0}://{1}{2}{3}/DesktopModules/effority.UserDirectory/vCard.aspx?UserId={4}&ModuleId={5}&TabModuleId={6}", RequestUrl.Scheme, RequestUrl.Host, port, Request.ApplicationPath, CStr(UserId), CStr(Me.ModuleId), CStr(Me.TabModuleId)) ~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Controller.vb(326) : warning BC42104: Variable 'UserInfos' is used before it has been assigned a value. A null reference exception could result at runtime. Return UserInfos ~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Controller.vb(577) : warning BC42030: Variable 'workDic' is passed by reference before it has been assigned a value. A null reference exception could result at runtime. If userDic.TryGetValue(UserId, workDic) Then ~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Controller.vb(634) : warning BC42104: Variable 'userDic' is used before it has been assigned a value. A null reference exception could result at runtime. Return userDic ~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(67) : warning BC40000: 'Public Shared Function GetModuleSettings(ModuleId As Integer) As System.Collections.Hashtable' is obsolete: 'Deprecated in DNN 5.0. Please use ModuleController.GetModuleSettings(ModuleId)'. Dim modSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetModuleSettings(Me.ModuleId) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(68) : warning BC40000: 'Public Shared Function GetTabModuleSettings(TabModuleId As Integer) As System.Collections.Hashtable' is obsolete: 'Deprecated in DNN 5.0. Please use ModuleController.GetTabModuleSettings(TabModuleId)'. Dim tabModSettings As Hashtable = DotNetNuke.Entities.Portals.PortalSettings.GetTabModuleSettings(Me.TabModuleId) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(72) : error BC30035: Syntax error. "System.Collections.DictionaryEntry" In modSettings ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(74) : error BC30456: 'Key' is not a member of 'System.Web.UI.Pair'. _Settings.Add(Convert.ToString(pair.Key), Convert.ToString(pair.Value)) ~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(74) : error BC30456: 'Value' is not a member of 'System.Web.UI.Pair'. _Settings.Add(Convert.ToString(pair.Key), Convert.ToString(pair.Value)) ~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(76) : error BC30092: 'Next' must be preceded by a matching 'For'. Next ~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(78) : error BC30035: Syntax error. "System.Collections.DictionaryEntry" In tabModSettings ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(80) : error BC30456: 'Key' is not a member of 'System.Web.UI.Pair'. If Not _Settings.TryGetValue(Convert.ToString(pair.Key), Nothing) Then ~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(81) : error BC30456: 'Key' is not a member of 'System.Web.UI.Pair'. _Settings.Add(Convert.ToString(pair.Key), Convert.ToString(pair.Value)) ~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(81) : error BC30456: 'Value' is not a member of 'System.Web.UI.Pair'. _Settings.Add(Convert.ToString(pair.Key), Convert.ToString(pair.Value)) ~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(84) : error BC30092: 'Next' must be preceded by a matching 'For'. Next ~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(160) : warning BC42030: Variable 'profileForThisUser' is passed by reference before it has been assigned a value. A null reference exception could result at runtime. If userProfileDic.TryGetValue(user.UserId, profileForThisUser) Then ~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\FakeView.vb(186) : warning BC40000: 'Public Overridable Sub Insert(CacheKey As String, objObject As Object, PersistAppRestart As Boolean)' is obsolete: 'Deprecated in DNN 5.1 - Cache Persistence is not supported'. DotNetNuke.Services.Cache.CachingProvider.Instance.Insert(Me.USERTABLE_MODULE_CACHE, UserTable, False) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ D:\Hosting\6343951\html\cyintranet\App_Code\effority.UserDirectory\Schedule.vb(32) : warning BC40000: 'Public Function GetDesktopModuleByModuleName(moduleName As String) As DotNetNuke.Entities.Modules.DesktopModuleInfo' is obsolete: 'This method replaced in DotNetNuke 5.0 by Shared method GetDesktopModuleByModuleName(String, Integer)'. Dim info As DotNetNuke.Entities.Modules.DesktopModuleInfo = cont.GetDesktopModuleByModuleName("effority.UserDirectory") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

Line 1: Imports DotNetNuke.Entities.Profile Line 2: Line 3: Line 4: Imports System.Linq Line 5: Imports Microsoft.VisualBasic Line 6: Line 7: Namespace effority.UserDirectory Line 8: Line 9: Public Class Base Line 10: Inherits DotNetNuke.Entities.Modules.ModuleSettingsBase Line 11: Line 12: #Region " Private Members " Line 13: Line 14: Private _ProfilesPropertyCollectionToShow As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 15: Private _ProfilesPropertyCollectionToShowDic As Generic.Dictionary(Of Integer, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 16: Line 17: Private _ProfilesPropertyCollectionToSearch As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 18: Line 19: Private _ProfilesPropertyCollectionToLoad As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 20: Line 21: Private _ProfilePropertyCollection As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 22: Private _ProfilePropertyCollectionDic As Generic.Dictionary(Of Integer, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 23: Private _ProfilePropertyCollectionDicByName As Generic.Dictionary(Of String, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 24: Line 25: Private _ProfilePropertyNamesLocal As Generic.Dictionary(Of String, String) Line 26: Line 27: Private _MaxLengthDic As Generic.Dictionary(Of Integer, Integer) Line 28: Line 29: Private _HtmlDecodeDic As Generic.Dictionary(Of Integer, Boolean) Line 30: Line 31: 'Private _EnabledRoles As Generic.List(Of Integer) Line 32: Line 33: Private _PortalRoles As ArrayList Line 34: Line 35: Private _RolesConfiguration As Generic.Dictionary(Of Int32, Enums.RoleStatus) Line 36: Line 37: Private _ProfilePropertyNamesResourceFile As String = "~/Admin/Users/App_LocalResources/Profile.ascx" Line 38: Line 39: Private _TabDictionary As Generic.Dictionary(Of Int32, DotNetNuke.Entities.Tabs.TabInfo) Line 40: Line 41: #End Region Line 42: Line 43: #Region " Public Properties " Line 44: Line 45: Public ReadOnly Property ProfilePropertyNamesLocalDic() As Generic.Dictionary(Of String, String) Line 46: Line 47: Get Line 48: Line 49: If _ProfilePropertyNamesLocal Is Nothing Then Line 50: Line 51: _ProfilePropertyNamesLocal = New Generic.Dictionary(Of String, String) Line 52: Line 53: For Each item As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilesPropertyCollectionToShow Line 54: Line 55: If item.PropertyDefinitionId = Consts.USERNAME_PROFILE_ID Then Line 56: Line 57: Dim text As String = _ Line 58: DotNetNuke.Services.Localization.Localization.GetString("User_Username", Me.LocalResourceFile) Line 59: Line 60: If Not String.IsNullOrEmpty(text) Then Line 61: _ProfilePropertyNamesLocal.Add(item.PropertyName, text) Line 62: Else Line 63: _ProfilePropertyNamesLocal.Add(item.PropertyName, item.PropertyName) Line 64: End If Line 65: Line 66: ElseIf item.PropertyDefinitionId = Consts.EMAIL_PROFILE_ID Then Line 67: Line 68: Dim text As String = _ Line 69: DotNetNuke.Services.Localization.Localization.GetString("User_Email", Me.LocalResourceFile) Line 70: Line 71: If Not String.IsNullOrEmpty(text) Then Line 72: _ProfilePropertyNamesLocal.Add(item.PropertyName, text) Line 73: Else Line 74: _ProfilePropertyNamesLocal.Add(item.PropertyName, item.PropertyName) Line 75: End If Line 76: Line 77: ElseIf item.PropertyDefinitionId = Consts.DISPLAYNAME_PROFILE_ID Then Line 78: Line 79: Dim text As String = _ Line 80: DotNetNuke.Services.Localization.Localization.GetString("User_DisplayName", Me.LocalResourceFile) Line 81: Line 82: If Not String.IsNullOrEmpty(text) Then Line 83: _ProfilePropertyNamesLocal.Add(item.PropertyName, text) Line 84: Else Line 85: _ProfilePropertyNamesLocal.Add(item.PropertyName, item.PropertyName) Line 86: End If Line 87: Line 88: Else Line 89: Line 90: Dim text As String = _ Line 91: Localization.GetString("ProfileProperties_" + item.PropertyName, _ProfilePropertyNamesResourceFile, System.Threading.Thread.CurrentThread.CurrentCulture.Name) Line 92: Line 93: If Not String.IsNullOrEmpty(text) Then Line 94: _ProfilePropertyNamesLocal.Add(item.PropertyName, text) Line 95: Else Line 96: _ProfilePropertyNamesLocal.Add(item.PropertyName, item.PropertyName) Line 97: End If Line 98: Line 99: End If Line 100: Line 101: Next Line 102: Line 103: End If Line 104: Line 105: Return _ProfilePropertyNamesLocal Line 106: Line 107: End Get Line 108: Line 109: End Property Line 110: Line 111: Public ReadOnly Property ProfilesPropertyCollectionToShow() As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 112: Line 113: Get Line 114: Line 115: If _ProfilesPropertyCollectionToShow Is Nothing Then Line 116: Line 117: _ProfilesPropertyCollectionToShow = New Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 118: Line 119: If Me.ShowAllProfiles Then Line 120: Line 121: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilePropertyCollection Line 122: Line 123: _ProfilesPropertyCollectionToShow.Add(info) Line 124: Line 125: Next Line 126: Line 127: Else Line 128: Line 129: If Not Settings(Consts.PROFILES_TO_SHOW) Is Nothing Then Line 130: Line 131: Dim str As String = Settings(Consts.PROFILES_TO_SHOW).ToString() Line 132: Line 133: str = str.Replace(";;", ";") Line 134: Line 135: Dim arr As String() = str.Split(";"c) Line 136: Line 137: For Each id As String In arr Line 138: Line 139: If Not String.IsNullOrEmpty(id) Then Line 140: Line 141: If CInt(id) = Consts.USERNAME_PROFILE_ID Then Line 142: Line 143: _ProfilesPropertyCollectionToShow.Insert(0, Controller.FakeUsernameProfileProperty) Line 144: Line 145: ElseIf CInt(id) = Consts.EMAIL_PROFILE_ID Then Line 146: Line 147: _ProfilesPropertyCollectionToShow.Insert(0, Controller.FakeEmailProfileProperty) Line 148: Line 149: ElseIf CInt(id) = Consts.DISPLAYNAME_PROFILE_ID Then Line 150: Line 151: _ProfilesPropertyCollectionToShow.Insert(0, Controller.FakeDisplaynameProfileProperty) Line 152: Line 153: Else Line 154: Line 155: Dim pd As DotNetNuke.Entities.Profile.ProfilePropertyDefinition Line 156: Line 157: ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) Line 158: Line 159: If Not pd Is Nothing Then Line 160: Line 161: _ProfilesPropertyCollectionToShow.Add(pd) Line 162: Line 163: End If Line 164: Line 165: End If Line 166: Line 167: End If Line 168: Line 169: Next Line 170: Line 171: End If Line 172: Line 173: End If Line 174: Line 175: End If Line 176: Line 177: Return _ProfilesPropertyCollectionToShow Line 178: Line 179: End Get Line 180: Line 181: End Property Line 182: Line 183: Public ReadOnly Property ProfilesPropertyCollectionToShowDic() As Generic.Dictionary(Of Integer, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 184: Get Line 185: Line 186: If _ProfilesPropertyCollectionToShowDic Is Nothing Then Line 187: Line 188: _ProfilesPropertyCollectionToShowDic = Me.ProfilesPropertyCollectionToShow.ToDictionary(Function(x) x.PropertyDefinitionId, Function(y) y) Line 189: Line 190: End If Line 191: Line 192: Return _ProfilesPropertyCollectionToShowDic Line 193: Line 194: End Get Line 195: End Property Line 196: Line 197: Public ReadOnly Property ProfilesPropertyCollectionToSearch() As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 198: Get Line 199: Line 200: If _ProfilesPropertyCollectionToSearch Is Nothing Then Line 201: Line 202: _ProfilesPropertyCollectionToSearch = New Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 203: Line 204: If Me.SearchAllProfiles Then Line 205: Line 206: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilePropertyCollection Line 207: Line 208: _ProfilesPropertyCollectionToSearch.Add(info) Line 209: Line 210: Next Line 211: Line 212: Else Line 213: Line 214: If Not Settings(Consts.PROFILES_TO_SEARCH) Is Nothing Then Line 215: Line 216: Dim str As String = Settings(Consts.PROFILES_TO_SEARCH).ToString() Line 217: Line 218: str = str.Replace(";;", ";") Line 219: Line 220: Dim arr As String() = str.Split(";"c) Line 221: Line 222: For Each id As String In arr Line 223: Line 224: If Not String.IsNullOrEmpty(id) Then Line 225: Line 226: If CInt(id) = Consts.USERNAME_PROFILE_ID Then Line 227: Line 228: _ProfilesPropertyCollectionToSearch.Insert(0, Controller.FakeUsernameProfileProperty) Line 229: Line 230: ElseIf CInt(id) = Consts.EMAIL_PROFILE_ID Then Line 231: Line 232: _ProfilesPropertyCollectionToSearch.Insert(0, Controller.FakeEmailProfileProperty) Line 233: Line 234: ElseIf CInt(id) = Consts.DISPLAYNAME_PROFILE_ID Then Line 235: Line 236: _ProfilesPropertyCollectionToShow.Insert(0, Controller.FakeDisplaynameProfileProperty) Line 237: Line 238: Else Line 239: Line 240: Dim pd As DotNetNuke.Entities.Profile.ProfilePropertyDefinition Line 241: Line 242: ProfilePropertyCollectionDic.TryGetValue(CInt(id), pd) Line 243: Line 244: If Not pd Is Nothing Then Line 245: Line 246: _ProfilesPropertyCollectionToSearch.Add(pd) Line 247: Line 248: End If Line 249: Line 250: End If Line 251: Line 252: End If Line 253: Line 254: Next Line 255: Line 256: End If Line 257: Line 258: End If Line 259: Line 260: End If Line 261: Line 262: Line 263: Return _ProfilesPropertyCollectionToSearch Line 264: Line 265: End Get Line 266: Line 267: End Property Line 268: Line 269: Public ReadOnly Property ProfilePropertyCollection() As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 270: Line 271: Get Line 272: Line 273: If _ProfilePropertyCollection Is Nothing Then Line 274: Line 275: Dim baseListe As DotNetNuke.Entities.Profile.ProfilePropertyDefinitionCollection = ProfileController.GetPropertyDefinitionsByPortal(PortalId) Line 276: Line 277: _ProfilePropertyCollection = New Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 278: Line 279: _ProfilePropertyCollection.Insert(0, Controller.FakeUsernameProfileProperty()) Line 280: Line 281: _ProfilePropertyCollection.Insert(1, Controller.FakeDisplaynameProfileProperty) Line 282: Line 283: _ProfilePropertyCollection.Insert(2, Controller.FakeEmailProfileProperty) Line 284: Line 285: For Each item As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In baseListe Line 286: Line 287: _ProfilePropertyCollection.Add(item) Line 288: Line 289: Next Line 290: Line 291: End If Line 292: Line 293: Return _ProfilePropertyCollection Line 294: Line 295: End Get Line 296: Line 297: End Property Line 298: Line 299: Public ReadOnly Property ProfilePropertyCollectionDic() As Generic.Dictionary(Of Integer, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 300: Get Line 301: Line 302: If _ProfilePropertyCollectionDic Is Nothing Then Line 303: Line 304: _ProfilePropertyCollectionDic = Me.ProfilePropertyCollection.ToDictionary(Function(x) x.PropertyDefinitionId, Function(y) y) Line 305: Line 306: End If Line 307: Line 308: Return _ProfilePropertyCollectionDic Line 309: Line 310: End Get Line 311: End Property Line 312: Line 313: Public ReadOnly Property ProfilePropertyCollectionDicByName() As Generic.Dictionary(Of String, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 314: Get Line 315: Line 316: Line 317: If _ProfilePropertyCollectionDicByName Is Nothing Then Line 318: Line 319: _ProfilePropertyCollectionDicByName = Me.ProfilePropertyCollection.ToDictionary(Function(x) x.PropertyName, Function(y) y) Line 320: Line 321: End If Line 322: Line 323: Return _ProfilePropertyCollectionDicByName Line 324: Line 325: End Get Line 326: End Property Line 327: Line 328: Public ReadOnly Property ProfilesPropertiesToLoad() As Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 329: Get Line 330: Line 331: If _ProfilesPropertyCollectionToLoad Is Nothing Then Line 332: Line 333: _ProfilesPropertyCollectionToLoad = New Generic.List(Of DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 334: Line 335: If Me.SearchAllProfiles = True Or Me.ShowAllProfiles = True Then Line 336: Line 337: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilePropertyCollection Line 338: Line 339: _ProfilesPropertyCollectionToLoad.Add(info) Line 340: Line 341: Next Line 342: Line 343: Else Line 344: Line 345: Dim dic As New Generic.Dictionary(Of Int32, DotNetNuke.Entities.Profile.ProfilePropertyDefinition) Line 346: Line 347: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilesPropertyCollectionToSearch Line 348: Line 349: dic.Add(info.PropertyDefinitionId, info) Line 350: Line 351: Next Line 352: Line 353: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In Me.ProfilesPropertyCollectionToShow Line 354: Line 355: If Not dic.TryGetValue(info.PropertyDefinitionId, Nothing) Then Line 356: Line 357: dic.Add(info.PropertyDefinitionId, info) Line 358: Line 359: End If Line 360: Line 361: Next Line 362: Line 363: For Each info As DotNetNuke.Entities.Profile.ProfilePropertyDefinition In dic.Values Line 364: Line 365: _ProfilesPropertyCollectionToLoad.Add(info) Line 366: Line 367: Next Line 368: Line 369: End If Line 370: Line 371: End If Line 372: Line 373: Return _ProfilesPropertyCollectionToLoad Line 374: Line 375: End Get Line 376: Line 377: End Property Line 378: Line 379: Public ReadOnly Property SearchAllProfiles() As Boolean Line 380: Get Line 381: If Not Settings(Consts.PROFILES_SEARCH_ALL) Is Nothing Then Line 382: Return CBool(Settings(Consts.PROFILES_SEARCH_ALL)) Line 383: Else Line 384: Return True Line 385: End If Line 386: End Get Line 387: End Property Line 388: Line 389: Public ReadOnly Property IgnoreEffectiveExpireDate() As Boolean Line 390: Get Line 391: Line 392: Dim result As Boolean = False Line 393: Line 394: If Not Settings(Consts.IGNORE_EFFECTIVE_EXPIRE_DATES) Is Nothing Then Line 395: result = CBool(Settings(Consts.IGNORE_EFFECTIVE_EXPIRE_DATES)) Line 396: End If Line 397: Line 398: Return result Line 399: End Get Line 400: End Property Line 401: Line 402: Public ReadOnly Property ShowAllProfiles() As Boolean Line 403: Get Line 404: If Not Settings(Consts.PROFILES_SHOW_ALL) Is Nothing Then Line 405: Return CBool(Settings(Consts.PROFILES_SHOW_ALL)) Line 406: Else Line 407: Return True Line 408: End If Line 409: End Get Line 410: End Property Line 411: Line 412: Public ReadOnly Property ShowProfilesToSearchSettings() As Boolean Line 413: Get Line 414: If Not Settings(Consts.SHOW_PROFILES_TO_SEARCH_SETTINGS) Is Nothing Then Line 415: Return CBool(Settings(Consts.SHOW_PROFILES_TO_SEARCH_SETTINGS)) Line 416: Else Line 417: Return True Line 418: End If Line 419: End Get Line 420: End Property Line 421: Line 422: Public ReadOnly Property MaxLengthDic() As Generic.Dictionary(Of Integer, Integer) Line 423: Get Line 424: Line 425: If _MaxLengthDic Is Nothing Then Line 426: Line 427: _MaxLengthDic = New Generic.Dictionary(Of Integer, Integer) Line 428: Line 429: If Not String.IsNullOrEmpty(Settings(effority.UserDirectory.Consts.MAX_LENGTH)) Then Line 430: Line 431: Dim temp As String() = Settings(effority.UserDirectory.Consts.MAX_LENGTH).ToString().Split(";") Line 432: Line 433: For Each str As String In temp Line 434: Line 435: If Not String.IsNullOrEmpty(str) Then Line 436: Line 437: Dim ab As String() = str.Split("|") Line 438: Line 439: Dim a As String = ab(0) Line 440: Line 441: Dim b As String = ab(1) Line 442: Line 443: If Not String.IsNullOrEmpty(a) AndAlso Not String.IsNullOrEmpty(b) Then Line 444: Line 445: _MaxLengthDic.Add(a, b) Line 446: Line 447: End If Line 448: Line 449: End If Line 450: Line 451: Next Line 452: Line 453: End If Line 454: Line 455: End If Line 456: Line 457: Return _MaxLengthDic Line 458: Line 459: End Get Line 460: End Property Line 461: Line 462: Public ReadOnly Property HtmlDecodeDic() As Generic.Dictionary(Of Integer, Boolean) Line 463: Get Line 464: Line 465: If _HtmlDecodeDic Is Nothing Then Line 466: Line 467: _HtmlDecodeDic = New Generic.Dictionary(Of Integer, Boolean) Line 468: Line 469: If Not String.IsNullOrEmpty(Settings(effority.UserDirectory.Consts.HTML_DECODE)) Then Line 470: Line 471: Dim temp As String() = Settings(effority.UserDirectory.Consts.HTML_DECODE).ToString().Split(";") Line 472: Line 473: For Each str As String In temp Line 474: Line 475: If Not String.IsNullOrEmpty(str) Then Line 476: Line 477: Dim ab As String() = str.Split("|") Line 478: Line 479: Dim a As Integer = Convert.ToInt32(ab(0)) Line 480: Line 481: Dim b As Boolean = False Line 482: Line 483: Boolean.TryParse(ab(1), b) Line 484: Line 485: _HtmlDecodeDic.Add(a, b) Line 486: Line 487: End If Line 488: Line 489: Next Line 490: Line 491: End If Line 492: Line 493: End If Line 494: Line 495: Return _HtmlDecodeDic Line 496: Line 497: End Get Line 498: End Property Line 499: Line 500: Public ReadOnly Property DisplayEmailAsMailTo() As Boolean Line 501: Get Line 502: Line 503: Dim result As Boolean = False Line 504: Line 505: If Not Settings(Consts.EMAIL_FIELD_WITH_MAILTO) Is Nothing Then Line 506: result = CBool(Settings(Consts.EMAIL_FIELD_WITH_MAILTO)) Line 507: End If Line 508: Line 509: Return result Line 510: Line 511: End Get Line 512: End Property Line 513: Line 514: Public ReadOnly Property SearchStartMode() As Enums.SearchStartMode Line 515: Get Line 516: Line 517: Dim result As Enums.SearchStartMode = Enums.SearchStartMode.ShowNoRecords Line 518: Line 519: If Not Settings(Consts.SEARCH_START_MODE) Is Nothing _ Line 520: AndAlso Not String.IsNullOrEmpty(Settings(Consts.SEARCH_START_MODE)) Then Line 521: Line 522: result = CType(Settings(Consts.SEARCH_START_MODE), Enums.SearchStartMode) Line 523: Line 524: End If Line 525: Line 526: Return result Line 527: Line 528: End Get Line 529: End Property Line 530: Line 531: Public ReadOnly Property UseFixSearchExpression() As Boolean Line 532: Get Line 533: Line 534: Dim result As Boolean = False Line 535: Line 536: If Not Settings(effority.UserDirectory.Consts.DEFAULT_SEARCH_EXPRESSION) Is Nothing Then Line 537: Line 538: If Not String.IsNullOrEmpty(CStr(Settings(effority.UserDirectory.Consts.DEFAULT_SEARCH_EXPRESSION))) Then Line 539: result = True Line 540: End If Line 541: Line 542: End If Line 543: Line 544: Return result Line 545: Line 546: End Get Line 547: End Property Line 548: Line 549: Public ReadOnly Property DisableSearch() As Boolean Line 550: Get Line 551: Line 552: Dim result As Boolean = False Line 553: Line 554: If Not Settings(Consts.DISABLE_SEARCH) Is Nothing AndAlso CBool(Settings(Consts.DISABLE_SEARCH)) Then Line 555: result = True Line 556: End If Line 557: Line 558: Return result Line 559: Line 560: End Get Line 561: End Property Line 562: Line 563: Public ReadOnly Property EnableProfileLink() As Boolean Line 564: Get Line 565: Line 566: Dim result As Boolean = False Line 567: Line 568: If Not Settings(Consts.ENABLE_PROFILE_LINK) Is Nothing Then Line 569: Line 570: result = CBool(Settings(Consts.ENABLE_PROFILE_LINK)) Line 571: Line 572: End If Line 573: Line 574: Return result Line 575: Line 576: End Get Line 577: End Property Line 578: Line 579: Public ReadOnly Property ProfileLinkColumn() As Int32 Line 580: Get Line 581: Line 582: Dim propertyId As Int32 = -1 ' username column Line 583: Line 584: If Not Settings(Consts.COLUMN_FOR_PROFILE_LINK) Is Nothing Then Line 585: Line 586: propertyId = CInt(Settings(Consts.COLUMN_FOR_PROFILE_LINK)) Line 587: Line 588: End If Line 589: Line 590: Return propertyId Line 591: Line 592: End Get Line 593: End Property Line 594: Line 595: Public ReadOnly Property EnablevCardLink() As Boolean Line 596: Get Line 597: Line 598: Dim result As Boolean = False Line 599: Line 600: If Not Settings(Consts.VCARD_LINK_ENABLE) Is Nothing Then Line 601: Line 602: result = CBool(Settings(Consts.VCARD_LINK_ENABLE)) Line 603: Line 604: End If Line 605: Line 606: Return result Line 607: Line 608: End Get Line 609: End Property Line 610: Line 611: Public ReadOnly Property vCardLinkColumn() As Int32 Line 612: Get Line 613: Line 614: Dim propertyId As Int32 = -1 ' username column Line 615: Line 616: If Not Settings(Consts.VCARD_LINK_COLUMN) Is Nothing Then Line 617: Line 618: propertyId = CInt(Settings(Consts.VCARD_LINK_COLUMN)) Line 619: Line 620: End If Line 621: Line 622: Return propertyId Line 623: Line 624: End Get Line 625: End Property Line 626: Line 627: Public ReadOnly Property vCardTemplate() As String Line 628: Get Line 629: Line 630: Dim result As String = String.Empty Line 631: Line 632: If Not Settings(Consts.VCARD_LINK_TEMPLATE) Is Nothing Then Line 633: Line 634: result = CStr(Settings(Consts.VCARD_LINK_TEMPLATE)) Line 635: Line 636: End If Line 637: Line 638: Return result Line 639: Line 640: End Get Line 641: End Property Line 642: Line 643: Public ReadOnly Property DefaultSortExpression() As String Line 644: Get Line 645: Line 646: Dim direction As String = "ASC" Line 647: Dim column As String = String.Empty Line 648: Line 649: Dim result As String = String.Empty Line 650: Line 651: If Not Settings(Consts.SORT_COLUMN) Is Nothing Then Line 652: Line 653: If Not Settings(Consts.SORT_DIRECTION) Is Nothing Then Line 654: Line 655: direction = CStr(Settings(Consts.SORT_DIRECTION)) Line 656: Line 657: End If Line 658: Line 659: column = CleanColumnName(Me.ProfilePropertyCollectionDic(CInt(Settings(Consts.SORT_COLUMN))).PropertyName) Line 660: Line 661: result = String.Format("{0} {1}", column, direction) Line 662: Line 663: End If Line 664: Line 665: Return result Line 666: Line 667: End Get Line 668: End Property Line 669: Line 670: Public ReadOnly Property detailsLinkEnable() As Boolean Line 671: Get Line 672: Line 673: Dim result As Boolean = False Line 674: Line 675: If Not Settings(Consts.DETAILS_VIEW_ENABLE) Is Nothing Then Line 676: Line 677: result = CBool(Settings(Consts.DETAILS_VIEW_ENABLE)) Line 678: Line 679: End If Line 680: Line 681: Return result Line 682: Line 683: End Get Line 684: End Property Line 685: Line 686: Public ReadOnly Property detailsLinkColumn() As Int32 Line 687: Get Line 688: Line 689: Dim propertyId As Int32 = -1 ' username column Line 690: Line 691: If Not Settings(Consts.DETAILS_VIEW_COLUMN) Is Nothing Then Line 692: Line 693: propertyId = CInt(Settings(Consts.DETAILS_VIEW_COLUMN)) Line 694: Line 695: End If Line 696: Line 697: Return propertyId Line 698: Line 699: End Get Line 700: End Property Line 701: Line 702: Public ReadOnly Property detailsTemplate() As String Line 703: Get Line 704: Line 705: Dim result As String = String.Empty Line 706: Line 707: If Not Settings(Consts.DETAILS_VIEW_TEMPLATE) Is Nothing Then Line 708: Line 709: result = CStr(Settings(Consts.DETAILS_VIEW_TEMPLATE)) Line 710: Line 711: End If Line 712: Line 713: Return result Line 714: Line 715: End Get Line 716: End Property Line 717: Line 718: Public ReadOnly Property TabLinkEnable() As Boolean Line 719: Get Line 720: Line 721: Dim result As Boolean = False Line 722: Line 723: If Not Settings(Consts.TAB_LINK_ENABLE) Is Nothing Then Line 724: Line 725: result = CBool(Settings(Consts.TAB_LINK_ENABLE)) Line 726: Line 727: End If Line 728: Line 729: Return result Line 730: Line 731: End Get Line 732: End Property Line 733: Line 734: Public ReadOnly Property TabLinkTarget() As String Line 735: Get Line 736: Line 737: Dim result As String = "_self" Line 738: Line 739: If Not Settings(Consts.TAB_LINK_NEW_WINDOW) Is Nothing AndAlso CStr(Settings(Consts.TAB_LINK_NEW_WINDOW)) Then Line 740: Line 741: result = "_blank" Line 742: Line 743: End If Line 744: Line 745: Return result Line 746: Line 747: End Get Line 748: End Property Line 749: Line 750: Public ReadOnly Property TabLinkColumn() As Int32 Line 751: Get Line 752: Line 753: Dim propertyId As Int32 = Consts.USERNAME_PROFILE_ID Line 754: Line 755: If Not Settings(Consts.TAB_LINK_COLUMN) Is Nothing Then Line 756: Line 757: propertyId = CInt(Settings(Consts.TAB_LINK_COLUMN)) Line 758: Line 759: End If Line 760: Line 761: Return propertyId Line 762: Line 763: End Get Line 764: End Property Line 765: Line 766: 'Public ReadOnly Property TabLinkText() As String Line 767: ' Get Line 768: Line 769: ' Dim result As String = String.Empty Line 770: Line 771: ' If Not Settings(Consts.TAB_LINK_TEXT) Is Nothing Then Line 772: Line 773: ' result = CStr(Settings(Consts.TAB_LINK_TEXT)) Line 774: Line 775: ' End If Line 776: Line 777: ' Return result Line 778: Line 779: ' End Get Line 780: 'End Property Line 781: Line 782: Public ReadOnly Property MinChar() As Int32 Line 783: Get Line 784: Line 785: Dim _minChar As Int32 = 1 Line 786: Line 787: If Not Settings(Consts.MIN_CHAR) Is Nothing Then Line 788: Line 789: _minChar = CInt(Settings(Consts.MIN_CHAR)) Line 790: Line 791: End If Line 792: Line 793: Return _minChar Line 794: Line 795: End Get Line 796: End Property Line 797: Line 798: Public ReadOnly Property PortalRoles() As ArrayList Line 799: Get Line 800: Line 801: If _PortalRoles Is Nothing Then Line 802: Line 803: _PortalRoles = New ArrayList Line 804: Line 805: Dim roleCont As New DotNetNuke.Security.Roles.RoleController Line 806: Line 807: Dim RolesWithRegisteredUsersRole As ArrayList = roleCont.GetPortalRoles(Me.PortalId) Line 808: Line 809: For Each role As DotNetNuke.Security.Roles.RoleInfo In RolesWithRegisteredUsersRole Line 810: Line 811: If Not role.RoleID = PortalSettings.RegisteredRoleId Then Line 812: Line 813: _PortalRoles.Add(role) Line 814: Line 815: End If Line 816: Line 817: Next Line 818: Line 819: End If Line 820: Line 821: Return _PortalRoles Line 822: Line 823: End Get Line 824: End Property Line 825: Line 826: Public ReadOnly Property RolesConfiguration() As Generic.Dictionary(Of Int32, Enums.RoleStatus) Line 827: Get Line 828: Line 829: If _RolesConfiguration Is Nothing Then Line 830: Line 831: _RolesConfiguration = New Generic.Dictionary(Of Int32, Enums.RoleStatus) Line 832: Line 833: If Not String.IsNullOrEmpty(CStr(Settings(Consts.ADD_ROLES))) Then Line 834: Line 835: Dim addRoles As String() = CStr(Settings(Consts.ADD_ROLES)).Split(";"c) Line 836: Line 837: For Each str As String In addRoles Line 838: If Not String.IsNullOrEmpty(str) Then Line 839: _RolesConfiguration.Add(CInt(str), Enums.RoleStatus.Add) Line 840: End If Line 841: Next Line 842: Line 843: End If Line 844: Line 845: If Not String.IsNullOrEmpty(CStr(Settings(Consts.REMOVE_ROLES))) Then Line 846: Line 847: Dim removeRoles As String() = CStr(Settings(Consts.REMOVE_ROLES)).Split(";"c) Line 848: Line 849: For Each str As String In removeRoles Line 850: If Not String.IsNullOrEmpty(str) Then Line 851: _RolesConfiguration.Add(CInt(str), Enums.RoleStatus.Remove) Line 852: End If Line 853: Next Line 854: Line 855: End If Line 856: Line 857: If Not String.IsNullOrEmpty(CStr(Settings(Consts.IGNORE_ROLES))) Then Line 858: Line 859: Dim ignoreRoles As String() = CStr(Settings(Consts.IGNORE_ROLES)).Split(";"c) Line 860: Line 861: For Each str As String In ignoreRoles Line 862: If Not String.IsNullOrEmpty(str) Then Line 863: _RolesConfiguration.Add(CInt(str), Enums.RoleStatus.Ignore) Line 864: End If Line 865: Next Line 866: Line 867: End If Line 868: Line 869: ' Standwerte für nicht konfigurierte Rolen erzeugen Line 870: Line 871: Dim rolesCont As New DotNetNuke.Security.Roles.RoleController Line 872: Line 873: Dim roles As ArrayList = rolesCont.GetPortalRoles(PortalId) Line 874: Line 875: For Each role As DotNetNuke.Security.Roles.RoleInfo In roles Line 876: Line 877: If Not _RolesConfiguration.TryGetValue(role.RoleID, Nothing) Then Line 878: Line 879: If role.RoleID = PortalSettings.AdministratorRoleId Then Line 880: Line 881: _RolesConfiguration.Add(role.RoleID, Enums.RoleStatus.Remove) Line 882: Line 883: Else Line 884: Line 885: _RolesConfiguration.Add(role.RoleID, Enums.RoleStatus.Add) Line 886: Line 887: End If Line 888: Line 889: End If Line 890: Line 891: Next Line 892: Line 893: End If Line 894: Line 895: Return _RolesConfiguration Line 896: Line 897: End Get Line 898: End Property Line 899: Line 900: Public ReadOnly Property UserTableCacheKey() As String Line 901: Get Line 902: Return Consts.MODULE_BASE & "." & ModuleId Line 903: End Get Line 904: End Property Line 905: Line 906: Public ReadOnly Property USERTABLE_MODULE_CACHE() As String Line 907: Get Line 908: Return Consts.USERTABLE_CACHE & Me.ModuleId Line 909: End Get Line 910: End Property Line 911: Line 912: Public ReadOnly Property SESSION_KEY() As String Line 913: Get Line 914: Return Consts.MODULE_BASE & Me.ModuleId Line 915: End Get Line 916: End Property Line 917: Line 918: Public ReadOnly Property SESSION_SORT_EXPRESSION() As String Line 919: Get Line 920: Return SESSION_KEY & "SortExpression" Line 921: End Get Line 922: End Property Line 923: Line 924: Public ReadOnly Property SESSION_PAGE() As String Line 925: Get Line 926: Return SESSION_KEY & "Page" Line 927: End Get Line 928: End Property Line 929: Line 930: Public ReadOnly Property SESSION_QUERY_STRING_SEARCH() As String Line 931: Get Line 932: Return SESSION_KEY & "QueryStringSearch" Line 933: End Get Line 934: End Property Line 935: Line 936: Public ReadOnly Property SESSION_LASTSEARCH() As String Line 937: Get Line 938: Return Consts.MODULE_BASE & "." & ModuleId & "." & "LastSearch" Line 939: End Get Line 940: End Property Line 941: Line 942: Public ReadOnly Property DisplayMode() As Enums.DisplayMode Line 943: Get Line 944: Line 945: Dim result As Enums.DisplayMode = Enums.DisplayMode.Grid Line 946: Line 947: If Not Settings(Consts.DISPLAY_MODE) Is Nothing Then Line 948: Line 949: result = CType(Settings(Consts.DISPLAY_MODE), Enums.DisplayMode) Line 950: Line 951: End If Line 952: Line 953: Return result Line 954: Line 955: 'Return Enums.DisplayMode.Grid Line 956: 'Return Enums.DisplayMode.Template Line 957: Line 958: End Get Line 959: End Property Line 960: Line 961: Public ReadOnly Property DisplayTemplate() As String Line 962: Get Line 963: Line 964: Dim result As String = String.Empty Line 965: Line 966: If Not Settings(Consts.DISPLAY_TEMPLATE) Is Nothing Then Line 967: Line 968: result = CStr(Settings(Consts.DISPLAY_TEMPLATE)) Line 969: Line 970: End If Line 971: Line 972: Return result Line 973: Line 974: End Get Line 975: End Property Line 976: Line 977: Public ReadOnly Property DisplayHeadTemplate() As String Line 978: Get Line 979: Line 980: Dim result As String = String.Empty Line 981: Line 982: If Not Settings(Consts.DISPLAY_HEAD_TEMPLATE) Is Nothing Then Line 983: Line 984: result = CStr(Settings(Consts.DISPLAY_HEAD_TEMPLATE)) Line 985: Line 986: End If Line 987: Line 988: Return result Line 989: Line 990: End Get Line 991: End Property Line 992: Line 993: Public ReadOnly Property TabDictionary() As Generic.Dictionary(Of Int32, DotNetNuke.Entities.Tabs.TabInfo) Line 994: Get Line 995: Line 996: If Me._TabDictionary Is Nothing Then Line 997: Line 998: Dim tabCont As New Entities.Tabs.TabController Line 999: Line 1000: Me._TabDictionary = tabCont.GetTabsByPortal(Me.PortalId) Line 1001: Line 1002: End If Line 1003: Line 1004: Return Me._TabDictionary Line 1005: Line 1006: End Get Line 1007: End Property Line 1008: Line 1009: Line 1010: Line 1011: #End Region Line 1012: Line 1013: #Region " Methods " Line 1014: Line 1015: Public Function CleanColumnName(ByVal columnName As String) As String Line 1016: Line 1017: Return DotNetNuke.Common.Utilities.HtmlUtils.StripNonWord(columnName, False).Replace(" ", "") Line 1018: Line 1019: End Function Line 1020: Line 1021: Public Function BuildSearchExpression(ByVal searchString As String) As String Line 1022: Line 1023: Dim result As String = String.Empty Line 1024: Line 1025: Dim fixExpression As String = String.Empty Line 1026: Dim dynExpression As String = String.Empty Line 1027: Line 1028: If UseFixSearchExpression Then Line 1029: fixExpression = CStr(Settings(Consts.DEFAULT_SEARCH_EXPRESSION)) Line 1030: End If Line 1031: Line 1032: If Not String.IsNullOrEmpty(searchString) Then Line 1033: Line 1034: dynExpression = BuildDynamicFilter(searchString) Line 1035: Line 1036: End If Line 1037: Line 1038: 'If Not Request.QueryString("SEARCH") Is Nothing OrElse Not Session(SESSION_QUERY_STRING_SEARCH) Is Nothing Then Line 1039: Line 1040: ' Dim temp As String Line 1041: Line 1042: ' If Not Request.QueryString("SEARCH") Is Nothing Then Line 1043: Line 1044: ' temp = Request.QueryString("SEARCH") Line 1045: Line 1046: ' Else Line 1047: Line 1048: ' temp = CStr(Session(SESSION_QUERY_STRING_SEARCH)) Line 1049: Line 1050: ' End If Line 1051: Line 1052: ' result = Me.BuildFilter(temp) Line 1053: Line 1054: ' Session(SESSION_QUERY_STRING_SEARCH) = CStr(temp) Line 1055: Line 1056: 'Else Line 1057: Line 1058: ' Session.Remove(SESSION_QUERY_STRING_SEARCH) Line 1059: Line 1060: 'End If Line 1061: Line 1062: If Not String.IsNullOrEmpty(fixExpression) And Not String.IsNullOrEmpty(dynExpression) Then Line 1063: Line 1064: result = String.Format("({0}) AND ({1})", fixExpression, dynExpression) Line 1065: Line 1066: ElseIf Not String.IsNullOrEmpty(dynExpression) Then Line 1067: Line 1068: result = dynExpression Line 1069: Line 1070: ElseIf Not (String.IsNullOrEmpty(fixExpression)) Then Line 1071: Line 1072: result = fixExpression Line 1073: Line 1074: End If Line 1075: Line 1076: Return result Line 1077: Line 1078: End Function Line 1079: Line 1080: Public Function BuildDynamicFilter(ByVal searchKey As String) As String Line 1081: Line 1082: Dim search As String = String.Empty Line 1083: Line 1084: For i As Int32 = 0 To ProfilesPropertyCollectionToSearch.Count - 1 Line 1085: Line 1086: search &= CleanColumnName(ProfilesPropertyCollectionToSearch(i).PropertyName) & " like '%" & searchKey & "%'" Line 1087: Line 1088: If Not i = ProfilesPropertyCollectionToSearch.Count - 1 Then Line 1089: search &= " or " Line 1090: End If Line 1091: Next Line 1092: Line 1093: Return search Line 1094: Line 1095: End Function Line 1096: Line 1097: Public Function GetvCardLink(ByVal UserId As Int32) As String Line 1098: Line 1099: Dim Request As System.Web.HttpRequest = System.Web.HttpContext.Current.Request Line 1100: Line 1101: Dim RequestUrl As Uri = Request.Url Line 1102: Line 1103: Dim port As String Line 1104: Line 1105: If Not RequestUrl.IsDefaultPort Then Line 1106: port = String.Format(":{0}", Request.Url.Port) Line 1107: End If Line 1108: Line 1109: Return String.Format("{0}://{1}{2}{3}/DesktopModules/effority.UserDirectory/vCard.aspx?UserId={4}&ModuleId={5}&TabModuleId={6}", RequestUrl.Scheme, RequestUrl.Host, port, Request.ApplicationPath, CStr(UserId), CStr(Me.ModuleId), CStr(Me.TabModuleId)) Line 1110: Line 1111: End Function Line 1112: Line 1113: Public Function GetDetailsViewLink(ByVal UserId As Int32, ByVal searchText As String) As String Line 1114: Line 1115: Dim url As String = String.Empty Line 1116: Line 1117: url = DotNetNuke.Common.NavigateURL(TabId, String.Empty, "Detail", "true", "ModuleId", CStr(ModuleId), "UserId", CStr(UserId), "SearchString", searchText) Line 1118: Line 1119: Return url Line 1120: Line 1121: End Function Line 1122: Line 1123: #End Region Line 1124: Line 1125: End Class Line 1126: Line 1127: End Namespace Line 1128: