[Rt-commit] rt branch, 4.2/prune-dead-cloning-code, created. rt-4.1.6-137-g6e1ba16

[Thomas Sibley]

The branch, 4.2/prune-dead-cloning-code has been created
        at  6e1ba16f6b0c894978f76bc9a6a13d7d0f78ae42 (commit)

- Log -----------------------------------------------------------------
commit 6e1ba16f6b0c894978f76bc9a6a13d7d0f78ae42
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Fri Jan 25 11:03:38 2013 -0800

    Remove dead code that should have been removed in e871d3b

diff --git a/share/html/Ticket/Create.html b/share/html/Ticket/Create.html
index e819938..1c78de4 100644
--- a/share/html/Ticket/Create.html
+++ b/share/html/Ticket/Create.html
@@ -315,9 +315,6 @@ if ($CloneTicket) {
         for grep { $CloneTicketObj->$_->Unix }
         map      { $_ . "Obj" } qw/Starts Started Due Resolved/;
 
-    my $members = $CloneTicketObj->Members;
-    my ( @members, @members_of, @refers, @refers_by, @depends, @depends_by );
-    my $refers = $CloneTicketObj->RefersTo;
     my $get_link_value = sub {
         my ($link, $type) = @_;
         my $uri_method = $type . 'URI';
@@ -330,6 +327,8 @@ if ($CloneTicket) {
 
         return $link->$local_method || $uri->URI;
     };
+    my (@refers, @refers_by);
+    my $refers = $CloneTicketObj->RefersTo;
     while ( my $refer = $refers->Next ) {
         my $refer_value = $get_link_value->($refer, 'Target');
         push @refers, $refer_value if defined $refer_value;

-----------------------------------------------------------------------