[Rt-commit] r6319 - in rt/branches/3.7-EXPERIMENTAL: .
ruz at bestpractical.com
ruz at bestpractical.com
Fri Oct 27 01:41:58 EDT 2006
Author: ruz
Date: Fri Oct 27 01:41:57 2006
New Revision: 6319
Modified:
rt/branches/3.7-EXPERIMENTAL/ (props changed)
rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachments_Overlay.pm
Log:
r4055 at cubic-pc: cubic | 2006-10-27 07:13:10 +0400
* minor changes
Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachments_Overlay.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachments_Overlay.pm (original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachments_Overlay.pm Fri Oct 27 01:41:57 2006
@@ -75,15 +75,18 @@
use strict;
no warnings qw(redefine);
+use RT::Attachment;
+
# {{{ sub _Init
sub _Init {
- my $self = shift;
-
- $self->{'table'} = "Attachments";
- $self->{'primary_key'} = "id";
- $self->OrderBy ( FIELD => 'id',
- ORDER => 'ASC');
- return ( $self->SUPER::_Init(@_));
+ my $self = shift;
+ $self->{'table'} = "Attachments";
+ $self->{'primary_key'} = "id";
+ $self->OrderBy(
+ FIELD => 'id',
+ ORDER => 'ASC',
+ );
+ return $self->SUPER::_Init( @_ );
}
# }}}
@@ -121,20 +124,19 @@
sub ChildrenOf {
- my $self = shift;
- my $attachment = shift;
- $self->Limit ( FIELD => 'Parent',
- VALUE => $attachment);
+ my $self = shift;
+ my $attachment = shift;
+ return $self->Limit(
+ FIELD => 'Parent',
+ VALUE => $attachment
+ );
}
# }}}
# {{{ sub NewItem
sub NewItem {
my $self = shift;
-
- use RT::Attachment;
- my $item = new RT::Attachment($self->CurrentUser);
- return($item);
+ return RT::Attachment->new( $self->CurrentUser );
}
# }}}
@@ -165,8 +167,4 @@
}
# }}}
- 1;
-
-
-
-
+1;
More information about the Rt-commit
mailing list