[freeside-commits] freeside/rt/share/html/m/ticket create, NONE, 1.1 history, NONE, 1.1 modify, NONE, 1.1 reply, NONE, 1.1 select_create_queue, NONE, 1.1 show, NONE, 1.1
Mark Wells
mark at wavetail.420.am
Wed Apr 27 01:31:05 PDT 2011
- Previous message: [freeside-commits] freeside/rt/share/html/m/_elements footer, NONE, 1.1 full_site_link, NONE, 1.1 header, NONE, 1.1 menu, NONE, 1.1 raw_style, NONE, 1.1 ticket_list, NONE, 1.1 ticket_menu, NONE, 1.1 wrapper, NONE, 1.1
- Next message: [freeside-commits] freeside/rt/share/html/m/tickets requested, NONE, 1.1 search, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /home/cvs/cvsroot/freeside/rt/share/html/m/ticket
In directory wavetail.420.am:/tmp/cvs-serv23959/rt/share/html/m/ticket
Added Files:
create history modify reply select_create_queue show
Log Message:
RT mobile UI, #11630
--- NEW FILE: show ---
<%args>
$id => undef
</%args>
<%init>
my $Ticket;
my @Actions;
unless ($id) {
Abort('No ticket specified');
}
if ($ARGS{'id'} eq 'new') {
# {{{ Create a new ticket
my $Queue = new RT::Queue( $session{'CurrentUser'} );
$Queue->Load($ARGS{'Queue'});
unless ( $Queue->id ) {
Abort('Queue not found');
}
unless ( $Queue->CurrentUserHasRight('CreateTicket') ) {
Abort('You have no permission to create tickets in that queue.');
}
($Ticket, @Actions) = CreateTicket(
Attachments => delete $session{'Attachments'},
%ARGS,
);
unless ( $Ticket->CurrentUserHasRight('ShowTicket') ) {
Abort("No permission to view newly created ticket #".$Ticket->id.".");
}
# }}}
} else {
$Ticket ||= LoadTicket($ARGS{'id'});
$m->callback( CallbackName => 'BeforeProcessArguments',
TicketObj => $Ticket,
ActionsRef => \@Actions, ARGSRef => \%ARGS );
if ( defined $ARGS{'Action'} ) {
if ($ARGS{'Action'} =~ /^(Steal|Kill|Take|SetTold)$/) {
my $action = $1;
my ($res, $msg) = $Ticket->$action();
push(@Actions, $msg);
}
}
$m->callback(CallbackName => 'ProcessArguments',
Ticket => $Ticket,
ARGSRef => \%ARGS,
Actions => \@Actions);
$ARGS{UpdateAttachments} = $session{'Attachments'};
push @Actions,
ProcessUpdateMessage(
ARGSRef => \%ARGS,
Actions => \@Actions,
TicketObj => $Ticket,
);
delete $session{'Attachments'};
#Process status updates
push @Actions, ProcessTicketWatchers(ARGSRef => \%ARGS, TicketObj => $Ticket );
push @Actions, ProcessTicketBasics( ARGSRef => \%ARGS, TicketObj => $Ticket );
push @Actions, ProcessTicketLinks( ARGSRef => \%ARGS, TicketObj => $Ticket );
push @Actions, ProcessTicketDates( ARGSRef => \%ARGS, TicketObj => $Ticket );
push @Actions, ProcessObjectCustomFieldUpdates(ARGSRef => \%ARGS, TicketObj => $Ticket );
# XXX: we shouldn't block actions here if user has no right to see the ticket,
# but we should allow him to see actions he has done
unless ($Ticket->CurrentUserHasRight('ShowTicket')) {
Abort("No permission to view ticket");
}
if ( $ARGS{'MarkAsSeen'} ) {
$Ticket->SetAttribute(
Name => 'User-'. $Ticket->CurrentUser->id .'-SeenUpTo',
Content => $Ticket->LastUpdated,
);
push @Actions, loc('Marked all messages as seen');
}
}
$m->callback(
CallbackName => 'BeforeDisplay',
TicketObj => \$Ticket,
Actions => \@Actions,
ARGSRef => \%ARGS,
);
# This code does automatic redirection if any updates happen.
if (@Actions) {
# We've done something, so we need to clear the decks to avoid
# resubmission on refresh.
# But we need to store Actions somewhere too, so we don't lose them.
my $key = Digest::MD5::md5_hex( rand(1024) );
push @{ $session{"Actions"}->{$key} ||= [] }, @Actions;
$session{'i'}++;
my $url = RT->Config->Get('WebURL') . "m/ticket/show?id=" . $Ticket->id . "&results=" . $key;
$url .= '#' . $ARGS{Anchor} if $ARGS{Anchor};
RT::Interface::Web::Redirect($url);
}
# If we haven't been passed in an Attachments object (through the precaching mechanism)
# then we need to find one
my $Attachments = $m->comp('/Ticket/Elements/FindAttachments', Ticket => $Ticket);
my %documents;
while ( my $attach = $Attachments->Next() ) {
next unless ($attach->Filename());
unshift( @{ $documents{ $attach->Filename } }, $attach );
}
my $Customers = $Ticket->Customers;
my @customers;
while ( my $customer = $Customers->Next() ) {
push @customers, $customer;
}
my $CustomFields = $Ticket->CustomFields;
$m->callback(
CallbackName => 'MassageCustomFields',
Object => $Ticket,
CustomFields => $CustomFields,
);
my $print_value = sub {
my ($cf, $value) = @_;
my $linked = $value->LinkValueTo;
if ( defined $linked && length $linked ) {
my $linked = $m->interp->apply_escapes( $linked, 'h' );
$m->out('<a href="'. $linked .'" target="_new">');
}
my $comp = "ShowCustomField". $cf->Type;
$m->callback(
CallbackName => 'ShowComponentName',
Name => \$comp,
CustomField => $cf,
Object => $Ticket,
);
if ( $m->comp_exists( $comp ) ) {
$m->comp( $comp, Object => $value );
} else {
$m->out( $m->interp->apply_escapes( $value->Content, 'h' ) );
}
$m->out('</a>') if defined $linked && length $linked;
# This section automatically populates a<div with the "IncludeContentForValue" for this custom
# field if it's been defined
if ( $cf->IncludeContentForValue ) {
my $vid = $value->id;
$m->out( '<div class="object_cf_value_include" id="object_cf_value_'. $vid .'">' );
$m->print( loc("See also:") );
$m->out( '<a href="'. $value->IncludeContentForValue .'">' );
$m->print( $value->IncludeContentForValue );
$m->out( qq{</a></div>\n} );
$m->out( qq{<script><!--\nahah('} );
$m->print( $value->IncludeContentForValue );
$m->out( qq{', 'object_cf_value_$vid');\n--></script>\n} );
}
};
</%init>
<&| /m/_elements/wrapper, title => $Ticket->Subject &>
<div id="ticket-show">
<& /m/_elements/ticket_menu, ticket => $Ticket &>
<&| /Widgets/TitleBox, title => loc('The Basics'),
class => 'ticket-info-basics',
&>
<div class="entry">
<div class="label id"><&|/l&>Id</&>:</div>
<div class="value id"><%$Ticket->Id %></div>
</div>
<div class="entry">
<div class="label status"><&|/l&>Status</&>:</div>
<div class="value status"><% loc($Ticket->Status) %></div>
</div>
% if ($Ticket->TimeEstimated) {
<div class="entry">
<div class="label time estimated"><&|/l&>Estimated</&>:</div>
<div class="value time estimated"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeEstimated &></div>
</div>
% }
% if ($Ticket->TimeWorked) {
<div class="entry">
<div class="label time worked"><&|/l&>Worked</&>:</div>
<div class="value time worked"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeWorked &></div>
</div>
% }
% if ($Ticket->TimeLeft) {
<div class="entry">
<div class="label time left"><&|/l&>Left</&>:</div>
<div class="value time left"><& /Ticket/Elements/ShowTime, minutes => $Ticket->TimeLeft &></div>
</div>
% }
<div class="entry">
<div class="label priority"><&|/l&>Priority</&>:</div>
<div class="value priority"><& /Ticket/Elements/ShowPriority, Ticket => $Ticket &></div>
</div>
<div class="entry">
<div class="label queue"><&|/l&>Queue</&>:</div>
<div class="value queue"><& /Ticket/Elements/ShowQueue, QueueObj => $Ticket->QueueObj &></div>
</div>
</&>
% if ($Ticket->CustomFields->First) {
<&| /Widgets/TitleBox, title => loc('Custom Fields'),
class => 'ticket-info-cfs',
&>
% while ( my $CustomField = $CustomFields->Next ) {
% my $Values = $Ticket->CustomFieldValues( $CustomField->Id );
% my $count = $Values->Count;
<div class="entry" id="CF-<%$CustomField->id%>-ShowRow">
<div class="label"><% $CustomField->Name %>:</div>
<div class="value">
% unless ( $count ) {
<i><&|/l&>(no value)</&></i>
% } elsif ( $count == 1 ) {
% $print_value->( $CustomField, $Values->First );
% } else {
<ul>
% while ( my $Value = $Values->Next ) {
<li>
% $print_value->( $CustomField, $Value );
</li>
% }
</ul>
% }
</div>
</div>
% }
</&>
% }
<&| /Widgets/TitleBox, title => loc('People'), class => 'ticket-info-people' &>
<div class="entry">
<div class="label"><&|/l&>Owner</&>:</div>
<div class="value"><& /Elements/ShowUser, User => $Ticket->OwnerObj, Ticket => $Ticket &>
</div>
</div>
<div class="entry">
<div class="label"><&|/l&>Requestors</&>:</div>
<div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->Requestors, Ticket => $Ticket &></div>
</div>
<div class="entry">
<div class="label"><&|/l&>Cc</&>:</div>
<div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->Cc, Ticket => $Ticket &></div>
</div>
<div class="entry">
<div class="label"><&|/l&>AdminCc</&>:</div>
<div class="value"><& /Ticket/Elements/ShowGroupMembers, Group => $Ticket->AdminCc, Ticket => $Ticket &></div>
</div>
</&>
% if (keys %documents) {
<&| /Widgets/TitleBox, title => loc('Attachments'),
title_class=> 'inverse',
class => 'ticket-info-attachments',
color => "#336699" &>
% foreach my $key (keys %documents) {
<%$key%><br />
<ul>
% foreach my $rev (@{$documents{$key}}) {
<%PERL>
my $size = $rev->ContentLength;
if ($size) {
my $kb = int($size/102.4) / 10;
my $units = RT->Config->Get('AttachmentUnits');
if (!defined($units)) {
if ($size > 1024) {
$size = $kb . "k";
}
else {
$size = $size . "b";
}
}
elsif ($units eq 'k') {
$size = $kb . "k";
}
else {
$size = $size . "b";
}
</%PERL>
<li><font size="-2">
<a href="<%RT->Config->Get('WebPath')%>/Ticket/Attachment/<%$rev->TransactionId%>/<%$rev->Id%>/<%$rev->Filename | u%>">
<&|/l, $rev->CreatedAsString, $size, $rev->CreatorObj->Name &>[_1] ([_2]) by [_3]</&>
</a>
</font></li>
% }
% }
</ul>
% }
</&>
% }
% # too painful to deal with reminders
% if ( 0 && RT->Config->Get('EnableReminders') ) {
<&|/Widgets/TitleBox, title => loc("Reminders"),
class => 'ticket-info-reminders',
&>
<div class="entry"><div
<form action="<%RT->Config->Get('WebPath')%>/Ticket/Display.html" method="post">
<& /Ticket/Elements/Reminders, Ticket => $Ticket, ShowCompleted => 0 &>
<div align="right"><input type="submit" class="button" value="<&|/l&>Save</&>" /></div>
</form>
</div></div>
</&>
% }
% if ( @customers ) {
<&| /Widgets/TitleBox, title => loc("Customers"),
class => 'ticket-info-customers',
&>
% foreach my $customer ( @customers ) {
% my $resolver = $customer->TargetURI->Resolver or next;
<div class="entry"><a href="<% $resolver->HREF %>"><% $resolver->AsString |n%></A>
</div>
% } #foreach
</&>
% } # if @customers
<&| /Widgets/TitleBox, title => loc("Dates"),
class => 'ticket-info-dates',
&>
<div class="entry">
<div class="label date created"><&|/l&>Created</&>:</div>
<div class="value date created"><% $Ticket->CreatedObj->AsString %></div>
</div>
<div class="entry">
<div class="label date starts"><&|/l&>Starts</&>:</div>
<div class="value date starts"><% $Ticket->StartsObj->AsString %></div>
</div>
<div class="entry">
<div class="label date started"><&|/l&>Started</&>:</div>
<div class="value date started"><% $Ticket->StartedObj->AsString %></div>
</div>
<div class="entry">
<div class="label date told"><&|/l&>Last Contact</&>:</div>
<div class="value date told"><% $Ticket->ToldObj->AsString %></div>
</div>
<div class="entry">
<div class="label date due"><&|/l&>Due</&>:</div>
% my $due = $Ticket->DueObj;
% if ( $due && $due->Unix > 0 && $due->Diff < 0 ) {
<div class="value date due"><span class="overdue"><% $due->AsString %></span></div>
% } else {
<div class="value date due"><% $due->AsString %></div>
% }
</div>
<div class="entry">
<div class="label date resolved"><&|/l&>Closed</&>:</div>
<div class="value date resolved"><% $Ticket->ResolvedObj->AsString %></div>
</div>
<div class="entry">
<div class="label date updated"><&|/l&>Updated</&>:</div>
% my $UpdatedString = $Ticket->LastUpdated ? loc("[_1] by [_2]", $Ticket->LastUpdatedAsString, $Ticket->LastUpdatedByObj->Name) : loc("Never");
<div class="value date updated"><% $UpdatedString | h %></div>
</div>
</&>
<&| /Widgets/TitleBox, title => loc('Links'), class => 'ticket-info-links' &>
<div class="entry">
<div class="label"><% loc('Depends on')%>:</div>
<div class="value">
<%PERL>
my ( @active, @inactive, @not_tickets );
for my $link ( @{ $Ticket->DependsOn->ItemsArrayRef } ) {
my $target = $link->TargetObj;
if ( $target && $target->isa('RT::Ticket') ) {
if ( $target->QueueObj->IsInactiveStatus( $target->Status ) ) {
push( @inactive, $link->TargetURI );
}
else {
push( @active, $link->TargetURI );
}
}
else {
push( @not_tickets, $link->TargetURI );
}
}
</%PERL>
<ul>
% for my $Link (@not_tickets, @active, @inactive) {
<li><& /Elements/ShowLink, URI => $Link &></li>
% }
</ul>
</div>
</div>
<div class="entry">
<div class="label"><% loc('Depended on by')%>:</div>
<div class="value">
<ul>
% while (my $Link = $Ticket->DependedOnBy->Next) {
<li><& /Elements/ShowLink, URI => $Link->BaseURI &></li>
% }
</ul>
</div>
</div>
<div class="entry">
<div class="label"><% loc('Parents') %>:</div>
<div class="value"><& /Ticket/Elements/ShowParents, Ticket => $Ticket &></div>
</div>
<div class="entry">
<div class="label"><% loc('Children')%>:</div>
<div class="value"><& /Ticket/Elements/ShowMembers, Ticket => $Ticket &></div>
</div>
<div class="entry">
<div class="label"><% loc('Refers to')%>:</div>
<div class="value">
<ul>
% while (my $Link = $Ticket->RefersTo->Next) {
<li><& /Elements/ShowLink, URI => $Link->TargetURI &></li>
% }
</ul>
</div>
</div>
<div class="entry">
<div class="label"><% loc('Referred to by')%>:</div>
<div class="value">
<ul>
% while (my $Link = $Ticket->ReferredToBy->Next) {
% next if (UNIVERSAL::isa($Link->BaseObj, 'RT::Ticket') && $Link->BaseObj->Type eq 'reminder');
<li><& /Elements/ShowLink, URI => $Link->BaseURI &></li>
% }
</ul>
</div>
</div>
</&>
</div>
</&>
--- NEW FILE: select_create_queue ---
<%init>
my $queues = RT::Queues->new($session{'CurrentUser'});
$queues->UnLimit();
</%init>
<&| /m/_elements/wrapper, title => loc("Create a ticket") &>
<div class="select_queue">
<&|/Widgets/TitleBox, title => loc("Select a queue") &>
<ul class="menu">
% while (my $q = $queues->Next()) {
% next if (! $q->CurrentUserHasRight('CreateTicket'));
<li><a href="<%RT->Config->Get('WebPath')%>/m/ticket/create?Queue=<%$q->id%>"><%$q->Name%></a></li>
% }
</ul>
</&>
</div>
</&>
--- NEW FILE: create ---
<%ARGS>
$QuoteTransaction => undef
$CloneTicket => undef
</%ARGS>
<%init>
$m->callback( CallbackName => "Init", ARGSRef => \%ARGS );
my $Queue = $ARGS{Queue};
my $showrows = sub {
my @pairs = @_;
while (@pairs) {
my $key = shift @pairs;
my $val = shift @pairs;
$m->out("<div class=\"entry\"><span class=\"label\">$key</span><div class=\"value\">$val</div></div>");
}
};
my $CloneTicketObj;
if ($CloneTicket) {
$CloneTicketObj = RT::Ticket->new( $session{CurrentUser} );
$CloneTicketObj->Load($CloneTicket)
or Abort( loc("Ticket could not be loaded") );
my $clone = {
Requestors => join( ',', $CloneTicketObj->RequestorAddresses ),
Cc => join( ',', $CloneTicketObj->CcAddresses ),
AdminCc => join( ',', $CloneTicketObj->AdminCcAddresses ),
InitialPriority => $CloneTicketObj->Priority,
};
$clone->{$_} = $CloneTicketObj->$_()
for qw/Owner Subject FinalPriority TimeEstimated TimeWorked
Status TimeLeft/;
$clone->{$_} = $CloneTicketObj->$_->AsString
for grep { $CloneTicketObj->$_->Unix }
map { $_ . "Obj" } qw/Starts Started Due Resolved/;
my $members = $CloneTicketObj->Members;
my ( @members, @members_of, @refers, @refers_by, @depends, @depends_by );
my $refers = $CloneTicketObj->RefersTo;
while ( my $refer = $refers->Next ) {
push @refers, $refer->LocalTarget;
}
$clone->{'new-RefersTo'} = join ' ', @refers;
my $refers_by = $CloneTicketObj->ReferredToBy;
while ( my $refer_by = $refers_by->Next ) {
push @refers_by, $refer_by->LocalBase;
}
$clone->{'RefersTo-new'} = join ' ', @refers_by;
if (0) { # Temporarily disabled
my $depends = $CloneTicketObj->DependsOn;
while ( my $depend = $depends->Next ) {
push @depends, $depend->LocalTarget;
}
$clone->{'new-DependsOn'} = join ' ', @depends;
my $depends_by = $CloneTicketObj->DependedOnBy;
while ( my $depend_by = $depends_by->Next ) {
push @depends_by, $depend_by->LocalBase;
}
$clone->{'DependsOn-new'} = join ' ', @depends_by;
while ( my $member = $members->Next ) {
push @members, $member->LocalBase;
}
$clone->{'MemberOf-new'} = join ' ', @members;
my $members_of = $CloneTicketObj->MemberOf;
while ( my $member_of = $members_of->Next ) {
push @members_of, $member_of->LocalTarget;
}
$clone->{'new-MemberOf'} = join ' ', @members_of;
}
my $cfs = $CloneTicketObj->QueueObj->TicketCustomFields();
while ( my $cf = $cfs->Next ) {
my $cf_id = $cf->id;
my $cf_values = $CloneTicketObj->CustomFieldValues( $cf->id );
my @cf_values;
while ( my $cf_value = $cf_values->Next ) {
push @cf_values, $cf_value->Content;
}
$clone->{"Object-RT::Ticket--CustomField-$cf_id-Value"} = join "\n",
@cf_values;
}
for ( keys %$clone ) {
$ARGS{$_} = $clone->{$_} if not defined $ARGS{$_};
}
}
my @results;
my $title = loc("Create a ticket");
my $QueueObj = new RT::Queue($session{'CurrentUser'});
$QueueObj->Load($Queue) || Abort(loc("Queue could not be loaded."));
$m->callback( QueueObj => $QueueObj, title => \$title, results => \@results, ARGSRef => \%ARGS );
$QueueObj->Disabled && Abort(loc("Cannot create tickets in a disabled queue."));
my $CFs = $QueueObj->TicketCustomFields();
my $ValidCFs = $m->comp(
'/Elements/ValidateCustomFields',
CustomFields => $CFs,
ARGSRef => \%ARGS
);
# {{{ deal with deleting uploaded attachments
foreach my $key (keys %ARGS) {
if ($key =~ m/^DeleteAttach-(.+)$/) {
delete $session{'Attachments'}{$1};
}
$session{'Attachments'} = { %{$session{'Attachments'} || {}} };
}
# }}}
# {{{ store the uploaded attachment in session
if ($ARGS{'Attach'}) { # attachment?
my $attachment = MakeMIMEEntity(
AttachmentFieldName => 'Attach'
);
my $file_path = Encode::decode_utf8("$ARGS{'Attach'}");
$session{'Attachments'} = {
%{$session{'Attachments'} || {}},
$file_path => $attachment,
};
}
# }}}
# delete temporary storage entry to make WebUI clean
unless (keys %{$session{'Attachments'}} and $ARGS{'id'} eq 'new') {
delete $session{'Attachments'};
}
my $checks_failure = 0;
my $gnupg_widget = $m->comp('/Elements/GnuPG/SignEncryptWidget:new', Arguments => \%ARGS );
$m->comp( '/Elements/GnuPG/SignEncryptWidget:Process',
self => $gnupg_widget,
QueueObj => $QueueObj,
);
if ( !exists $ARGS{'AddMoreAttach'} && ($ARGS{'id'}||'') eq 'new' ) {
my $status = $m->comp('/Elements/GnuPG/SignEncryptWidget:Check',
self => $gnupg_widget,
Operation => 'Create',
QueueObj => $QueueObj,
);
$checks_failure = 1 unless $status;
}
# check email addresses for RT's
{
foreach my $field ( qw(Requestors Cc AdminCc) ) {
my $value = $ARGS{ $field };
next unless defined $value && length $value;
my @emails = Email::Address->parse( $value );
foreach my $email ( grep RT::EmailParser->IsRTAddress($_->address), @emails ) {
push @results, loc("[_1] is an address RT receives mail at. Adding it as a '[_2]' would create a mail loop", $email->format, loc($field =~ /^(.*?)s?$/) );
$checks_failure = 1;
$email = undef;
}
$ARGS{ $field } = join ', ', map $_->format, grep defined, @emails;
}
}
my $skip_create = 0;
$m->callback( CallbackName => 'BeforeCreate', ARGSRef => \%ARGS, skip_create => \$skip_create,
checks_failure => $checks_failure, results => \@results );
if ((!exists $ARGS{'AddMoreAttach'}) and (defined($ARGS{'id'}) and $ARGS{'id'} eq 'new')) { # new ticket?
if ( $ValidCFs && !$checks_failure && !$skip_create ) {
$m->comp('show', %ARGS);
$RT::Logger->crit("After display call; error is $@");
$m->abort();
}
elsif ( !$ValidCFs ) {
# Invalid CFs
while (my $CF = $CFs->Next) {
my $msg = $m->notes('InvalidField-' . $CF->Id) or next;
push @results, $CF->Name . ': ' . $msg;
}
}
}
</%init>
<&| /m/_elements/wrapper, title => $title &>
<& /Elements/ListActions, actions => \@results &>
<form action="<% RT->Config->Get('WebPath') %>/m/ticket/create" method="post" enctype="multipart/form-data" name="TicketCreate" id="ticket-create">
<input type="hidden" class="hidden" name="id" value="new" />
% $m->callback( CallbackName => 'FormStart', QueueObj => $QueueObj, ARGSRef => \%ARGS );
% if ($gnupg_widget) {
<& /Elements/GnuPG/SignEncryptWidget:ShowIssues, self => $gnupg_widget &>
% }
<div id="ticket-create-simple">
<&| /Widgets/TitleBox, title => $QueueObj->Name &>
<%perl>
$showrows->(
loc("Subject") => '<input name="Subject" size="30" maxsize="200" value="'.($ARGS{Subject} || '').'" />');
</%perl>
<span class="content-label label"><%loc("Describe the issue below")%></span>
<& /Elements/MessageBox, exists $ARGS{Content} ? (Default => $ARGS{Content}, IncludeSignature => 0 ) : ( QuoteTransaction => $QuoteTransaction ), Height => 5 &>
<&/Elements/Submit, Label => loc("Create") &>
</&>
</div>
<div id="ticket-create-basics">
<&| /Widgets/TitleBox &>
<input type="hidden" class="hidden" name="Queue" value="<%$QueueObj->id %>" />
<%perl>
$showrows->(
# loc('Queue') => $m->scomp( '/Ticket/Elements/ShowQueue', QueueObj => $QueueObj ) ,
loc('Status') =>
$m->scomp(
"/Elements/SelectStatus",
Name => "Status",
Default => $ARGS{Status} || 'new',
DefaultValue => 0,
SkipDeleted => 1
),
loc("Owner") =>
$m->scomp(
"/Elements/SelectOwner",
Name => "Owner",
QueueObj => $QueueObj,
Default => $ARGS{Owner} || $RT::Nobody->Id,
DefaultValue => 0
),
loc("Requestors") => $m->scomp(
"/Elements/EmailInput",
Name => 'Requestors',
Size => '40',
Default => $ARGS{Requestors} || $session{CurrentUser}->EmailAddress
),
loc("Cc") =>
$m->scomp( "/Elements/EmailInput", Name => 'Cc', Size => '40', Default => $ARGS{Cc} )
. '<span class="comment"><i><font size="-2">'
. loc(
"(Sends a carbon-copy of this update to a comma-delimited list of email addresses. These people <strong>will</strong> receive future updates.)"
)
. '</font></i></span>',
loc("Admin Cc") =>
$m->scomp( "/Elements/EmailInput", Name => 'AdminCc', Size => '40', Default => $ARGS{AdminCc} )
. '<span class="comment" colspan="2"><i><font size="-2">'
. loc(
"(Sends a carbon-copy of this update to a comma-delimited list of administrative email addresses. These people <strong>will</strong> receive future updates.)"
)
. '</font></i></span>',
);
$m->scomp("/Ticket/Elements/EditCustomFields", %ARGS, QueueObj => $QueueObj );
$m->scomp("/Ticket/Elements/EditTransactionCustomFields", %ARGS, QueueObj => $QueueObj );
</%perl>
% if (exists $session{'Attachments'}) {
<%loc("Attached file") %>
<%loc("Check box to delete")%><br />
% foreach my $attach_name (keys %{$session{'Attachments'}}) {
<input type="checkbox" class="checkbox" name="DeleteAttach-<%$attach_name%>" value="1" /><%$attach_name%><br />
% } # end of foreach
% } # end of if
<%perl>
$showrows->(
loc("Attach file") =>
'<div class="value" colspan="5">
<input type="file" name="Attach" />
<input type="submit" class="button" name="AddMoreAttach" value="' . loc("Add More Files") . '" />'
);
</%perl>
% if ( $gnupg_widget ) {
%$m->scomp("/Elements/GnuPG/SignEncryptWidget", self => $gnupg_widget, QueueObj => $QueueObj )
% }
<div class="ticket-info-basics">
<&| /Widgets/TitleBox, title => loc('The Basics'),
title_class=> 'inverse',
color => "#993333" &>
<%perl>
$showrows->(
loc("Priority") => $m->scomp(
"/Elements/SelectPriority",
Name => "InitialPriority",
Default => $ARGS{InitialPriority} ? $ARGS{InitialPriority} : $QueueObj->InitialPriority,
),
loc("Final Priority") => $m->scomp(
"/Elements/SelectPriority",
Name => "FinalPriority",
Default => $ARGS{FinalPriority} ? $ARGS{FinalPriority} : $QueueObj->FinalPriority,
),
loc("Time Estimated") => '<span class="timefield">'.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeEstimated',
Default => $ARGS{TimeEstimated} || '',
InUnits => $ARGS{'TimeEstimated-TimeUnits'}
).'</span>',
loc("Time Worked") => '<span class="timefield">'.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeWorked',
Default => $ARGS{TimeWorked} || '',
InUnits => $ARGS{'TimeWorked-TimeUnits'}
). '</span>',
loc("Time Left") => '<span class="timefield">'.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeLeft',
Default => $ARGS{TimeLeft} || '',
InUnits => $ARGS{'TimeLeft-TimeUnits'}
).'</span>',
);
</%perl>
</&>
<&|/Widgets/TitleBox, title => loc("Dates"),
title_class=> 'inverse',
color => "#663366" &>
<%perl>
$showrows->(
loc("Starts") => $m->scomp( "/Elements/SelectDate", Name => "Starts", Default => ( $ARGS{Starts} || '' )),
loc("Due") => $m->scomp( "/Elements/SelectDate", Name => "Due", Default => ($ARGS{Due} || '' ))
);
</%perl>
</&>
<&|/Widgets/TitleBox, title => loc('Links'), title_class=> 'inverse' &>
<em><%loc("(Enter ticket ids or URLs, separated with spaces)")%></em>
<%perl>
$showrows->(
loc("Depends on") => '<input size="10" name="new-DependsOn" value="' . ($ARGS{'new-DependsOn'} || '' ). '" />',
loc("Depended on by") => '<input size="10" name="DependsOn-new" value="' . ($ARGS{'DependsOn-new'} || '' ) . '" />',
loc("Parents") => '<input size="10" name="new-MemberOf" value="' . ($ARGS{'new-MemberOf'} || '') . '" />',
loc("Children") => '<input size="10" name="MemberOf-new" value="' . ($ARGS{'MemberOf-new'} || '') . '" />',
loc("Refers to") => '<input size="10" name="new-RefersTo" value="' . ($ARGS{'new-RefersTo'} || '') . '" />',
loc("Referred to by") => '<input size="10" name="RefersTo-new" value="' . ($ARGS{'RefersTo-new'} || ''). '" />'
);
</%perl>
</&>
<& /Elements/Submit, Label => loc("Create") &>
</form>
</&>
</&>
--- NEW FILE: modify ---
--- NEW FILE: reply ---
<&|/m/_elements/wrapper, title => loc('Update ticket #[_1]', $t->id) &>
<& /m/_elements/ticket_menu, ticket => $t &>
<& /Elements/ListActions, actions => \@results &>
<div class="ticket-reply">
<&|/Widgets/TitleBox &>
<form action="reply" id="update"
method="post" enctype="multipart/form-data">
<input type="hidden" class="hidden" name="DefaultStatus" value="<% $DefaultStatus ||''%>" />
<input type="hidden" class="hidden" name="Action" value="<% $ARGS{Action}||'' %>" />
<div class="entry"><span class="label"><&|/l&>Status</&>:</span>
<div class="value">
<& /Elements/SelectStatus, Name=>"Status", DefaultLabel => loc("[_1] (Unchanged)", loc($t->Status)), Default => $ARGS{'Status'} || ($t->Status eq $DefaultStatus ? undef : $DefaultStatus)&>
</div></div>
<div class="entry"><span class="label"><&|/l&>Owner</&>:</span>
<div class="value">
<& /Elements/SelectOwner,
Name => "Owner",
TicketObj => $t,
QueueObj => $t->QueueObj,
DefaultLabel => loc("[_1] (Unchanged)", $t->OwnerObj->Name),
Default => $ARGS{'Owner'}
&>
</div></div>
<div class="entry timefield"><span class="label"><&|/l&>Worked</&>:</span><span class="value">
<& /Elements/EditTimeValue,
Name => 'UpdateTimeWorked',
Default => $ARGS{UpdateTimeWorked}||'',
InUnits => $ARGS{'UpdateTimeWorked-TimeUnits'}||'minutes',
&>
</span></div>
<input type="hidden" class="hidden" name="id" value="<%$t->Id%>" /><br />
<div class="entry"><span class="label"><&|/l&>Update Type</&>:</span>
<div class="value"><select name="UpdateType">
% if ($CanComment) {
<option value="private" <% ($ARGS{'UpdateType'} && $ARGS{'UpdateType'} eq "private") ? qq[ selected="selected"] : !$ARGS{'UpdateType'}&&$CommentDefault |n %>><&|/l&>Comments (Not sent to requestors)</&></option>
% }
% if ($CanRespond) {
<option value="response" <% ($ARGS{'UpdateType'} && $ARGS{'UpdateType'} eq "response") ? qq[ selected="selected"] : !$ARGS{'UpdateType'}&&$ResponseDefault |n %>><&|/l&>Reply to requestors</&></option>
% }
</select>
</div></div>
<div class="entry"><span class="label"><&|/l&>Subject</&>:</span><div class="value"> <input name="UpdateSubject" size="60" value="<% $ARGS{UpdateSubject} || $t->Subject()%>" />
% $m->callback( %ARGS, CallbackName => 'AfterSubject' );
</div></div>
<div class="entry"><span class="label"><&|/l&>One-time Cc</&>:</span><span class="value"><& /Elements/EmailInput, Name => 'UpdateCc', Size => '60', Default => $ARGS{UpdateCc} &></span></div>
<div class="entry"><span class="label"><&|/l&>One-time Bcc</&>:</span><span class="value"><& /Elements/EmailInput, Name => 'UpdateBcc', Size => '60', Default => $ARGS{UpdateBcc} &></span></div>
<div class="entry"><span class="label" ><&|/l&>Message</&>:</span><div class="value">
% if (exists $ARGS{UpdateContent}) {
% # preserve QuoteTransaction so we can use it to set up sane references/in/reply to
% my $temp = $ARGS{'QuoteTransaction'};
% delete $ARGS{'QuoteTransaction'};
<& /Elements/MessageBox, Name=>"UpdateContent", Default=>$ARGS{UpdateContent}, IncludeSignature => 0, %ARGS&>
% $ARGS{'QuoteTransaction'} = $temp;
% } else {
% my $IncludeSignature = 1;
% $IncludeSignature = 0 if $Action ne 'Respond' && !RT->Config->Get('MessageBoxIncludeSignatureOnComment');
<& /Elements/MessageBox, Name=>"UpdateContent", IncludeSignature => $IncludeSignature, %ARGS &>
% }
</div></div>
<& /Elements/Submit, Label => loc('Update Ticket'), Name => 'SubmitTicket' &>
</form>
</&>
</div>
</&>
<%INIT>
my $CanRespond = 0;
my $CanComment = 0;
my $checks_failure = 0;
my $title;
my $t = LoadTicket($id);
my @results;
$m->callback( Ticket => $t, ARGSRef => \%ARGS, results => \@results, CallbackName => 'Initial' );
unless($DefaultStatus){
$DefaultStatus=($ARGS{'Status'} ||$t->Status());
}
if ($DefaultStatus eq 'new'){
$DefaultStatus='open';
}
if ($DefaultStatus eq 'resolved') {
$title = loc("Resolve ticket #[_1] ([_2])", $t->id, $t->Subject);
} else {
$title = loc("Update ticket #[_1] ([_2])", $t->id, $t->Subject);
}
# Things needed in the template - we'll do the processing here, just
# for the convenience:
my ($CommentDefault, $ResponseDefault);
if ($Action ne 'Respond') {
$CommentDefault = qq[ selected="selected"];
$ResponseDefault = "";
} else {
$CommentDefault = "";
$ResponseDefault = qq[ selected="selected"];
}
$CanRespond = 1 if ( $t->CurrentUserHasRight('ReplyToTicket') or
$t->CurrentUserHasRight('ModifyTicket') );
$CanComment = 1 if ( $t->CurrentUserHasRight('CommentOnTicket') or
$t->CurrentUserHasRight('ModifyTicket') );
# {{{ deal with deleting uploaded attachments
foreach my $key (keys %ARGS) {
if ($key =~ m/^DeleteAttach-(.+)$/) {
delete $session{'Attachments'}{$1};
}
$session{'Attachments'} = { %{$session{'Attachments'} || {}} };
}
# }}}
# {{{ store the uploaded attachment in session
if ($ARGS{'Attach'}) { # attachment?
my $attachment = MakeMIMEEntity(
AttachmentFieldName => 'Attach'
);
my $file_path = Encode::decode_utf8("$ARGS{'Attach'}");
$session{'Attachments'} = {
%{$session{'Attachments'} || {}},
$file_path => $attachment,
};
}
# }}}
# delete temporary storage entry to make WebUI clean
unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
delete $session{'Attachments'};
}
# }}}
# check email addresses for RT's
{
foreach my $field ( qw(UpdateCc UpdateBcc) ) {
my $value = $ARGS{ $field };
next unless defined $value && length $value;
my @emails = Email::Address->parse( $value );
foreach my $email ( grep RT::EmailParser->IsRTAddress($_->address), @emails ) {
push @results, loc("[_1] is an address RT receives mail at. Adding it as a '[_2]' would create a mail loop", $email->format, loc(substr($field, 6)) );
$checks_failure = 1;
$email = undef;
}
$ARGS{ $field } = join ', ', map $_->format, grep defined, @emails;
}
}
if ( !$checks_failure && exists $ARGS{SubmitTicket} ) {
return $m->comp('/m/ticket/show', TicketObj => $t, %ARGS);
}
</%INIT>
<%ARGS>
$id => undef
$Action => 'reply'
$DefaultStatus => undef
</%ARGS>
--- NEW FILE: history ---
<%args>
$id => undef
</%args>
<%init>
my $t = RT::Ticket->new($session{CurrentUser});
$t->Load($id);
my $history = $t->Transactions()->ItemsArrayRef;
</%init>
<&| /m/_elements/wrapper, title => $t->Subject &>
<div class="history">
<& /m/_elements/ticket_menu, ticket => $t &>
<&|/Widgets/TitleBox &>
<ul class="history-list">
% for my $entry (reverse @$history) {
<li>
<span class="age"><% $entry->CreatedObj->AgeAsString() %></span> -
<& /Elements/ShowUser, User => $entry->CreatorObj &> -
<%$entry->BriefDescription%>
% if ($entry->Type !~ /EmailRecord/) {
% if ($entry->ContentObj) {
<div class="txn-content">
<%$entry->Content%>
</div>
%}
% }
</li>
% }
</ul>
</&>
</div>
</&>
- Previous message: [freeside-commits] freeside/rt/share/html/m/_elements footer, NONE, 1.1 full_site_link, NONE, 1.1 header, NONE, 1.1 menu, NONE, 1.1 raw_style, NONE, 1.1 ticket_list, NONE, 1.1 ticket_menu, NONE, 1.1 wrapper, NONE, 1.1
- Next message: [freeside-commits] freeside/rt/share/html/m/tickets requested, NONE, 1.1 search, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the freeside-commits
mailing list