[Bps-public-commit] rt-extension-repeatticket branch, master, updated. 95e77b15b02badc2f7987d50cf9a4f7cbeb0aa36

[Alex Vandiver]

The branch, master has been updated
       via  95e77b15b02badc2f7987d50cf9a4f7cbeb0aa36 (commit)
      from  b4825c2f1b4966b6a618df1fda271c62e908aa5d (commit)

Summary of changes:
 lib/RT/Extension/RepeatTicket.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 95e77b15b02badc2f7987d50cf9a4f7cbeb0aa36
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Dec 11 13:56:09 2013 -0500

    RT 4.2 changed the format of links passed to ->Create; provide both 4.0 and 4.2 formats

diff --git a/lib/RT/Extension/RepeatTicket.pm b/lib/RT/Extension/RepeatTicket.pm
index 14244b5..7a46515 100644
--- a/lib/RT/Extension/RepeatTicket.pm
+++ b/lib/RT/Extension/RepeatTicket.pm
@@ -512,14 +512,14 @@ sub _RepeatTicket {
         my $refer_value = $get_link_value->( $refer, 'Target' );
         push @refers, $refer_value if defined $refer_value;
     }
-    $repeat->{'new-RefersTo'} = join ' ', @refers;
+    $repeat->{RefersTo} = $repeat->{'new-RefersTo'} = join ' ', @refers;
 
     my $refers_by = $repeat_ticket->ReferredToBy;
     while ( my $refer_by = $refers_by->Next ) {
         my $refer_by_value = $get_link_value->( $refer_by, 'Base' );
         push @refers_by, $refer_by_value if defined $refer_by_value;
     }
-    $repeat->{'RefersTo-new'} = join ' ', @refers_by;
+    $repeat->{ReferredToBy} = $repeat->{'RefersTo-new'} = join ' ', @refers_by;
 
     my $cfs = $repeat_ticket->QueueObj->TicketCustomFields();
     while ( my $cf = $cfs->Next ) {

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