[Rt-commit] r2212 - in RT-View-Tree: . html/Search inc/Module
inc/Module/Install lib/RT/View
jesse at bestpractical.com
jesse at bestpractical.com
Thu Feb 10 13:56:48 EST 2005
Author: jesse
Date: Thu Feb 10 13:56:47 2005
New Revision: 2212
Modified:
RT-View-Tree/ (props changed)
RT-View-Tree/META.yml
RT-View-Tree/html/Search/Tree.html
RT-View-Tree/inc/Module/Install.pm
RT-View-Tree/inc/Module/Install/Base.pm
RT-View-Tree/inc/Module/Install/Can.pm
RT-View-Tree/inc/Module/Install/Fetch.pm
RT-View-Tree/inc/Module/Install/Makefile.pm
RT-View-Tree/inc/Module/Install/Metadata.pm
RT-View-Tree/inc/Module/Install/RTx.pm
RT-View-Tree/inc/Module/Install/Win32.pm
RT-View-Tree/inc/Module/Install/WriteAll.pm
RT-View-Tree/lib/RT/View/Tree.pm
RT-View-Tree/testdata
Log:
r2330 at hualien (orig r328): jesse | 2004-10-08T06:00:25.273599Z
r2016 at tinbook: jesse | 2004-10-08T06:00:52.722265Z
Added a + to drill down
Modified: RT-View-Tree/META.yml
==============================================================================
--- RT-View-Tree/META.yml (original)
+++ RT-View-Tree/META.yml Thu Feb 10 13:56:47 2005
@@ -1,5 +1,5 @@
name: RT-View-Tree
-version: 0.9
+version: 1.0
abstract: RT View-Tree Extension
license: unknown
distribution_type: module
@@ -7,4 +7,4 @@
directory:
- html
- inc
-generated_by: Module::Install version 0.35
+generated_by: Module::Install version 0.36
Modified: RT-View-Tree/html/Search/Tree.html
==============================================================================
--- RT-View-Tree/html/Search/Tree.html (original)
+++ RT-View-Tree/html/Search/Tree.html Thu Feb 10 13:56:47 2005
@@ -48,7 +48,8 @@
my $Ticket;
if ($id) {
$Ticket = RT::Ticket->new( $session{'CurrentUser'} );
- $Ticket->Load($id) if ($id);
+ $Ticket->Load($id);
+ $Query = "id = $id";
}
# }}}
@@ -63,7 +64,8 @@
my @output;
foreach my $item ( @{ $entry->{'output'} } ) {
if ( $item eq '__Subject__' ) {
- push @output, '___RT_TreeView_Indent__', $item;
+ push @output,
+ '___RT_TreeView_Indent__', $item;
}
else {
push @output, $item;
@@ -174,6 +176,9 @@
&>
<%perl>
+unshift @{$Format[0]->{'output'}}, "[<a
+ href=\"$RT::WebPath/Search/Tree.html?$QueryString&id=",
+ '__id__','">+</a>]';
foreach my $row (@tree) {
$m->comp( '.entry',
Ticket => $row->[0],
@@ -218,8 +223,10 @@
$MaxDepth => undef
$Parents => undef
</%args>
-<& /Elements/CollectionAsTable/Row, Format => \@Format, i => $Depth, record => $Ticket&>
-<%perl>
+<%init>
+
+$m->comp('/Elements/CollectionAsTable/Row', Format => \@Format, i => $Depth,
+record => $Ticket);
foreach my $row (@$Children) {
if (!exists $Parents->{$row->[0]->id}) {
$Parents->{$row->[0]->id} = 1;
@@ -257,7 +264,7 @@
}
}
-</%perl>
+</%init>
</%DEF>
Modified: RT-View-Tree/inc/Module/Install.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install.pm (original)
+++ RT-View-Tree/inc/Module/Install.pm Thu Feb 10 13:56:47 2005
@@ -1,9 +1,6 @@
-#line 1 "inc/Module/Install.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install.pm $ $Author: autrijus $
-# $Revision: #69 $ $Change: 2301 $ $DateTime: 2004/07/13 07:16:40 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install.pm"
package Module::Install;
-$VERSION = '0.35';
+$VERSION = '0.36';
die << "." unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'};
Please invoke ${\__PACKAGE__} with:
@@ -24,7 +21,7 @@
@inc::Module::Install::ISA = 'Module::Install';
*inc::Module::Install::VERSION = *VERSION;
-#line 132
+#line 129
sub import {
my $class = shift;
@@ -47,7 +44,7 @@
delete $INC{"$self->{path}.pm"};
}
-#line 159
+#line 156
sub autoload {
my $self = shift;
@@ -67,7 +64,7 @@
};
}
-#line 184
+#line 181
sub new {
my ($class, %args) = @_;
@@ -92,7 +89,7 @@
bless(\%args, $class);
}
-#line 213
+#line 210
sub call {
my $self = shift;
@@ -103,7 +100,7 @@
goto &{$obj->can($method)};
}
-#line 228
+#line 225
sub load {
my ($self, $method) = @_;
@@ -127,7 +124,7 @@
$obj;
}
-#line 258
+#line 255
sub load_extensions {
my ($self, $path, $top_obj) = @_;
@@ -146,7 +143,7 @@
}
}
-#line 282
+#line 279
sub find_extensions {
my ($self, $path) = @_;
@@ -169,4 +166,4 @@
__END__
-#line 620
+#line 617
Modified: RT-View-Tree/inc/Module/Install/Base.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Base.pm (original)
+++ RT-View-Tree/inc/Module/Install/Base.pm Thu Feb 10 13:56:47 2005
@@ -1,10 +1,7 @@
-#line 1 "inc/Module/Install/Base.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Base.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Base.pm $ $Author: autrijus $
-# $Revision: #10 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Base.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Base.pm"
package Module::Install::Base;
-#line 31
+#line 28
sub new {
my ($class, %args) = @_;
@@ -18,18 +15,18 @@
bless(\%args, $class);
}
-#line 49
+#line 46
sub AUTOLOAD {
my $self = shift;
goto &{$self->_top->autoload};
}
-#line 60
+#line 57
sub _top { $_[0]->{_top} }
-#line 71
+#line 68
sub admin {
my $self = shift;
@@ -54,4 +51,4 @@
__END__
-#line 115
+#line 112
Modified: RT-View-Tree/inc/Module/Install/Can.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Can.pm (original)
+++ RT-View-Tree/inc/Module/Install/Can.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Can.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Can.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Can.pm $ $Author: autrijus $
-# $Revision: #6 $ $Change: 1840 $ $DateTime: 2003/12/28 19:42:02 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Can.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Can.pm"
package Module::Install::Can;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';
Modified: RT-View-Tree/inc/Module/Install/Fetch.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Fetch.pm (original)
+++ RT-View-Tree/inc/Module/Install/Fetch.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Fetch.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Fetch.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Fetch.pm $ $Author: autrijus $
-# $Revision: #8 $ $Change: 1374 $ $DateTime: 2003/03/18 11:50:15 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Fetch.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Fetch.pm"
package Module::Install::Fetch;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: RT-View-Tree/inc/Module/Install/Makefile.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Makefile.pm (original)
+++ RT-View-Tree/inc/Module/Install/Makefile.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Makefile.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Makefile.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Makefile.pm $ $Author: autrijus $
-# $Revision: #53 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Makefile.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Makefile.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
@@ -143,4 +140,4 @@
__END__
-#line 276
+#line 273
Modified: RT-View-Tree/inc/Module/Install/Metadata.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Metadata.pm (original)
+++ RT-View-Tree/inc/Module/Install/Metadata.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Metadata.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Metadata.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Metadata.pm $ $Author: autrijus $
-# $Revision: #32 $ $Change: 1885 $ $DateTime: 2004/03/11 05:55:27 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Metadata.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Metadata.pm"
package Module::Install::Metadata;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: RT-View-Tree/inc/Module/Install/RTx.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/RTx.pm (original)
+++ RT-View-Tree/inc/Module/Install/RTx.pm Thu Feb 10 13:56:47 2005
@@ -1,11 +1,8 @@
-#line 1 "inc/Module/Install/RTx.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/RTx.pm"
-# $File: //member/autrijus/Module-Install-RTx/lib/Module/Install/RTx.pm $ $Author: autrijus $
-# $Revision: #17 $ $Change: 10722 $ $DateTime: 2004/05/31 16:38:57 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/RTx.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/RTx.pm"
package Module::Install::RTx;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
-$Module::Install::RTx::VERSION = '0.08';
+$Module::Install::RTx::VERSION = '0.09';
use strict;
use FindBin;
@@ -37,11 +34,11 @@
else {
local @INC = (
@INC,
- $ENV{RTHOME},
+ $ENV{RTHOME} ? ($ENV{RTHOME}, "$ENV{RTHOME}/lib") : (),
map {( "$_/rt3/lib", "$_/lib/rt3", "$_/lib" )} grep $_, @prefixes
);
until ( eval { require RT; $RT::LocalPath } ) {
- warn "Cannot find the location of RT.pm that defines \$RT::LocalPath. ($@)\n";
+ warn "Cannot find the location of RT.pm that defines \$RT::LocalPath in: @INC\n";
$_ = $self->prompt("Path to your RT.pm:") or exit;
push @INC, $_, "$_/rt3/lib", "$_/lib/rt3";
}
@@ -155,4 +152,6 @@
__END__
-#line 234
+#line 220
+
+#line 241
Modified: RT-View-Tree/inc/Module/Install/Win32.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/Win32.pm (original)
+++ RT-View-Tree/inc/Module/Install/Win32.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Win32.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/Win32.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Win32.pm $ $Author: autrijus $
-# $Revision: #9 $ $Change: 1789 $ $DateTime: 2003/11/11 01:22:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Win32.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/Win32.pm"
package Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: RT-View-Tree/inc/Module/Install/WriteAll.pm
==============================================================================
--- RT-View-Tree/inc/Module/Install/WriteAll.pm (original)
+++ RT-View-Tree/inc/Module/Install/WriteAll.pm Thu Feb 10 13:56:47 2005
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/WriteAll.pm - /opt/perl-5.8.3/lib/site_perl/5.8.3/Module/Install/WriteAll.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/WriteAll.pm $ $Author: autrijus $
-# $Revision: #3 $ $Change: 1885 $ $DateTime: 2004/03/11 05:55:27 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/WriteAll.pm - /opt/perl-5.8.5/lib/site_perl/5.8.5/Module/Install/WriteAll.pm"
package Module::Install::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: RT-View-Tree/lib/RT/View/Tree.pm
==============================================================================
--- RT-View-Tree/lib/RT/View/Tree.pm (original)
+++ RT-View-Tree/lib/RT/View/Tree.pm Thu Feb 10 13:56:47 2005
@@ -1,6 +1,6 @@
package RT::View::Tree;
-our $VERSION = '1.0';
+our $VERSION = '1.1';
1;
Modified: RT-View-Tree/testdata
==============================================================================
--- RT-View-Tree/testdata (original)
+++ RT-View-Tree/testdata Thu Feb 10 13:56:47 2005
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/opt/perl-5.8.5/bin/perl
use strict;
use lib qw(/opt/rt3/lib);
More information about the Rt-commit
mailing list