[Rt-commit] r15674 - in rt/branches/3.999-DANGEROUS/lib/RT: . Interface Model ScripAction Search
ruz at bestpractical.com
ruz at bestpractical.com
Sun Aug 31 19:37:28 EDT 2008
Author: ruz
Date: Sun Aug 31 19:37:24 2008
New Revision: 15674
Modified:
rt/branches/3.999-DANGEROUS/lib/RT/Condition.pm
rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ACECollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/AttachmentCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Attribute.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/AttributeCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMemberCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValueCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMemberCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Link.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/LinkCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ObjectCustomFieldValueCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/QueueCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripActionCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripConditionCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Template.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/TemplateCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/TransactionCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/EscalatePriority.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/ResolveMembers.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SetPriority.pm
rt/branches/3.999-DANGEROUS/lib/RT/Search.pm
rt/branches/3.999-DANGEROUS/lib/RT/Search/ActiveTicketsInQueue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Search/FromSQL.pm
rt/branches/3.999-DANGEROUS/lib/RT/Search/Googleish.pm
rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm
rt/branches/3.999-DANGEROUS/lib/RT/URI.pm
Log:
* delete all "# {{{ ..." comment strings
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Condition.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Condition.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Condition.pm Sun Aug 31 19:37:24 2008
@@ -82,7 +82,6 @@
use base qw/RT::Base/;
-# {{{ sub new
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
@@ -92,9 +91,7 @@
return $self;
}
-# }}}
-# {{{ sub _Init
sub _init {
my $self = shift;
my %args = (
@@ -116,11 +113,9 @@
$self->current_user( $args{'current_user'} );
}
-# }}}
# Access Scripwide data
-# {{{ sub Argument
=head2 Argument
@@ -133,9 +128,7 @@
return ( $self->{'argument'} );
}
-# }}}
-# {{{ sub ticket_obj
=head2 ticket_obj
@@ -148,9 +141,7 @@
return ( $self->{'ticket_obj'} );
}
-# }}}
-# {{{ sub scrip_obj
=head2 scrip_obj
@@ -163,8 +154,6 @@
return ( $self->{'scrip_obj'} );
}
-# }}}
-# {{{ sub transaction_obj
=head2 transaction_obj
@@ -177,9 +166,7 @@
return ( $self->{'transaction_obj'} );
}
-# }}}
-# {{{ sub Type
=head2 Type
@@ -192,33 +179,27 @@
return ( $self->{'applicable_trans_types'} );
}
-# }}}
# Scrip methods
#What does this type of Action does
-# {{{ sub describe
sub describe {
my $self = shift;
return ( _( "No description for %1", ref $self ) );
}
-# }}}
#Parse the templates, get things ready to go.
#If this rule applies to this transaction, return true.
-# {{{ sub is_applicable
sub is_applicable {
my $self = shift;
return (undef);
}
-# }}}
-# {{{ sub DESTROY
sub DESTROY {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm Sun Aug 31 19:37:24 2008
@@ -106,7 +106,6 @@
sub encoding {'utf-8'}
-# {{{ set_mime_entity_to_utf8
=head2 set_mime_entity_to_utf8 $entity
@@ -119,9 +118,7 @@
RT::I18N::set_mime_entity_to_encoding( shift, 'utf-8' );
}
-# }}}
-# {{{ is_textual_content_type
=head2 is_textual_content_type $type
@@ -133,7 +130,6 @@
^(?:text/(?:plain|html)|message/rfc822)\b
-# }}}
=cut
@@ -142,7 +138,6 @@
( $type =~ m{^(?:text/(?:plain|html)|message/rfc822)\b}i ) ? 1 : 0;
}
-# {{{ set_mime_entity_to_encoding
=head2 set_mime_entity_to_encoding $entity, $encoding
@@ -234,9 +229,7 @@
# Not turning off the UTF-8 flag in the string will prevent the string
# from conversion.
-# }}}
-# {{{ decode_mime_words_to_utf8
=head2 decode_mime_words_to_utf8 $raw
@@ -324,9 +317,7 @@
return ($str);
}
-# }}}
-# {{{ _find_or_guess_charset
=head2 _find_or_guess_charset MIME::Entity, $head_only
@@ -355,9 +346,7 @@
}
}
-# }}}
-# {{{ _guess_charset
=head2 _guess_charset STRING
@@ -408,9 +397,7 @@
return ( $charset || $fallback );
}
-# }}}
-# {{{ set_mime_head_to_encoding
=head2 set_mime_head_to_encoding HEAD OLD_CHARSET NEW_CHARSET
@@ -456,7 +443,6 @@
}
-# }}}
1; # End of module.
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm Sun Aug 31 19:37:24 2008
@@ -66,7 +66,6 @@
use URI qw();
use Digest::MD5 ();
-# {{{ escape_utf8
=head2 escape_utf8 SCALARREF
@@ -87,9 +86,7 @@
$$ref =~ s/'/'/g;
}
-# }}}
-# {{{ escape_uri
=head2 escape_uri SCALARREF
@@ -107,9 +104,7 @@
$$ref =~ s/([^a-zA-Z0-9_.!~*'()-])/uc sprintf("%%%02X", ord($1))/eg;
}
-# }}}
-# {{{ web_canonicalize_info
=head2 web_canonicalize_info();
@@ -123,9 +118,7 @@
return $ENV{'REMOTE_USER'} ? lc $ENV{'REMOTE_USER'} : $ENV{'REMOTE_USER'};
}
-# }}}
-# {{{ web_external_auto_info
=head2 web_external_auto_info($user);
@@ -163,7 +156,6 @@
return {%user_info};
}
-# }}}
=head2 redirect URL
@@ -267,7 +259,6 @@
use vars qw/$r $m %session/;
-# {{{ loc
=head2 loc ARRAY
@@ -283,9 +274,7 @@
return _(@_);
}
-# }}}
-# {{{ sub abort
# Error - calls Error and aborts
sub abort {
my $why = shift;
@@ -303,9 +292,7 @@
}
}
-# }}}
-# {{{ sub create_ticket
=head2 create_ticket ARGS
@@ -490,9 +477,7 @@
}
-# }}}
-# {{{ sub load_ticket - loads a ticket
=head2 load_ticket id
@@ -522,9 +507,7 @@
return $Ticket;
}
-# }}}
-# {{{ sub process_update_message
=head2 process_update_message
@@ -653,9 +636,7 @@
return @results;
}
-# }}}
-# {{{ sub make_mime_entity
=head2 make_mime_entity PARAMHASH
@@ -736,9 +717,7 @@
}
-# }}}
-# {{{ sub parse_date_to_iso
=head2 parse_date_to_iso
@@ -758,9 +737,7 @@
return ( $date_obj->iso );
}
-# }}}
-# {{{ sub process_acl_changes
sub process_acl_changes {
my $ARGSref = shift;
@@ -812,9 +789,7 @@
return (@results);
}
-# }}}
-# {{{ sub update_record_obj
=head2 update_record_obj ( args_ref => \%ARGS, object => RT::Record, attributes_ref => \@attribs)
@@ -843,9 +818,7 @@
return (@results);
}
-# }}}
-# {{{ sub process_custom_field_updates
sub process_custom_field_updates {
my %args = (
@@ -898,9 +871,7 @@
return (@results);
}
-# }}}
-# {{{ sub process_ticket_basics
=head2 process_ticket_basics ( ticket_obj => $Ticket, args_ref => \%ARGS );
@@ -970,7 +941,6 @@
return (@results);
}
-# }}}
sub process_ticket_custom_field_updates {
my %args = @_;
@@ -1173,7 +1143,6 @@
return @results;
}
-# {{{ sub process_ticket_watchers
=head2 process_ticket_watchers ( ticket_obj => $Ticket, args_ref => \%ARGS );
@@ -1255,9 +1224,7 @@
return (@results);
}
-# }}}
-# {{{ sub process_ticket_dates
=head2 process_ticket_dates ( ticket_obj => $Ticket, args_ref => \%ARGS );
@@ -1313,9 +1280,7 @@
return (@results);
}
-# }}}
-# {{{ sub process_ticket_links
=head2 process_ticket_links ( ticket_obj => $Ticket, args_ref => \%ARGS );
@@ -1345,7 +1310,6 @@
return (@results);
}
-# }}}
sub process_record_links {
my %args = (
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
);
}
-# {{{ sub new
=head2 new
@@ -133,6 +132,5 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm Sun Aug 31 19:37:24 2008
@@ -94,7 +94,6 @@
%TICKET_METAPRINCIPALS
);
-# {{{ descriptions of rights
=head1 rights
@@ -105,9 +104,7 @@
=cut
-# }}}
-# {{{ descriptions of principals
%TICKET_METAPRINCIPALS = (
owner => 'The owner of a ticket', # loc_pair
@@ -116,9 +113,7 @@
admin_cc => 'The administrative CC of a ticket', # loc_pair
);
-# }}}
-# {{{ sub load_by_values
=head2 load_by_values PARAMHASH
@@ -181,9 +176,7 @@
}
-# }}}
-# {{{ sub create
=head2 create <PARAMS>
@@ -335,9 +328,7 @@
}
}
-# }}}
-# {{{ sub delegate
=head2 delegate <PARAMS>
@@ -437,9 +428,7 @@
}
}
-# }}}
-# {{{ sub delete
=head2 delete { inside_transaction => undef}
@@ -531,9 +520,7 @@
return ( 0, _('Right could not be revoked') );
}
-# }}}
-# {{{ sub _bootstrap_create
=head2 _bootstrap_create
@@ -570,9 +557,7 @@
}
-# }}}
-# {{{ sub canonicalize_right_name
=head2 canonicalize_right_name <RIGHT>
@@ -587,9 +572,7 @@
return $LOWERCASERIGHTNAMES{ lc $right } || $right;
}
-# }}}
-# {{{ sub object
=head2 object
@@ -621,9 +604,7 @@
}
}
-# }}}
-# {{{ sub principal_object
=head2 principal_object
@@ -644,20 +625,15 @@
}
-# }}}
-# {{{ ACL related methods
-# {{{ sub _set
sub _set {
my $self = shift;
return ( 0, _("ACEs can only be Created and deleted.") );
}
-# }}}
-# {{{ sub _value
sub _value {
my $self = shift;
@@ -681,11 +657,8 @@
}
}
-# }}}
-# }}}
-# {{{ _canonicalize_Principal
=head2 _canonicalize_principal (principal_id, principal_type)
@@ -756,5 +729,4 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ACECollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ACECollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ACECollection.pm Sun Aug 31 19:37:24 2008
@@ -75,7 +75,6 @@
=cut
-# {{{ limit_to_object
=head2 limit_to_object $object
@@ -109,9 +108,7 @@
}
-# }}}
-# {{{ limit_Notobject
=head2 limit_notobject $object
@@ -147,9 +144,7 @@
);
}
-# }}}
-# {{{ limit_ToPrincipal
=head2 limit_to_principal { type => undef, id => undef, include_group_membership => undef }
@@ -216,9 +211,7 @@
}
}
-# }}}
-# {{{ ExcludeDelegatedRights
=head2 exclude_delegated_rights
@@ -232,9 +225,7 @@
$self->delegated_from( id => 0 );
}
-# }}}
-# {{{ delegated_by
=head2 delegated_by { id => undef }
@@ -260,9 +251,7 @@
}
-# }}}
-# {{{ delegated_from
=head2 delegated_from { id => undef }
@@ -288,9 +277,7 @@
}
-# }}}
-# {{{ sub next
sub next {
my $self = shift;
@@ -323,7 +310,6 @@
}
-# }}}
#wrap around _do_search so that we can build the hash of returned
#values
@@ -357,7 +343,6 @@
}
}
-# {{{ HasEntry
=head2 has_entry
@@ -385,5 +370,4 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/AttachmentCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/AttachmentCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/AttachmentCollection.pm Sun Aug 31 19:37:24 2008
@@ -206,15 +206,12 @@
return;
}
-# {{{ sub new_item
sub new_item {
my $self = shift;
return RT::Model::Attachment->new;
}
-# }}}
-# {{{ sub next
sub next {
my $self = shift;
@@ -233,6 +230,5 @@
return $self->next;
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Attribute.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Attribute.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Attribute.pm Sun Aug 31 19:37:24 2008
@@ -220,7 +220,6 @@
}
-# {{{ sub load_by_name_andobject
=head2 load_by_nameAndobject (object => OBJECT, name => name)
@@ -246,7 +245,6 @@
}
-# }}}
=head2 _deserializecontent
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/AttributeCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/AttributeCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/AttributeCollection.pm Sun Aug 31 19:37:24 2008
@@ -179,7 +179,6 @@
return ( 1, _('Attribute Deleted') );
}
-# {{{ limit_to_object
=head2 limit_to_object $object
@@ -213,6 +212,5 @@
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm Sun Aug 31 19:37:24 2008
@@ -184,9 +184,7 @@
}
-# }}}
-# {{{ Delete
=head2 delete
@@ -266,9 +264,7 @@
return ($err);
}
-# }}}
-# {{{ Setdisabled
=head2 setdisabled
@@ -345,9 +341,7 @@
return ($err);
}
-# }}}
-# {{{ GroupObj
=head2 group_obj
@@ -362,9 +356,7 @@
return ($principal);
}
-# }}}
-# {{{ immediate_parentObj
=head2 immediate_parent_obj
@@ -379,9 +371,7 @@
return ($principal);
}
-# }}}
-# {{{ MemberObj
=head2 member_obj
@@ -396,5 +386,4 @@
return ($principal);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMemberCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMemberCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMemberCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::CachedGroupMemberCollection;
use base qw/RT::SearchBuilder/;
-# {{{ limit_ToUsers
=head2 limit_to_users
@@ -98,9 +97,7 @@
);
}
-# }}}
-# {{{ limit_ToGroups
=head2 limit_to_groups
@@ -129,9 +126,7 @@
);
}
-# }}}
-# {{{ sub limit_to_members_of_group
=head2 limit_to_members_of_group PRINCIPAL_ID
@@ -155,9 +150,7 @@
}
-# }}}
-# {{{ sub limit_to_groups_with_member
=head2 limit_to_groups_with_member PRINCIPAL_ID
@@ -182,5 +175,4 @@
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm Sun Aug 31 19:37:24 2008
@@ -303,7 +303,6 @@
}
}
-# {{{ sub load_by_name
=head2 load_by_name (queue => QUEUEID, name => name)
@@ -368,9 +367,7 @@
return $self->load_by_id( $first->id );
}
-# }}}
-# {{{ Dealing with custom field values
=cut
@@ -401,7 +398,6 @@
return ($cf_values);
}
-# {{{ AddValue
=head3 AddValue HASH
@@ -427,9 +423,7 @@
return $newval->create( %args, custom_field => $self->id );
}
-# }}}
-# {{{ DeleteValue
=head3 DeleteValue ID
@@ -462,7 +456,6 @@
return ( $retval, _("Custom field value deleted") );
}
-# }}}
=head2 validate_queue Queue
@@ -485,7 +478,6 @@
return 1;
}
-# {{{ Types
=head2 types
@@ -497,9 +489,7 @@
return ( keys %FieldTypes );
}
-# }}}
-# {{{ IsSelectionType
=head2 is_selection_type
@@ -516,7 +506,6 @@
$type =~ /(?:Select|Combobox|Autocomplete)/;
}
-# }}}
=head2 is_external_values
@@ -656,7 +645,6 @@
return ( 0, $err );
}
-# {{{ single_value
=head2 single_value
@@ -683,9 +671,7 @@
}
}
-# }}}
-# {{{ sub current_user_has_right
=head2 current_user_has_right RIGHT
@@ -703,9 +689,7 @@
);
}
-# }}}
-# {{{ sub _set
sub _set {
my $self = shift;
@@ -717,9 +701,7 @@
}
-# }}}
-# {{{ sub _value
=head2 _value
@@ -740,8 +722,6 @@
return $self->__value(@_);
}
-# }}}
-# {{{ sub set_disabled
=head2 setdisabled
@@ -751,7 +731,6 @@
=cut
-# }}}
=head2 settype_composite
@@ -918,7 +897,6 @@
return ( $oid, $msg );
}
-# {{{ add_value_for_object
=head2 add_value_for_object HASH
@@ -999,9 +977,7 @@
}
-# }}}
-# {{{ MatchPattern
=head2 match_pattern STRING
@@ -1017,9 +993,7 @@
return ( ( defined $_[0] ? $_[0] : '' ) =~ $regex );
}
-# }}}
-# {{{ friendly_pattern
=head2 friendly_pattern
@@ -1040,9 +1014,7 @@
}
}
-# }}}
-# {{{ delete_value_for_object
=head2 delete_value_for_object HASH
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldCollection.pm Sun Aug 31 19:37:24 2008
@@ -84,7 +84,6 @@
return ( $self->{_sql_ocfalias} );
}
-# {{{ sub limit_to_global_or_queue
=head2 limit_to_global_or_queue QUEUEID
@@ -99,9 +98,7 @@
$self->limit_to_lookup_type('RT::Model::Queue-RT::Model::Ticket');
}
-# }}}
-# {{{ sub limit_to_queue
=head2 limit_to_queue QUEUEID
@@ -124,9 +121,7 @@
$self->limit_to_lookup_type('RT::Model::Queue-RT::Model::Ticket');
}
-# }}}
-# {{{ sub limit_to_global
=head2 limit_to_global
@@ -148,9 +143,7 @@
$self->limit_to_lookup_type('RT::Model::Queue-RT::Model::Ticket');
}
-# }}}
-# {{{ sub _do_search
=head2 _do_search
@@ -172,9 +165,7 @@
}
-# }}}
-# {{{ sub next
=head2 next
@@ -205,7 +196,6 @@
}
-# }}}
sub limit_to_lookup_type {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValueCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValueCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValueCollection.pm Sun Aug 31 19:37:24 2008
@@ -52,7 +52,6 @@
use base qw/RT::SearchBuilder/;
-# {{{ sub limit_to_custom_field
=head2 limit_to_custom_field column
@@ -70,6 +69,5 @@
);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm Sun Aug 31 19:37:24 2008
@@ -127,7 +127,6 @@
return ($RIGHTS);
}
-# {{{ sub self_description
=head2 self_description
@@ -162,9 +161,7 @@
}
}
-# }}}
-# {{{ sub load
=head2 load ID
@@ -187,9 +184,7 @@
}
}
-# }}}
-# {{{ sub load_user_defined_group
=head2 load_user_defined_group name
@@ -216,9 +211,7 @@
}
}
-# }}}
-# {{{ sub load_acl_equivalence_group
=head2 load_acl_equivalence_group PRINCIPAL
@@ -243,9 +236,7 @@
);
}
-# }}}
-# {{{ sub load_personal_group
=head2 load_personal_group {name => name, User => USERID}
@@ -269,9 +260,7 @@
);
}
-# }}}
-# {{{ sub load_system_internal_group
=head2 load_system_internal_group name
@@ -291,9 +280,7 @@
);
}
-# }}}
-# {{{ sub load_ticket_role_group
=head2 load_ticket_role_group { Ticket => TICKET_ID, type => TYPE }
@@ -323,9 +310,7 @@
Carp::confess("AAA NO ROLE") unless $self->id;
}
-# }}}
-# {{{ sub load_queue_role_group
=head2 load_queue_role_group { queue => Queue_ID, type => TYPE }
@@ -353,9 +338,7 @@
);
}
-# }}}
-# {{{ sub load_system_role_group
=head2 load_system_role_group type
@@ -377,9 +360,7 @@
);
}
-# }}}
-# {{{ sub create
=head2 create
@@ -394,9 +375,7 @@
return ( 0, _('Permission Denied') );
}
-# }}}
-# {{{ sub _create
=head2 _create
@@ -473,9 +452,7 @@
return ( $id, _("Group Created") );
}
-# }}}
-# {{{ create_userDefinedGroup
=head2 create_user_defined_group { name => "name", description => "description"}
@@ -503,9 +480,7 @@
);
}
-# }}}
-# {{{ ccreateacl_equivalence_group
=head2 _createacl_equivalence_group { Principal }
@@ -552,9 +527,7 @@
return ($id);
}
-# }}}
-# {{{ CreatePersonalGroup
=head2 create_personal_group { principal_id => PRINCIPAL_ID, name => "name", description => "description"}
@@ -600,9 +573,7 @@
);
}
-# }}}
-# {{{ CreateRoleGroup
=head2 create_role_group { domain => DOMAIN, type => TYPE, instance => ID }
@@ -639,9 +610,7 @@
);
}
-# }}}
-# {{{ sub delete
=head2 delete
@@ -669,7 +638,6 @@
return ( $self->SUPER::delete(@_) );
}
-# }}}
=head2 setdisabled BOOL
@@ -680,7 +648,6 @@
=cut
-# }}}
sub set_disabled {
my $self = shift;
@@ -743,14 +710,12 @@
}
-# }}}
sub disabled {
my $self = shift;
$self->principal_object->disabled(@_);
}
-# {{{ DeepMembersObj
=head2 deep_members_obj
@@ -771,9 +736,7 @@
}
-# }}}
-# {{{ members_obj
=head2 members_obj
@@ -793,9 +756,7 @@
}
-# }}}
-# {{{ GroupMembersObj
=head2 group_members_obj [recursively => 1]
@@ -836,9 +797,7 @@
return $groups;
}
-# }}}
-# {{{ UserMembersObj
=head2 user_members_obj
@@ -879,9 +838,7 @@
return ($users);
}
-# }}}
-# {{{ member_emails
=head2 member_emails
@@ -901,9 +858,7 @@
return ( sort keys %addresses );
}
-# }}}
-# {{{ member_emails_as_string
=head2 member_emails_as_string
@@ -917,9 +872,7 @@
return ( join( ', ', $self->member_emails ) );
}
-# }}}
-# {{{ add_member
=head2 add_member PRINCIPAL_ID
@@ -1028,9 +981,7 @@
}
}
-# }}}
-# {{{ has_member
=head2 has_member RT::Model::Principal|id
@@ -1075,9 +1026,7 @@
}
}
-# }}}
-# {{{ has_member_recursively
=head2 has_member_recursively RT::Model::Principal|id
@@ -1117,9 +1066,7 @@
}
}
-# }}}
-# {{{ delete_member
=head2 delete_member PRINCIPAL_ID
@@ -1195,9 +1142,7 @@
}
}
-# }}}
-# {{{ sub _cleanup_invalid_delegations
=head2 _cleanup_invalid_delegations { inside_transaction => undef }
@@ -1251,11 +1196,8 @@
return (1);
}
-# }}}
-# {{{ ACL Related routines
-# {{{ sub _set
sub _set {
my $self = shift;
my %args = (
@@ -1308,7 +1250,6 @@
}
}
-# }}}
=head2 current_user_has_right RIGHTNAME
@@ -1345,9 +1286,7 @@
}
-# }}}
-# {{{ Principal related routines
=head2 principal_object
@@ -1381,7 +1320,6 @@
return $self->id;
}
-# }}}
sub basic_columns {
( [ name => 'name' ], [ description => 'description' ], );
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm Sun Aug 31 19:37:24 2008
@@ -82,7 +82,6 @@
# Jesse wants something that doesn't imply it's a Principals.pm subclass.
# See comments below for candidats.
-# {{{ sub _init
sub implicit_clauses {
my $self = shift;
@@ -111,7 +110,6 @@
}
-# }}}
=head2 principals_alias
@@ -126,7 +124,6 @@
}
-# {{{ LimiToSystemInternalGroups
=head2 limit_to_system_internal_groups
@@ -146,9 +143,7 @@
#$self->limit(column => 'instance', operator => '=', value => '0');
}
-# }}}
-# {{{ LimiToUserDefinedGroups
=head2 limit_to_user_defined Groups
@@ -168,9 +163,7 @@
#$self->limit(column => 'instance', operator => '=', value => '');
}
-# }}}
-# {{{ LimiToPersonalGroups
=head2 limit_to_personal_groups_for PRINCIPAL_ID
@@ -191,9 +184,7 @@
);
}
-# }}}
-# {{{ limit_ToRolesForQueue
=head2 limit_to_roles_for_queue QUEUE_ID
@@ -212,9 +203,7 @@
$self->limit( column => 'instance', operator => '=', value => $queue );
}
-# }}}
-# {{{ limit_ToRolesForTicket
=head2 limit_to_roles_for_ticket Ticket_ID
@@ -233,9 +222,7 @@
$self->limit( column => 'instance', operator => '=', value => '$Ticket' );
}
-# }}}
-# {{{ limit_ToRolesForSystem
=head2 limit_to_roles_for_system System_ID
@@ -252,7 +239,6 @@
);
}
-# }}}
=head2 with_member {principal_id => PRINCIPAL_ID, recursively => undef}
@@ -412,7 +398,6 @@
return (shift)->RT::Model::UserCollection::who_have_role_right(@_);
}
-# {{{ sub limit_to_enabled
=head2 limit_to_enabled
@@ -431,9 +416,7 @@
);
}
-# }}}
-# {{{ sub next
sub next {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm Sun Aug 31 19:37:24 2008
@@ -87,7 +87,6 @@
};
-# {{{ sub create
=head2 create { Group => undef, Member => undef }
@@ -210,9 +209,7 @@
return ($id);
}
-# }}}
-# {{{ sub _stash_user
=head2 _stash_user PRINCIPAL
@@ -269,9 +266,7 @@
return ($id);
}
-# }}}
-# {{{ sub delete
=head2 delete
@@ -345,9 +340,7 @@
}
-# }}}
-# {{{ sub member_obj
=head2 member_obj
@@ -364,9 +357,7 @@
return ( $self->{'Member_obj'} );
}
-# }}}
-# {{{ sub group_obj
=head2 group_obj
@@ -383,6 +374,5 @@
return ( $self->{'Group_obj'} );
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMemberCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMemberCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMemberCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::GroupMemberCollection;
use base qw/RT::SearchBuilder/;
-# {{{ limit_ToUsers
=head2 limit_to_users
@@ -98,9 +97,7 @@
);
}
-# }}}
-# {{{ limit_ToGroups
=head2 limit_to_groups
@@ -129,9 +126,7 @@
);
}
-# }}}
-# {{{ sub limit_to_members_of_group
=head2 limit_to_members_of_group PRINCIPAL_ID
@@ -156,6 +151,5 @@
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Link.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Link.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Link.pm Sun Aug 31 19:37:24 2008
@@ -91,7 +91,6 @@
use Carp;
use RT::URI;
-# {{{ sub create
=head2 create PARAMHASH
@@ -174,8 +173,6 @@
return ( $id, $msg );
}
-# }}}
-# {{{ sub load_by_params
=head2 load_by_params
@@ -220,8 +217,6 @@
}
}
-# }}}
-# {{{ sub load
=head2 load
@@ -245,9 +240,7 @@
}
}
-# }}}
-# {{{ target_uri
=head2 target_uri
@@ -262,8 +255,6 @@
return ($URI);
}
-# }}}
-# {{{ sub target_obj
=head2 target_obj
@@ -274,9 +265,7 @@
return $self->target_uri->object;
}
-# }}}
-# {{{ base_uri
=head2 base_uri
@@ -291,8 +280,6 @@
return ($URI);
}
-# }}}
-# {{{ sub base_obj
=head2 base_obj
@@ -303,7 +290,6 @@
return $self->base_uri->object;
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/LinkCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/LinkCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/LinkCollection.pm Sun Aug 31 19:37:24 2008
@@ -73,7 +73,6 @@
use RT::URI;
-# {{{ sub limit
sub limit {
my $self = shift;
my %args = (
@@ -117,9 +116,7 @@
$self->SUPER::limit(%args);
}
-# }}}
-# {{{ limit_RefersTo
=head2 limit_refers_to URI
@@ -135,8 +132,6 @@
$self->limit( column => 'target', value => $URI );
}
-# }}}
-# {{{ limit_ReferredToBy
=head2 limit_referred_to_by URI
@@ -152,9 +147,7 @@
$self->limit( column => 'base', value => $URI );
}
-# }}}
-# {{{ Next
sub next {
my $self = shift;
@@ -177,6 +170,5 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ObjectCustomFieldValueCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ObjectCustomFieldValueCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ObjectCustomFieldValueCollection.pm Sun Aug 31 19:37:24 2008
@@ -52,7 +52,6 @@
use base qw/RT::SearchBuilder/;
-# {{{ sub limit_to_custom_field
=head2 limit_to_custom_field column
@@ -69,9 +68,7 @@
);
}
-# }}}
-# {{{ sub limit_to_object
=head2 limit_to_object OBJECT
@@ -93,7 +90,6 @@
}
-# }}}
=sub has_entry value
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm Sun Aug 31 19:37:24 2008
@@ -73,7 +73,6 @@
our $_ACL_CACHE;
invalidate_acl_cache();
-# {{{ is_group
=head2 is_group
@@ -90,9 +89,7 @@
return undef;
}
-# }}}
-# {{{ is_user
=head2 is_user
@@ -110,9 +107,7 @@
}
}
-# }}}
-# {{{ object
=head2 object
@@ -137,11 +132,8 @@
}
-# }}}
-# {{{ ACL Related routines
-# {{{ grant_right
=head2 grant_right { right => RIGHTNAME, object => undef }
@@ -183,9 +175,7 @@
);
}
-# }}}
-# {{{ revoke_right
=head2 revoke_right { right => "right_name", object => "object" }
@@ -232,9 +222,7 @@
return ( $ace->delete );
}
-# }}}
-# {{{ sub _cleanup_invalid_delegations
=head2 sub _cleanup_invalid_delegations { inside_transaction => undef }
@@ -267,9 +255,7 @@
return ( $self->object->_cleanup_invalid_delegations(@_) );
}
-# }}}
-# {{{ sub has_right
=head2 sub has_right (right => 'right' object => undef)
@@ -513,13 +499,9 @@
return 0;
}
-# }}}
-# }}}
-# {{{ ACL caching
-# {{{ invalidate_acl_cache
=head2 invalidate_acl_cache
@@ -534,11 +516,8 @@
$_ACL_CACHE->expire_after( $lifetime || 60 );
}
-# }}}
-# }}}
-# {{{ _get_principal_type_for_acl
=head2 _get_principal_type_for_acl
@@ -559,9 +538,7 @@
return ($type);
}
-# }}}
-# {{{ _reference_id
=head2 _reference_id
@@ -584,6 +561,5 @@
return ( ref($scalar) . "-" . $scalar->id );
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm Sun Aug 31 19:37:24 2008
@@ -199,7 +199,6 @@
return ($RIGHTS);
}
-# {{{ active_status_array
=head2 active_status_array
@@ -217,9 +216,7 @@
}
}
-# }}}
-# {{{ inactive_status_array
=head2 inactive_status_array
@@ -237,9 +234,7 @@
}
}
-# }}}
-# {{{ StatusArray
=head2 status_array
@@ -252,9 +247,7 @@
return ( $self->active_status_array(), $self->inactive_status_array() );
}
-# }}}
-# {{{ is_valid_status
=head2 is_valid_status value
@@ -272,9 +265,7 @@
}
-# }}}
-# {{{ is_active_status
=head2 is_active_status value
@@ -292,9 +283,7 @@
}
-# }}}
-# {{{ is_inactive_status
=head2 is_inactive_status value
@@ -312,9 +301,7 @@
}
-# }}}
-# {{{ sub create
=head2 create(ARGS)
@@ -394,18 +381,14 @@
return ( $id, _("Queue Created") );
}
-# }}}
-# {{{ sub delete
sub delete {
my $self = shift;
return ( 0, _('Deleting this object would break referential integrity') );
}
-# }}}
-# {{{ sub set_disabled
=head2 setdisabled
@@ -415,9 +398,7 @@
=cut
-# }}}
-# {{{ sub load
=head2 load
@@ -442,9 +423,7 @@
}
-# }}}
-# {{{ sub validate_name
=head2 validatename name
@@ -472,7 +451,6 @@
}
-# }}}
=head2 set_sign
@@ -601,7 +579,6 @@
return ($cf);
}
-# {{{ ticket_custom_fields
=head2 ticket_custom_fields
@@ -621,9 +598,7 @@
return ($cfs);
}
-# }}}
-# {{{ TicketTransactionCustomFields
=head2 ticket_transaction_custom_fields
@@ -643,9 +618,7 @@
return ($cfs);
}
-# }}}
-# }}}
=head2 _create_queue_groups
@@ -825,9 +798,7 @@
return ( 1, _( 'Added principal as a %1 for this queue', $args{'type'} ) );
}
-# }}}
-# {{{ sub delete_watcher
=head2 delete_watcher { type => TYPE, principal_id => PRINCIPAL_ID }
@@ -952,7 +923,6 @@
return ( 1, _( "%1 is no longer a %2 for this queue.", $principal->object->name, $args{'type'} ) );
}
-# }}}
=head2 role_group $role
@@ -972,9 +942,7 @@
}
-# {{{ IsWatcher, IsCc, is_admin_cc
-# {{{ sub is_watcher
# a generic routine to be called by IsRequestor, IsCc and is_admin_cc
=head2 is_watcher { type => TYPE, principal_id => PRINCIPAL_ID }
@@ -1017,15 +985,10 @@
return ( $group->has_member_recursively($principal) );
}
-# }}}
-# }}}
-# }}}
-# {{{ ACCESS CONTROL
-# {{{ sub _set
sub _set {
my $self = shift;
@@ -1035,9 +998,7 @@
return ( $self->SUPER::_set(@_) );
}
-# }}}
-# {{{ sub _value
sub _value {
my $self = shift;
@@ -1049,9 +1010,7 @@
return ( $self->__value(@_) );
}
-# }}}
-# {{{ sub current_user_has_right
=head2 current_user_has_right
@@ -1074,9 +1033,7 @@
}
-# }}}
-# {{{ sub has_right
=head2 has_right
@@ -1104,8 +1061,6 @@
return $principal->has_right( %args, object => ( $self->id ? $self : RT->system ), );
}
-# }}}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/QueueCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/QueueCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/QueueCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::QueueCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
sub _init {
my $self = shift;
$self->{'table'} = "Queues";
@@ -85,9 +84,7 @@
return ( $self->SUPER::_init(@_) );
}
-# }}}
-# {{{ sub _do_search
=head2 _do_search
@@ -108,9 +105,7 @@
}
-# }}}
-# {{{ sub limit
sub limit {
my $self = shift;
my %args = (
@@ -120,9 +115,7 @@
$self->SUPER::limit(%args);
}
-# }}}
-# {{{ sub add_record
=head2 add_record
@@ -138,7 +131,6 @@
$self->SUPER::add_record($Queue);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm Sun Aug 31 19:37:24 2008
@@ -395,7 +395,6 @@
}
-# }}}
=head2 prepare
@@ -427,9 +426,7 @@
return ($return);
}
-# }}}
-# {{{ sub commit
=head2 commit
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripActionCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripActionCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripActionCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::ScripActionCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
sub _init {
my $self = shift;
$self->{'table'} = "ScripActions";
@@ -77,9 +76,7 @@
return ( $self->SUPER::_init(@_) );
}
-# }}}
-# {{{ sub limit_to_type
sub limit_to_type {
my $self = shift;
my $type = shift;
@@ -101,16 +98,13 @@
}
-# }}}
-# {{{ sub new_item
sub new_item {
my $self = shift;
return ( RT::Model::ScripAction->new );
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripConditionCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripConditionCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripConditionCollection.pm Sun Aug 31 19:37:24 2008
@@ -70,7 +70,6 @@
package RT::Model::ScripConditionCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
sub _init {
my $self = shift;
$self->{'table'} = "ScripConditions";
@@ -78,9 +77,7 @@
return ( $self->SUPER::_init(@_) );
}
-# }}}
-# {{{ sub limit_to_type
sub limit_to_type {
my $self = shift;
my $type = shift;
@@ -102,15 +99,12 @@
}
-# }}}
-# {{{ sub new_item
sub new_item {
my $self = shift;
return ( RT::Model::ScripCondition->new );
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Template.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Template.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Template.pm Sun Aug 31 19:37:24 2008
@@ -101,9 +101,7 @@
return $self->SUPER::_set(@_);
}
-# }}}
-# {{{ sub _value
=head2 _value
@@ -126,9 +124,7 @@
}
-# }}}
-# {{{ sub load
=head2 load <identifer>
@@ -147,9 +143,7 @@
return $self->load_by_id($identifier);
}
-# }}}
-# {{{ sub load_global_template
=head2 load_global_template name
@@ -164,9 +158,7 @@
return ( $self->load_queue_template( queue => 0, name => $id ) );
}
-# }}}
-# {{{ sub loadqueue_template
=head2 load_queue_template (queue => QUEUEID, name => name)
@@ -186,9 +178,7 @@
}
-# }}}
-# {{{ sub create
=head2 create
@@ -248,9 +238,7 @@
}
-# }}}
-# {{{ sub delete
=head2 delete
@@ -299,7 +287,6 @@
return ( $self->{'mime_obj'} );
}
-# {{{ sub parse
=head2 parse
@@ -399,9 +386,7 @@
}
-# }}}
-# {{{ sub _parsecontent
# Perform template substitutions on the template
@@ -508,9 +493,7 @@
return ( $rv, $msg );
}
-# }}}
-# {{{ sub current_user_has_queue_right
=head2 current_user_has_queue_right
@@ -523,7 +506,6 @@
return ( $self->queue_obj->current_user_has_right(@_) );
}
-# }}}
sub queue_obj {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/TemplateCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/TemplateCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/TemplateCollection.pm Sun Aug 31 19:37:24 2008
@@ -68,7 +68,6 @@
package RT::Model::TemplateCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
=head2 _init
@@ -84,9 +83,7 @@
return ( $self->SUPER::_init(@_) );
}
-# }}}
-# {{{ limit_ToNotInQueue
=head2 limit_to_not_in_queue
@@ -105,9 +102,7 @@
);
}
-# }}}
-# {{{ limit_ToGlobal
=head2 limit_to_global
@@ -126,9 +121,7 @@
);
}
-# }}}
-# {{{ limit_ToQueue
=head2 limit_to_queue
@@ -147,9 +140,7 @@
);
}
-# }}}
-# {{{ sub new_item
=head2 new_item
@@ -165,9 +156,7 @@
return ($item);
}
-# }}}
-# {{{ sub next
=head2 next
@@ -206,7 +195,6 @@
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm Sun Aug 31 19:37:24 2008
@@ -48,7 +48,6 @@
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
-# {{{ Front Material
=head1 SYNOPSIS
@@ -112,7 +111,6 @@
column disabled => max_length is 6, type is 'smallint', default is '0';
};
-# {{{ LINKTYPEMAP
# A helper table for links mapping to make it easier
# to build and parse links between tickets
@@ -160,9 +158,7 @@
);
-# }}}
-# {{{ LINKDIRMAP
# A helper table for links mapping to make it easier
# to build and parse links between tickets
@@ -186,12 +182,10 @@
);
-# }}}
sub LINKTYPEMAP { return \%LINKTYPEMAP }
sub LINKDIRMAP { return \%LINKDIRMAP }
-# {{{ sub load
=head2 load
@@ -248,10 +242,8 @@
}
-# }}}
-# {{{ sub create
=head2 create (ARGS)
@@ -736,11 +728,8 @@
}
}
-# }}}
-# {{{ Routines dealing with watchers.
-# {{{ _create_role_groups
=head2 _create_role_groups
@@ -775,7 +764,6 @@
}
-# }}}
=head2 role_group("$role")
@@ -791,9 +779,7 @@
return ($obj);
}
-# }}}
-# {{{ sub add_watcher
=head2 add_watcher
@@ -928,9 +914,7 @@
return ( 1, _( 'Added principal as a %1 for this ticket', _( $args{'type'} ) ) );
}
-# }}}
-# {{{ sub delete_watcher
=head2 delete_watcher { type => TYPE, principal_id => PRINCIPAL_ID, email => EMAIL_ADDRESS }
@@ -1053,7 +1037,6 @@
return ( 1, _( "%1 is no longer a %2 for this ticket.", $principal->object->name, $args{'type'} ) );
}
-# }}}
=head2 squelch_mail_to [EMAIL]
@@ -1106,15 +1089,10 @@
return ( $val, $msg );
}
-# {{{ a set of [foo]AsString subs that will return the various sorts of watchers for a ticket/queue as a comma delineated string
-# {{{ Routines that return RT::Watchers objects of requestors, ccs and admin_ccs
-# }}}
-# {{{ is_watcher,is_requestor
-# {{{ sub is_watcher
# a generic routine to be called by is_requesto
=head2 is_watcher { type => TYPE, principal_id => PRINCIPAL_ID, email => EMAIL }
@@ -1168,9 +1146,7 @@
return $group->has_member( $args{'principal_id'} );
}
-# }}}
-# {{{ sub is_requestor
=head2 is_requestor PRINCIPAL_ID
@@ -1188,9 +1164,7 @@
}
-# }}}
-# {{{ sub is_owner
=head2 is_owner
@@ -1220,11 +1194,8 @@
}
}
-# }}}
-# }}}
-# }}}
=head2 transaction_addresses
@@ -1272,9 +1243,7 @@
}
-# {{{ Routines dealing with queues
-# {{{ sub validate_queue
sub validate_queue {
my $self = shift;
@@ -1295,9 +1264,7 @@
}
}
-# }}}
-# {{{ sub set_queue
sub set_queue {
my $self = shift;
@@ -1364,9 +1331,7 @@
return ( $status, $msg );
}
-# }}}
-# {{{ sub queue_obj
=head2 queue_obj
@@ -1384,13 +1349,9 @@
return ($queue_obj);
}
-# }}}
-# }}}
-# {{{ date printing routines
-# {{{ sub due_obj
=head2 due_obj
@@ -1413,9 +1374,7 @@
return $time;
}
-# }}}
-# {{{ sub resolved_obj
=head2 resolved_obj
@@ -1431,9 +1390,7 @@
return $time;
}
-# }}}
-# {{{ sub set_started
=head2 set_started
@@ -1476,9 +1433,7 @@
}
-# }}}
-# {{{ sub started_obj
=head2 started_obj
@@ -1495,9 +1450,7 @@
return $time;
}
-# }}}
-# {{{ sub starts_obj
=head2 starts_obj
@@ -1514,9 +1467,7 @@
return $time;
}
-# }}}
-# {{{ sub told_obj
=head2 told_obj
@@ -1533,9 +1484,7 @@
return $time;
}
-# }}}
-# {{{ sub told_as_string
=head2 told_as_string
@@ -1554,9 +1503,7 @@
}
}
-# }}}
-# {{{ sub time_worked_as_string
=head2 time_worked_as_string
@@ -1579,13 +1526,9 @@
return ( $worked->duration_as_string( $self->time_worked * 60 ) );
}
-# }}}
-# }}}
-# {{{ Routines dealing with correspondence/comments
-# {{{ sub comment
=head2 comment
@@ -1637,7 +1580,6 @@
return (@results);
}
-# }}}
=head2 correspond
@@ -1695,9 +1637,7 @@
}
-# }}}
-# {{{ sub _record_note
=head2 _record_note
@@ -1779,11 +1719,8 @@
return ( $Trans, _("Message recorded"), $TransObj );
}
-# }}}
-# }}}
-# {{{ sub _links
sub _links {
my $self = shift;
@@ -1826,9 +1763,7 @@
return ( $self->{"$field$type"} );
}
-# }}}
-# {{{ sub delete_link
=head2 delete_link
@@ -1930,9 +1865,7 @@
return ( $val, $Msg );
}
-# }}}
-# {{{ sub add_link
=head2 add_link
@@ -2071,9 +2004,7 @@
return ( $val, $msg );
}
-# }}}
-# {{{ sub merge_into
=head2 merge_into
@@ -2243,13 +2174,9 @@
return ( 1, _("Merge Successful") );
}
-# }}}
-# }}}
-# {{{ Routines dealing with ownership
-# {{{ sub owner_obj
=head2 owner_obj
@@ -2272,9 +2199,7 @@
return ($owner);
}
-# }}}
-# {{{ sub owner_as_string
=head2 owner_as_string
@@ -2288,9 +2213,7 @@
}
-# }}}
-# {{{ sub set_owner
=head2 set_owner
@@ -2431,9 +2354,7 @@
return ( $val, $msg );
}
-# }}}
-# {{{ sub take
=head2 take
@@ -2446,9 +2367,7 @@
return ( $self->set_owner( $self->current_user->id, 'Take' ) );
}
-# }}}
-# {{{ sub untake
=head2 untake
@@ -2461,9 +2380,7 @@
return ( $self->set_owner( RT->nobody->user_object->id, 'Untake' ) );
}
-# }}}
-# {{{ sub steal
=head2 steal
@@ -2484,13 +2401,9 @@
}
-# }}}
-# }}}
-# {{{ Routines dealing with status
-# {{{ sub validate_status
=head2 validate_status STATUS
@@ -2512,9 +2425,7 @@
}
-# }}}
-# {{{ sub set_status
=head2 set_status STATUS
@@ -2594,11 +2505,8 @@
return ( $val, $msg );
}
-# }}}
-# {{{ Actions + Routines dealing with transactions
-# {{{ sub set_told and _setTold
=head2 set_told ISO [TIMETAKEN]
@@ -2681,7 +2589,6 @@
return $txns->first;
}
-# }}}
=head2 transaction_batch
@@ -2722,9 +2629,7 @@
);
}
-# }}}
-# {{{ PRIVATE UTILITY METHODS. Mostly needed so Ticket can be a DBIx::Record
sub _set {
my $self = shift;
@@ -2791,9 +2696,7 @@
}
}
-# }}}
-# {{{ sub _value
=head2 _value
@@ -2824,9 +2727,7 @@
}
-# }}}
-# {{{ sub _update_time_taken
=head2 _update_time_taken
@@ -2850,13 +2751,9 @@
return ($Total);
}
-# }}}
-# }}}
-# {{{ Routines dealing with ACCESS CONTROL
-# {{{ sub current_user_has_right
=head2 current_user_has_right
@@ -2875,9 +2772,7 @@
);
}
-# }}}
-# {{{ sub has_right
=head2 has_right
@@ -2913,9 +2808,7 @@
);
}
-# }}}
-# }}}
=head2 reminders
@@ -2935,7 +2828,6 @@
}
-# {{{ sub transactions
=head2 transactions
@@ -2974,9 +2866,7 @@
return ($transactions);
}
-# }}}
-# {{{ transaction_custom_fields
=head2 transaction_custom_fields
@@ -2989,9 +2879,7 @@
return $self->queue_obj->ticket_transaction_custom_fields;
}
-# }}}
-# {{{ sub custom_field_values
=head2 custom_field_values
@@ -3021,9 +2909,7 @@
return $self->SUPER::custom_field_values( $cf->id );
}
-# }}}
-# {{{ sub custom_field_lookup_type
=head2 custom_field_lookup_type
@@ -3032,7 +2918,6 @@
=cut
-# }}}
sub custom_field_lookup_type {
"RT::Model::Queue-RT::Model::Ticket";
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm Sun Aug 31 19:37:24 2008
@@ -217,7 +217,6 @@
# Bring in the clowns.
-# {{{ sub sort_fields
our @SORTcolumns = qw(id status
queue subject
@@ -236,7 +235,6 @@
return (@SORTcolumns);
}
-# }}}
# BEGIN SQL STUFF *********************************
@@ -1416,7 +1414,6 @@
# End of SQL Stuff -------------------------------------------------
-# {{{ Allow sorting on watchers
=head2 order_by ARRAY
@@ -1560,7 +1557,6 @@
return $self->SUPER::order_by(@res);
}
-# }}}
=head2 limit
@@ -1606,9 +1602,7 @@
return ($index);
}
-# }}}
-# {{{ sub limit_queue
=head2 limit_queue
@@ -1648,9 +1642,7 @@
}
-# }}}
-# {{{ sub limit_status
=head2 limit_status
@@ -1679,9 +1671,7 @@
);
}
-# }}}
-# {{{ sub ignore_type
=head2 ignore_type
@@ -1702,9 +1692,7 @@
$self->{looking_at_type} = 1;
}
-# }}}
-# {{{ sub limit_type
=head2 limit_type
@@ -1731,11 +1719,8 @@
);
}
-# }}}
-# }}}
-# }}}
=head2 limit_watcher
@@ -1773,15 +1758,10 @@
);
}
-# }}}
-# }}}
-# }}}
-# {{{ limit_ing based on links
-# {{{ limit_linked_to
=head2 limit_linked_to
@@ -1813,9 +1793,7 @@
);
}
-# }}}
-# {{{ limit_LinkedFrom
=head2 limit_linked_from
@@ -1854,9 +1832,7 @@
);
}
-# }}}
-# {{{ limit_member_of
sub limit_member_of {
my $self = shift;
my $ticket_id = shift;
@@ -1867,9 +1843,7 @@
);
}
-# }}}
-# {{{ limit_has_member
sub limit_has_member {
my $self = shift;
my $ticket_id = shift;
@@ -1881,9 +1855,7 @@
}
-# }}}
-# {{{ limit_DependsOn
sub limitdepends_on {
my $self = shift;
@@ -1896,9 +1868,7 @@
}
-# }}}
-# {{{ limit_depended_on_by
sub limit_depended_on_by {
my $self = shift;
@@ -1911,9 +1881,7 @@
}
-# }}}
-# {{{ limit_RefersTo
sub limit_refers_to {
my $self = shift;
@@ -1926,9 +1894,7 @@
}
-# }}}
-# {{{ limit_ReferredToBy
sub limit_referred_to_by {
my $self = shift;
@@ -1940,11 +1906,8 @@
);
}
-# }}}
-# }}}
-# {{{ sub _next_index
=head2 _next_index
@@ -1957,13 +1920,9 @@
return ( $self->{'restriction_index'}++ );
}
-# }}}
-# }}}
-# {{{ Core bits to make this a Jifty::DBI object
-# {{{ sub _init
sub _init {
my $self = shift;
$self->{'RecalcTicketLimits'} = 1;
@@ -1980,27 +1939,21 @@
}
-# }}}
-# {{{ sub count
sub count {
my $self = shift;
$self->_process_restrictions() if ( $self->{'RecalcTicketLimits'} == 1 );
return ( $self->SUPER::count() );
}
-# }}}
-# {{{ sub count_all
sub count_all {
my $self = shift;
$self->_process_restrictions() if ( $self->{'RecalcTicketLimits'} == 1 );
return ( $self->SUPER::count_all() );
}
-# }}}
-# {{{ sub items_array_ref
=head2 items_array_ref
@@ -2024,9 +1977,7 @@
return ( $self->{'items_array'} );
}
-# }}}
-# {{{ sub next
sub next {
my $self = shift;
@@ -2063,9 +2014,7 @@
}
-# }}}
-# }}}
# Convert a set of oldstyle SB Restrictions to Clauses for RQL
@@ -2159,9 +2108,7 @@
return \%clause;
}
-# }}}
-# {{{ sub _process_restrictions
=head2 _process_restrictions PARAMHASH
@@ -2253,9 +2200,7 @@
-# }}}
-# }}}
=head2 prep_for_serialization
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm Sun Aug 31 19:37:24 2008
@@ -306,7 +306,6 @@
use HTML::FormatText;
use HTML::TreeBuilder;
-# {{{ sub create
=head2 create
@@ -405,7 +404,6 @@
return ( $id, _("Transaction Created") );
}
-# }}}
=head2 scrips
@@ -421,7 +419,6 @@
return ( $self->{'scrips'} );
}
-# {{{ sub delete
=head2 delete
@@ -452,11 +449,8 @@
return ( $id, $msg );
}
-# }}}
-# {{{ Routines dealing with Attachments
-# {{{ sub message
=head2 message
@@ -484,9 +478,7 @@
return $self->{'message'};
}
-# }}}
-# {{{ sub content
=head2 content PARAMHASH
@@ -569,7 +561,6 @@
return ($content);
}
-# }}}
=head2 addresses
@@ -588,7 +579,6 @@
}
-# {{{ content_obj
=head2 content_obj
@@ -635,9 +625,7 @@
return (undef);
}
-# }}}
-# {{{ sub subject
=head2 subject
@@ -652,9 +640,7 @@
return $first->subject;
}
-# }}}
-# {{{ sub attachments
=head2 attachments
@@ -691,9 +677,7 @@
return $self->{'attachments'};
}
-# }}}
-# {{{ sub _attach
=head2 _attach
@@ -718,13 +702,9 @@
return ( $Attachment, $msg || _("Attachment Created") );
}
-# }}}
-# }}}
-# {{{ Routines dealing with Transaction Attributes
-# {{{ sub description
=head2 description
@@ -746,9 +726,7 @@
return _( "%1 by %2", $self->brief_description, $self->creator_obj->name );
}
-# }}}
-# {{{ sub brief_description
=head2 brief_description
@@ -1012,11 +990,8 @@
}
);
-# }}}
-# {{{ Utility methods
-# {{{ sub is_inbound
=head2 is_inbound
@@ -1031,20 +1006,15 @@
return ( $self->ticket_obj->is_requestor( $self->creator_obj->principal_id ) );
}
-# }}}
-# }}}
-# {{{ sub _set
sub _set {
my $self = shift;
return ( 0, _('Transactions are immutable') );
}
-# }}}
-# {{{ sub _value
=head2 _value
@@ -1069,9 +1039,7 @@
return $self->SUPER::_value($field);
}
-# }}}
-# {{{ sub current_user_has_right
=head2 current_user_has_right RIGHT
@@ -1137,7 +1105,6 @@
return 1;
}
-# }}}
sub ticket {
my $self = shift;
@@ -1264,9 +1231,7 @@
return $self->SUPER::custom_field_values($field);
}
-# }}}
-# {{{ sub custom_field_lookup_type
=head2 custom_fieldlookup_type
@@ -1275,7 +1240,6 @@
=cut
-# }}}
sub custom_field_lookup_type {
"RT::Model::Queue-RT::Model::Ticket-RT::Model::Transaction";
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/TransactionCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/TransactionCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/TransactionCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::TransactionCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
sub _init {
my $self = shift;
@@ -89,7 +88,6 @@
return ( $self->SUPER::_init(@_) );
}
-# }}}
=head2 limit_to_ticket TICKETID
@@ -129,7 +127,6 @@
}
-# {{{ sub next
sub next {
my $self = shift;
@@ -154,7 +151,6 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm Sun Aug 31 19:37:24 2008
@@ -69,7 +69,6 @@
package RT::Model::UserCollection;
use base qw/RT::SearchBuilder/;
-# {{{ sub _init
sub _init {
my $self = shift;
@@ -100,7 +99,6 @@
return (@result);
}
-# }}}
=head2 principals_alias
@@ -115,7 +113,6 @@
}
-# {{{ sub _do_search
=head2 _do_search
@@ -135,8 +132,6 @@
}
-# }}}
-# {{{ sub limit_to_enabled
=head2 limit_to_enabled
@@ -156,9 +151,7 @@
);
}
-# }}}
-# {{{ limit_to_email
=head2 limit_to_email
@@ -173,9 +166,7 @@
$self->limit( column => 'email', value => "$addr" );
}
-# }}}
-# {{{ member_of_group
=head2 member_of_group PRINCIPAL_ID
@@ -208,9 +199,7 @@
);
}
-# }}}
-# {{{ limit_to_privileged
=head2 limit_to_privileged
@@ -229,9 +218,7 @@
$self->member_of_group( $priv->principal_id );
}
-# }}}
-# {{{ who_have_right
=head2 who_have_right { right => 'name', object => $rt_object , include_superusers => undef, include_subgroup_members => undef, include_system_rights => undef, equiv_objects => [ ] }
@@ -388,7 +375,6 @@
return;
}
-# }}}
# XXX: should be generalized
sub who_have_role_right {
@@ -532,7 +518,6 @@
return;
}
-# {{{ who_belong_to_groups
=head2 who_belong_to_groups { Groups => ARRAYREF, include_subgroup_members => 1 }
@@ -564,6 +549,5 @@
}
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Record.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Record.pm Sun Aug 31 19:37:24 2008
@@ -76,7 +76,6 @@
use base qw(Jifty::Record);
use base qw(RT::Base);
-# {{{ sub _init
sub table {
my $class = shift;
@@ -240,7 +239,6 @@
return ( $self->attributes->named($name) )[0];
}
-# {{{ sub create
=head2 Create PARAMHASH
@@ -328,9 +326,7 @@
}
-# }}}
-# {{{ sub load_by_cols
=head2 load_by_cols
@@ -367,13 +363,10 @@
return $self->SUPER::load_by_cols(%hash);
}
-# }}}
-# {{{ Datehandling
# There is room for optimizations in most of those subs:
-# {{{ last_updated_obj
sub last_updated_obj {
my $self = shift;
@@ -383,9 +376,7 @@
return $obj;
}
-# }}}
-# {{{ created_obj
sub created_obj {
my $self = shift;
@@ -396,9 +387,7 @@
return $obj;
}
-# }}}
-# {{{ AgeAsString
#
# TODO: This should be deprecated
#
@@ -407,9 +396,7 @@
return ( $self->created_obj->age_as_string() );
}
-# }}}
-# {{{ last_updated_as_string
# TODO this should be deprecated
@@ -423,9 +410,7 @@
}
}
-# }}}
-# {{{ CreatedAsString
#
# TODO This should be deprecated
#
@@ -434,9 +419,7 @@
return ( $self->created_obj->as_string() );
}
-# }}}
-# {{{ LongSinceUpdateAsString
#
# TODO This should be deprecated
#
@@ -451,11 +434,8 @@
}
}
-# }}}
-# }}} Datehandling
-# {{{ sub _set
#
sub _set {
my $self = shift;
@@ -501,9 +481,7 @@
}
-# }}}
-# {{{ sub set_last_updated
=head2 set_last_updated
@@ -527,9 +505,7 @@
);
}
-# }}}
-# {{{ sub creator_obj
=head2 creator_obj
@@ -547,9 +523,7 @@
return ( $self->{'creator_obj'} );
}
-# }}}
-# {{{ sub last_updated_by_obj
=head2 last_updated_by_obj
@@ -566,9 +540,7 @@
return $self->{'last_updated_by_obj'};
}
-# }}}
-# {{{ sub URI
=head2 URI
@@ -582,7 +554,6 @@
return ( $uri->uri_for_object($self) );
}
-# }}}
=head2 validatename name
@@ -808,11 +779,8 @@
return @results;
}
-# {{{ Routines dealing with Links
-# {{{ Link Collections
-# {{{ sub members
=head2 members
@@ -826,9 +794,7 @@
return ( $self->_links( 'target', 'MemberOf' ) );
}
-# }}}
-# {{{ sub member_of
=head2 member_of
@@ -842,9 +808,7 @@
return ( $self->_links( 'base', 'MemberOf' ) );
}
-# }}}
-# {{{ RefersTo
=head2 refers_to
@@ -857,9 +821,7 @@
return ( $self->_links( 'base', 'RefersTo' ) );
}
-# }}}
-# {{{ ReferredToBy
=head2 referred_to_by
@@ -872,9 +834,7 @@
return ( $self->_links( 'target', 'RefersTo' ) );
}
-# }}}
-# {{{ DependedOnBy
=head2 depended_on_by
@@ -887,7 +847,6 @@
return ( $self->_links( 'target', 'DependsOn' ) );
}
-# }}}
=head2 has_unresolved_dependencies
@@ -926,7 +885,6 @@
}
}
-# {{{ unresolved_dependencies
=head2 unresolved_dependencies
@@ -950,9 +908,7 @@
}
-# }}}
-# {{{ AllDependedOnBy
=head2 all_depended_on_by
@@ -995,9 +951,7 @@
}
}
-# }}}
-# {{{ DependsOn
=head2 depends_on
@@ -1010,9 +964,7 @@
return ( $self->_links( 'base', 'DependsOn' ) );
}
-# }}}
-# {{{ sub _links
=head2 links DIRECTION [TYPE]
@@ -1052,14 +1004,10 @@
return ( $self->{"$field$type"} );
}
-# }}}
-# }}}
-# {{{ sub _add_link
-# {{{ sub format_type
=head2 format_type
@@ -1077,9 +1025,7 @@
return $args{type};
}
-# }}}
-# {{{ sub format_link
=head2 format_link
@@ -1101,7 +1047,6 @@
return $text;
}
-# }}}
=head2 _add_link
@@ -1183,9 +1128,7 @@
}
-# }}}
-# {{{ sub _delete_link
=head2 _delete_link
@@ -1259,13 +1202,9 @@
}
}
-# }}}
-# }}}
-# {{{ Routines dealing with transactions
-# {{{ sub _new_transaction
=head2 _new_transaction PARAMHASH
@@ -1339,9 +1278,7 @@
return ( $transaction, $msg, $trans );
}
-# }}}
-# {{{ sub transactions
=head2 transactions
@@ -1368,10 +1305,7 @@
return ($transactions);
}
-# }}}
-# }}}
#
-# {{{ Routines dealing with custom fields
sub custom_fields {
my $self = shift;
@@ -1415,7 +1349,6 @@
return ref($self);
}
-# {{{ AddCustomFieldValue
=head2 add_custom_field_value { Field => column, value => value }
@@ -1606,9 +1539,7 @@
}
}
-# }}}
-# {{{ DeleteCustomFieldValue
=head2 delete_custom_field_value { Field => column, value => value }
@@ -1657,9 +1588,7 @@
return ( $transaction_id, _( "%1 is no longer a value for custom field %2", $transaction_obj->old_value, $cf->name ) );
}
-# }}}
-# {{{ first_custom_field_value
=head2 first_custom_field_value column
@@ -1676,7 +1605,6 @@
return $first->content;
}
-# {{{ custom_field_values
=head2 custom_field_values column
@@ -1739,11 +1667,8 @@
return $cf;
}
-# }}}
-# }}}
-# }}}
sub basic_columns {
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction.pm Sun Aug 31 19:37:24 2008
@@ -68,7 +68,6 @@
use base qw/RT::Base/;
-# {{{ sub new
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
@@ -78,9 +77,7 @@
return $self
}
-# }}}
-# {{{ sub _init
sub _init {
my $self = shift;
my %args = (
@@ -113,109 +110,85 @@
}
-# }}}
# Access Scripwide data
-# {{{ sub argument
sub argument {
my $self = shift;
return ( $self->{'argument'} );
}
-# }}}
-# {{{ sub ticket_obj
sub ticket_obj {
my $self = shift;
return ( $self->{'ticket_obj'} );
}
-# }}}
-# {{{ sub transaction_obj
sub transaction_obj {
my $self = shift;
return ( $self->{'transaction_obj'} );
}
-# }}}
-# {{{ sub template_obj
sub template_obj {
my $self = shift;
return ( $self->{'template_obj'} );
}
-# }}}
-# {{{ sub scrip_obj
sub scrip_obj {
my $self = shift;
return ( $self->{'scrip_obj'} );
}
-# }}}
-# {{{ sub scrip_action_obj
sub scrip_action_obj {
my $self = shift;
return ( $self->{'scrip_action_obj'} );
}
-# }}}
-# {{{ sub Type
sub type {
my $self = shift;
return ( $self->{'Type'} );
}
-# }}}
# Scrip methods
#Do what we need to do and send it out.
-# {{{ sub commit
sub commit {
my $self = shift;
return ( 0, _("Commit Stubbed") );
}
-# }}}
#What does this type of Action does
-# {{{ sub describe
sub describe {
my $self = shift;
return _( "No description for %1", ref $self );
}
-# }}}
#Parse the templates, get things ready to go.
-# {{{ sub prepare
sub prepare {
my $self = shift;
return ( 0, _("Prepare Stubbed") );
}
-# }}}
#If this rule applies to this transaction, return true.
-# {{{ sub is_applicable
sub is_applicable {
my $self = shift;
return (undef);
}
-# }}}
-# {{{ sub DESTROY
sub DESTROY {
my $self = shift;
@@ -227,7 +200,6 @@
$self->{'transaction_obj'} = undef;
}
-# }}}
eval "require RT::ScripAction_Vendor";
die $@ if ( $@ && $@ !~ qr{^Can't locate RT/Action_Vendor.pm} );
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm Sun Aug 31 19:37:24 2008
@@ -63,7 +63,6 @@
$self->SUPER::prepare();
}
-# {{{ sub set_recipients
=head2 set_recipients
@@ -79,9 +78,7 @@
return (1);
}
-# }}}
-# {{{ sub set_return_address
=head2 set_return_address
@@ -102,9 +99,7 @@
}
-# }}}
-# {{{{ sub set_rt_special_headers
=head2 set_rt_special_headers
@@ -120,6 +115,5 @@
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm Sun Aug 31 19:37:24 2008
@@ -284,9 +284,7 @@
);
-# {{{ Scrip methods (Commit, Prepare)
-# {{{ sub commit
#Do what we need to do and send it out.
sub commit {
my $self = shift;
@@ -299,9 +297,7 @@
return (1);
}
-# }}}
-# {{{ sub prepare
sub prepare {
my $self = shift;
@@ -328,9 +324,7 @@
}
-# }}}
-# }}}
sub create_by_template {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/EscalatePriority.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/EscalatePriority.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/EscalatePriority.pm Sun Aug 31 19:37:24 2008
@@ -79,15 +79,12 @@
#What does this type of Action does
-# {{{ sub describe
sub describe {
my $self = shift;
return ( ref $self . " will move a ticket's priority toward its final priority." );
}
-# }}}
-# {{{ sub prepare
sub prepare {
my $self = shift;
@@ -147,7 +144,6 @@
return 1;
}
-# }}}
sub commit {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/ResolveMembers.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/ResolveMembers.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/ResolveMembers.pm Sun Aug 31 19:37:24 2008
@@ -57,22 +57,18 @@
#What does this type of Action does
-# {{{ sub describe
sub describe {
my $self = shift;
return _( "%1 will resolve all members of a resolved group ticket.", ref $self );
}
-# }}}
-# {{{ sub prepare
sub prepare {
# nothing to prepare
return 1;
}
-# }}}
sub commit {
my $self = shift;
@@ -97,7 +93,6 @@
# Applicability checked in Commit.
-# {{{ sub is_applicable
sub is_applicable {
my $self = shift;
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SetPriority.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SetPriority.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SetPriority.pm Sun Aug 31 19:37:24 2008
@@ -54,15 +54,12 @@
#What does this type of Action does
-# {{{ sub describe
sub describe {
my $self = shift;
return ( ref $self . " will set a ticket's priority to the argument provided." );
}
-# }}}
-# {{{ sub prepare
sub prepare {
# nothing to prepare
@@ -71,7 +68,6 @@
return 1;
}
-# }}}
sub commit {
my $self = shift;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Search.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Search.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Search.pm Sun Aug 31 19:37:24 2008
@@ -76,7 +76,6 @@
use strict;
-# {{{ sub new
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
@@ -86,9 +85,7 @@
return $self;
}
-# }}}
-# {{{ sub _init
sub _init {
my $self = shift;
my %args = (
@@ -101,9 +98,7 @@
$self->{'argument'} = $args{'argument'};
}
-# }}}
-# {{{ sub argument
=head2 argument
@@ -116,7 +111,6 @@
return ( $self->{'argument'} );
}
-# }}}
=head2 tickets_obj
@@ -129,20 +123,16 @@
return ( $self->{'tickets_obj'} );
}
-# {{{ sub describe
sub describe {
my $self = shift;
return ( _( "No description for %1", ref $self ) );
}
-# }}}
-# {{{ sub prepare
sub prepare {
my $self = shift;
return (1);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Search/ActiveTicketsInQueue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Search/ActiveTicketsInQueue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Search/ActiveTicketsInQueue.pm Sun Aug 31 19:37:24 2008
@@ -68,15 +68,12 @@
use strict;
use base qw(RT::Search);
-# {{{ sub describe
sub describe {
my $self = shift;
return ( _( "No description for %1", ref $self ) );
}
-# }}}
-# {{{ sub prepare
sub prepare {
my $self = shift;
@@ -89,7 +86,6 @@
return (1);
}
-# }}}
eval "require RT::Search::ActiveTicketsInQueue_Vendor";
die $@
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Search/FromSQL.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Search/FromSQL.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Search/FromSQL.pm Sun Aug 31 19:37:24 2008
@@ -74,13 +74,11 @@
=cut
-# {{{ sub describe
sub describe {
my $self = shift;
return ( _( "TicketSQL search module", ref $self ) );
}
-# }}}
=head2 prepare
@@ -90,7 +88,6 @@
=cut
-# {{{ sub prepare
sub prepare {
my $self = shift;
@@ -98,6 +95,5 @@
return (1);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Search/Googleish.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Search/Googleish.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Search/Googleish.pm Sun Aug 31 19:37:24 2008
@@ -78,17 +78,13 @@
$self->SUPER::_init(%args);
}
-# }}}
-# {{{ sub describe
sub describe {
my $self = shift;
return ( _( "No description for %1", ref $self ) );
}
-# }}}
-# {{{ sub query_to_sql
sub query_to_sql {
my $self = shift;
my $query = shift || $self->argument;
@@ -169,9 +165,7 @@
return join " AND ", sort @tql_clauses;
}
-# }}}
-# {{{ sub prepare
sub prepare {
my $self = shift;
my $tql = $self->query_to_sql( $self->argument );
@@ -182,6 +176,5 @@
return (1);
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm Sun Aug 31 19:37:24 2008
@@ -264,9 +264,7 @@
return $self->SUPER::limit( case_sensitive => 1, %args );
}
-# }}}
-# {{{ sub items_order_by
=head2 items_order_by
@@ -290,9 +288,7 @@
return $items;
}
-# }}}
-# {{{ sub items_array_ref
=head2 items_array_ref
@@ -309,7 +305,6 @@
return $self->items_order_by( $self->SUPER::items_array_ref() );
}
-# }}}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/URI.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/URI.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/URI.pm Sun Aug 31 19:37:24 2008
@@ -84,7 +84,6 @@
return ($self);
}
-# {{{ from_object
=head2 from_object <object>
@@ -101,9 +100,7 @@
return $self->from_uri( $obj->uri );
}
-# }}}
-# {{{ FromURI
=head2 from_uri <URI>
@@ -145,9 +142,7 @@
}
-# }}}
-# {{{ _GetResolver
=private _GetResolver <scheme>
@@ -173,9 +168,7 @@
}
-# }}}
-# {{{ scheme
=head2 scheme
@@ -190,8 +183,6 @@
}
-# }}}
-# {{{ URI
=head2 URI
@@ -206,9 +197,7 @@
}
-# }}}
-# {{{ object
=head2 object
@@ -222,9 +211,7 @@
}
-# }}}
-# {{{ IsLocal
=head2 is_local
@@ -237,7 +224,6 @@
return $self->resolver->is_local;
}
-# }}}
=head2 as_href
More information about the Rt-commit
mailing list