AddAttachmentLinksToMail - Revision history

Phanousk at 11:10, 4 March 2019

2019-03-04T11:10:43Z

← Older revision		Revision as of 07:10, 4 March 2019
Line 3:		Line 3:
	<source lang="perl"><pre>		<source lang="perl"><pre>
	{ my $res;		{ my $res;
	my $Attachments = $Transaction-~~>~~Attachments;		my $Attachments = $Transaction->Attachments;
	$Attachments-~~>~~Limit( FIELD =~~>~~ 'Filename', OPERATOR =~~>~~ '!=', VALUE =~~>~~ '' );		$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
	while (my $a = $Attachments-~~>~~Next) {		while (my $a = $Attachments->Next) {
	$res .= "New attachments:\n" unless ($res);		$res .= "New attachments:\n" unless ($res);
	$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a-~~>~~TransactionId ."/". $a-~~>~~id ."/". $a-~~>~~Filename;		$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
	}		}
	#Workaround to prevent possible commit death		#Workaround to prevent possible commit death
	delete($Transaction-~~>~~{attachments});		delete($Transaction->{attachments});
	$res;		$res;
	}		}
Line 20:		Line 20:
	<source lang="perl"><pre>		<source lang="perl"><pre>
	{ my $res;		{ my $res;
	my $Attachments = $Transaction-~~>~~Attachments;		my $Attachments = $Transaction->Attachments;
	$Attachments-~~>~~Limit( FIELD =~~>~~ 'Filename', OPERATOR =~~>~~ '!=', VALUE =~~>~~ '' );		$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
	while (my $a = $Attachments-~~>~~Next) {		while (my $a = $Attachments->Next) {
	$res .= $RT::WebURL ."/Ticket/Attachment/". $a-~~>~~TransactionId ."/". $a-~~>~~id ."/". $a-~~>~~Filename;		$res .= $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
	$res .= "\n ";		$res .= "\n ";
	}		}
	#Workaround to prevent possible commit death		#Workaround to prevent possible commit death
	delete($Transaction-~~>~~{attachments});		delete($Transaction->{attachments});
	$res = length($res) ? ' Attachments: ' . $res : '';		$res = length($res) ? ' Attachments: ' . $res : '';
	}		}
Line 37:		Line 37:
	<source lang="perl"><pre>		<source lang="perl"><pre>
	{ my $res;		{ my $res;
	my $Attachments = RT::Attachments-~~>~~new( $Transaction-~~>~~CurrentUser );		my $Attachments = RT::Attachments->new( $Transaction->CurrentUser );
	$Attachments-~~>~~Columns( qw(id TransactionId Filename ContentType Created));		$Attachments->Columns( qw(id TransactionId Filename ContentType Created));
	my $transactions = $Attachments-~~>~~NewAlias('Transactions');		my $transactions = $Attachments->NewAlias('Transactions');
	$Attachments-~~>~~Join(		$Attachments->Join(
	ALIAS1 =~~>~~ 'main',		ALIAS1 => 'main',
	FIELD1 =~~>~~ 'TransactionId',		FIELD1 => 'TransactionId',
	ALIAS2 =~~>~~ $transactions,		ALIAS2 => $transactions,
	FIELD2 =~~>~~ 'id'		FIELD2 => 'id'
	);		);
	my $tickets = $Attachments-~~>~~NewAlias('Tickets');		my $tickets = $Attachments->NewAlias('Tickets');
	$Attachments-~~>~~Join(		$Attachments->Join(
	ALIAS1 =~~>~~ $transactions,		ALIAS1 => $transactions,
	FIELD1 =~~>~~ 'ObjectId',		FIELD1 => 'ObjectId',
	ALIAS2 =~~>~~ $tickets,		ALIAS2 => $tickets,
	FIELD2 =~~>~~ 'id'		FIELD2 => 'id'
	);		);
	$Attachments-~~>~~Limit(		$Attachments->Limit(
	ALIAS =~~>~~ $transactions,		ALIAS => $transactions,
	FIELD =~~>~~ 'ObjectType',		FIELD => 'ObjectType',
	VALUE =~~>~~ 'RT::Ticket'		VALUE => 'RT::Ticket'
	);		);
	$Attachments-~~>~~Limit(		$Attachments->Limit(
	ALIAS =~~>~~ $tickets,		ALIAS => $tickets,
	FIELD =~~>~~ 'EffectiveId',		FIELD => 'EffectiveId',
	VALUE =~~>~~ $Ticket-~~>~~id		VALUE => $Ticket->id
	);		);
	$Attachments-~~>~~Limit( FIELD =~~>~~ 'Filename', OPERATOR =~~>~~ '!=', VALUE =~~>~~ '' );		$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
	while (my $a = $Attachments-~~>~~Next) {		while (my $a = $Attachments->Next) {
	$res .= "Ticket's attachments:\n" unless ($res);		$res .= "Ticket's attachments:\n" unless ($res);
	$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a-~~>~~TransactionId ."/". $a-~~>~~id ."/". $a-~~>~~Filename;		$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
	}		}
	$res;		$res;
	}		}
	</pre></source>		</pre></source>

