<% '============================================================= '// '// noteManager '// '// version: 1.0.1 '// last modified: 08-Sep-2004 by Matthew Brown '============================================================= %> <% '------------------------------------------------------------------------------------------------------------------ Function Get_Package_Note () Get_Package_Note = _ " SELECT description, last_user, last_date "&_ " FROM note_manager note"&_ " WHERE note.nid = :NOTE_ID" End Function '------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------ Sub drawNote(nPv_id, nRtag_id, redirectionDestination, last_user, visiblePageArray) Dim noteContents, lastUser, lastDate, rsNote noteContents = "" OraDatabase.Parameters.Add "NOTE_ID", nPv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsNote = OraDatabase.DbCreateDynaset( Get_Package_Note (), cint(0)) If rsNote.RecordCount = 1 Then noteContents = rsNote("description") lastUser = rsNote("last_user") lastDate = rsNote("last_date") Else End If OraDatabase.Parameters.remove "NOTE_ID" rsNote.close set rsNote = nothing Response.write "" Response.write "" Response.write "
" Response.write "" Response.write "" If objAccessControl.UserLogedIn Then Response.write "" End If Response.write "" Response.write "" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "notemanager" Response.write "
" If (Request("saved") = "true") Then Response.write "
Note Saved
" ElseIf (Request("saved") = "false") Then Response.write "
Note Not Saved
" Else Response.write "
 
" End If Response.write "
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "" If not isnull(noteContents) Then Response.write "  "& lastUser &" - "& lastDate &"" End If Response.write "
" If (not noteContents = "") and ((inArray(scriptName, visiblePageArray)) or (Request("saved") = "true")) Then Response.write "" Else Response.write "" End If End Sub '------------------------------------------------------------------------------------------------------------------ Dim allowedPageArray, visiblePageArray allowedPageArray = array("dependencies.asp", "fixed_issues.asp", "runtime_dependencies.asp", _ "used_by.asp", "process_dependencies.asp", "build_order.asp", "patches.asp", _ "documentation.asp", "files_and_folders.asp", "action_log.asp") visiblePageArray = array("dependencies.asp") If inArray(scriptName, allowedPageArray) Then Dim redirectionTarget, last_user last_user = NULL If objAccessControl.UserLogedIn Then last_user = objAccessControl.UserName redirectionTarget = scriptName & "?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") Call drawnote(Request("pv_id"), Request("rtag_id"), redirectionTarget, last_user, visiblePageArray) End If %>