From 02acf13d487d504fbbc1ba3beca21a85a5bbc89a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 12 Jun 2008 20:23:18 +0000
Subject: [PATCH] revert back to key scanning until there is a better way to
 get column names from the db

---
 lib/WebGUI/VersionTag.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/VersionTag.pm b/lib/WebGUI/VersionTag.pm
index c6f1e6357..4b515d912 100644
--- a/lib/WebGUI/VersionTag.pm
+++ b/lib/WebGUI/VersionTag.pm
@@ -511,7 +511,7 @@ sub set {
     #This is necessary for upgrade prior to 7.5.11 in order to ensure that this field exists.
     #The if() blocks should be removd once the next branch point is reached.
     my $assetVersionTagDesc = $self->session->db->buildHashRef('describe assetVersionTag');
-    if(exists $assetVersionTagDesc->{startTime}) {
+    if(grep { $_ =~ /^startTime/ } keys %{$assetVersionTagDesc}) {
         #If startTime is there, so is endTime.  No need for the additional check.
         $self->{_data}{'startTime' } = $properties->{startTime} || $self->{_data}{startTime} || $startTime;
         $self->{_data}{'endTime'   } = $properties->{endTime} || $self->{_data}{endTime} || $endTime;