[Rt-commit] r4495 - in rtir/branches/1.9-EXPERIMENTAL: html/RTIR html/RTIR/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb  3 18:43:42 2006
New Revision: 4495

Added:
   rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Advanced.html
Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Elements/QueueTabs

Log:
 r626 at cubic-pc:  cubic | 2006-02-04 02:15:40 +0300
 * new Advanced tab in RTIR queues
 * page with advanced things to allow better integration with RT
 ** move RTIR's tickets between queues
 ** change links
 ** merge tickets
 


Added: rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Advanced.html
==============================================================================
--- (empty file)
+++ rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Advanced.html	Fri Feb  3 18:43:42 2006
@@ -0,0 +1,54 @@
+<& /RTIR/Elements/Header, Title => $Title &>
+<& '/RTIR/'.$Type.'/Elements/Tabs', 
+    Ticket         => $Ticket,
+    current_tab    => "RTIR/Advanced.html?id=".$Ticket->Id,
+    current_subtab => "RTIR/Advanced.html?id=".$Ticket->Id,
+    Title          => $Title,
+&>
+
+<& /Elements/ListActions, actions => \@results &>
+
+<form method="post" action="Advanced.html" enctype="multipart/form-data">
+<input type="hidden" name="id" value="<% $Ticket->Id %>" />
+
+<&| /Widgets/TitleBox, title => loc('Edit basics') &>
+<& /Ticket/Elements/EditBasics, TicketObj => $Ticket &>
+</&>
+
+<&| /Widgets/TitleBox, title => loc('Edit Links') &>
+<& /Elements/EditLinks, Object => $Ticket, Merge => 1 &>
+</&>
+
+<& /Elements/Submit,
+    Name => 'SaveChanges',
+    Label => loc('Save Changes'),
+    Caption => loc("If you've updated anything above, be sure to"),
+&>
+</form>
+
+<%INIT>
+my $Ticket = LoadTicket($id);
+$id = $Ticket->id;
+
+my @results;
+if ( $ARGS{'SaveChanges'} ) {
+    push @results, ProcessTicketBasics( TicketObj => $Ticket, ARGSRef => \%ARGS);
+    push @results, ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS);
+
+    if ( RT->Config->Get('DisplayAfterEdit') ) {
+        $m->comp("/RTIR/Display.html", results => [@results], %ARGS);
+        return;;
+    }
+}
+
+unless ($Ticket->CurrentUserHasRight('ShowTicket')) {
+   Abort("No permission to view ticket");
+}
+
+my ($Type) = $m->comp('Elements/Type', Ticket => $Ticket->Id);
+my $Title = loc("Advanced edit $Type #[_1]", $id);
+
+</%INIT>
+<%ARGS>
+$id => undef
+</%ARGS>

Modified: rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Elements/QueueTabs
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Elements/QueueTabs	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Elements/QueueTabs	Fri Feb  3 18:43:42 2006
@@ -96,8 +96,12 @@
                 path  => "RTIR/Split.html?Ticket=$id" };
 
         $ticket_page_tabs->{'_G'} = { title => loc('Merge'),
-                path  => "RTIR/Merge.html?id=$id&$QueryString",
-                separator => 1  };
+                path  => "RTIR/Merge.html?id=$id&$QueryString" };
+
+        $ticket_page_tabs->{'_H'} = { title => loc('Advanced'),
+                path  => "RTIR/Advanced.html?id=$id",
+                separator => 1,
+        };
 
         foreach my $key (keys %$appendtabs) {
             $ticket_page_tabs->{ $key }->{'title'} = $appendtabs->{ $key }->{'title'};