Template modification

Following is the current situation:

Wed Jan 16 08:31:41 2013: Request 124 was acted upon.

Transaction : Given to y by o

Queue : Test

Owner : y

Requestors : abc@abc.com

Status : new

Ticket URL : http://domain.com/Ticket/Display.html?id=81134

Type:

Summary:

ResolvedMethodBy:

Category:

Response Time (Minutes):

SLA : platinum

Overdue:

Client Response:

DN:

Problem Status:

Rework:

Severity:

This transaction appears to have no content

RT-Attach-Message: yes

{$Transaction->CreatedAsString}: Request {$Ticket->id} was acted upon.

Transaction : {$Transaction->Description}
Queue : {$Ticket->QueueObj->Name}
Owner : {$Ticket->OwnerObj->Name}
Requestors : {$Ticket->RequestorAddresses}
Status : {$Ticket->Status}
Ticket URL : {$RT::WebURL}Ticket/Display.html?id={$Ticket->id}
{
my $CustomFields = $Ticket->QueueObj->TicketCustomFields();
while (my $CustomField = $CustomFields->Next()) {
my $CustomFieldValues=$Ticket->CustomFieldValues($CustomField->Id);
$OUT .= " " . $CustomField->Name;
if ($CustomFieldValues->Count) {
my $spacer;
if ( $CustomField->Type ne ‘FreeformMultiple’ and
$CustomField->Type ne ‘SelectMultiple’ ) {
$spacer = " " x (12 - length($CustomField->Name));
} else {
$spacer = “\n”;
}
$OUT .= $spacer . ": ";
} else {
$OUT .= “: \n”;
next;
}
while (my $CustomFieldValue = $CustomFieldValues->Next) {
$OUT .= " " if ( $CustomField->Type eq ‘FreeformMultiple’ or
$CustomField->Type eq ‘SelectMultiple’ );
$OUT .= $CustomFieldValue->Content . “\n”;
}
$OUT .= “\n” if ( $CustomField->Type eq ‘FreeformMultiple’ or
$CustomField->Type eq ‘SelectMultiple’ );
}
$OUT;
}

{$Transaction->Content()}

How could I cut off all other field down to this?

Transaction : Given to y by o
Queue : Principle One Asia
Owner : y
Summary:
Ticket URL : http://domain.com/Ticket/Display.html?id=81476