sunnavy at bestpractical
Oct 29, 2009, 12:41 AM
Post #1 of 1
(207 views)
Permalink
|
|
rt branch, 3.8-trunk, updated. rt-3.8.6-55-g93345de
|
|
The branch, 3.8-trunk has been updated
via 93345dec507c2fd3d529c0b008793df18d6b3b8d (commit)
from 18796b3e76e740f8dda27efd4d181bed4faa9ef1 (commit)
Summary of changes:
share/html/Search/Bulk.html | 2 +-
share/html/Ticket/Elements/BulkLinks | 117 ++++++++++++++++++++++++++++++++++
2 files changed, 118 insertions(+), 1 deletions(-)
- Log -----------------------------------------------------------------
commit 93345dec507c2fd3d529c0b008793df18d6b3b8d
Author: sunnavy <sunnavy [at] bestpractical>
Date: Thu Oct 29 15:41:16 2009 +0800
implement "Current Links" section in bulk update
diff --git a/share/html/Search/Bulk.html b/share/html/Search/Bulk.html
index a0638c1..2034f40 100755
--- a/share/html/Search/Bulk.html
+++ b/share/html/Search/Bulk.html
@@ -213,7 +213,7 @@ $cfs->LimitToQueue($_) for keys %$seen_queues;
<&|/Widgets/TitleBox, title => loc('Edit Links'), color => "#336633"&>
<em><&|/l&>Enter tickets or URIs to link tickets to. Separate multiple entries with spaces.</&></em><br />
-<& /Ticket/Elements/BulkLinks &>
+<& /Ticket/Elements/BulkLinks, Tickets => $Tickets &>
</&>
<& /Elements/Submit, Label => loc('Update') &>
diff --git a/share/html/Ticket/Elements/BulkLinks b/share/html/Ticket/Elements/BulkLinks
index 8b1dd0f..0205766 100755
--- a/share/html/Ticket/Elements/BulkLinks
+++ b/share/html/Ticket/Elements/BulkLinks
@@ -45,6 +45,83 @@
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
+<table width="100%">
+ <tr>
+ <td valign="top" width="50%">
+ <h3><&|/l&>Current Links</&></h3>
+<table>
+ <tr>
+ <td class="labeltop"><&|/l&>Depends on</&>:</td>
+ <td class="value">
+% if ( $hash{DependsOn} ) {
+% for my $link ( values %{$hash{DependsOn}} ) {
+ <input type="checkbox" class="checkbox" name="DeleteLink--<%$link->Type%>-<%$link->Target%>" value="1" />
+ <& /Elements/ShowLink, URI => $link->TargetURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td class="labeltop"><&|/l&>Depended on by</&>:</td>
+ <td class="value">
+% if ( $hash{DependedOnBy} ) {
+% for my $link ( values %{$hash{DependedOnBy}} ) {
+ <input type="checkbox" class="checkbox" name="DeleteLink-<%$link->Base%>-<%$link->Type%>-" value="1" />
+ <& /Elements/ShowLink, URI => $link->BaseURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td class="labeltop"><&|/l&>Parents</&>:</td>
+ <td class="value">
+% if ( $hash{MemberOf} ) {
+% for my $link ( values %{$hash{MemberOf}} ) {
+ <input type="checkbox" class="checkbox" name="DeleteLink--<%$link->Type%>-<%$link->Target%>" value="1" />
+ <& /Elements/ShowLink, URI => $link->TargetURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td class="labeltop"><&|/l&>Children</&>:</td>
+ <td class="value">
+% if ( $hash{Members} ) {
+% for my $link ( values %{$hash{Members}} ) {
+ <input type="checkbox" class="checkbox" name="DeleteLink-<%$link->Base%>-<%$link->Type%>-" value="1" />
+ <& /Elements/ShowLink, URI => $link->BaseURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td class="labeltop"><&|/l&>Refers to</&>:</td>
+ <td class="value">
+% if ( $hash{RefersTo} ) {
+% for my $link ( values %{$hash{RefersTo}} ) {
+ <input type="checkbox" class="checkbox" name="DeleteLink--<%$link->Type%>-<%$link->Target%>" value="1" />
+ <& /Elements/ShowLink, URI => $link->TargetURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td class="labeltop"><&|/l&>Referred to by</&>:</td>
+ <td class="value">
+% if ( $hash{ReferredToBy} ) {
+% for my $link ( values %{$hash{ReferredToBy}} ) {
+% # Skip reminders
+% next if (UNIVERSAL::isa($link->BaseObj, 'RT::Ticket') && $link->BaseObj->Type eq 'reminder');
+ <input type="checkbox" class="checkbox" name="DeleteLink-<%$link->Base%>-<%$link->Type%>-" value="1" />
+ <& /Elements/ShowLink, URI => $link->BaseURI &><br />
+% } }
+ </td>
+ </tr>
+ <tr>
+ <td></td>
+ <td><i><&|/l&>(Check box to delete)</&></i></td>
+ </tr>
+</table>
+</td>
+<td valign="top">
+<h3><&|/l&>New Links</&></h3>
+<i><&|/l&>Enter tickets or URIs to link tickets to. Separate multiple entries with spaces.</&>
+</i><br />
<table>
<tr>
<td class="label"><&|/l&>Merge into</&>:</td>
@@ -75,3 +152,43 @@
<td class="entry"> <input name="RefersTo-Ticket" /></td>
</tr>
</table>
+</td>
+</tr>
+</table>
+
+<%ARGS>
+$Tickets => undef
+</%ARGS>
+
+<%INIT>
+my %hash;
+if ( $Tickets && $Tickets->Count ) {
+ my $first_ticket = $Tickets->Next;
+ # we only show current links that eixst on all the tickets
+ for my $type ( qw/DependsOn DependedOnBy Members MemberOf RefersTo
+ ReferredToBy/ ) {
+ my $target_or_base =
+ $type =~ /DependsOn|MemberOf|RefersTo/ ? 'Target' : 'Base';
+ while ( my $link = $first_ticket->$type->Next ) {
+ $hash{$type}{$link->$target_or_base} = $link;
+ }
+ }
+
+ while ( my $ticket = $Tickets->Next ) {
+ for my $type ( qw/DependsOn DependedOnBy Members MemberOf RefersTo
+ ReferredToBy/ ) {
+ my $target_or_base =
+ $type =~ /DependsOn|MemberOf|RefersTo/ ? 'Target' : 'Base';
+ next unless $hash{$type};
+ my %exists;
+ while ( my $link = $ticket->$type->Next ) {
+ $exists{$link->$target_or_base}++;
+ }
+
+ for ( keys %{$hash{$type}} ) {
+ delete $hash{$type}{$_} unless $exists{$_};
+ }
+ }
+ }
+}
+</%INIT>
-----------------------------------------------------------------------
_______________________________________________
Rt-commit mailing list
Rt-commit [at] lists
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit
|
