| 119 |
ghuddy |
1 |
<%
|
|
|
2 |
'=============================================================
|
|
|
3 |
'//
|
|
|
4 |
'// noteManager
|
|
|
5 |
'//
|
|
|
6 |
'// version: 1.0.1
|
|
|
7 |
'// last modified: 08-Sep-2004 by Matthew Brown
|
|
|
8 |
'=============================================================
|
|
|
9 |
%>
|
|
|
10 |
<%
|
|
|
11 |
'------------------------------------------------------------------------------------------------------------------
|
|
|
12 |
Function Get_Package_Note ()
|
|
|
13 |
Get_Package_Note = _
|
|
|
14 |
" SELECT description, last_user, last_date "&_
|
|
|
15 |
" FROM note_manager note"&_
|
|
|
16 |
" WHERE note.nid = :NOTE_ID"
|
|
|
17 |
End Function
|
|
|
18 |
'------------------------------------------------------------------------------------------------------------------
|
|
|
19 |
|
|
|
20 |
'------------------------------------------------------------------------------------------------------------------
|
|
|
21 |
Sub drawNote(nPv_id, nRtag_id, redirectionDestination, last_user, visiblePageArray)
|
|
|
22 |
Dim noteContents, lastUser, lastDate, rsNote
|
|
|
23 |
|
|
|
24 |
noteContents = ""
|
|
|
25 |
|
|
|
26 |
OraDatabase.Parameters.Add "NOTE_ID", nPv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
|
|
27 |
Set rsNote = OraDatabase.DbCreateDynaset( Get_Package_Note (), cint(0))
|
|
|
28 |
If rsNote.RecordCount = 1 Then
|
|
|
29 |
noteContents = rsNote("description")
|
|
|
30 |
lastUser = rsNote("last_user")
|
|
|
31 |
lastDate = rsNote("last_date")
|
|
|
32 |
Else
|
|
|
33 |
End If
|
|
|
34 |
OraDatabase.Parameters.remove "NOTE_ID"
|
|
|
35 |
rsNote.close
|
|
|
36 |
set rsNote = nothing
|
|
|
37 |
|
|
|
38 |
|
|
|
39 |
Response.write "<script type='text/javascript' src='notemanager/scripts/stickynotes.js'></script>"
|
|
|
40 |
Response.write "<LINK href='notemanager/styles/stickynotes.css' rel='stylesheet' type='text/css'>"
|
|
|
41 |
Response.write "<DIV id='notebox'>"
|
|
|
42 |
Response.write "<table class='noteboxhead' width='100%' bgcolor='#DAD7C8'>"
|
|
|
43 |
Response.write "<tr height='30'>"
|
|
|
44 |
Response.write "<td align='left' valign='center'>"
|
|
|
45 |
Response.write "<a href='#' onClick='saveNote();return false'><img src='notemanager/images/save.gif'></a>"
|
|
|
46 |
Response.write "<img src='images/spacer.gif' height='1' width='10'>"
|
|
|
47 |
Response.write "<a href='#' onClick='saveBlankNote();return false'><img src='notemanager/images/delete.gif'></a>"
|
|
|
48 |
Response.write "</td>"
|
|
|
49 |
Response.write "<td align='right' valign='top'>"
|
|
|
50 |
Response.write "<span class='help_ttl'><b>note</b>manager</span><a href='#' onClick='showHideNote();return false'><img src='notemanager/images/close.gif'></a>"
|
|
|
51 |
Response.write "</td>"
|
|
|
52 |
Response.write "</tr>"
|
|
|
53 |
Response.write "</table>"
|
|
|
54 |
If (Request("saved") = "true") Then
|
|
|
55 |
Response.write "<span class='pass_alert'><center>Note Saved</center></span>"
|
|
|
56 |
ElseIf (Request("saved") = "false") Then
|
|
|
57 |
Response.write "<span class='err_alert'><center>Note Not Saved</center></span>"
|
|
|
58 |
Else
|
|
|
59 |
Response.write "<span class='err_alert'><center> </center></span>"
|
|
|
60 |
End If
|
|
|
61 |
Response.write "<center><span class='noteboxbody'>"
|
|
|
62 |
Response.write "<FORM name='noteManagerForm' method='GET' action='notemanager/save_note.asp'>"
|
|
|
63 |
Response.write "<input type='hidden' value='"& redirectionDestination &"' name='redirectionDestination'>"
|
|
|
64 |
Response.write "<input type='hidden' value='"& last_user &"' name='last_user'>"
|
|
|
65 |
Response.write "<input type='hidden' value='"& nPv_id &"' name='pv_id'>"
|
|
|
66 |
Response.write "<input type='hidden' value='"& nRtag_id &"' name='rtag_id'>"
|
|
|
67 |
Response.write "<textarea name='description' id='noteboxcontents' cols='32' rows='12'>"
|
|
|
68 |
If not noteContents = "" Then
|
|
|
69 |
Response.write Server.HTMLEncode(noteContents)
|
|
|
70 |
End If
|
|
|
71 |
Response.write "</textarea>"
|
|
|
72 |
Response.write "</span></center>"
|
|
|
73 |
Response.write "</FORM>"
|
|
|
74 |
If not isnull(noteContents) Then
|
|
|
75 |
Response.write "<span class='rep_small' align='right'> "& lastUser &" - "& lastDate &"</span>"
|
|
|
76 |
End If
|
|
|
77 |
Response.write "</DIV>"
|
|
|
78 |
|
|
|
79 |
If (not noteContents = "") and ((inArray(scriptName, visiblePageArray)) or (Request("saved") = "true")) Then
|
|
|
80 |
Response.write "<script language='Javascript'>noteVisibility='visible'</script>"
|
|
|
81 |
Else
|
|
|
82 |
Response.write "<script language='Javascript'>noteVisibility='hidden'</script>"
|
|
|
83 |
End If
|
|
|
84 |
|
|
|
85 |
End Sub
|
|
|
86 |
'------------------------------------------------------------------------------------------------------------------
|
|
|
87 |
|
|
|
88 |
Dim allowedPageArray, visiblePageArray
|
|
|
89 |
|
|
|
90 |
allowedPageArray = array("dependencies.asp", "fixed_issues.asp", "runtime_dependencies.asp", "used_by.asp", "build_order.asp", "patches.asp", "documentation.asp", "action_log.asp")
|
|
|
91 |
visiblePageArray = array("dependencies.asp")
|
|
|
92 |
|
|
|
93 |
If inArray(scriptName, allowedPageArray) Then
|
|
|
94 |
Dim redirectionTarget, last_user
|
|
|
95 |
|
|
|
96 |
last_user = NULL
|
|
|
97 |
If objAccessControl.UserLogedIn Then last_user = objAccessControl.UserName
|
|
|
98 |
|
|
|
99 |
redirectionTarget = scriptName & "?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id")
|
|
|
100 |
Call drawnote(Request("pv_id"), Request("rtag_id"), redirectionTarget, last_user, visiblePageArray)
|
|
|
101 |
End If
|
|
|
102 |
|
|
|
103 |
%>
|