[Rt-commit] r9380 - rt/branches/3.6-RELEASE/html/Ticket

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Oct 20 03:06:24 2007
New Revision: 9380

Modified:
   rt/branches/3.6-RELEASE/html/Ticket/Create.html

Log:
don't overwrite %ARGS; don't add cloned ticket to parents by default

Modified: rt/branches/3.6-RELEASE/html/Ticket/Create.html
==============================================================================
--- rt/branches/3.6-RELEASE/html/Ticket/Create.html	(original)
+++ rt/branches/3.6-RELEASE/html/Ticket/Create.html	Sat Oct 20 03:06:24 2007
@@ -267,7 +267,7 @@
         while ( my $member_of = $members_of->Next ) {
             push @members_of, $member_of->LocalTarget;
         }
-        $clone->{'new-MemberOf'} = join ' ', @members_of, $CloneTicketObj->id;
+        $clone->{'new-MemberOf'} = join ' ', @members_of;
         
         my $refers = $CloneTicketObj->RefersTo;
         while ( my $refer = $refers->Next ) {
@@ -308,7 +308,7 @@
     }
     
     for ( keys %$clone ) {
-        $ARGS{$_} = $clone->{$_};
+        $ARGS{$_} = $clone->{$_} if not defined $ARGS{$_};
     }
 
 }