From d1dee62ceda5c55120fc65d10447cb82834fe612 Mon Sep 17 00:00:00 2001
From: Emmanuel Lacour <elacour@easter-eggs.com>
Date: Wed, 12 Mar 2014 17:45:33 +0100
Subject: [PATCH 1/1] Remove 4.2 obsolete callbacks

---
 MANIFEST                                           |  2 --
 .../Search/Elements/ResultViews/AfterTools         |  4 ----
 .../Results-XLS/Search/Results.html/SearchActions  | 27 ----------------------
 3 files changed, 33 deletions(-)
 delete mode 100644 html/Callbacks/Results-XLS/Search/Elements/ResultViews/AfterTools
 delete mode 100644 html/Callbacks/Results-XLS/Search/Results.html/SearchActions

diff --git a/MANIFEST b/MANIFEST
index f7b955e..57847bd 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,7 +1,5 @@
 Changes
 html/Callbacks/Results-XLS/Elements/Tabs/Privileged
-html/Callbacks/Results-XLS/Search/Elements/ResultViews/AfterTools
-html/Callbacks/Results-XLS/Search/Results.html/SearchActions
 html/Search/Results.xls
 inc/Module/Install.pm
 inc/Module/Install/Base.pm
diff --git a/html/Callbacks/Results-XLS/Search/Elements/ResultViews/AfterTools b/html/Callbacks/Results-XLS/Search/Elements/ResultViews/AfterTools
deleted file mode 100644
index c84e660..0000000
--- a/html/Callbacks/Results-XLS/Search/Elements/ResultViews/AfterTools
+++ /dev/null
@@ -1,4 +0,0 @@
-<li><a href="<%RT->Config->Get('WebPath')%>/Search/Results.xls<%$QueryString%>"><&|/l&>XLS</&></a></li>
-<%ARGS>
-$QueryString => undef
-</%ARGS>
diff --git a/html/Callbacks/Results-XLS/Search/Results.html/SearchActions b/html/Callbacks/Results-XLS/Search/Results.html/SearchActions
deleted file mode 100644
index b3bca55..0000000
--- a/html/Callbacks/Results-XLS/Search/Results.html/SearchActions
+++ /dev/null
@@ -1,27 +0,0 @@
-% # Don't display this callback if our RT Version contains the new ResultsView
-% # AfterTools Callback
-% if ( $must_display ) {
-<a href="<%$RT::WebPath%>/Search/Results.xls<%$QueryString%>">XLS</a>
-% }
-<%INIT>
-my $must_display = 0;
-
-# cmp_version is present only since 3.8.0
-sub cmp_version($$) {
-    my ($a, $b) = (@_);
-    my @a = split /[^0-9]+/, $a;
-    my @b = split /[^0-9]+/, $b;
-    for ( my $i = 0; $i < @a; $i++ ) {
-        return 1 unless defined $b[$i];
-        return $a[$i] <=> $b[$i] if $a[$i] <=> $b[$i];
-    }
-    return 0 if @a == @b;
-    return -1;
-}
-
-$must_display = ( cmp_version( '3.8.1', $RT::VERSION ) > 0 );
-
-</%INIT>
-<%ARGS>
-$QueryString => undef
-</%ARGS>
-- 
2.11.0