Phanousk at 11:09, 4 March 2019

2019-03-04T11:09:33Z

← Older revision		Revision as of 07:09, 4 March 2019
Line 1:		Line 1:
	This code adds list of links to files which was attached to the transaction template runs on, this mean only attachments that was attached to the current transaction, Add code into [[Template]].		This code adds list of links to files which was attached to the transaction template runs on, this mean only attachments that was attached to the current transaction, Add code into [[Template]].

	<~~nowiki~~>{ my $res;		<source lang="perl"><pre>
			{ my $res;
	my $Attachments = $Transaction->Attachments;		my $Attachments = $Transaction->Attachments;
	$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );		$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
Line 13:		Line 14:
	}		}

	</~~nowiki~~>		</pre></source>

	Or for a more verbose version to match the other headers (Jerrad):		Or for a more verbose version to match the other headers (Jerrad):

	<~~nowiki~~>{ my $res;		<source lang="perl"><pre>
			{ my $res;
	my $Attachments = $Transaction->Attachments;		my $Attachments = $Transaction->Attachments;
	$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );		$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
Line 29:		Line 31:
	}		}

	</~~nowiki~~>		</pre></source>

	To add links to all ticket's attachments use next [[Template]] snippet (works '''only with RT-3.4''' and greater):		To add links to all ticket's attachments use next [[Template]] snippet (works '''only with RT-3.4''' and greater):

	<~~nowiki~~>{ my $res;		<source lang="perl"><pre>
			{ my $res;
	my $Attachments = RT::Attachments->new( $Transaction->CurrentUser );		my $Attachments = RT::Attachments->new( $Transaction->CurrentUser );
	$Attachments->Columns( qw(id TransactionId Filename ContentType Created));		$Attachments->Columns( qw(id TransactionId Filename ContentType Created));
Line 67:		Line 70:
	$res;		$res;
	}		}
	</~~nowiki~~>		</pre></source>

Admin: 2 revisions imported

2016-04-06T20:03:11Z

2 revisions imported

New page

This code adds list of links to files which was attached to the transaction template runs on, this mean only attachments that was attached to the current transaction, Add code into [[Template]].

<nowiki>{ my $res;
my $Attachments = $Transaction->Attachments;
$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
while (my $a = $Attachments->Next) {
$res .= "New attachments:\n" unless ($res);
$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
}
#Workaround to prevent possible commit death
delete($Transaction->{attachments});
$res;
}

</nowiki>

Or for a more verbose version to match the other headers (Jerrad):

<nowiki>{ my $res;
my $Attachments = $Transaction->Attachments;
$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
while (my $a = $Attachments->Next) {
$res .= $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
$res .= "\n ";
}
#Workaround to prevent possible commit death
delete($Transaction->{attachments});
$res = length($res) ? ' Attachments: ' . $res : '';
}

</nowiki>

To add links to all ticket's attachments use next [[Template]] snippet (works '''only with RT-3.4''' and greater):

<nowiki>{ my $res;
my $Attachments = RT::Attachments->new( $Transaction->CurrentUser );
$Attachments->Columns( qw(id TransactionId Filename ContentType Created));
my $transactions = $Attachments->NewAlias('Transactions');
$Attachments->Join(
ALIAS1 => 'main',
FIELD1 => 'TransactionId',
ALIAS2 => $transactions,
FIELD2 => 'id'
);
my $tickets = $Attachments->NewAlias('Tickets');
$Attachments->Join(
ALIAS1 => $transactions,
FIELD1 => 'ObjectId',
ALIAS2 => $tickets,
FIELD2 => 'id'
);
$Attachments->Limit(
ALIAS => $transactions,
FIELD => 'ObjectType',
VALUE => 'RT::Ticket'
);
$Attachments->Limit(
ALIAS => $tickets,
FIELD => 'EffectiveId',
VALUE => $Ticket->id
);
$Attachments->Limit( FIELD => 'Filename', OPERATOR => '!=', VALUE => '' );
while (my $a = $Attachments->Next) {
$res .= "Ticket's attachments:\n" unless ($res);
$res .= " ". $RT::WebURL ."/Ticket/Attachment/". $a->TransactionId ."/". $a->id ."/". $a->Filename;
}
$res;
}
</nowiki>