Hi Roy, no success, still: RT_System - Comments added :-(
Thanks Torsten Kuehne + Nagel (AG & Co.) KG, Geschaeftsleitung: Hans-Georg Brinkmann (Vors.), Dirk Blesius (Stellv.), Reiner Heiken (Stellv.), Bruno Mang, Alfred Manke, Christian Marnetté (Stellv.), Mark Reinhardt (Stellv.), Jens Wollesen, Rainer Wunn, Sitz: Bremen, Registergericht: Bremen, HRA 21928, USt-IdNr.: DE 812773878, Persoenlich haftende Gesellschaft: Kuehne & Nagel A.G., Sitz: Contern/Luxemburg Geschaeftsfuehrender Verwaltungsrat: Klaus-Michael Kuehne -----Urspruengliche Nachricht----- Von: Raed El-Hames [mailto:r...@vialtus.com] Gesendet: Donnerstag, 24. September 2009 11:59 An: Brumm, Torsten / Kuehne + Nagel / Ham MI-ID Cc: rt-users@lists.bestpractical.com Betreff: Re: [rt-users] Scrip help needed Hi Torsten; Try $related->BaseObj->Comment( Creator => $self->TransactionObj->Creator, Content => $self->loc( "Information added by [_1].", # loc $self->TransactionObj->CreatorObj->Name, ) . "\n" . $self->loc( "Notes: [_1]", # loc $note ), ); Note the Creator line I added. Regards; Roy Brumm, Torsten / Kuehne + Nagel / Ham MI-ID wrote: > Hi, > i'm trying to write a scrip which does the following: > > We have two or more tickets, each ticket has a refersto to another > like this: > > #1 -> refers to #2 > > Now, if someone at ticket #2 writes an update, this update (reply in > our case) should be posted also to ticket #1 > > Till this point it is working fine, now my problem: > > The Update on Ticket #1 is done by RT_System (from the scrip) after > the user in ticket #2 writes an update and i have no idea at the > moment, how can i do the update as the user, doing the reply on ticket > #2 ?!? > > The Part of the source writing back the update: > > $related->BaseObj->Comment( > Content => $self->loc( "Information added by [_1].", # loc > $self->TransactionObj->CreatorObj->Name, > ) . "\n" . $self->loc( "Notes: [_1]", # loc > $note > ), > ); > I'm not sure how can i add the actual actor from Ticket #2 inside this > part of code?!? > > Below is my full source till now: > > my $Clone = $self->TicketObj; > my $note; > my $t = $self->TicketObj->Transactions; $t->Limit( FIELD => 'Type', > VALUE => 'Correspond' ); $t->OrderByCols ( > { FIELD => 'Created', ORDER => 'DESC' }, > { FIELD => 'id', ORDER => 'DESC' }, > ); > my $CommentObj = $t->First; > if( $CommentObj && $CommentObj->id ) { $note = $CommentObj->Content; > }; # Get the actual Actor of this transaction my $Actor = > $self->TransactionObj->Creator; # $Actor has the ID of the actual > Transaction my $temp_user = RT::User->new(); $temp_user->Load($Actor); > my $AName = $temp_user->Name(); # Name of Actor in acutal Transaction > - possibly not needed > > while (my $related = $Clone->ReferredToBy->Next) { > my $original = $Clone->id; > my $relid = $related->BaseObj->id; > $related->BaseObj->Comment( > Content => $self->loc( "Information added by [_1].", # loc > $self->TransactionObj->CreatorObj->Name, > ) . "\n" . $self->loc( "Notes: [_1]", # loc > $note > ), > ); > } > return 1; > > Any help is appriciated. > > Torsten > > Kuehne + Nagel (AG & Co.) KG, Geschaeftsleitung: Hans-Georg Brinkmann > (Vors.), Dirk Blesius (Stellv.), Reiner Heiken (Stellv.), Bruno Mang, > Alfred Manke, Christian Marnetté (Stellv.), Mark Reinhardt (Stellv.), > Jens Wollesen, Rainer Wunn, Sitz: Bremen, Registergericht: Bremen, HRA > 21928, USt-IdNr.: DE 812773878, Persoenlich haftende Gesellschaft: > Kuehne & Nagel A.G., Sitz: Contern/Luxemburg, Geschaeftsfuehrender > Verwaltungsrat: Klaus-Michael Kuehne > > _______________________________________________ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: sa...@bestpractical.com Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com