# -*- Mode: tcl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public License # Version 1.0 (the "License"); you may not use this file except in # compliance with the License. You may obtain a copy of the License at # http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the # License for the specific language governing rights and limitations # under the License. # # The Original Code is the Bugzilla Bug Tracking System. # # The Initial Developer of the Original Code is Netscape Communications # Corporation. Portions created by Netscape are Copyright (C) 1998 # Netscape Communications Corporation. All Rights Reserved. # # Contributor(s): Terry Weissman set query " select bug_id, product, version, rep_platform, op_sys, bug_status, resolution, priority, bug_severity, component, assigned_to, reporter, bug_file_loc, short_desc, date_format(creation_ts,'Y-m-d') from bugs where bug_id = $FORM(id)"; SendSQL $query set ret [FetchSQLData] if {$ret != ""} { set count 0 foreach field { bug_id product version rep_platform op_sys bug_status resolution priority bug_severity component assigned_to reporter bug_file_loc short_desc creation_ts} { if { [regexp {^\{(.*)\}$} [lindex $ret $count] junk bug($field)] == 0 } { set bug($field) [lindex $ret $count] } incr count } set error "none" } else { puts "Bug Splat Error" puts "

Query Error

Somehow something went wrong. Possibly if you" puts "mail this page to $maintainer, he will be able to fix things.
" puts "Bug $FORM(id) not found

Query Text

$query
"
    exit 0
}

set bug(assigned_to) [DBID_to_name $bug(assigned_to)]
set bug(reporter) [DBID_to_name $bug(reporter)]
set bug(long_desc) [GetLongDescription $FORM(id)]


GetVersionTable

#
# These should be read from the database ...
#
set resolution_popup [make_options $legal_resolution_no_dup $bug(resolution)]
set platform_popup [make_options $legal_platform $bug(rep_platform)]
set priority_popup [make_options $legal_priority $bug(priority)]
set sev_popup [make_options $legal_severity $bug(bug_severity)]


set component_popup [make_options $components($bug(product)) $bug(component)]

set cc_element ""


if {$bug(bug_file_loc) != "none" && $bug(bug_file_loc) != "NULL" && $bug(bug_file_loc) != ""} {
  set URL "URL:"
} else {
  set URL "URL:"
}

puts "
Bug $FORM(id) -- [html_quote $bug(short_desc)]




  

    Bug#:$bug(bug_id)
    Platform:
    
    Version:
    
  

    Product:
    
    OS:$bug(op_sys)
    Reporter:$bug(reporter)
  

    Status:
      $bug(bug_status)
    Priority:
      
    Cc:
       $cc_element 
  

    Resolution:
      $bug(resolution)
    Severity:
      
    Component:
      
  

    Assigned To:
        
      $bug(assigned_to)
  

    $URL
    
      
  

    Summary:
    
      
  





Additional Comments:







        Leave as $bug(bug_status) $bug(resolution)
"

# knum is which knob number we're generating, in javascript terms.

set knum 1

if {[cequal $bug(bug_status) NEW] || [cequal $bug(bug_status) ASSIGNED] || \
        [cequal $bug(bug_status) REOPENED]} {
    if {![cequal $bug(bug_status) ASSIGNED]} {
        puts "
            Accept bug (change status to ASSIGNED)
"
        incr knum
    }
    if {[clength $bug(resolution)] > 0} {
        puts ""
        puts "Clear the resolution (remove the current resolution of"
        puts "$bug(resolution))
"
        incr knum
    }
    puts "
        Resolve bug, changing resolution to
        
"
    incr knum
    puts "
        Resolve bug, mark it as duplicate of bug # 
        
"
    incr knum
    set assign_element ""

    puts " 
          Reassign bug to
          $assign_element
        
"
    incr knum
    puts "
          Reassign bug to owner of selected component
"
    incr knum
} else {
    puts " Reopen bug
"
    incr knum
    if {[cequal $bug(bug_status) RESOLVED]} {
        puts "
        Mark bug as VERIFIED
"
        incr knum
    }
    if {![cequal $bug(bug_status) CLOSED]} {
        puts "
        Mark bug as CLOSED
"
        incr knum
    }
}
 
puts "






 View Bug Activity
 Format For Printing
 Edit Long Description





Description: 
Opened: $bug(creation_ts)




[html_quote $bug(long_desc)]



"

navigation_header

puts ""
flush stdout