view release on metacpan or  search on metacpan

html/Callbacks/RT-Tree-View/Ticket/Elements/Tabs/Default  view on Meta::CPAN

%# 
%#  This program 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.
%# 
%# END LICENSE BLOCK

<%init>
if ($Ticket) {
    $tabs->{'this'}->{'subtabs'}->{'_ZZ-Treeview'} = {
        title => loc("Tree view"),
        path  => "Search/Tree.html?id=" . $Ticket->id . "&Query=id%20=%20" . $Ticket->id
    };
    if ( $current_tab =~ qr{^Search/Tree.html} ) {
        $tabs->{'this'}->{'current_subtab'} = "Search/Tree.html?id=" . $Ticket->id . "&Query=id%20=%20" . $Ticket->id
    }
}

if ( $current_tab =~ qr{^Search/Tree.html} ) {

html/Search/Tree.html  view on Meta::CPAN

<%ARGS>
$TreeviewMagic => undef
$id => undef
$Query => undef
$Format => undef
$Rows => undef
$OrderBy => undef
$Order => undef
$Page => undef
$MaxDepth => 7
$ShowChildren => undef
$ShowDependencies => undef
@ShowStatus => ();
</%ARGS>
<%init>

my @statuses = RT::Queue->new($session{'CurrentUser'})->StatusArray;
unless ($TreeviewMagic) {
    unless (defined $ShowChildren) {
        $ShowChildren = 1;
    }
    unless (defined $ShowDependencies) {
	$ShowDependencies = 1;
    }
    unless( @ShowStatus ) {
	@ShowStatus = qw(new open stalled);
    }
}

html/Search/Tree.html  view on Meta::CPAN

<hr>
<form method="get" action="<%$RT::WebPath%>/Search/Tree.html">
<input type="hidden" name="Query" value="<%$Query%>">
<input type="hidden" name="Format" value="<%$Format%>">
<& /Elements/TitleBoxStart, title => loc('Display options') &>
<ul>
<li><&|/l&>Sublevel display depth</&>: <input type=text size=3 name="MaxDepth"
value=<%$MaxDepth%>> 
</li>
%# Checkboxes have binary logic. "Off" looks like "never existed
%# TreeviewMagic emulates trinary logic for them
<input type="hidden" name="TreeviewMagic" value="1">
<li><input type="checkbox" name="ShowChildren" <% $ShowChildren
 &&
'CHECKED'%>><&|/l&>Show children in sublevels</&></li>
<li><input type="checkbox" name="ShowDependencies" <%$ShowDependencies&& 
'CHECKED'%>><&|/l&>Show dependencies in sublevels</&></li>
<li><&|/l&>Status</&>:<SELECT name="ShowStatus" multiple size=6>
% foreach my $s(@statuses) {
<option value="<% $s %>" <% (grep $_ eq $s, @ShowStatus)? 'selected': ''%>><&|/l&><% $s %></&></option>
% }
</select></li>