diff options
Diffstat (limited to 'rt/html/SelfService/Create.html')
| -rw-r--r-- | rt/html/SelfService/Create.html | 177 |
1 files changed, 0 insertions, 177 deletions
diff --git a/rt/html/SelfService/Create.html b/rt/html/SelfService/Create.html deleted file mode 100644 index 9a64b5fd9..000000000 --- a/rt/html/SelfService/Create.html +++ /dev/null @@ -1,177 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC -%# <jesse@bestpractical.com> -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# This work is made available to you under the terms of Version 2 of -%# the GNU General Public License. A copy of that license should have -%# been provided with this software, but in any event can be snarfed -%# from www.gnu.org. -%# -%# This work is distributed in the hope that it will be useful, but -%# WITHOUT ANY WARRANTY; without even the implied warranty of -%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -%# General Public License for more details. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<& Elements/Header, Title => loc("Create a ticket") &> - -<& /Elements/ListActions, actions => \@results &> - -<form action="<% $RT::WebPath %>/SelfService/Create.html" method="post" enctype="multipart/form-data" name="TicketCreate"> -<input type="hidden" class="hidden" name="id" value="new" /> - -<table> -<tr> -<td class="label"><&|/l&>Queue</&>:</td> -<td class="value"> - <input type="hidden" class="hidden" name="Queue" value="<% $queue_obj->id %>" /> - <strong><% $queue_obj->Name %></strong> (<%$queue_obj->Description || ''%>) -</td> -</tr> -<tr> -<td class="label"><&|/l&>Requestors</&>:</td> -<td class="value"> -<input name="Requestors" value="<% $ARGS{'Requestors'} || $session{CurrentUser}->EmailAddress %>" size="20" /> -</td> -</tr> -<tr> -<td class="label"><&|/l&>Cc</&>:</td> -<td class="value"> -<input name="Cc" size="20" value="<% $ARGS{'Cc'} || '' %>" /> -</td> -</tr> -<tr> -<td class="label"><&|/l&>Subject</&>:</td> -<td class="value"> -<input name="Subject" size="60" maxsize="200" value="<% $ARGS{'Subject'} || '' %>" /> -</td> -</tr> -<tr> - <td colspan="2"> - <& /Ticket/Elements/EditCustomFields, QueueObj => $queue_obj &> - </td> -</tr> -<tr> -<td class="label"><&|/l&>Attach file</&>:</td> -<td class="value"> -<input name="Attach" type="file" /> -</td> -</tr> -<tr> -<td colspan="2"> -<&|/l&>Describe the issue below</&>:<br /> -% if (exists $ARGS{Content}) { -<& /Elements/MessageBox, Default => $ARGS{Content}, IncludeSignature => 0 &> -% } else { -<& /Elements/MessageBox &> -% } -</td> -</tr> -</table> -<& /Elements/Submit, Label => loc("Create ticket")&> - - -</form> -<%args> -$Queue => undef -</%args> -<%init> -my $queue_obj = RT::Queue->new($session{'CurrentUser'}); -$queue_obj->Load($Queue) || Abort(loc("Queue could not be loaded.")); -$queue_obj->Disabled && Abort(loc("Cannot create tickets in a disabled queue.")); - -my ($checks_failure, $skip_create, @results) = (0, 0, ()); -$skip_create = 1 unless ($ARGS{'id'}||'') eq 'new'; - -$m->comp('/Elements/Callback', - QueueObj => $queue_obj, ARGSRef => \%ARGS, - skip_create => \$skip_create, checks_failure => \$checks_failure, - results => \@results -); - -$skip_create = 1 if exists $ARGS{'AddMoreAttach'}; - -# 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? - $session{'Attachments'} = {} unless defined $session{'Attachments'}; - - my $subject = "$ARGS{'Attach'}"; - - # strip leading directories - $subject =~ s#^.*[\\/]##; - - my $attachment = MakeMIMEEntity( - Subject => $subject, - Body => "", - AttachmentFieldName => 'Attach' - ); - - $session{'Attachments'} = { %{$session{'Attachments'} || {}}, - $ARGS{'Attach'} => $attachment }; -} - -unless (keys %{$session{'Attachments'}} and $ARGS{'id'} eq 'new') { - delete $session{'Attachments'}; -} - -my $CFs = $queue_obj->TicketCustomFields; -my $ValidCFs = $m->comp( - '/Elements/ValidateCustomFields', - CustomFields => $CFs, - ARGSRef => \%ARGS -); -unless ( $ValidCFs ) { - $checks_failure = 1; - while ( my $CF = $CFs->Next ) { - my $msg = $m->notes('InvalidField-' . $CF->Id) or next; - push @results, $CF->Name . ': ' . $msg - if ($ARGS{'id'}||'') eq 'new'; - } -} - -if ( !$checks_failure && !$skip_create ) { - $m->comp('Display.html', %ARGS); - $RT::Logger->crit("After display call; error is $@"); - $m->abort(); -} -</%init> |