assign.login_name,
report.login_name,
bugs.component,
- bugs.target_fix_version,
bugs.bug_file_loc,
bugs.short_desc
from bugs,profiles assign,profiles report
puts "<TD><B>Assigned To:</B> [lindex $result 9]"
puts "<TD><B>Reported By:</B> [lindex $result 10]"
puts "<TR><TD><B>Component:</B> [lindex $result 11]"
- puts "<TD><B>Target Fix Version:</B> [lindex $result 12]"
- puts "<TR><TD COLSPAN=6><B>URL:</B> [html_quote [lindex $result 13]]"
- puts "<TR><TD COLSPAN=6><B>Summary :</B> [html_quote [lindex $result 14]]"
+ puts "<TR><TD COLSPAN=6><B>URL:</B> [html_quote [lindex $result 12]]"
+ puts "<TR><TD COLSPAN=6><B>Summary :</B> [html_quote [lindex $result 13]]"
puts "<TR><TD><B>Description :</B>\n</TABLE>"
puts "<PRE>[html_quote [GetLongDescription $bug]]</PRE>"
puts "<HR>"
return "Cc: [join $cclist ", "]\n"
}
-proc DescFixVersion {v} {
- if {[cequal $v ""]} return ""
- return "Fix-Version: $v\n"
-}
-
proc GetBugText {id} {
global bug
assigned_to,
reporter,
bug_file_loc,
- target_fix_version,
short_desc,
component
from bugs
set count 0
foreach field { bug_id product version rep_platform op_sys bug_status
resolution priority bug_severity area assigned_to
- reporter bug_file_loc target_fix_version short_desc
+ reporter bug_file_loc short_desc
component } {
set bug($field) [lindex $ret $count]
incr count
AssignedTo: $bug(assigned_to)
ReportedBy: $bug(reporter)
URL: $bug(bug_file_loc)
-[DescCC $bug(cclist)][DescFixVersion $bug(target_fix_version)]Summary: $bug(short_desc)
+[DescCC $bug(cclist)]Summary: $bug(short_desc)
$bug(long_desc)"