513 lines
16 KiB
Plaintext
513 lines
16 KiB
Plaintext
<% option explicit
|
|
Response.Buffer = TRUE
|
|
|
|
Dim AuthUser,pos,FileSys,InStream,BugID,Conn,Comm,RS
|
|
Dim FldArray,i,FldLinks,dTitle,Desc,fCreate,st,wi,c,fSt
|
|
Dim mx,mxc,fn,fname,ColTot,ibase,inext,ff,fbase,coln,colh,ColNb
|
|
|
|
Response.Expires = 0
|
|
|
|
rem get user name
|
|
AuthUser = Request.ServerVariables("AUTH_USER")
|
|
pos=instr(1,AuthUser,"\")
|
|
if pos>0 then
|
|
AuthUser = mid(AuthUser,pos+1)
|
|
end if
|
|
%>
|
|
<!--#include virtual="/scripts/raid/cache.asp"-->
|
|
<!--#include virtual="/aspsamp/samples/adovbs.inc"-->
|
|
<!--
|
|
display detailed view of bug
|
|
|
|
QueryString : bugid=bug# | CREATE for new bug
|
|
|
|
-->
|
|
<html>
|
|
<head>
|
|
|
|
<style type="text/css">
|
|
.act {color:menutext; background:menu; cursor:default}
|
|
#bug {font-size:8pt}
|
|
.vis {}
|
|
.unvis {display:none}
|
|
.inp {font-size:8pt; height:18; width:70; color:black; background:menu}
|
|
.inpenab {font-size:8pt; height:18; width:70;}
|
|
.titl {background:menu}
|
|
.titlenab {}
|
|
.bact {height:23; width:24}
|
|
</style>
|
|
|
|
<script language="JavaScript">
|
|
|
|
//
|
|
// Globals
|
|
//
|
|
|
|
var AuthUser = "<%=AuthUser%>";
|
|
var updAct = "";
|
|
var updDate = "";
|
|
var updState = "";
|
|
|
|
//
|
|
// CurrentDate()
|
|
//
|
|
// returns current date as string using format MM/DD/YY if year < 2000 otherwise MM/DD/YYYY
|
|
//
|
|
|
|
function CurrentDate() {
|
|
var now = new Date();
|
|
m = new String(now.getMonth()+1);
|
|
if ( m.length == 1 )
|
|
m = "0"+ m;
|
|
d = new String(now.getDate());
|
|
if ( d.length == 1 )
|
|
d = "0"+ d;
|
|
v = now.getYear();
|
|
if ( v < 100 )
|
|
y = new String(v);
|
|
else
|
|
y = new String( v + 1900 );
|
|
return m + "/" + d + "/" + y;
|
|
}
|
|
|
|
//
|
|
// ckdigit()
|
|
//
|
|
// returns true if event.keyCode is digit, otherwise false
|
|
//
|
|
|
|
function ckdigit() {
|
|
if ( event.keyCode<48 || event.keyCode>57 ) {
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
//
|
|
// ckdotdigit()
|
|
//
|
|
// returns true if event.keyCode is digit or '.', otherwise false
|
|
//
|
|
|
|
function ckdotdigit() {
|
|
if ( (event.keyCode<48 || event.keyCode>57) && event.keyCode!=46 ) {
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
//
|
|
// bsetf()
|
|
//
|
|
// Update Status, AssignedTo & date & by fields associated to selected operation
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bsetf(aState,aVerb,aDate,aBy,aTo) {
|
|
bug.Status.value = aState;
|
|
bug.Status.disabled = false;
|
|
bug.item(aDate).disabled = false;
|
|
bug.item(aDate).className = "inpenab";
|
|
bug.item(aDate).value = CurrentDate();
|
|
bug.item(aBy).disabled = false;
|
|
bug.item(aBy).className = "inpenab";
|
|
bug.item(aBy).value = AuthUser;
|
|
bug.AssignedTo.disabled = false;
|
|
bug.AssignedTo.className = "inpenab";
|
|
bug.AssignedTo.value = aTo;
|
|
updState = aState;
|
|
updAct = aBy;
|
|
updDate = aDate;
|
|
updVerb = aVerb;
|
|
}
|
|
|
|
//
|
|
// bchange()
|
|
//
|
|
// Enabled specified fields, update Changedxxx fields
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bchange( flist ) {
|
|
for ( i = 0 ; i < bug.length ; ++i )
|
|
if ( flist == "" || flist.indexOf(","+bug.elements[i].id+",") != -1 ) {
|
|
bug.elements[i].disabled = false;
|
|
bug.elements[i].className = "inpenab";
|
|
|
|
for ( j = 0 ; j < checkfields.length ; ++j ) {
|
|
|
|
//
|
|
// if field is checked ( i.e. has an associated list of allowed values )
|
|
// then we have to generate an <option> element and select the current value
|
|
//
|
|
|
|
if ( checkfields[j] == bug.elements[i].id ) {
|
|
s = "<select class=\"inpenab\" name=\"" + checkfields[j] + "\" id=\"" + checkfields[j] + "\">";
|
|
for ( k = 0 ; k < checks[j].length ; ++k ) {
|
|
s = s + "<option value=\"" + checks[j][k] + "\""
|
|
if ( bug.elements[i].value == checks[j][k] )
|
|
s = s + " SELECTED";
|
|
s = s + ">" + checks[j][k];
|
|
}
|
|
s = s + "</select>";
|
|
bug.elements[i].parentElement.innerHTML = s;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
bug.upd.disabled = false;
|
|
bug.ChangedDate.value = CurrentDate();
|
|
bug.ChangedBy.value = AuthUser;
|
|
bug.ChangedBy.disabled = false;
|
|
bug.desc.className = "vis";
|
|
}
|
|
|
|
//
|
|
// bresolve()
|
|
//
|
|
// handle resolve bug action
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bresolve() {
|
|
bchange(",ResolvedDate,ResolvedBy,Resolution,FixedRev,Cause,CodeChange,");
|
|
bsetf( "Resolved", "Resolved", "ResolvedDate", "ResolvedBy", bug.OpenedBy.value );
|
|
}
|
|
|
|
//
|
|
// bactivate()
|
|
//
|
|
// handle activate bug action
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bactivate() {
|
|
bchange(",AssignedTo,IssueType,Severity,Priority,Accessibility,ChangedBy,OpenedBy,Source,SourceID,BetaID,HowFound,Lang,LangSup,Component,SubComp,Owner,Processor,NumCPU,Software,Urgency,Regression,ShowStop,SubStatus,CustPri,TrackingNumber,VendorNm,CCList,IsPerf,");
|
|
bsetf( "Active", "Activated", "ChangedDate", "ChangedBy", AuthUser );
|
|
bug.Status.value = "Active";
|
|
bug.Title.disabled = false;
|
|
bug.Title.className = "titlenab";
|
|
}
|
|
|
|
//
|
|
// bclose()
|
|
//
|
|
// handle close bug action
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bclose() {
|
|
bchange(",Accessibility,BetaID,ClosedDate,ClosedBy,KBArticle,SR,Component,SubComp,Owner,Processor,NumCPU,Software,Urgency,Regression,SubStatus,CustPri,TrackingNumber,VendorNM,CCList,IsPerf,Class");
|
|
bsetf( "Closed", "Closed", "ClosedDate", "ClosedBy", "Closed");
|
|
bug.AssignedTo.onkeypress = new Function("return false;");
|
|
}
|
|
|
|
//
|
|
// bassign()
|
|
//
|
|
// handle assign to bug action
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function bassign() {
|
|
bchange(",AssignedTo,");
|
|
updState = "Assigned";
|
|
updAct = AuthUser;
|
|
updDate = CurrentDate();
|
|
updVerb = "Assigned";
|
|
}
|
|
|
|
//
|
|
// doupd()
|
|
//
|
|
// update bug in database
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function doupd()
|
|
{
|
|
//
|
|
// check for mandatory fields
|
|
//
|
|
|
|
for ( i = 0 ; i < bug.length ; ++i )
|
|
if ( bug.elements[i].disabled == false &&
|
|
bug.elements[i].value == "" &&
|
|
FldForced.indexOf(","+bug.elements[i].id+",") != -1 )
|
|
{
|
|
alert( "The " + bug.elements[i].id + " field is mandatoy" );
|
|
return;
|
|
}
|
|
|
|
//
|
|
// update description
|
|
// the addition to this field is sent to server in the 'desc' field. The server
|
|
// will concatenate the content of existing description with this field to update
|
|
// the description field.
|
|
//
|
|
|
|
s = "===== " + updVerb + " by " + bug.item(updAct).value + " on " + bug.item(updDate).value + " ; AssignedTo = " + bug.AssignedTo.value
|
|
if ( updState == "Opened" )
|
|
s = s + "; Priority = " + bug.Priority.value;
|
|
s = s + " =====\r\n";
|
|
bug.desc.value = s + bug.desc.value;
|
|
|
|
document.all.bug.submit();
|
|
}
|
|
|
|
//
|
|
// dolink()
|
|
//
|
|
// display linked info : attachments, files in a new window
|
|
//
|
|
// returns nothing
|
|
//
|
|
|
|
function dolink( linktype ) {
|
|
window.open( "link.asp?BugID=" + bug.bugid.value + "&Type=" + linktype );
|
|
}
|
|
</script>
|
|
<%
|
|
rem add content of cached file for possible values of checked fields
|
|
|
|
IncludeItemCache
|
|
|
|
if Request.QueryString("BugID") = "" then
|
|
BugID = Session("BugID")
|
|
else
|
|
BugID = Request.QueryString("BugID")
|
|
end if
|
|
Response.Write "<title>[Bug " & BugID & " - Windows NT Bugs]</title></head>"
|
|
|
|
Set Conn = Server.CreateObject("ADODB.Connection")
|
|
Set Comm = Server.CreateObject("ADODB.Command")
|
|
Set RS = Server.CreateObject("ADODB.Recordset")
|
|
Conn.Open Session("DSN")
|
|
Set Comm.ActiveConnection = Conn
|
|
RS.CursorType = adOpenStatic
|
|
Set RS.Source = Comm
|
|
|
|
FldArray = Application("fld" & Application("dbCache")(Session("DBSOURCE")))
|
|
|
|
Dim fdict
|
|
Set fdict = CreateObject("Scripting.Dictionary")
|
|
|
|
rem generates list of mandatory fields
|
|
|
|
Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & "> var FldForced = " & chr(34)
|
|
mx = UBound(FldArray,2)
|
|
for i = 0 to mx
|
|
if FldArray(7,i) < 12 and FldArray(8,i) then
|
|
Response.Write "," & FldArray(0,i)
|
|
end if
|
|
fdict.Add FldArray(0,i), i
|
|
next
|
|
Response.Write "," & chr(34) & ";</script>"
|
|
|
|
rem check for links ( related bugs, file attachments ) associated with this bug
|
|
|
|
Dim LinkType(10)
|
|
|
|
mx = UBound(LinkType)
|
|
for i = 0 to mx
|
|
LinkType(i) = "loff"
|
|
next
|
|
|
|
if BugID<>"CREATE" then
|
|
Comm.CommandText = "Select Type from links where BugID=" & BugID
|
|
RS.Open
|
|
if NOT RS.EOF then
|
|
FldLinks = RS.GetRows()
|
|
mx = UBound(FldLinks,2)
|
|
mxc = UBound(LinkType)
|
|
for i = 0 to mx
|
|
if FldLinks(0,i) < mxc then
|
|
LinkType( FldLinks(0,i) ) = "lon"
|
|
end if
|
|
next
|
|
end if
|
|
RS.Close
|
|
end if
|
|
|
|
coln = Array("Status","Opened","Resolved","Closed","Project")
|
|
colh = Array(200,200,200,200,200)
|
|
ColNb = Array(8,9,6,4,16)
|
|
ColTot = ColNb(0)+ColNb(1)+ColNb(2)+ColNb(3)+ColNb(4)
|
|
|
|
fname = "Status,AssignedTo,IssueType,Severity,Priority,Accessibility,ChangedDate,ChangedBy,"
|
|
fname = fname & "OpenedDate,OpenedBy,OpenedRev,Source,SourceID,BetaID,HowFound,Lang,LangSup,"
|
|
fname = fname & "ResolvedDate,ResolvedBy,Resolution,FixedRev,Cause,CodeChange,"
|
|
fname = fname & "ClosedDate,ClosedBy,KBArticle,SR,"
|
|
fname = fname & "Component,SubComp,Owner,Processor,NumCPU,Software,Urgency,Regression,ShowStop,SubStatus,CustPri,TrackingNumber,VendorNm,CCList,IsPerf,Class,Title,Description"
|
|
if BugID <> "CREATE" then
|
|
Comm.CommandText = "Select " & fname & " from bugs where BugID=" & BugID
|
|
fname = fname & ","
|
|
Set RS.Source = Comm
|
|
RS.CursorType = adOpenStatic
|
|
RS.Open
|
|
dTitle = RS(ColTot)
|
|
Desc = Rs(ColTot+1)
|
|
fCreate = FALSE
|
|
else
|
|
fname = fname & ","
|
|
dTitle = ""
|
|
Desc = ""
|
|
fCreate = TRUE
|
|
end if
|
|
Response.Write "<body bgcolor=#c0c0c0>"
|
|
Response.Write "<form id=" & chr(34) & "bug" & chr(34) & " method=POST action=" & chr(34) & "/scripts/raid/upd.asp" & chr(34) & ">"
|
|
st = "position:absolute; left:10; top:0"
|
|
Response.Write "<div style=" & chr(34) & st & chr(34) & ">"
|
|
if fCreate then
|
|
Response.Write "<input class= " & chr(34) & "titlenab" & chr(34)
|
|
else
|
|
Response.Write "<input class= " & chr(34) & "titl" & chr(34) & " disabled"
|
|
end if
|
|
Response.Write " id=" & chr(34) & "Title" & chr(34) & " name=" & chr(34) & "Title" & chr(34) & " size=80 value=" & chr(34) & dTitle & chr(34) & "></input>"
|
|
Response.Write "<input type=hidden name=" & chr(34) & "action" & chr(34) & " id=" & chr(34) & "action" & chr(34) & "></input>"
|
|
Response.Write "<input type=hidden name=" & chr(34) & "bugid" & chr(34) & " id=" & chr(34) & "bugid" & chr(34) & " value=" & chr(34) & BugID & chr(34) &"></input>"
|
|
Response.Write "</div>"
|
|
|
|
rem iterates through columns, access RAID once for each column because
|
|
rem ADO can't handle all the fields in RAID at once.
|
|
|
|
wi=154
|
|
mxc = UBound(ColNb)
|
|
ibase = 1
|
|
fbase = 0
|
|
for c = 0 to mxc
|
|
|
|
fSt = TRUE
|
|
|
|
for ff = 1 to colNb(c)
|
|
|
|
inext = instr(ibase,fname,",")
|
|
|
|
i = fdict.Item(mid(fname,ibase,inext-ibase))
|
|
|
|
if true then
|
|
if fSt then
|
|
rem position fieldset
|
|
st = "position:absolute; left:" & FldArray(2,i)*1.12-4 & "; top:" & FldArray(3,i)*2.4-24 & ";width:" & wi
|
|
Response.Write "<fieldset style=" & chr(34) & st & chr(34) & ">"
|
|
Response.Write "<legend>" & coln(c) & "</legend><table width=20 cellpading=0 cellspacing=0 nowrap>"
|
|
fSt = FALSE
|
|
end if
|
|
|
|
rem check if field validation function necessary
|
|
|
|
if FldArray(0,i) = "Status" then
|
|
fn = " onkeypress=" & chr(34) & "return false;" & chr(34)
|
|
ElseIf FldArray(7,i) = 2 then
|
|
rem numeric fields
|
|
fn = " onkeypress=" & chr(34) & "return ckdigit();" & chr(34)
|
|
ElseIf FldArray(7,i) = 9 then
|
|
rem Rev fields
|
|
fn = " onkeypress=" & chr(34) & "return ckdotdigit();" & chr(34)
|
|
else
|
|
fn = ""
|
|
end if
|
|
|
|
rem associate title to each field name
|
|
rem all fields are initialy disabled
|
|
|
|
if instr(1,FldArray(6,i),chr(34)) then
|
|
rem Response.Write "<tr><td>" & FldArray(6,i) & "</td>"
|
|
Response.Write "<tr><td width=95 nowrap" & ">" & FldArray(1,i) & ":</td>"
|
|
else
|
|
Response.Write "<tr><td title=" & chr(34) & FldArray(6,i) & chr(34) & " width=95 nowrap" & ">" & FldArray(1,i) & ":</td>"
|
|
end if
|
|
|
|
rem display current value
|
|
|
|
Response.Write "<td><input " & fn & " type=text name=" & chr(34) & FldArray(0,i) & chr(34) & " id=" & chr(34) & FldArray(0,i) & chr(34) & " value=" & chr(34)
|
|
if fCreate then
|
|
if FldArray(0,i) = "OpenedRev" then
|
|
Response.Write Application("cnfg" & Application("dbCache")(Session("DBSOURCE")))(1,0) & "0000"
|
|
end if
|
|
Response.Write chr(34) & "disabled class=" & chr(34) & "inp" & chr(34)
|
|
else
|
|
Response.Write RS(fbase) & chr(34) & " disabled class=" & chr(34) & "inp" & chr(34)
|
|
end if
|
|
Response.Write "></input></td></tr>"
|
|
|
|
end if
|
|
|
|
ibase = inext + 1
|
|
fbase = fbase + 1
|
|
|
|
next
|
|
|
|
Response.Write "</table></fieldset>"
|
|
|
|
next
|
|
|
|
if NOT fCreate then
|
|
Rs.Close
|
|
end if
|
|
%>
|
|
|
|
<div style="position:absolute; top:360">
|
|
<button onclick="bactivate()" title="Activate"><img width=16 height=15 src="doact.gif"></button>
|
|
<button onclick="bresolve()" title="Resolve"><img width=16 height=15 src="dores.gif"></button>
|
|
<button onclick="bclose()" title="Close"><img width=16 height=15 src="doclo.gif"></button>
|
|
<button onclick="bassign()" title="Assign"><img width=16 height=15 src="doass.gif"></button>
|
|
|
|
<button id="upd" onclick="doupd()" title="Save bug" disabled><img width=16 height=15 src="doupd.gif"></button>
|
|
|
|
<table style="position:relative; top:-25; left:140"><tbody>
|
|
<tr>
|
|
<td><b>Links:</b></td>
|
|
<td><button onclick="dolink(6)" title="Dependent bug links"><img src="l1.gif"></button></td>
|
|
<td><button onclick="dolink(0)" title="Duplicate bug links"><img src="l2.gif"></button></td>
|
|
<td><button onclick="dolink(1)" title="Related bug links"><img src="l3.gif"></button></td>
|
|
<td><button onclick="dolink(3)" title="Attached files"><img src="l4.gif"></button></td>
|
|
<td><button onclick="dolink(4)" title="Linked files"><img src="l5.gif"></button></td>
|
|
</tr>
|
|
<tr align=center>
|
|
<td></td>
|
|
<td><img src="<%=LinkType(6)%>.gif"></td>
|
|
<td><img src="<%=LinkType(0)%>.gif"></td>
|
|
<td><img src="<%=LinkType(1)%>.gif"></td>
|
|
<td><img src="<%=LinkType(3)%>.gif"></td>
|
|
<td><img src="<%=LinkType(4)%>.gif"></td>
|
|
</tr>
|
|
</tbody></table>
|
|
</div>
|
|
|
|
<div style="position:absolute; top:395">
|
|
<%
|
|
rem textarea for existing bug description
|
|
rem we want to prevent modifications to this filed can't disable it
|
|
rem because this would also disable scroll bar - we just prevent keypress events
|
|
|
|
if fCreate then
|
|
Response.Write "<textarea rows=12"
|
|
else
|
|
Response.Write "<textarea cols=90 rows=12 onkeypress=" & chr(34) & "return false;" & chr(34) & ">"
|
|
Response.Write Desc
|
|
Response.Write "</textarea>"
|
|
Response.Write "<textarea rows=4 class=" & chr(34) & "unvis" & chr(34)
|
|
end if
|
|
%>
|
|
name="desc" id="desc" cols=90>
|
|
</textarea>
|
|
<script FOR=window EVENT=onload() language="JavaScript">
|
|
<%
|
|
if fCreate then
|
|
Response.Write "bchange(',IssueType,Severity,Priority,OpenedRev,Source,SourceID,HowFound,Lang,LangSup,Accessibility,BetaID,SR,Component,SubComp,Owner,Processor,NumCPU,Software,Urgency,Regression,SubStatus,CustPri,TrackingNumber,VendorNM,CCList,IsPerf,Class,ShowStop,VendorNm,');"
|
|
Response.Write "bsetf( 'Active', 'Opened', 'OpenedDate', 'OpenedBy', '" & AuthUser & "' );"
|
|
end if
|
|
%>
|
|
</script>
|
|
</form>
|
|
</body>
|
|
</html>
|