[Rt-commit] [svn] r1545 - rtir/branches/1.1-TESTING/html/RTIR/Incident

[leira at pallas.eruditorum.org]

Author: leira
Date: Wed Sep 22 12:31:33 2004
New Revision: 1545

Added:
   rtir/branches/1.1-TESTING/html/RTIR/Incident/ShowChildren.html
Log:
Checking in a missed file.


Added: rtir/branches/1.1-TESTING/html/RTIR/Incident/ShowChildren.html
==============================================================================
--- (empty file)
+++ rtir/branches/1.1-TESTING/html/RTIR/Incident/ShowChildren.html	Wed Sep 22 12:31:33 2004
@@ -0,0 +1,91 @@
+%# BEGIN LICENSE BLOCK
+%# 
+%# Copyright (c) 1996-2002 Jesse Vincent <jesse at bestpractical.com>
+%# 
+%# (Except where explictly superceded by other copyright notices)
+%# 
+%# 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.
+%# 
+%# 
+%# Unless otherwise specified, all modifications, corrections or
+%# extensions to this work which alter its source code become the
+%# property of Best Practical Solutions, LLC when submitted for
+%# inclusion in the work.
+%# 
+%# 
+%# END LICENSE BLOCK
+<& /RTIR/Elements/Header, Title => $Title &>
+<& /RTIR/Incident/Elements/LinkTabs, 
+    Queue => $Queue,
+    Ticket => $Incident, 
+    current_tab => 'RTIR/Incident/ShowChildren.html?Queue=' . $Queue . 'id='.$Incident->id,
+    Title => $Title &>
+
+<& /RTIR/Elements/ListActions, actions => \@results &>
+
+<h2><% loc('Total [_1]: [_2]', $Queue, $count) %></h2>
+<form action="ShowChildren.html" method="post">
+<input type="hidden" name="id" value="<%$Incident->id%>">
+<input type="hidden" name="Queue" value="<%$Queue%>">
+% my $delete = 0;
+% if ($Incident->CurrentUserHasRight('ModifyTicket')) {
+% $delete = 1;
+% }
+
+<& /RTIR/Elements/ShowChildren, 
+    Delete => $delete,
+    Ticket => $Incident, 
+    Queue => $Queue,
+    FullList => $RT::WebPath."/RTIR/Incident/ShowChildren.html?Queue=$Queue&id=".$Incident->id
+    &>
+<& /Elements/Submit, Caption=> loc('Unlink Report') &>
+</form>
+
+<%INIT>
+  my ($Incident, $Title, $count);
+
+  $Incident = new RT::Ticket($session{'CurrentUser'});
+  $Incident = LoadTicket($id);
+
+  # translate the checkbox args to what ProcessTicketLinks expects
+  foreach my $arg (keys %ARGS) {
+      if ($arg =~ /^UpdateTicket(\d+)/) {
+	  $ARGS{'DeleteLink-' . $1 . '-MemberOf-'} = 1;
+      }
+  }
+
+  my @results = ProcessTicketLinks( TicketObj => $Incident, ARGSRef => \%ARGS);
+
+  $Title = loc("$Queue for Incident #[_1]: [_2]", $Incident->Id, $Incident->Subject);
+
+  unless ($id) {
+    Abort('No incident specified');
+  }
+
+  $Incident = LoadTicket($ARGS{'id'});
+  unless ($Incident->CurrentUserHasRight('ShowTicket')) {
+    Abort("No permission to view ticket");
+  }
+
+  $count=0;
+  while (my $link = $Incident->Members->Next) {
+    my $member= $link->BaseObj;
+    if ($member->QueueObj->Name eq $Queue) {
+      $count++;
+    }
+  }
+
+</%INIT>
+
+<%ARGS>
+$id => undef
+$Queue => 'Incident Reports'
+</%ARGS>