[Rt-commit] [svn] r738 - rt/branches/rt-3.1/lib/RT/Action

[leira at pallas.eruditorum.org]

Author: leira
Date: Mon Apr 26 13:53:13 2004
New Revision: 738

Modified:
   rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm
Log:
Fix problems with the conversion to "Parents/Children" terminology.


Modified: rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm
==============================================================================
--- rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm	(original)
+++ rt/branches/rt-3.1/lib/RT/Action/CreateTickets.pm	Mon Apr 26 13:53:13 2004
@@ -798,8 +798,8 @@
 		      DependedOnBy => $args->{'dependedonby'},
 		      RefersTo	=> $args->{'refersto'},
 		      ReferredToBy => $args->{'referredtoby'},
-		      Members => $args->{'members'},
-		      MemberOf => $args->{'memberof'},
+		      Children => $args->{'children'},
+		      Parents => $args->{'parents'},
 		  }
 		  );
 
@@ -845,14 +845,15 @@
 	$string .= "$type: ";
 
 	my $mode = $LINKTYPEMAP{$type}->{Mode};
+	my $foo = $LINKTYPEMAP{$type}->{Type};
 
 	my $links;
-	while (my $link = $t->$type->Next) {
+	while (my $link = $t->$foo->Next) {
 	    $links .= ", " if $links;
 
 	    my $method = $mode . "Obj";
 	    my $member = $link->$method;
-	    $links .= $member->Id;
+	    $links .= $member->Id if $member;
 	}
 	$string .= $links;
 	$string .= "\n";