html/Callbacks/Results-ODS/Search/Results.html/SearchActions

   1 % # Don't display this callback if our RT Version contains the new ResultsView
   2 % # AfterTools Callback
   3 % if ( $must_display ) {
   4 <a href="<%$RT::WebPath%>/Search/Results.ods<%$QueryString%>">ODS</a>
   5 % }
   6 <%INIT>
   7 my $must_display = 0;
   8
   9 # cmp_version is present only since 3.8.0
  10 sub cmp_version($$) {
  11     my ($a, $b) = (@_);
  12     my @a = split /[^0-9]+/, $a;
  13     my @b = split /[^0-9]+/, $b;
  14     for ( my $i = 0; $i < @a; $i++ ) {
  15         return 1 unless defined $b[$i];
  16         return $a[$i] <=> $b[$i] if $a[$i] <=> $b[$i];
  17     }
  18     return 0 if @a == @b;
  19     return -1;
  20 }
  21
  22 $must_display = ( cmp_version( '3.8.1', $RT::VERSION ) > 0 );
  23
  24 </%INIT>
  25 <%ARGS>
  26 $QueryString => undef
  27 </%ARGS>