[Rt-commit] r6193 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Oct 12 14:39:05 2006
New Revision: 6193

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

Log:
 r3940 at cubic-pc:  cubic | 2006-10-12 22:49:44 +0400
 * /^Ticket-(\d+-.*)*/ matches any key starting with Ticket-
   which is not what we want


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	Thu Oct 12 14:39:05 2006
@@ -1103,7 +1103,7 @@
     # Build up a list of objects that we want to work with
     my %custom_fields_to_mod;
     foreach my $arg ( keys %$ARGSRef ) {
-        if ( $arg =~ /^Ticket-(\d+-.*)*/) {
+        if ( $arg =~ /^Ticket-(\d+-.*)/) {
             $ARGSRef->{"Object-RT::Ticket-$1"} = delete $ARGSRef->{$arg};
         }
         elsif ( $arg =~ /^CustomField-(\d+-.*)/) {