Line 1: #ExternalChecksum("D:\hyperview\websites\adlib\adlib\browse.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","2FA2CD3D2371DC04CC2A5F0BFEF05C62B9DF66AF")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports ASP
Line 16: Imports EBlock
Line 17: Imports Microsoft.VisualBasic
Line 18: Imports System
Line 19: Imports System.Collections
Line 20: Imports System.Collections.Generic
Line 21: Imports System.Collections.Specialized
Line 22: Imports System.ComponentModel.DataAnnotations
Line 23: Imports System.Configuration
Line 24: Imports System.Linq
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.DynamicData
Line 30: Imports System.Web.Profile
Line 31: Imports System.Web.SessionState
Line 32: Imports System.Web.UI
Line 33: Imports System.Web.UI.HtmlControls
Line 34: Imports System.Web.UI.WebControls
Line 35: Imports System.Web.UI.WebControls.Expressions
Line 36: Imports System.Web.UI.WebControls.WebParts
Line 37: Imports System.Xml.Linq
Line 38:
Line 39: Namespace ASP
Line 40:
Line 41: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 42: Public Class adlib_browse_aspx
Line 43: Inherits Global.EBlock.Page
Line 44: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 45:
Line 46:
Line 47: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",152)
Line 48: Protected WithEvents pageTitle As Global.System.Web.UI.WebControls.Literal
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",153)
Line 54: Protected WithEvents litCSS As Global.System.Web.UI.WebControls.Literal
Line 55:
Line 56: #End ExternalSource
Line 57:
Line 58:
Line 59: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",170)
Line 60: Protected WithEvents litCrumbs As Global.System.Web.UI.WebControls.Literal
Line 61:
Line 62: #End ExternalSource
Line 63:
Line 64:
Line 65: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 66: Protected WithEvents sectionContents As Global.System.Web.UI.WebControls.Repeater
Line 67:
Line 68: #End ExternalSource
Line 69:
Line 70:
Line 71: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 72: Protected WithEvents documentContents As Global.System.Web.UI.WebControls.Repeater
Line 73:
Line 74: #End ExternalSource
Line 75:
Line 76: Private Shared __initialized As Boolean
Line 77:
Line 78: Private Shared __stringResource As Object
Line 79:
Line 80: Private Shared __fileDependencies As Object
Line 81:
Line 82:
Line 83: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",5)
Line 84:
Line 85:
Line 86: Dim sectionAsset As Asset, groupId As Integer, userId As Integer, _
Line 87: sectionAssetID As Integer, UserName As String, Password As String, IsPublicUser As Boolean
Line 88:
Line 89: Sub Page_Load(sender As Object, e As EventArgs)
Line 90:
Line 91: 'Session Variables for maintaining the library navigation
Line 92: if Request.QueryString("group") = "" then
Line 93: groupId = Session("adlib_groupid")
Line 94: else
Line 95: groupId = Request.QueryString("group")
Line 96: Session("adlib_groupid") = groupId
Line 97: end if
Line 98:
Line 99: if Request.QueryString("id") = "" AND Request.QueryString("group") = "" then _
Line 100: sectionAssetID = Session("sectionId") else _
Line 101: Session("sectionId") = Request.QueryString("id")
Line 102:
Line 103: if Request.Querystring("user") <> "" then _
Line 104: Session("I_UserID") = CInt(Request.Querystring("user"))
Line 105:
Line 106: if CInt(Session("I_UserID")) = 0 then IsPublicUser = True _
Line 107: else IsPublicUser = False
Line 108:
Line 109: 'AND Make sure the member is in the correct group and log in if using a public proxy....
Line 110: Try
Line 111: If Session("I_UserID") > 0 AND Credentials.CheckRightsForEntity(14403, RightType.Belong) then
Line 112: Credentials = New Eblock.Compatibility.Credentials
Line 113: DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountSource = "main"
Line 114: DirectCast(Credentials, EBlock.Compatibility.Credentials).Authenticate("main", Session("I_UserID"), True)
Line 115: End if
Line 116: if NOT hyperview.IsMember(DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountID, groupId) then _
Line 117: IsPublicUser = True
Line 118: Catch eX As Exception:
Line 119: 'Response.write(eX)
Line 120: IsPublicUser = True
Line 121: End Try
Line 122:
Line 123: '*********************************************
Line 124: 'Get Correct Library Credentials from groupId
Line 125: '*********************************************
Line 126: Dim lb As AssetListBuilder = Core.NewAssetListBuilder, _
Line 127: l As AssetList, detailsAsset As Asset
Line 128: lb.PermissionMask.GrantRole(RoleType.Read)
Line 129: lb.ContainerId = 17
Line 130: lb.PrototypeId = 19497
Line 131: lb.SearchField = AssetSearchField.Free1
Line 132: lb.ListType = 1 'Enumaration for DeepSearch
Line 133: lb.SearchTerm = groupId
Line 134:
Line 135: If lb.Fill(l) > 0 Then
Line 136: detailsAsset = New Asset(l.Item(0), Credentials) 'user details are now public read
Line 137:
Line 138: 'Get Root Section if not browsing
Line 139: if sectionAssetID = 0 then
Line 140: if Request.QueryString("id") = "" then _
Line 141: sectionAssetId = detailsAsset.Fields("rootsection").Value Else _
Line 142: sectionAssetID = Request.QueryString("id")
Line 143: end if
Line 144:
Line 145: Session("ADLIB_CSS") = detailsAsset.Fields("css").Value
Line 146:
Line 147: 'Authenticate credentials with session information
Line 148: if IsPublicUser then
Line 149: 'Credentials = New Credentials
Line 150: 'UserName = detailsAsset.Fields("publicusername").Value
Line 151: 'Password = detailsAsset.Fields("publicpassword").Value
Line 152: 'Credentials.Authenticate(UserName, Password)
Line 153: Session("ADLIB_CSS") = ""
Line 154: end if
Line 155:
Line 156:
Line 157: Else
Line 158: sectionAssetId = 0
Line 159: End If
Line 160:
Line 161: sectionAsset = Core.GetAsset(sectionAssetID)
Line 162: pageTitle.Text = "ADLib - " + sectionAsset.Name
Line 163:
Line 164: Dim sectionList As AssetList, documentList As AssetList, _
Line 165: listBuilder As AssetListBuilder = Core.NewAssetListBuilder
Line 166:
Line 167: listBuilder.PermissionMask.GrantRole(RoleType.List)
Line 168: listBuilder.ContainerID = sectionAssetID
Line 169: listBuilder.PrototypeID = 17331 ' section prototype
Line 170: listBuilder.SortField = AssetListSortField.Name
Line 171: listBuilder.Status = AssetStatusMask.Active
Line 172: listBuilder.Fill(sectionList)
Line 173:
Line 174: listBuilder.PrototypeGUID = "000IL3890W.16NTBVOB6TY07" ' document prototype
Line 175: listBuilder.Fill(documentList)
Line 176:
Line 177: If sectionList.Count > 0 Then
Line 178: sectionContents.Visible = True
Line 179: sectionContents.DataSource = sectionList
Line 180: sectionContents.DataBind
Line 181: Else
Line 182: sectionContents.Visible = False
Line 183: End If
Line 184:
Line 185: If documentList.Count > 0 Then
Line 186: documentContents.Visible = True
Line 187: documentContents.DataSource = documentList
Line 188: documentContents.DataBind
Line 189: Else
Line 190: documentContents.Visible = False
Line 191: End If
Line 192:
Line 193: ' Generate breadcrumbs
Line 194: Dim textBuilder As StringBuilder = New StringBuilder(), _
Line 195: parentList As AssetList = sectionAsset.GetParents(19747), _
Line 196: sectionItem As AssetListItem
Line 197: For Each sectionItem In parentList
Line 198: if SectionItem.AssetID <> 19747 then
Line 199: If textBuilder.Length > 0 Then textBuilder.Append(" » ")
Line 200: textBuilder.Append("<a href=""browse.aspx?group=")
Line 201: textBuilder.Append(groupId)
Line 202: textBuilder.Append("&id=")
Line 203: textBuilder.Append(sectionItem.AssetID)
Line 204: textBuilder.Append(""">")
Line 205: textBuilder.Append(sectionItem.Name)
Line 206: textBuilder.Append("</a>")
Line 207: End if
Line 208: Next
Line 209: If textBuilder.Length > 0 Then
Line 210: litCrumbs.Text = "<div id=""breadcrumbs"">" & textBuilder.ToString() & "</div>"
Line 211: End If
Line 212:
Line 213: if Session("ADLIB_CSS") = "" OR Session("I_UserID") = 0 then _
Line 214: Session("ADLIB_CSS") = "inc/standardx.css"
Line 215:
Line 216: litCSS.Text = "<link rel=""stylesheet"" href=" & Session("ADLIB_CSS") & " media=""screen,projection,tv"">"
Line 217:
Line 218: End Sub
Line 219:
Line 220: Function WriteDocumentAssetId(ThisItem As AssetListItem) As String
Line 221: If ThisItem.IsAlias Then Return(CStr(ThisItem.PrimaryAncestorId)) _
Line 222: Else Return(CStr(ThisItem.AssetId))
Line 223: End Function
Line 224:
Line 225:
Line 226: #End ExternalSource
Line 227:
Line 228:
Line 229: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 230: Public Sub New()
Line 231: MyBase.New
Line 232: Dim dependencies() As String
Line 233: CType(Me,Global.EBlock.Page).AppRelativeVirtualPath = "~/adlib/browse.aspx"
Line 234: If (Global.ASP.adlib_browse_aspx.__initialized = false) Then
Line 235: Global.ASP.adlib_browse_aspx.__stringResource = Me.ReadStringResource
Line 236: dependencies = New String(1) {}
Line 237: dependencies(0) = "~/adlib/browse.aspx"
Line 238: dependencies(1) = "~/adlib/inc/header.ascx"
Line 239: Global.ASP.adlib_browse_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 240: Global.ASP.adlib_browse_aspx.__initialized = true
Line 241: End If
Line 242: Me.Server.ScriptTimeout = 30000000
Line 243: End Sub
Line 244:
Line 245: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 246: Get
Line 247: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 248: End Get
Line 249: End Property
Line 250:
Line 251: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 252: Get
Line 253: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 254: End Get
Line 255: End Property
Line 256:
Line 257: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 258: Private Function __BuildControlpageTitle() As Global.System.Web.UI.WebControls.Literal
Line 259: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 260:
Line 261: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",152)
Line 262: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 263:
Line 264: #End ExternalSource
Line 265: Me.pageTitle = __ctrl
Line 266:
Line 267: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",152)
Line 268: __ctrl.ID = "pageTitle"
Line 269:
Line 270: #End ExternalSource
Line 271: Return __ctrl
Line 272: End Function
Line 273:
Line 274: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 275: Private Function __BuildControllitCSS() As Global.System.Web.UI.WebControls.Literal
Line 276: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 277:
Line 278: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",153)
Line 279: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 280:
Line 281: #End ExternalSource
Line 282: Me.litCSS = __ctrl
Line 283:
Line 284: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",153)
Line 285: __ctrl.ID = "litCSS"
Line 286:
Line 287: #End ExternalSource
Line 288: Return __ctrl
Line 289: End Function
Line 290:
Line 291: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 292: Private Function __BuildControl__control2() As Global.ASP.MemberReport
Line 293: Dim __ctrl As Global.ASP.MemberReport
Line 294:
Line 295: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",158)
Line 296: __ctrl = New Global.ASP.MemberReport()
Line 297:
Line 298: #End ExternalSource
Line 299:
Line 300: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",158)
Line 301: __ctrl.InitializeAsUserControl(Me.Page)
Line 302:
Line 303: #End ExternalSource
Line 304:
Line 305: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",158)
Line 306: __ctrl.ActiveTab = Global.ASP.MemberReport.HeaderTab.Browse
Line 307:
Line 308: #End ExternalSource
Line 309: Return __ctrl
Line 310: End Function
Line 311:
Line 312: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 313: Private Function __BuildControllitCrumbs() As Global.System.Web.UI.WebControls.Literal
Line 314: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 315:
Line 316: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",170)
Line 317: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 318:
Line 319: #End ExternalSource
Line 320: Me.litCrumbs = __ctrl
Line 321:
Line 322: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",170)
Line 323: __ctrl.ID = "litCrumbs"
Line 324:
Line 325: #End ExternalSource
Line 326: Return __ctrl
Line 327: End Function
Line 328:
Line 329: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 330: Private Sub __BuildControl__control3(ByVal __ctrl As System.Web.UI.Control)
Line 331: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 332:
Line 333: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 334: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""tabdivider""><h3>Sections</h3></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 335:
Line 336: #End ExternalSource
Line 337: End Sub
Line 338:
Line 339: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 340: Private Function __BuildControl__control5() As Global.System.Web.UI.DataBoundLiteralControl
Line 341: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 342:
Line 343: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 344: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(5, 4)
Line 345:
Line 346: #End ExternalSource
Line 347: __ctrl.TemplateControl = Me
Line 348: __ctrl.SetStaticString(0, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p><b><a href=""browse.aspx?group=")
Line 349: __ctrl.SetStaticString(1, "&id=")
Line 350: __ctrl.SetStaticString(2, """>")
Line 351: __ctrl.SetStaticString(3, "</a></b><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 352: __ctrl.SetStaticString(4, "</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 353:
Line 354: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 355: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control5
Line 356:
Line 357: #End ExternalSource
Line 358: Return __ctrl
Line 359: End Function
Line 360:
Line 361: Public Sub __DataBind__control5(ByVal sender As Object, ByVal e As System.EventArgs)
Line 362: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 363: Dim target As System.Web.UI.DataBoundLiteralControl
Line 364:
Line 365: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 366: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 367:
Line 368: #End ExternalSource
Line 369:
Line 370: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 371: Container = CType(target.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 372:
Line 373: #End ExternalSource
Line 374:
Line 375: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 376: target.SetDataBoundString(0, Global.System.Convert.ToString(groupId, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 377:
Line 378: #End ExternalSource
Line 379:
Line 380: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 381: target.SetDataBoundString(1, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).AssetID, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 382:
Line 383: #End ExternalSource
Line 384:
Line 385: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",179)
Line 386: target.SetDataBoundString(2, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Name, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 387:
Line 388: #End ExternalSource
Line 389:
Line 390: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",180)
Line 391: target.SetDataBoundString(3, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Description, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 392:
Line 393: #End ExternalSource
Line 394: End Sub
Line 395:
Line 396: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 397: Private Sub __BuildControl__control4(ByVal __ctrl As System.Web.UI.Control)
Line 398: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 399:
Line 400: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 401: __ctrl1 = Me.__BuildControl__control5
Line 402:
Line 403: #End ExternalSource
Line 404: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 405:
Line 406: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 407: __parser.AddParsedSubObject(__ctrl1)
Line 408:
Line 409: #End ExternalSource
Line 410: End Sub
Line 411:
Line 412: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 413: Private Function __BuildControlsectionContents() As Global.System.Web.UI.WebControls.Repeater
Line 414: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 415:
Line 416: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 417: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 418:
Line 419: #End ExternalSource
Line 420: Me.sectionContents = __ctrl
Line 421:
Line 422: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 423: __ctrl.HeaderTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control3)
Line 424:
Line 425: #End ExternalSource
Line 426:
Line 427: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 428: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control4)
Line 429:
Line 430: #End ExternalSource
Line 431:
Line 432: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",174)
Line 433: __ctrl.ID = "sectionContents"
Line 434:
Line 435: #End ExternalSource
Line 436: Return __ctrl
Line 437: End Function
Line 438:
Line 439: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 440: Private Sub __BuildControl__control6(ByVal __ctrl As System.Web.UI.Control)
Line 441: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 442:
Line 443: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 444: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""tabdivider""><h3>Documents</h3></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 445:
Line 446: #End ExternalSource
Line 447: End Sub
Line 448:
Line 449: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 450: Private Function __BuildControl__control8() As Global.System.Web.UI.DataBoundLiteralControl
Line 451: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 452:
Line 453: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 454: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(4, 3)
Line 455:
Line 456: #End ExternalSource
Line 457: __ctrl.TemplateControl = Me
Line 458: __ctrl.SetStaticString(0, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p><b><a href=""document.aspx?doc=")
Line 459: __ctrl.SetStaticString(1, """>")
Line 460: __ctrl.SetStaticString(2, "</a></b><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 461: __ctrl.SetStaticString(3, "</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 462:
Line 463: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 464: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control8
Line 465:
Line 466: #End ExternalSource
Line 467: Return __ctrl
Line 468: End Function
Line 469:
Line 470: Public Sub __DataBind__control8(ByVal sender As Object, ByVal e As System.EventArgs)
Line 471: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 472: Dim target As System.Web.UI.DataBoundLiteralControl
Line 473:
Line 474: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 475: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 476:
Line 477: #End ExternalSource
Line 478:
Line 479: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 480: Container = CType(target.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 481:
Line 482: #End ExternalSource
Line 483:
Line 484: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 485: target.SetDataBoundString(0, Global.System.Convert.ToString(WriteDocumentAssetId(DirectCast(Container.DataItem, AssetListItem)), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 486:
Line 487: #End ExternalSource
Line 488:
Line 489: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",189)
Line 490: target.SetDataBoundString(1, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Name, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 491:
Line 492: #End ExternalSource
Line 493:
Line 494: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",190)
Line 495: target.SetDataBoundString(2, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Description, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 496:
Line 497: #End ExternalSource
Line 498: End Sub
Line 499:
Line 500: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 501: Private Sub __BuildControl__control7(ByVal __ctrl As System.Web.UI.Control)
Line 502: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 503:
Line 504: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 505: __ctrl1 = Me.__BuildControl__control8
Line 506:
Line 507: #End ExternalSource
Line 508: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 509:
Line 510: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 511: __parser.AddParsedSubObject(__ctrl1)
Line 512:
Line 513: #End ExternalSource
Line 514: End Sub
Line 515:
Line 516: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 517: Private Function __BuildControldocumentContents() As Global.System.Web.UI.WebControls.Repeater
Line 518: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 519:
Line 520: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 521: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 522:
Line 523: #End ExternalSource
Line 524: Me.documentContents = __ctrl
Line 525:
Line 526: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 527: __ctrl.HeaderTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control6)
Line 528:
Line 529: #End ExternalSource
Line 530:
Line 531: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 532: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control7)
Line 533:
Line 534: #End ExternalSource
Line 535:
Line 536: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",184)
Line 537: __ctrl.ID = "documentContents"
Line 538:
Line 539: #End ExternalSource
Line 540: Return __ctrl
Line 541: End Function
Line 542:
Line 543: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 544: Private Sub __BuildControlTree(ByVal __ctrl As adlib_browse_aspx)
Line 545:
Line 546: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 547: __ctrl.EnableEventValidation = false
Line 548:
Line 549: #End ExternalSource
Line 550:
Line 551: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 552: Me.InitializeCulture
Line 553:
Line 554: #End ExternalSource
Line 555: Dim __ctrl1 As Global.System.Web.UI.WebControls.Literal
Line 556:
Line 557: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 558: __ctrl1 = Me.__BuildControlpageTitle
Line 559:
Line 560: #End ExternalSource
Line 561: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 562:
Line 563: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 564: __parser.AddParsedSubObject(__ctrl1)
Line 565:
Line 566: #End ExternalSource
Line 567: Dim __ctrl2 As Global.System.Web.UI.WebControls.Literal
Line 568:
Line 569: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 570: __ctrl2 = Me.__BuildControllitCSS
Line 571:
Line 572: #End ExternalSource
Line 573:
Line 574: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 575: __parser.AddParsedSubObject(__ctrl2)
Line 576:
Line 577: #End ExternalSource
Line 578: Dim __ctrl3 As Global.ASP.MemberReport
Line 579:
Line 580: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 581: __ctrl3 = Me.__BuildControl__control2
Line 582:
Line 583: #End ExternalSource
Line 584:
Line 585: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 586: __parser.AddParsedSubObject(__ctrl3)
Line 587:
Line 588: #End ExternalSource
Line 589: Dim __ctrl4 As Global.System.Web.UI.WebControls.Literal
Line 590:
Line 591: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 592: __ctrl4 = Me.__BuildControllitCrumbs
Line 593:
Line 594: #End ExternalSource
Line 595:
Line 596: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 597: __parser.AddParsedSubObject(__ctrl4)
Line 598:
Line 599: #End ExternalSource
Line 600: Dim __ctrl5 As Global.System.Web.UI.WebControls.Repeater
Line 601:
Line 602: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 603: __ctrl5 = Me.__BuildControlsectionContents
Line 604:
Line 605: #End ExternalSource
Line 606:
Line 607: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 608: __parser.AddParsedSubObject(__ctrl5)
Line 609:
Line 610: #End ExternalSource
Line 611: Dim __ctrl6 As Global.System.Web.UI.WebControls.Repeater
Line 612:
Line 613: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 614: __ctrl6 = Me.__BuildControldocumentContents
Line 615:
Line 616: #End ExternalSource
Line 617:
Line 618: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",1)
Line 619: __parser.AddParsedSubObject(__ctrl6)
Line 620:
Line 621: #End ExternalSource
Line 622: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 623: End Sub
Line 624:
Line 625: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 626: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Strict//EN"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META HTTP-EQUIV=""PR"& _
Line 627: "AGMA"" CONTENT=""NO-CACHE"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <title>ADLib - ")
Line 628: parameterContainer.Controls(0).RenderControl(__w)
Line 629: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 630: parameterContainer.Controls(1).RenderControl(__w)
Line 631: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""inc/adlib.js"" type=""text/javascript""></script>"&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 632: " <body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 633: parameterContainer.Controls(2).RenderControl(__w)
Line 634: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""toolbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""browse.aspx?group=")
Line 635:
Line 636: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",161)
Line 637: __w.Write(groupId )
Line 638:
Line 639:
Line 640: #End ExternalSource
Line 641: __w.Write(""">Back to Library Contents</a><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""browse.asp"">Change Library</a>"& _
Line 642: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""holder"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""content"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<div id=""docu"& _
Line 643: "ment"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 644: parameterContainer.Controls(3).RenderControl(__w)
Line 645: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h1>")
Line 646:
Line 647: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",171)
Line 648: __w.Write(sectionAsset.Name )
Line 649:
Line 650:
Line 651: #End ExternalSource
Line 652: __w.Write("</h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>")
Line 653:
Line 654: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",172)
Line 655: __w.Write(sectionAsset.Description )
Line 656:
Line 657:
Line 658: #End ExternalSource
Line 659: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 660: parameterContainer.Controls(4).RenderControl(__w)
Line 661: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 662: parameterContainer.Controls(5).RenderControl(__w)
Line 663: Me.WriteUTF8ResourceString(__w, 1340, 700, true)
Line 664:
Line 665: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",209)
Line 666: if Session("I_UserID") > 0 then
Line 667:
Line 668: #End ExternalSource
Line 669: Me.WriteUTF8ResourceString(__w, 2040, 313, true)
Line 670:
Line 671: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",216)
Line 672: __w.Write(Session("I_UserID") )
Line 673:
Line 674:
Line 675: #End ExternalSource
Line 676: __w.Write(""" scrolling=""Auto"" width=""138"" height=""110"" name=""cuttings""></iframe>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 677: "/div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9))
Line 678:
Line 679: #ExternalSource("D:\hyperview\websites\adlib\adlib\browse.aspx",219)
Line 680: end if
Line 681:
Line 682: #End ExternalSource
Line 683: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""footer"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" © University of Hertfordshire"& _
Line 684: ", 2006. <a href=""disclaimer.asp"">Disclaimer</a>."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 685: "</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 686: End Sub
Line 687:
Line 688: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 689: Protected Overrides Sub FrameworkInitialize()
Line 690: MyBase.FrameworkInitialize
Line 691: Me.SetStringResourcePointer(Global.ASP.adlib_browse_aspx.__stringResource, 0)
Line 692: Me.__BuildControlTree(Me)
Line 693: Me.AddWrappedFileDependencies(Global.ASP.adlib_browse_aspx.__fileDependencies)
Line 694: End Sub
Line 695:
Line 696: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 697: Public Overrides Function GetTypeHashCode() As Integer
Line 698: Return 1937446977
Line 699: End Function
Line 700:
Line 701: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 702: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 703: MyBase.ProcessRequest(context)
Line 704: End Sub
Line 705: End Class
Line 706: End Namespace
Line 707:
|