From b5e1b3f1e725062345edcacd9657da7b8f85874d Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Thu, 10 Mar 2005 16:07:34 +0000
Subject: Bug 285403: LearnAboutColumns does not work on PostgreSQL Patch By
 Max Kanat-Alexander <mkanat@kerio.com> r=Tomas.Kopal, a=justdave

---
 globals.pl | 25 +++----------------------
 1 file changed, 3 insertions(+), 22 deletions(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 53119c034..13542dcac 100644
--- a/globals.pl
+++ b/globals.pl
@@ -148,6 +148,8 @@ sub GetFieldID {
 
 # XXXX - this needs to go away
 sub GenerateVersionTable {
+    my $dbh = Bugzilla->dbh;
+
     SendSQL("SELECT versions.value, products.name " .
             "FROM versions, products " .
             "WHERE products.id = versions.product_id " .
@@ -217,9 +219,8 @@ sub GenerateVersionTable {
         $::prodmaxvotes{$p} = $votesperuser;
     }
             
-    my $cols = LearnAboutColumns("bugs");
+    @::log_columns = $dbh->bz_table_columns('bugs');
     
-    @::log_columns = @{$cols->{"-list-"}};
     foreach my $i ("bug_id", "creation_ts", "delta_ts", "lastdiffed") {
         my $w = lsearch(\@::log_columns, $i);
         if ($w >= 0) {
@@ -982,26 +983,6 @@ sub GetLongDescriptionAsText {
     return ($result, $anyprivate);
 }
 
-# Fills in a hashtable with info about the columns for the given table in the
-# database.  The hashtable has the following entries:
-#   -list-  the list of column names
-#   <name>,type  the type for the given name
-
-sub LearnAboutColumns {
-    my ($table) = (@_);
-    my %a;
-    SendSQL("show columns from $table");
-    my @list = ();
-    my @row;
-    while (@row = FetchSQLData()) {
-        my ($name,$type) = (@row);
-        $a{"$name,type"} = $type;
-        push @list, $name;
-    }
-    $a{"-list-"} = \@list;
-    return \%a;
-}
-
 # Returns a list of all the legal values for a field that has a
 # list of legal values, like rep_platform or resolution.
 sub get_legal_field_values {
-- 
cgit v1.2.3-24-g4f1b