rt/html/Admin/Queues/Modify.html

   1 %# {{{ BEGIN BPS TAGGED BLOCK
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# }}} END BPS TAGGED BLOCK
  46 <& /Admin/Elements/Header, Title => $title &>
  47 <& /Admin/Elements/QueueTabs, id => $QueueObj->id,
  48     QueueObj => $QueueObj,
  49     current_tab => $current_tab,
  50     Title => $title &>
  51 <& /Elements/ListActions, actions => \@results &>
  52
  53
  54
  55 <FORM ACTION="<%$RT::WebPath%>/Admin/Queues/Modify.html" METHOD=POST>
  56 %if ($Create ) {
  57 <INPUT TYPE=HIDDEN NAME=id VALUE="new">
  58 % } else {
  59 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>">
  60 % }
  61
  62 <TABLE>
  63 <TR><TD ALIGN=RIGHT>
  64 <&|/l&>Queue Name</&>:
  65 </TD>
  66 <TD><INPUT name="Name" value="<% ($Create) ? "" : $QueueObj->Name %>"></TD>
  67 </TR><TR>
  68 <TD ALIGN=RIGHT>
  69 <&|/l&>Description</&>:</TD><TD COLSPAN=3><INPUT name="Description" value="<% ($Create) ? "" : $QueueObj->Description %>" size=60></TD></TR>
  70 <TR>
  71 <TD ALIGN=RIGHT>
  72 <&|/l&>Reply Address</&>:
  73 </TD><TD>
  74 <INPUT name="CorrespondAddress" value="<% ($Create) ? "" : $QueueObj->CorrespondAddress %>">
  75 <BR><font size="-1"><i><&|/l , $RT::CorrespondAddress&>(If left blank, will default to [_1]</&></i></font>
  76 </TD>
  77 <TD ALIGN=RIGHT>
  78
  79 <&|/l&>Comment Address</&>: </TD><TD>
  80 <INPUT NAME="CommentAddress" value="<% ($Create) ? "" : $QueueObj->CommentAddress %>">
  81 <BR><font size="-1"><i><&|/l , $RT::CommentAddress&>(If left blank, will default to [_1]</&></i></font>
  82 </TD>
  83 </TR><TR>
  84
  85 <TD ALIGN=RIGHT>
  86 <&|/l&>Priority starts at</&>:
  87 </TD><TD><INPUT NAME="InitialPriority" value="<% ($Create) ? "" : $QueueObj->InitialPriority %>">
  88 </TD>
  89 <TD ALIGN=RIGHT>
  90 <&|/l&>Over time, priority moves toward</&>:
  91 </TD><TD><INPUT NAME="FinalPriority" value="<% ($Create) ? "" : $QueueObj->FinalPriority %>">
  92 </TD>
  93 </TR>
  94 <TR>
  95 <TD ALIGN=RIGHT>
  96 <&|/l&>Requests should be due in</&>:
  97 </TD><TD>
  98 <INPUT NAME="DefaultDueIn" VALUE="<% ($Create) ? "" : $QueueObj->DefaultDueIn%>"> <&|/l&>days</&>.
  99 </TD>
 100 </TR>
 101 <TR>
 102 <TD>
 103 </TD>
 104 <TD COLSPAN=4><INPUT TYPE=HIDDEN NAME="SetEnabled" VALUE="1">
 105 <INPUT TYPE=CHECKBOX NAME="Enabled" VALUE="1" <%$EnabledChecked%>> <&|/l&>Enabled (Unchecking this box disables this queue)</&><BR>
 106 <& /Elements/Callback, QueueObj => $QueueObj, results => \@results, %ARGS &>
 107 </TD>
 108 </TR>
 109
 110 </TABLE>
 111 <& /Elements/Submit, Label => loc('Save Changes') &>
 112 </form>
 113
 114
 115
 116 <%INIT>
 117 my $current_tab;
 118 my $QueueObj = new RT::Queue($session{'CurrentUser'});
 119 $QueueObj->Load($id);
 120 my  ($title, @results, $Disabled, $EnabledChecked);
 121 $EnabledChecked = "CHECKED";
 122
 123 if ($Create) {
 124     $current_tab = 'Admin/Queues/Modify.html?Create=1';
 125     $title = loc("Create a queue");
 126 } else {
 127     if ($id eq 'new') {
 128        my ($val, $msg) =  $QueueObj->Create(Name => $Name);
 129        delete $session{'create_in_queues'};
 130        if ($val == 0 ) {
 131            Abort("$msg");
 132         }
 133         else {
 134                 push @results, $msg;
 135         }
 136      }
 137      else {
 138         $QueueObj->Load($id) || $QueueObj->Load($Name) || Abort("Couldn't load queue '$Name'");
 139     }
 140         $title = loc('Editing Configuration for queue [_1]', $QueueObj->Name);
 141
 142     $current_tab = 'Admin/Queues/Modify.html?id='.$QueueObj->id;
 143 }
 144 if ($QueueObj->Id()) {
 145     delete $session{'create_in_queues'};
 146 my @attribs= qw(Description CorrespondAddress CommentAddress Name
 147                 InitialPriority FinalPriority DefaultDueIn);
 148
 149   @results = UpdateRecordObject( AttributesRef => \@attribs,
 150                                     Object => $QueueObj,
 151                                     ARGSRef => \%ARGS);
 152
 153   #we're asking about enabled on the web page but really care about disabled.
 154   if ($Enabled == 1) {
 155       $Disabled = 0;
 156   }
 157   else {
 158       $Disabled = 1;
 159   }
 160   if  ( ($SetEnabled) and ( $Disabled != $QueueObj->Disabled) ) {
 161       my  ($code, $msg) = $QueueObj->SetDisabled($Disabled);
 162       push @results, loc('Enabled status [_1]', loc_fuzzy($msg));
 163   }
 164
 165   if ($QueueObj->Disabled()) {
 166       $EnabledChecked ="";
 167   }
 168
 169     my @linkresults;
 170     $m->comp('/Elements/Callback', results => \@linkresults,
 171              RecordObj => $QueueObj, ARGSRef => \%ARGS,
 172              _CallbackName => 'ProcessLinks');
 173     push @results, @linkresults;
 174 }
 175 </%INIT>
 176
 177
 178 <%ARGS>
 179 $id => undef
 180 $result => undef
 181 $Name => undef
 182 $Create => undef
 183 $Description => undef
 184 $CorrespondAddress => undef
 185 $CommentAddress => undef
 186 $InitialPriority => undef
 187 $FinalPriority => undef
 188 $DefaultDueIn => undef
 189 $SetEnabled => undef
 190 $Enabled => undef
 191 </%ARGS>