[Rt-commit] r9523 - in rt/branches/3.6-EXPERIMENTAL-CATEGORIES: lib/RT/Interface

[falcone at bestpractical.com]

Author: falcone
Date: Wed Oct 31 22:23:25 2007
New Revision: 9523

Modified:
   rt/branches/3.6-EXPERIMENTAL-CATEGORIES/   (props changed)
   rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Interface/Web.pm

Log:
 r26017 at ketch:  falcone | 2007-10-31 11:26:23 -0400
 * clean out some debugging


Modified: rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Interface/Web.pm	Wed Oct 31 22:23:25 2007
@@ -1325,12 +1325,10 @@
             my %values_hash;
             foreach my $value ( @values ) {
                 my $category;
-                $RT::Logger->error("value [$value]");
                 if ($value =~ /Category>>\|<<(.*?)>>\|<<(.*)/) {
                     $category = $1;
                     $value = $2;
                 }
-                $RT::Logger->error("category [$category] value [$value]");
                 # build up a hash of values that the new set has
                 $values_hash{"$category-$value"} = 1;
                 next if $cf_values->HasEntry( $value );
@@ -1345,7 +1343,6 @@
 
             $cf_values->RedoSearch;
             while ( my $cf_value = $cf_values->Next ) {
-                $RT::Logger->error("value hash lookup ". ($cf_value->Category||'') . '-' . $cf_value->Content);
                 next if $values_hash{ ($cf_value->Category||'') . '-' . $cf_value->Content };
 
                 my ( $val, $msg ) = $args{'Object'}->DeleteCustomFieldValue(