From 2e4e8698f87145469e45afe37bc30307dafc2cf0 Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Wed, 16 Sep 1998 22:08:06 +0000 Subject: Get rid of .tcl files; we're a perl app now. --- bug_form.tcl | 221 ----------------------------------------------------------- 1 file changed, 221 deletions(-) delete mode 100755 bug_form.tcl (limited to 'bug_form.tcl') diff --git a/bug_form.tcl b/bug_form.tcl deleted file mode 100755 index 8423f99e8..000000000 --- a/bug_form.tcl +++ /dev/null @@ -1,221 +0,0 @@ -# -*- 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
-

-

-
-
Description: Opened: $bug(creation_ts)

-

-
-[html_quote $bug(long_desc)]
-

-
"
-
-# To add back option of editing the long description, insert after the above
-# long_list.cgi line:
-#  Edit Long Description
-
-
-
-navigation_header
-
-puts ""
-flush stdout
-- 
cgit v1.2.1