Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix some simple bugs that were breaking in testing

  • Loading branch information...
commit 825479e62f4a838323c59faa6c4acaa196d11eed 1 parent 0c55831
Kevin Falcone authored
Showing with 4 additions and 7 deletions.
  1. +1 −1  lib/RTx/Converter/RT1.pm
  2. +3 −6 lib/RTx/Converter/RT3.pm
View
2  lib/RTx/Converter/RT1.pm
@@ -333,7 +333,7 @@ sub get_transactions {
if ($transaction->{actor} && $transaction->{actor} !~ /\@/) {
$transaction->{actor} .= $self->config->email_domain;
}
- push @$transaction,$transaction;
+ push @$transactions,$transaction;
}
return $transactions;
}
View
9 lib/RTx/Converter/RT3.pm
@@ -335,9 +335,6 @@ sub create_ticket {
$ticket->__Set( Field => 'Told', Value => $args{Told} );
}
- $ticket = $self->create_transactions( Ticket => $ticket,
- Transactions => $args{Transactions} );
-
return $ticket;
}
@@ -577,7 +574,7 @@ sub _find_transaction_file {
$file .= $args{Filename};
$file =~ s/ //;
- print "Testing $file" if $self->config->debug;
+ print "\nTesting $file" if $self->config->debug;
if (-e $file) {
return $file
} else {
@@ -599,9 +596,9 @@ won't choke on.
sub _process_transaction_file {
my $self = shift;
my %args = @_;
- my $trans_file = $args{Path};
+ my $trans_file = $args{File};
- print "processing file $trans_file\n" if $self->config->debug;
+ print "\nprocessing file $trans_file" if $self->config->debug;
open(FILE,"<$trans_file") or die $!;
Please sign in to comment.
Something went wrong with that request. Please try again.