9 my $Ticket = LoadTicket($TicketId);
10 my $Draft = RT::Attribute->new($session{'CurrentUser'});
11 $Draft->LoadByNameAndObject(Object => $session{'CurrentUser'}->UserObj, Name => 'Draft-' . $Ticket->id);
12 my ($ok, $msg) = (0, '');
14 if ($Draft && $Draft->Id) {
15 ($ok, $msg) = $Draft->SetContent($Content);
16 $Draft->SetContentType($ContentType);
18 ($ok, $msg) = $Draft->Create(Name => 'Draft-' . $Ticket->id,
19 Object => $session{'CurrentUser'}->UserObj,
21 ContentType => $ContentType,