[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.8.8-822-g57dd17f

Jesse Vincent jesse at bestpractical.com
Sun Sep 19 10:52:56 EDT 2010


The branch, 3.9-trunk has been updated
       via  57dd17f84a1a16e6f9b942a161f20499b3e5e1aa (commit)
       via  c4b84db582512507d802f6cb1da444464f2bf4f4 (commit)
       via  78554fef607c2d8ae3d0b4f8c32a189ffd75a26d (commit)
       via  23ee79e1e298c447e76df6fdff8f35a9039d83a4 (commit)
       via  d77ec4f5c28027fdb2126ec165d752718c46e89b (commit)
       via  762d831e767caf310e8958af013ec76dc5921379 (commit)
       via  ed123d021070260b49e4f2a50e5bf0acb903767d (commit)
       via  b29c71d76d0de5d6c212318176925bb77010e463 (commit)
       via  cf570f5107c1285e42fb5f747234d34601576f0c (commit)
       via  9387d6b02d7550578b408bb7853690b6c75393cf (commit)
       via  ed8c02e67320c0e3ef3659e940404bde3ba9a8d3 (commit)
      from  28f9677df698481c71eae2cfa98a36ccba8d2f95 (commit)

Summary of changes:
 Makefile.in                               |   34 ------
 bin/rt-crontool.in                        |    4 -
 docs/design_docs/acls                     |    2 -
 etc/initialdata                           |    1 -
 etc/schema.Pg                             |   84 +++++++-------
 etc/schema.SQLite                         |    8 --
 etc/schema.Sybase                         |   40 -------
 etc/schema.mysql-4.0                      |   42 -------
 etc/schema.mysql-4.1                      |   42 -------
 etc/upgrade/3.1.0/schema.Pg               |    4 +-
 etc/upgrade/3.1.0/schema.mysql            |    2 -
 lib/RT/ACE_Overlay.pm                     |   32 +-----
 lib/RT/ACL_Overlay.pm                     |   10 --
 lib/RT/Action.pm                          |   28 -----
 lib/RT/Action/Autoreply.pm                |    6 -
 lib/RT/Action/CreateTickets.pm            |    6 -
 lib/RT/Action/EscalatePriority.pm         |    4 -
 lib/RT/Action/ResolveMembers.pm           |    6 -
 lib/RT/Action/SetPriority.pm              |    4 -
 lib/RT/Attachments_Overlay.pm             |    4 -
 lib/RT/Attribute_Overlay.pm               |    2 -
 lib/RT/Attributes_Overlay.pm              |    2 -
 lib/RT/Base.pm                            |    2 -
 lib/RT/CachedGroupMember_Overlay.pm       |   11 --
 lib/RT/CachedGroupMembers_Overlay.pm      |    8 --
 lib/RT/Condition.pm                       |   20 ----
 lib/RT/CustomFieldValues_Overlay.pm       |    2 -
 lib/RT/CustomField_Overlay.pm             |   26 -----
 lib/RT/GroupMember_Overlay.pm             |   10 --
 lib/RT/GroupMembers_Overlay.pm            |    6 -
 lib/RT/Group_Overlay.pm                   |   55 ----------
 lib/RT/Groups_Overlay.pm                  |   17 ---
 lib/RT/I18N.pm                            |   16 +---
 lib/RT/Interface/CLI.pm                   |    8 --
 lib/RT/Interface/Email.pm                 |    4 +-
 lib/RT/Interface/Web.pm                   |   42 +-------
 lib/RT/Interface/Web/Handler.pm           |    6 -
 lib/RT/Link_Overlay.pm                    |   17 +---
 lib/RT/Links_Overlay.pm                   |    8 --
 lib/RT/ObjectCustomFieldValues_Overlay.pm |    4 -
 lib/RT/Principal_Overlay.pm               |   24 +----
 lib/RT/Queue_Overlay.pm                   |   63 -----------
 lib/RT/Queues_Overlay.pm                  |    6 -
 lib/RT/Record.pm                          |   77 +-------------
 lib/RT/ScripAction_Overlay.pm             |   20 ----
 lib/RT/ScripActions_Overlay.pm            |    6 -
 lib/RT/ScripCondition_Overlay.pm          |   20 ----
 lib/RT/ScripConditions_Overlay.pm         |    6 -
 lib/RT/Scrip_Overlay.pm                   |   32 ------
 lib/RT/Scrips_Overlay.pm                  |   12 --
 lib/RT/Search.pm                          |   10 --
 lib/RT/Search/ActiveTicketsInQueue.pm     |    4 -
 lib/RT/Search/FromSQL.pm                  |    4 -
 lib/RT/Search/Googleish.pm                |    7 --
 lib/RT/Templates_Overlay.pm               |   12 --
 lib/RT/Ticket_Overlay.pm                  |  167 ++---------------------------
 lib/RT/Tickets_Overlay.pm                 |  112 +-------------------
 lib/RT/Transaction_Overlay.pm             |   38 -------
 lib/RT/Transactions_Overlay.pm            |    4 -
 lib/RT/URI.pm                             |   14 ---
 lib/RT/Users_Overlay.pm                   |   12 --
 sbin/extract-message-catalog              |    2 -
 sbin/factory                              |    1 -
 share/html/Admin/Elements/EditScrips      |    3 +-
 share/html/Admin/Queues/People.html       |    9 +-
 share/html/Admin/Users/Modify.html        |    1 -
 share/html/Prefs/SearchOptions.html       |    3 +-
 share/html/Search/Build.html              |   18 +--
 share/html/Search/Bulk.html               |    7 +-
 share/html/SelfService/Display.html       |    6 +-
 share/html/Ticket/Create.html             |    6 +-
 share/html/Ticket/Display.html            |    1 -
 share/html/Ticket/ModifyAll.html          |    7 +-
 share/html/Ticket/Update.html             |    7 +-
 share/html/m/ticket/create                |    6 +-
 share/html/m/ticket/reply                 |    7 +-
 share/html/m/ticket/show                  |    1 -
 t/api/group.t                             |    2 -
 t/api/scrip_order.t                       |    2 -
 t/api/user.t                              |    9 --
 t/customfields/api.t                      |    3 -
 t/mail/gateway.t                          |    2 -
 t/mail/sendmail.t                         |   16 ---
 t/web/basic.t                             |    3 -
 t/web/command_line.t                      |   20 ----
 t/web/dashboards-groups.t                 |    2 -
 t/web/dashboards-permissions.t            |    1 -
 t/web/query_builder.t                     |    2 -
 88 files changed, 90 insertions(+), 1336 deletions(-)

- Log -----------------------------------------------------------------
commit ed8c02e67320c0e3ef3659e940404bde3ba9a8d3
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:40:26 2010 -0400

    Remove obsolete folding markers from lib/

diff --git a/lib/RT/ACE_Overlay.pm b/lib/RT/ACE_Overlay.pm
index 6ef9c54..8a2db0e 100755
--- a/lib/RT/ACE_Overlay.pm
+++ b/lib/RT/ACE_Overlay.pm
@@ -77,7 +77,6 @@ use vars qw (
 );
 
 
-# {{{ Descriptions of rights
 
 =head1 Rights
 
@@ -91,9 +90,7 @@ use vars qw (
 
 
 
-# }}}
 
-# {{{ Descriptions of principals
 
 %TICKET_METAPRINCIPALS = (
     Owner     => 'The owner of a ticket',                             # loc_pair
@@ -102,10 +99,8 @@ use vars qw (
     AdminCc   => 'The administrative CC of a ticket',                 # loc_pair
 );
 
-# }}}
 
 
-# {{{ sub LoadByValues
 
 =head2 LoadByValues PARAMHASH
 
@@ -176,9 +171,7 @@ sub LoadByValues {
 
 }
 
-# }}}
 
-# {{{ sub Create
 
 =head2 Create <PARAMS>
 
@@ -310,9 +303,7 @@ sub Create {
     }
 }
 
-# }}}
 
-# {{{ sub Delete 
 
 =head2 Delete { InsideTransaction => undef}
 
@@ -363,9 +354,7 @@ sub _Delete {
     return ( 0, $self->loc('Right could not be revoked') );
 }
 
-# }}}
 
-# {{{ sub _BootstrapCreate 
 
 =head2 _BootstrapCreate
 
@@ -403,9 +392,7 @@ sub _BootstrapCreate {
 
 }
 
-# }}}
 
-# {{{ sub CanonicalizeRightName
 
 sub RightName {
     my $self = shift;
@@ -433,10 +420,8 @@ sub CanonicalizeRightName {
     return $LOWERCASERIGHTNAMES{ lc shift };
 }
 
-# }}}
 
 
-# {{{ sub Object
 
 =head2 Object
 
@@ -472,9 +457,7 @@ sub Object {
     }
 }
 
-# }}}
 
-# {{{ sub PrincipalObj
 
 =head2 PrincipalObj
 
@@ -496,20 +479,15 @@ sub PrincipalObj {
 
 }
 
-# }}}
 
-# {{{ ACL related methods
 
-# {{{ sub _Set
 
 sub _Set {
     my $self = shift;
     return ( 0, $self->loc("ACEs can only be created and deleted.") );
 }
 
-# }}}
 
-# {{{ sub _Value
 
 sub _Value {
     my $self = shift;
@@ -529,12 +507,9 @@ sub _Value {
     }
 }
 
-# }}}
 
 
-# }}}
 
-# {{{ _CanonicalizePrincipal 
 
 =head2 _CanonicalizePrincipal (PrincipalId, PrincipalType)
 
@@ -603,5 +578,4 @@ sub _ParseObjectArg {
 }
 
 
-# }}}
 1;
diff --git a/lib/RT/ACL_Overlay.pm b/lib/RT/ACL_Overlay.pm
index 18decf8..185dd6c 100755
--- a/lib/RT/ACL_Overlay.pm
+++ b/lib/RT/ACL_Overlay.pm
@@ -77,7 +77,6 @@ Hand out the next ACE that was found
 =cut
 
 
-# {{{ LimitToObject 
 
 =head2 LimitToObject $object
 
@@ -111,9 +110,7 @@ sub LimitToObject {
 
 }
 
-# }}}
 
-# {{{ LimitNotObject
 
 =head2 LimitNotObject $object
 
@@ -147,9 +144,7 @@ sub LimitNotObject {
 		);
 }
 
-# }}}
 
-# {{{ LimitToPrincipal 
 
 =head2 LimitToPrincipal { Type => undef, Id => undef, IncludeGroupMembership => undef }
 
@@ -206,11 +201,9 @@ sub LimitToPrincipal {
     }
 }
 
-# }}}
 
 
 
-# {{{ sub Next 
 sub Next {
     my $self = shift;
 
@@ -238,7 +231,6 @@ sub Next {
 
 }
 
-# }}}
 
 
 
@@ -275,7 +267,6 @@ sub _BuildHash {
 }
 
 
-# {{{ HasEntry
 
 =head2 HasEntry
 
@@ -307,5 +298,4 @@ sub HasEntry {
     }
 }
 
-# }}}
 1;
diff --git a/lib/RT/Action.pm b/lib/RT/Action.pm
index 8b72687..73a872a 100755
--- a/lib/RT/Action.pm
+++ b/lib/RT/Action.pm
@@ -68,7 +68,6 @@ use Scalar::Util;
 
 use base qw/RT::Base/;
 
-# {{{ sub new 
 sub new  {
   my $proto = shift;
   my $class = ref($proto) || $proto;
@@ -77,9 +76,7 @@ sub new  {
   $self->_Init(@_);
   return $self;
 }
-# }}}
 
-# {{{ sub _Init 
 sub _Init  {
   my $self = shift;
   my %args = ( Argument => undef,
@@ -109,102 +106,78 @@ sub _Init  {
   Scalar::Util::weaken($self->{'TransactionObj'});
 
 }
-# }}}
 
 # Access Scripwide data
 
-# {{{ sub Argument 
 sub Argument  {
   my $self = shift;
   return($self->{'Argument'});
 }
-# }}}
 
-# {{{ sub TicketObj
 sub TicketObj  {
   my $self = shift;
   return($self->{'TicketObj'});
 }
-# }}}
 
-# {{{ sub TransactionObj
 sub TransactionObj  {
   my $self = shift;
   return($self->{'TransactionObj'});
 }
-# }}}
 
-# {{{ sub TemplateObj
 sub TemplateObj  {
   my $self = shift;
   return($self->{'TemplateObj'});
 }
-# }}}
 
-# {{{ sub ScripObj
 sub ScripObj  {
   my $self = shift;
   return($self->{'ScripObj'});
 }
-# }}}
 
-# {{{ sub ScripActionObj
 sub ScripActionObj  {
   my $self = shift;
   return($self->{'ScripActionObj'});
 }
-# }}}
 
-# {{{ 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, $self->loc("Commit Stubbed"));
 }
-# }}}
 
 
 #What does this type of Action does
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return $self->loc("No description for [_1]", ref $self);
 }
-# }}}
 
 
 #Parse the templates, get things ready to go.
 
-# {{{ sub Prepare 
 sub Prepare  {
   my $self = shift;
   return (0, $self->loc("Prepare Stubbed"));
 }
-# }}}
 
 
 #If this rule applies to this transaction, return true.
 
-# {{{ sub IsApplicable 
 sub IsApplicable  {
   my $self = shift;
   return(undef);
 }
-# }}}
 
-# {{{ sub DESTROY
 sub DESTROY {
     my $self = shift;
 
@@ -217,7 +190,6 @@ sub DESTROY {
     $self->{'TransactionObj'} = undef;
 }
 
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Action/Autoreply.pm b/lib/RT/Action/Autoreply.pm
index 6f27eea..2b319cc 100755
--- a/lib/RT/Action/Autoreply.pm
+++ b/lib/RT/Action/Autoreply.pm
@@ -66,7 +66,6 @@ sub Prepare {
     $self->SUPER::Prepare();
 }
 
-# {{{ sub SetRecipients
 
 =head2 SetRecipients
 
@@ -83,10 +82,8 @@ sub SetRecipients {
     return(1);
 }
 
-# }}}
 
 
-# {{{ sub SetReturnAddress 
 
 =head2 SetReturnAddress
 
@@ -108,9 +105,7 @@ sub SetReturnAddress {
     
 }
   
-# }}}
 
-# {{{{ sub SetRTSpecialHeaders
 
 =head2 SetRTSpecialHeaders
 
@@ -125,7 +120,6 @@ sub SetRTSpecialHeaders {
     $self->SetHeader( 'Auto-Submitted', 'auto-replied' );
 }
 
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Action/CreateTickets.pm b/lib/RT/Action/CreateTickets.pm
index 7ff5fc2..3b2c7b3 100755
--- a/lib/RT/Action/CreateTickets.pm
+++ b/lib/RT/Action/CreateTickets.pm
@@ -290,9 +290,7 @@ my %LINKTYPEMAP = (
 
 );
 
-# {{{ Scrip methods (Commit, Prepare)
 
-# {{{ sub Commit
 #Do what we need to do and send it out.
 sub Commit {
     my $self = shift;
@@ -305,9 +303,7 @@ sub Commit {
     return (1);
 }
 
-# }}}
 
-# {{{ sub Prepare
 
 sub Prepare {
     my $self = shift;
@@ -334,9 +330,7 @@ sub Prepare {
 
 }
 
-# }}}
 
-# }}}
 
 sub CreateByTemplate {
     my $self = shift;
diff --git a/lib/RT/Action/EscalatePriority.pm b/lib/RT/Action/EscalatePriority.pm
index f50c5c4..0185e62 100755
--- a/lib/RT/Action/EscalatePriority.pm
+++ b/lib/RT/Action/EscalatePriority.pm
@@ -83,15 +83,12 @@ use strict;
 
 #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;
     
@@ -150,7 +147,6 @@ sub Prepare  {
     }
     return 1;
 }
-# }}}
 
 sub Commit {
     my $self = shift;
diff --git a/lib/RT/Action/ResolveMembers.pm b/lib/RT/Action/ResolveMembers.pm
index 3351a8c..b7037b2 100755
--- a/lib/RT/Action/ResolveMembers.pm
+++ b/lib/RT/Action/ResolveMembers.pm
@@ -58,20 +58,16 @@ use strict;
 
 #What does this type of Action does
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return $self->loc("[_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;
@@ -94,13 +90,11 @@ sub Commit {
 
 # Applicability checked in Commit.
 
-# {{{ sub IsApplicable 
 sub IsApplicable  {
   my $self = shift;
   1;  
   return 1;
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Action/SetPriority.pm b/lib/RT/Action/SetPriority.pm
index 2668ff0..dcdc726 100755
--- a/lib/RT/Action/SetPriority.pm
+++ b/lib/RT/Action/SetPriority.pm
@@ -55,20 +55,16 @@ use strict;
 
 #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
     return 1;
 }
-# }}}
 
 sub Commit {
     my $self = shift;
diff --git a/lib/RT/Attachments_Overlay.pm b/lib/RT/Attachments_Overlay.pm
index c18bc83..9a235ff 100755
--- a/lib/RT/Attachments_Overlay.pm
+++ b/lib/RT/Attachments_Overlay.pm
@@ -213,14 +213,11 @@ sub LimitByTicket {
     return;
 }
 
-# {{{ sub NewItem 
 sub NewItem  {
   my $self = shift;
   return RT::Attachment->new( $self->CurrentUser );
 }
-# }}}
 
-# {{{ sub Next
 sub Next {
     my $self = shift;
 
@@ -237,6 +234,5 @@ sub Next {
     # If the user doesn't have the right to show this ticket
     return $self->Next;
 }
-# }}}
 
 1;
diff --git a/lib/RT/Attribute_Overlay.pm b/lib/RT/Attribute_Overlay.pm
index bbba8b1..b798c42 100644
--- a/lib/RT/Attribute_Overlay.pm
+++ b/lib/RT/Attribute_Overlay.pm
@@ -189,7 +189,6 @@ sub Create {
 }
 
 
-# {{{ sub LoadByNameAndObject
 
 =head2  LoadByNameAndObject (Object => OBJECT, Name => NAME)
 
@@ -215,7 +214,6 @@ sub LoadByNameAndObject {
 
 }
 
-# }}}
 
 
 =head2 _DeserializeContent
diff --git a/lib/RT/Attributes_Overlay.pm b/lib/RT/Attributes_Overlay.pm
index 28fcb67..dc64599 100644
--- a/lib/RT/Attributes_Overlay.pm
+++ b/lib/RT/Attributes_Overlay.pm
@@ -190,7 +190,6 @@ sub DeleteEntry {
 }
 
 
-# {{{ LimitToObject 
 
 =head2 LimitToObject $object
 
@@ -209,6 +208,5 @@ sub LimitToObject {
 
 }
 
-# }}}
 
 1;
diff --git a/lib/RT/Base.pm b/lib/RT/Base.pm
index 23eb959..b24579d 100755
--- a/lib/RT/Base.pm
+++ b/lib/RT/Base.pm
@@ -68,7 +68,6 @@ RT::Base
 
 =cut
 
-# {{{ sub CurrentUser 
 
 =head2 CurrentUser
 
@@ -102,7 +101,6 @@ sub CurrentUser {
     return ( $self->{'user'} );
 }
 
-# }}}
 
 sub OriginalUser {
     my $self = shift;
diff --git a/lib/RT/CachedGroupMember_Overlay.pm b/lib/RT/CachedGroupMember_Overlay.pm
index c331f0d..ec20d6c 100755
--- a/lib/RT/CachedGroupMember_Overlay.pm
+++ b/lib/RT/CachedGroupMember_Overlay.pm
@@ -174,9 +174,7 @@ sub Create {
 
 }
 
-# }}}
 
-# {{{ Delete
 
 =head2 Delete
 
@@ -218,9 +216,7 @@ sub Delete {
     return $ret;
 }
 
-# }}}
 
-# {{{ SetDisabled
 
 =head2 SetDisabled
 
@@ -261,9 +257,7 @@ sub SetDisabled {
     return ($err);
 }
 
-# }}}
 
-# {{{ GroupObj
 
 =head2 GroupObj  
 
@@ -278,9 +272,7 @@ sub GroupObj {
     return ($principal);
 }
 
-# }}}
 
-# {{{ ImmediateParentObj
 
 =head2 ImmediateParentObj  
 
@@ -295,9 +287,7 @@ sub ImmediateParentObj {
     return ($principal);
 }
 
-# }}}
 
-# {{{ MemberObj
 
 =head2 MemberObj  
 
@@ -312,5 +302,4 @@ sub MemberObj {
     return ($principal);
 }
 
-# }}}
 1;
diff --git a/lib/RT/CachedGroupMembers_Overlay.pm b/lib/RT/CachedGroupMembers_Overlay.pm
index 4420eb1..6230dc6 100755
--- a/lib/RT/CachedGroupMembers_Overlay.pm
+++ b/lib/RT/CachedGroupMembers_Overlay.pm
@@ -69,7 +69,6 @@ package RT::CachedGroupMembers;
 use strict;
 no warnings qw(redefine);
 
-# {{{ LimitToUsers
 
 =head2 LimitToUsers
 
@@ -93,10 +92,8 @@ sub LimitToUsers {
                          );
 }
 
-# }}}
 
 
-# {{{ LimitToGroups
 
 =head2 LimitToGroups
 
@@ -120,9 +117,7 @@ sub LimitToGroups {
                          );
 }
 
-# }}}
 
-# {{{ sub LimitToMembersOfGroup
 
 =head2 LimitToMembersOfGroup PRINCIPAL_ID
 
@@ -143,9 +138,7 @@ sub LimitToMembersOfGroup {
                          ));
 
 }
-# }}}
 
-# {{{ sub LimitToGroupsWithMember
 
 =head2 LimitToGroupsWithMember PRINCIPAL_ID
 
@@ -169,5 +162,4 @@ sub LimitToGroupsWithMember {
                          ));
 
 }
-# }}}
 1;
diff --git a/lib/RT/Condition.pm b/lib/RT/Condition.pm
index 0e871b6..9d4ff8e 100755
--- a/lib/RT/Condition.pm
+++ b/lib/RT/Condition.pm
@@ -82,7 +82,6 @@ use warnings;
 
 use base qw/RT::Base/;
 
-# {{{ sub new 
 sub new  {
   my $proto = shift;
   my $class = ref($proto) || $proto;
@@ -91,9 +90,7 @@ sub new  {
   $self->_Init(@_);
   return $self;
 }
-# }}}
 
-# {{{ sub _Init 
 sub _Init  {
   my $self = shift;
   my %args = ( TransactionObj => undef,
@@ -112,11 +109,9 @@ sub _Init  {
   $self->{'ApplicableTransTypes'} = $args{'ApplicableTransTypes'};
   $self->CurrentUser($args{'CurrentUser'});
 }
-# }}}
 
 # Access Scripwide data
 
-# {{{ sub Argument 
 
 =head2 Argument
 
@@ -128,9 +123,7 @@ sub Argument  {
   my $self = shift;
   return($self->{'Argument'});
 }
-# }}}
 
-# {{{ sub TicketObj
 
 =head2 TicketObj
 
@@ -142,9 +135,7 @@ sub TicketObj  {
   my $self = shift;
   return($self->{'TicketObj'});
 }
-# }}}
 
-# {{{ sub ScripObj
 
 =head2 ScripObj
 
@@ -156,8 +147,6 @@ sub ScripObj  {
   my $self = shift;
   return($self->{'ScripObj'});
 }
-# }}}
-# {{{ sub TransactionObj
 
 =head2 TransactionObj
 
@@ -169,9 +158,7 @@ sub TransactionObj  {
   my $self = shift;
   return($self->{'TransactionObj'});
 }
-# }}}
 
-# {{{ sub Type
 
 =head2 Type 
 
@@ -183,7 +170,6 @@ sub ApplicableTransTypes  {
   my $self = shift;
   return($self->{'ApplicableTransTypes'});
 }
-# }}}
 
 
 # Scrip methods
@@ -191,26 +177,21 @@ sub ApplicableTransTypes  {
 
 #What does this type of Action does
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return ($self->loc("No description for [_1]", ref $self));
 }
-# }}}
 
 
 #Parse the templates, get things ready to go.
 
 #If this rule applies to this transaction, return true.
 
-# {{{ sub IsApplicable 
 sub IsApplicable  {
   my $self = shift;
   return(undef);
 }
-# }}}
 
-# {{{ sub DESTROY
 sub DESTROY {
     my $self = shift;
 
@@ -223,7 +204,6 @@ sub DESTROY {
      
 }
 
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/CustomFieldValues_Overlay.pm b/lib/RT/CustomFieldValues_Overlay.pm
index e061fd0..7bea062 100755
--- a/lib/RT/CustomFieldValues_Overlay.pm
+++ b/lib/RT/CustomFieldValues_Overlay.pm
@@ -52,7 +52,6 @@ use strict;
 use warnings;
 no warnings qw(redefine);
 
-# {{{ sub LimitToCustomField
 
 =head2 LimitToCustomField FIELD
 
@@ -70,6 +69,5 @@ sub LimitToCustomField {
     );
 }
 
-# }}}
 
 1;
diff --git a/lib/RT/CustomField_Overlay.pm b/lib/RT/CustomField_Overlay.pm
index da50a41..4d97902 100755
--- a/lib/RT/CustomField_Overlay.pm
+++ b/lib/RT/CustomField_Overlay.pm
@@ -370,7 +370,6 @@ sub Load {
 }
 
 
-# {{{ sub LoadByName
 
 =head2 LoadByName (Queue => QUEUEID, Name => NAME)
 
@@ -443,9 +442,7 @@ sub LoadByName {
     return $self->LoadById( $first->id );
 }
 
-# }}}
 
-# {{{ Dealing with custom field values 
 
 
 =head2 Custom field values
@@ -473,7 +470,6 @@ sub Values {
     return ($cf_values);
 }
 
-# {{{ AddValue
 
 =head3 AddValue HASH
 
@@ -499,9 +495,7 @@ sub AddValue {
 }
 
 
-# }}}
 
-# {{{ DeleteValue
 
 =head3 DeleteValue ID
 
@@ -534,7 +528,6 @@ sub DeleteValue {
     return ($retval, $self->loc("Custom field value deleted"));
 }
 
-# }}}
 
 
 =head2 ValidateQueue Queue
@@ -558,7 +551,6 @@ sub ValidateQueue {
 }
 
 
-# {{{ Types
 
 =head2 Types 
 
@@ -570,7 +562,6 @@ sub Types {
     return (keys %FieldTypes);
 }
 
-# }}}
 
 =head2 HasRenderTypes [TYPE_COMPOSITE]
 
@@ -588,7 +579,6 @@ sub HasRenderTypes {
     return defined $FieldTypes{$type}->{render_types}->{ $max == 1 ? 'single' : 'multiple' };
 }
 
-# {{{ IsSelectionType
 
 =head2 IsSelectionType 
 
@@ -604,7 +594,6 @@ sub IsSelectionType {
     return $FieldTypes{$type}->{selection_type};
 }
 
-# }}}
 
 
 =head2 IsExternalValues
@@ -750,7 +739,6 @@ sub _IsValidRegex {
     return (0, $err);
 }
 
-# {{{ SingleValue
 
 =head2 SingleValue
 
@@ -779,7 +767,6 @@ sub UnlimitedValues {
     }
 }
 
-# }}}
 
 =head2 CurrentUserHasRight RIGHT
 
@@ -830,7 +817,6 @@ sub ContextObject {
     return $self->{'context_object'};
 }
   
-# {{{ sub _Set
 
 sub _Set {
     my $self = shift;
@@ -842,9 +828,7 @@ sub _Set {
 
 }
 
-# }}}
 
-# {{{ sub _Value 
 
 =head2 _Value
 
@@ -868,8 +852,6 @@ sub _Value {
     return $self->__Value( @_ );
 }
 
-# }}}
-# {{{ sub SetDisabled
 
 =head2 SetDisabled
 
@@ -879,7 +861,6 @@ Takes a boolean.
 
 =cut
 
-# }}}
 
 =head2 SetTypeComposite
 
@@ -1277,7 +1258,6 @@ sub RemoveFromObject {
     return ( $oid, $msg );
 }
 
-# {{{ AddValueForObject
 
 =head2 AddValueForObject HASH
 
@@ -1366,7 +1346,6 @@ sub AddValueForObject {
 
 }
 
-# }}}
 
 
 sub _CanonicalizeValueDateTime {
@@ -1392,7 +1371,6 @@ sub _CanonicalizeValueDate {
                  );
     $args->{'Content'} = $DateObj->Date( Timezone => 'UTC' );
 }
-# {{{ MatchPattern
 
 =head2 MatchPattern STRING
 
@@ -1409,9 +1387,7 @@ sub MatchPattern {
 }
 
 
-# }}}
 
-# {{{ FriendlyPattern
 
 =head2 FriendlyPattern
 
@@ -1434,9 +1410,7 @@ sub FriendlyPattern {
 }
 
 
-# }}}
 
-# {{{ DeleteValueForObject
 
 =head2 DeleteValueForObject HASH
 
diff --git a/lib/RT/GroupMember_Overlay.pm b/lib/RT/GroupMember_Overlay.pm
index c78ce38..e6c90f3 100755
--- a/lib/RT/GroupMember_Overlay.pm
+++ b/lib/RT/GroupMember_Overlay.pm
@@ -77,7 +77,6 @@ use strict;
 no warnings qw(redefine);
 use RT::CachedGroupMembers;
 
-# {{{ sub Create
 
 =head2 Create { Group => undef, Member => undef }
 
@@ -212,9 +211,7 @@ sub Create {
     return ($id);
 }
 
-# }}}
 
-# {{{ sub _StashUser
 
 =head2 _StashUser PRINCIPAL
 
@@ -272,9 +269,7 @@ sub _StashUser {
     return ($id);
 }
 
-# }}}
 
-# {{{ sub Delete
 
 =head2 Delete
 
@@ -343,9 +338,7 @@ sub Delete {
 
 }
 
-# }}}
 
-# {{{ sub MemberObj
 
 =head2 MemberObj
 
@@ -362,9 +355,7 @@ sub MemberObj {
     return ( $self->{'Member_obj'} );
 }
 
-# }}}
 
-# {{{ sub GroupObj
 
 =head2 GroupObj
 
@@ -381,6 +372,5 @@ sub GroupObj {
     return ( $self->{'Group_obj'} );
 }
 
-# }}}
 
 1;
diff --git a/lib/RT/GroupMembers_Overlay.pm b/lib/RT/GroupMembers_Overlay.pm
index ff0bc49..7437e3b 100755
--- a/lib/RT/GroupMembers_Overlay.pm
+++ b/lib/RT/GroupMembers_Overlay.pm
@@ -69,7 +69,6 @@ package RT::GroupMembers;
 use strict;
 no warnings qw(redefine);
 
-# {{{ LimitToUsers
 
 =head2 LimitToUsers
 
@@ -93,10 +92,8 @@ sub LimitToUsers {
                          );
 }
 
-# }}}
 
 
-# {{{ LimitToGroups
 
 =head2 LimitToGroups
 
@@ -120,9 +117,7 @@ sub LimitToGroups {
                          );
 }
 
-# }}}
 
-# {{{ sub LimitToMembersOfGroup
 
 =head2 LimitToMembersOfGroup PRINCIPAL_ID
 
@@ -144,6 +139,5 @@ sub LimitToMembersOfGroup {
                          ));
 
 }
-# }}}
 
 1;
diff --git a/lib/RT/Group_Overlay.pm b/lib/RT/Group_Overlay.pm
index ac26663..1855833 100755
--- a/lib/RT/Group_Overlay.pm
+++ b/lib/RT/Group_Overlay.pm
@@ -174,7 +174,6 @@ sub AddRightCategories {
 }
 
 
-# {{{ sub SelfDescription
 
 =head2 SelfDescription
 
@@ -211,9 +210,7 @@ sub SelfDescription {
 	}
 }
 
-# }}}
 
-# {{{ sub Load 
 
 =head2 Load ID
 
@@ -236,9 +233,7 @@ sub Load {
     }
 }
 
-# }}}
 
-# {{{ sub LoadUserDefinedGroup 
 
 =head2 LoadUserDefinedGroup NAME
 
@@ -265,9 +260,7 @@ sub LoadUserDefinedGroup {
     }
 }
 
-# }}}
 
-# {{{ sub LoadACLEquivalenceGroup 
 
 =head2 LoadACLEquivalenceGroup PRINCIPAL
 
@@ -292,10 +285,8 @@ sub LoadACLEquivalenceGroup {
     );
 }
 
-# }}}
 
 
-# {{{ sub LoadSystemInternalGroup 
 
 =head2 LoadSystemInternalGroup NAME
 
@@ -315,9 +306,7 @@ sub LoadSystemInternalGroup {
     );
 }
 
-# }}}
 
-# {{{ sub LoadTicketRoleGroup 
 
 =head2 LoadTicketRoleGroup  { Ticket => TICKET_ID, Type => TYPE }
 
@@ -342,9 +331,7 @@ sub LoadTicketRoleGroup {
                            );
 }
 
-# }}}
 
-# {{{ sub LoadQueueRoleGroup 
 
 =head2 LoadQueueRoleGroup  { Queue => Queue_ID, Type => TYPE }
 
@@ -369,9 +356,7 @@ sub LoadQueueRoleGroup {
                            );
 }
 
-# }}}
 
-# {{{ sub LoadSystemRoleGroup 
 
 =head2 LoadSystemRoleGroup  Type
 
@@ -392,9 +377,7 @@ sub LoadSystemRoleGroup {
                            );
 }
 
-# }}}
 
-# {{{ sub Create
 
 =head2 Create
 
@@ -409,9 +392,7 @@ sub Create {
     return(0,$self->loc('Permission Denied'));
 }
 
-# }}}
 
-# {{{ sub _Create
 
 =head2 _Create
 
@@ -486,9 +467,7 @@ sub _Create {
     return ( $id, $self->loc("Group created") );
 }
 
-# }}}
 
-# {{{ CreateUserDefinedGroup
 
 =head2 CreateUserDefinedGroup { Name => "name", Description => "Description"}
 
@@ -510,9 +489,7 @@ sub CreateUserDefinedGroup {
     return($self->_Create( Domain => 'UserDefined', Type => '', Instance => '', @_));
 }
 
-# }}}
 
-# {{{ _CreateACLEquivalenceGroup
 
 =head2 _CreateACLEquivalenceGroup { Principal }
 
@@ -555,10 +532,8 @@ sub _CreateACLEquivalenceGroup {
     return ($id);
 }
 
-# }}}
 
 
-# {{{ CreateRoleGroup 
 
 =head2 CreateRoleGroup { Domain => DOMAIN, Type =>  TYPE, Instance => ID }
 
@@ -591,9 +566,7 @@ sub CreateRoleGroup {
                              InsideTransaction => 1 ) );
 }
 
-# }}}
 
-# {{{ sub Delete
 
 =head2 Delete
 
@@ -620,7 +593,6 @@ sub Delete {
     return ( $self->SUPER::Delete(@_) );
 }
 
-# }}}
 
 =head2 SetDisabled BOOL
 
@@ -684,7 +656,6 @@ This routine finds all the cached group members that are members of this group
 
 }
 
-# }}}
 
 
 
@@ -694,7 +665,6 @@ sub Disabled {
 }
 
 
-# {{{ DeepMembersObj
 
 =head2 DeepMembersObj
 
@@ -715,9 +685,7 @@ sub DeepMembersObj {
 
 }
 
-# }}}
 
-# {{{ MembersObj
 
 =head2 MembersObj
 
@@ -737,9 +705,7 @@ sub MembersObj {
 
 }
 
-# }}}
 
-# {{{ GroupMembersObj
 
 =head2 GroupMembersObj [Recursively => 1]
 
@@ -779,9 +745,7 @@ sub GroupMembersObj {
     return $groups;
 }
 
-# }}}
 
-# {{{ UserMembersObj
 
 =head2 UserMembersObj
 
@@ -821,9 +785,7 @@ sub UserMembersObj {
     return ( $users);
 }
 
-# }}}
 
-# {{{ MemberEmailAddresses
 
 =head2 MemberEmailAddresses
 
@@ -843,9 +805,7 @@ sub MemberEmailAddresses {
     return(sort keys %addresses);
 }
 
-# }}}
 
-# {{{ MemberEmailAddressesAsString
 
 =head2 MemberEmailAddressesAsString
 
@@ -860,9 +820,7 @@ sub MemberEmailAddressesAsString {
     return (join(', ', $self->MemberEmailAddresses));
 }
 
-# }}}
 
-# {{{ AddMember
 
 =head2 AddMember PRINCIPAL_ID
 
@@ -951,9 +909,7 @@ sub _AddMember {
         return(0, $self->loc("Couldn't add member to group"));
     }
 }
-# }}}
 
-# {{{ HasMember
 
 =head2 HasMember RT::Principal|id
 
@@ -995,9 +951,7 @@ sub HasMember {
     }
 }
 
-# }}}
 
-# {{{ HasMemberRecursively
 
 =head2 HasMemberRecursively RT::Principal|id
 
@@ -1039,9 +993,7 @@ sub HasMemberRecursively {
     }
 }
 
-# }}}
 
-# {{{ DeleteMember
 
 =head2 DeleteMember PRINCIPAL_ID
 
@@ -1105,11 +1057,8 @@ sub _DeleteMember {
     }
 }
 
-# }}}
 
-# {{{ ACL Related routines
 
-# {{{ sub _Set
 sub _Set {
     my $self = shift;
     my %args = (
@@ -1149,7 +1098,6 @@ sub _Set {
     }
 }
 
-# }}}
 
 
 
@@ -1183,12 +1131,10 @@ sub CurrentUserHasRight {
 
 }
 
-# }}}
 
 
 
 
-# {{{ Principal related routines
 
 =head2 PrincipalObj
 
@@ -1227,7 +1173,6 @@ sub PrincipalId {
     return $self->Id;
 }
 
-# }}}
 
 sub BasicColumns {
     (
diff --git a/lib/RT/Groups_Overlay.pm b/lib/RT/Groups_Overlay.pm
index ba86bbd..0127f19 100755
--- a/lib/RT/Groups_Overlay.pm
+++ b/lib/RT/Groups_Overlay.pm
@@ -82,7 +82,6 @@ use RT::Users;
 # See comments below for candidats.
 
 
-# {{{ sub _Init
 
 sub _Init { 
   my $self = shift;
@@ -114,7 +113,6 @@ sub _Init {
 
   return (@result);
 }
-# }}}
 
 =head2 PrincipalsAlias
 
@@ -130,7 +128,6 @@ sub PrincipalsAlias {
 }
 
 
-# {{{ LimitToSystemInternalGroups
 
 =head2 LimitToSystemInternalGroups
 
@@ -147,9 +144,7 @@ sub LimitToSystemInternalGroups {
 }
 
 
-# }}}
 
-# {{{ LimitToUserDefinedGroups
 
 =head2 LimitToUserDefinedGroups
 
@@ -166,9 +161,7 @@ sub LimitToUserDefinedGroups {
 }
 
 
-# }}}
 
-# {{{ LimitToRolesForQueue
 
 =head2 LimitToRolesForQueue QUEUE_ID
 
@@ -183,9 +176,7 @@ sub LimitToRolesForQueue {
     $self->Limit(FIELD => 'Instance', OPERATOR => '=', VALUE => $queue);
 }
 
-# }}}
 
-# {{{ LimitToRolesForTicket
 
 =head2 LimitToRolesForTicket Ticket_ID
 
@@ -200,9 +191,7 @@ sub LimitToRolesForTicket {
     $self->Limit(FIELD => 'Instance', OPERATOR => '=', VALUE => '$Ticket');
 }
 
-# }}}
 
-# {{{ LimitToRolesForSystem
 
 =head2 LimitToRolesForSystem System_ID
 
@@ -215,7 +204,6 @@ sub LimitToRolesForSystem {
     $self->Limit(FIELD => 'Domain', OPERATOR => '=', VALUE => 'RT::System-Role');
 }
 
-# }}}
 
 =head2 WithMember {PrincipalId => PRINCIPAL_ID, Recursively => undef}
 
@@ -344,7 +332,6 @@ sub _GetEquivObjects          { return (shift)->RT::Users::_GetEquivObjects( @_
 sub WithGroupRight            { return (shift)->RT::Users::WhoHaveGroupRight( @_ ) }
 sub WithRoleRight             { return (shift)->RT::Users::WhoHaveRoleRight( @_ ) }
 
-# {{{ sub LimitToEnabled
 
 =head2 LimitToEnabled
 
@@ -362,9 +349,7 @@ sub LimitToEnabled {
         VALUE => '0',
     );
 }
-# }}}
 
-# {{{ sub LimitToDisabled
 
 =head2 LimitToDeleted
 
@@ -383,9 +368,7 @@ sub LimitToDeleted {
     );
 }
 
-# }}}
 
-# {{{ sub Next
 
 sub Next {
     my $self = shift;
diff --git a/lib/RT/I18N.pm b/lib/RT/I18N.pm
index f4fc413..81ecd17 100755
--- a/lib/RT/I18N.pm
+++ b/lib/RT/I18N.pm
@@ -158,7 +158,6 @@ If it can't find anything, it returns 'ISO-8859-1'
 
 sub encoding { 'utf-8' }
 
-# {{{ SetMIMEEntityToUTF8
 
 =head2 SetMIMEEntityToUTF8 $entity
 
@@ -171,9 +170,7 @@ sub SetMIMEEntityToUTF8 {
     RT::I18N::SetMIMEEntityToEncoding(shift, 'utf-8');
 }
 
-# }}}
 
-# {{{ IsTextualContentType
 
 =head2 IsTextualContentType $type
 
@@ -185,7 +182,6 @@ Currently, it returns true iff $type matches this regular expression
 
     ^(?:text/(?:plain|html)|message/rfc822)\b
 
-# }}}
 
 =cut
 
@@ -194,7 +190,6 @@ sub IsTextualContentType {
     ($type =~ m{^(?:text/(?:plain|html)|message/rfc822)\b}i) ? 1 : 0;
 }
 
-# {{{ SetMIMEEntityToEncoding
 
 =head2 SetMIMEEntityToEncoding $entity, $encoding
 
@@ -304,9 +299,7 @@ sub SetMIMEEntityToEncoding {
 # Not turning off the UTF-8 flag in the string will prevent the string
 # from conversion.
 
-# }}}
 
-# {{{ DecodeMIMEWordsToUTF8
 
 =head2 DecodeMIMEWordsToUTF8 $raw
 
@@ -424,9 +417,7 @@ sub DecodeMIMEWordsToEncoding {
     return ($str)
 }
 
-# }}}
 
-# {{{ _FindOrGuessCharset
 
 =head2 _FindOrGuessCharset MIME::Entity, $head_only
 
@@ -455,9 +446,7 @@ sub _FindOrGuessCharset {
     }
 }
 
-# }}}
 
-# {{{ _GuessCharset
 
 =head2 _GuessCharset STRING
 
@@ -511,9 +500,7 @@ sub _GuessCharset {
     return ($charset || $fallback);
 }
 
-# }}}
 
-# {{{ SetMIMEHeadToEncoding
 
 =head2 SetMIMEHeadToEncoding HEAD OLD_CHARSET NEW_CHARSET
 
@@ -570,7 +557,6 @@ sub SetMIMEHeadToEncoding {
     }
 
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Interface/CLI.pm b/lib/RT/Interface/CLI.pm
index 2a97095..b0e22f8 100755
--- a/lib/RT/Interface/CLI.pm
+++ b/lib/RT/Interface/CLI.pm
@@ -124,7 +124,6 @@ sub CleanEnv {
 
     my $CurrentUser; # shared betwen GetCurrentUser and loc
 
-# {{{ sub GetCurrentUser 
 
 =head2 GetCurrentUser
 
@@ -153,10 +152,8 @@ sub GetCurrentUser  {
 
     return($CurrentUser);
 }
-# }}}
 
 
-# {{{ sub loc 
 
 =head2 loc
 
@@ -168,12 +165,10 @@ sub loc {
     die "No current user yet" unless $CurrentUser ||= RT::CurrentUser->new;
     return $CurrentUser->loc(@_);
 }
-# }}}
 
 }
 
 
-# {{{ sub GetMessageContent
 
 =head2 GetMessageContent
 
@@ -235,9 +230,7 @@ sub GetMessageContent {
     
 }
 
-# }}}
 
-# {{{ sub debug
 
 sub debug {
     my $val = shift;
@@ -253,7 +246,6 @@ sub debug {
     }	
 }
 
-# }}}
 
 
 RT::Base->_ImportOverlays();
diff --git a/lib/RT/Interface/Web.pm b/lib/RT/Interface/Web.pm
index 19434ee..42c3bdd 100755
--- a/lib/RT/Interface/Web.pm
+++ b/lib/RT/Interface/Web.pm
@@ -69,7 +69,6 @@ use RT::Interface::Web::Session;
 use Digest::MD5 ();
 use Encode qw();
 
-# {{{ EscapeUTF8
 
 =head2 EscapeUTF8 SCALARREF
 
@@ -90,9 +89,7 @@ sub EscapeUTF8 {
     $$ref =~ s/'/&#39;/g;
 }
 
-# }}}
 
-# {{{ EscapeURI
 
 =head2 EscapeURI SCALARREF
 
@@ -108,9 +105,7 @@ sub EscapeURI {
     $$ref =~ s/([^a-zA-Z0-9_.!~*'()-])/uc sprintf("%%%02X", ord($1))/eg;
 }
 
-# }}}
 
-# {{{ WebCanonicalizeInfo
 
 =head2 WebCanonicalizeInfo();
 
@@ -124,9 +119,7 @@ sub WebCanonicalizeInfo {
     return $ENV{'REMOTE_USER'} ? lc $ENV{'REMOTE_USER'} : $ENV{'REMOTE_USER'};
 }
 
-# }}}
 
-# {{{ WebExternalAutoInfo
 
 =head2 WebExternalAutoInfo($user);
 
@@ -163,7 +156,6 @@ sub WebExternalAutoInfo {
     return {%user_info};
 }
 
-# }}}
 
 sub HandleRequest {
     my $ARGS = shift;
@@ -808,7 +800,6 @@ package HTML::Mason::Commands;
 
 use vars qw/$r $m %session/;
 
-# {{{ loc
 
 =head2 loc ARRAY
 
@@ -839,9 +830,7 @@ sub loc {
     }
 }
 
-# }}}
 
-# {{{ loc_fuzzy
 
 =head2 loc_fuzzy STRING
 
@@ -866,9 +855,7 @@ sub loc_fuzzy {
     }
 }
 
-# }}}
 
-# {{{ sub Abort
 # Error - calls Error and aborts
 sub Abort {
     my $why  = shift;
@@ -886,9 +873,7 @@ sub Abort {
     }
 }
 
-# }}}
 
-# {{{ sub CreateTicket
 
 =head2 CreateTicket ARGS
 
@@ -1073,9 +1058,7 @@ sub CreateTicket {
 
 }
 
-# }}}
 
-# {{{ sub LoadTicket - loads a ticket
 
 =head2  LoadTicket id
 
@@ -1105,9 +1088,7 @@ sub LoadTicket {
     return $Ticket;
 }
 
-# }}}
 
-# {{{ sub ProcessUpdateMessage
 
 =head2 ProcessUpdateMessage
 
@@ -1272,9 +1253,7 @@ sub _ProcessUpdateMessageRecipients {
     }
 }
 
-# }}}
 
-# {{{ sub MakeMIMEEntity
 
 =head2 MakeMIMEEntity PARAMHASH
 
@@ -1354,9 +1333,7 @@ sub MakeMIMEEntity {
 
 }
 
-# }}}
 
-# {{{ sub ParseDateToISO
 
 =head2 ParseDateToISO
 
@@ -1376,9 +1353,7 @@ sub ParseDateToISO {
     return ( $date_obj->ISO );
 }
 
-# }}}
 
-# {{{ sub ProcessACLChanges
 
 sub ProcessACLChanges {
     my $ARGSref = shift;
@@ -1429,7 +1404,6 @@ sub ProcessACLChanges {
     return (@results);
 }
 
-# }}}
 
 =head2 ProcessACLs
 
@@ -1559,7 +1533,6 @@ sub ProcessACLs {
 
 
 
-# {{{ sub UpdateRecordObj
 
 =head2 UpdateRecordObj ( ARGSRef => \%ARGS, Object => RT::Record, AttributesRef => \@attribs)
 
@@ -1588,9 +1561,7 @@ sub UpdateRecordObject {
     return (@results);
 }
 
-# }}}
 
-# {{{ Sub ProcessCustomFieldUpdates
 
 sub ProcessCustomFieldUpdates {
     my %args = (
@@ -1643,9 +1614,7 @@ sub ProcessCustomFieldUpdates {
     return (@results);
 }
 
-# }}}
 
-# {{{ sub ProcessTicketBasics
 
 =head2 ProcessTicketBasics ( TicketObj => $Ticket, ARGSRef => \%ARGS );
 
@@ -1719,7 +1688,6 @@ sub ProcessTicketBasics {
     return (@results);
 }
 
-# }}}
 
 sub ProcessTicketCustomFieldUpdates {
     my %args = @_;
@@ -1935,7 +1903,6 @@ sub _ProcessObjectCustomFieldUpdates {
     return @results;
 }
 
-# {{{ sub ProcessTicketWatchers
 
 =head2 ProcessTicketWatchers ( TicketObj => $Ticket, ARGSRef => \%ARGS );
 
@@ -2017,9 +1984,7 @@ sub ProcessTicketWatchers {
     return (@results);
 }
 
-# }}}
 
-# {{{ sub ProcessTicketDates
 
 =head2 ProcessTicketDates ( TicketObj => $Ticket, ARGSRef => \%ARGS );
 
@@ -2075,9 +2040,7 @@ sub ProcessTicketDates {
     return (@results);
 }
 
-# }}}
 
-# {{{ sub ProcessTicketLinks
 
 =head2 ProcessTicketLinks ( TicketObj => $Ticket, ARGSRef => \%ARGS );
 
@@ -2107,7 +2070,6 @@ sub ProcessTicketLinks {
     return (@results);
 }
 
-# }}}
 
 sub ProcessRecordLinks {
     my %args = (
diff --git a/lib/RT/Interface/Web/Handler.pm b/lib/RT/Interface/Web/Handler.pm
index f0b3dd7..acbda64 100644
--- a/lib/RT/Interface/Web/Handler.pm
+++ b/lib/RT/Interface/Web/Handler.pm
@@ -82,7 +82,6 @@ sub DefaultHandlerArgs  { (
     named_component_subs => $INC{'Devel/Cover.pm'} ? 1 : 0,
 ) };
 
-# {{{ sub new 
 
 =head2 new
 
@@ -127,9 +126,7 @@ sub InitSessionDir {
 
 }
 
-# }}}
 
-# {{{ sub NewApacheHandler 
 
 =head2 NewApacheHandler
 
@@ -143,9 +140,7 @@ sub NewApacheHandler {
     return NewHandler('HTML::Mason::ApacheHandler', args_method => "CGI", @_);
 }
 
-# }}}
 
-# {{{ sub NewCGIHandler 
 
 =head2 NewCGIHandler
 
@@ -231,6 +226,5 @@ sub CleanupRequest {
     # filehandles.
     File::Temp::cleanup;
 }
-# }}}
 
 1;
diff --git a/lib/RT/Link_Overlay.pm b/lib/RT/Link_Overlay.pm
index ab1fb6c..43dded6 100755
--- a/lib/RT/Link_Overlay.pm
+++ b/lib/RT/Link_Overlay.pm
@@ -76,7 +76,6 @@ use Carp;
 use RT::URI;
 
 
-# {{{ sub Create 
 
 =head2 Create PARAMHASH
 
@@ -160,7 +159,6 @@ sub Create {
     return ( $id, $msg );
 }
 
-# }}}
  # {{{ sub LoadByParams
 
 =head2 LoadByParams
@@ -203,8 +201,6 @@ sub LoadByParams {
     }
 }
 
-# }}}
-# {{{ sub Load 
 
 =head2 Load
 
@@ -232,10 +228,8 @@ sub Load {
     }
 }
 
-# }}}
 
 
-# {{{ TargetURI
 
 =head2 TargetURI
 
@@ -250,8 +244,6 @@ sub TargetURI {
     return ($URI);
 }
 
-# }}}
-# {{{ sub TargetObj 
 
 =head2 TargetObj
 
@@ -261,9 +253,7 @@ sub TargetObj {
     my $self = shift;
     return $self->TargetURI->Object;
 }
-# }}}
 
-# {{{ BaseURI
 
 =head2 BaseURI
 
@@ -278,8 +268,6 @@ sub BaseURI {
     return ($URI);
 }
 
-# }}}
-# {{{ sub BaseObj
 
 =head2 BaseObj
 
@@ -289,7 +277,6 @@ sub BaseObj {
   my $self = shift;
   return $self->BaseURI->Object;
 }
-# }}}
 
 1;
  
diff --git a/lib/RT/Links_Overlay.pm b/lib/RT/Links_Overlay.pm
index b04a830..401238f 100755
--- a/lib/RT/Links_Overlay.pm
+++ b/lib/RT/Links_Overlay.pm
@@ -71,7 +71,6 @@ use strict;
 no warnings qw(redefine);
 use RT::URI;
 
-# {{{ sub Limit 
 sub Limit  {
     my $self = shift;
     my %args = ( ENTRYAGGREGATOR => 'AND',
@@ -108,9 +107,7 @@ sub Limit  {
 
     $self->SUPER::Limit(%args);
 }
-# }}}
 
-# {{{ LimitRefersTo 
 
 =head2 LimitRefersTo URI
 
@@ -126,8 +123,6 @@ sub LimitRefersTo {
     $self->Limit(FIELD => 'Target', VALUE => $URI);
 }
 
-# }}}
-# {{{ LimitReferredToBy
 
 =head2 LimitReferredToBy URI
 
@@ -143,10 +138,8 @@ sub LimitReferredToBy {
     $self->Limit(FIELD => 'Base', VALUE => $URI);
 }
 
-# }}}
 
 
-# {{{ Next
 sub Next {
     my $self = shift;
  	
@@ -169,6 +162,5 @@ sub Next {
     }
 }
 
-# }}}
 1;
 
diff --git a/lib/RT/ObjectCustomFieldValues_Overlay.pm b/lib/RT/ObjectCustomFieldValues_Overlay.pm
index 0be4ae9..e4d7a90 100644
--- a/lib/RT/ObjectCustomFieldValues_Overlay.pm
+++ b/lib/RT/ObjectCustomFieldValues_Overlay.pm
@@ -51,7 +51,6 @@ package RT::ObjectCustomFieldValues;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub LimitToCustomField
 
 =head2 LimitToCustomField FIELD
 
@@ -68,9 +67,7 @@ sub LimitToCustomField {
     );
 }
 
-# }}}
 
-# {{{ sub LimitToObject
 
 =head2 LimitToObject OBJECT
 
@@ -92,7 +89,6 @@ sub LimitToObject {
 
 }
 
-# }}}
 
 =head2 HasEntry VALUE
 
diff --git a/lib/RT/Principal_Overlay.pm b/lib/RT/Principal_Overlay.pm
index fee67de..c5aff05 100755
--- a/lib/RT/Principal_Overlay.pm
+++ b/lib/RT/Principal_Overlay.pm
@@ -64,7 +64,6 @@ use RT::User;
 our $_ACL_CACHE;
 InvalidateACLCache();
 
-# {{{ IsGroup
 
 =head2 IsGroup
 
@@ -82,9 +81,7 @@ sub IsGroup {
     return undef;
 }
 
-# }}}
 
-# {{{ IsUser
 
 =head2 IsUser 
 
@@ -103,9 +100,7 @@ sub IsUser {
     }
 }
 
-# }}}
 
-# {{{ Object
 
 =head2 Object
 
@@ -133,11 +128,8 @@ sub Object {
 
 
 }
-# }}} 
 
-# {{{ ACL Related routines
 
-# {{{ GrantRight 
 
 =head2 GrantRight  { Right => RIGHTNAME, Object => undef }
 
@@ -172,9 +164,7 @@ sub GrantRight {
         PrincipalId   => $self->Id,
     );
 }
-# }}}
 
-# {{{ RevokeRight
 
 =head2 RevokeRight { Right => "RightName", Object => "object" }
 
@@ -220,9 +210,7 @@ sub RevokeRight {
     return $ace->Delete;
 }
 
-# }}}
 
-# {{{ sub HasRight
 
 =head2 sub HasRight (Right => 'right' Object => undef)
 
@@ -534,14 +522,10 @@ sub RolesWithRight {
     return @$roles;
 }
 
-# }}}
 
-# }}}
 
-# {{{ ACL caching
 
 
-# {{{ InvalidateACLCache
 
 =head2 InvalidateACLCache
 
@@ -556,12 +540,9 @@ sub InvalidateACLCache {
     $_ACL_CACHE->expire_after( $lifetime || 60 );
 }
 
-# }}}
 
-# }}}
 
 
-# {{{ _GetPrincipalTypeForACL
 
 =head2 _GetPrincipalTypeForACL
 
@@ -583,9 +564,7 @@ sub _GetPrincipalTypeForACL {
     return($type);
 }
 
-# }}}
 
-# {{{ _ReferenceId
 
 =head2 _ReferenceId
 
@@ -608,6 +587,5 @@ sub _ReferenceId {
     return(ref($scalar)."-". $scalar->id);
 }
 
-# }}}
 
 1;
diff --git a/lib/RT/Queue_Overlay.pm b/lib/RT/Queue_Overlay.pm
index 77535a2..52d8a1b 100755
--- a/lib/RT/Queue_Overlay.pm
+++ b/lib/RT/Queue_Overlay.pm
@@ -243,7 +243,6 @@ sub RightCategories {
 }
 
 
-# {{{ ActiveStatusArray
 
 sub lifecycle {
     my $self = shift;
@@ -336,7 +335,6 @@ sub IsInactiveStatus {
 }
 
 
-# {{{ sub Create
 
 
 
@@ -418,9 +416,7 @@ sub Create {
     return ( $id, $self->loc("Queue created") );
 }
 
-# }}}
 
-# {{{ sub Delete 
 
 sub Delete {
     my $self = shift;
@@ -428,9 +424,7 @@ sub Delete {
         $self->loc('Deleting this object would break referential integrity') );
 }
 
-# }}}
 
-# {{{ sub SetDisabled
 
 =head2 SetDisabled
 
@@ -463,9 +457,7 @@ sub SetDisabled {
 
 }
 
-# }}}
 
-# {{{ sub Load 
 
 =head2 Load
 
@@ -492,9 +484,7 @@ sub Load {
 
 }
 
-# }}}
 
-# {{{ sub ValidateName
 
 =head2 ValidateName NAME
 
@@ -522,7 +512,6 @@ sub ValidateName {
 
 }
 
-# }}}
 
 =head2 SetSign
 
@@ -612,7 +601,6 @@ sub SetSubjectTag {
     ))
 }
 
-# {{{ sub Templates
 
 =head2 Templates
 
@@ -632,11 +620,8 @@ sub Templates {
     return ($templates);
 }
 
-# }}}
 
-# {{{ Dealing with custom fields
 
-# {{{  CustomField
 
 =head2 CustomField NAME
 
@@ -653,7 +638,6 @@ sub CustomField {
 }
 
 
-# {{{ TicketCustomFields
 
 =head2 TicketCustomFields
 
@@ -675,9 +659,7 @@ sub TicketCustomFields {
     return ($cfs);
 }
 
-# }}}
 
-# {{{ TicketTransactionCustomFields
 
 =head2 TicketTransactionCustomFields
 
@@ -698,14 +680,10 @@ sub TicketTransactionCustomFields {
     return ($cfs);
 }
 
-# }}}
 
-# }}}
 
 
-# {{{ Routines dealing with watchers.
 
-# {{{ AllRoleGroupTypes
 =head2 AllRoleGroupTypes
 
 Returns a list of the names of the various role group types that this queue
@@ -718,9 +696,7 @@ sub AllRoleGroupTypes {
     my $self = shift;
     return ($self->ManageableRoleGroupTypes, qw(Requestor Owner));
 }
-# }}}
 
-# {{{ IsRoleGroupType
 =head2 IsRoleGroupType
 
 Returns whether the passed-in type is a role group type.
@@ -737,9 +713,7 @@ sub IsRoleGroupType {
 
     return 0;
 }
-# }}}
 
-# {{{ ManageableRoleGroupTypes
 =head2 ManageableRoleGroupTypes
 
 Returns a list of the names of the various role group types that this queue
@@ -750,9 +724,7 @@ has, excluding Requestor and Owner. If you want them, see L</AllRoleGroupTypes>.
 sub ManageableRoleGroupTypes {
     return qw(Cc AdminCc);
 }
-# }}}
 
-# {{{ IsManageableRoleGroupType
 =head2 IsManageableRoleGroupType
 
 Returns whether the passed-in type is a manageable role group type.
@@ -769,9 +741,7 @@ sub IsManageableRoleGroupType {
 
     return 0;
 }
-# }}}
 
-# {{{ _CreateQueueGroups 
 
 =head2 _CreateQueueGroups
 
@@ -816,7 +786,6 @@ sub _CreateQueueRoleGroup {
 }
 
 
-# }}}
 
 # _HasModifyWatcherRight {{{
 sub _HasModifyWatcherRight {
@@ -846,9 +815,7 @@ sub _HasModifyWatcherRight {
 
     return ( 0, $self->loc("Permission Denied") );
 }
-# }}}
 
-# {{{ sub AddWatcher
 
 =head2 AddWatcher
 
@@ -973,9 +940,7 @@ sub _AddWatcher {
     return ( 1, $self->loc("Added [_1] to members of [_2] for this queue.", $principal->Object->Name, $args{'Type'} ));
 }
 
-# }}}
 
-# {{{ sub DeleteWatcher
 
 =head2 DeleteWatcher { Type => TYPE, PrincipalId => PRINCIPAL_ID, Email => EMAIL_ADDRESS }
 
@@ -1057,9 +1022,7 @@ sub DeleteWatcher {
     return ( 1, $self->loc("Removed [_1] from members of [_2] for this queue.", $principal->Object->Name, $args{'Type'} ));
 }
 
-# }}}
 
-# {{{ AdminCcAddresses
 
 =head2 AdminCcAddresses
 
@@ -1078,9 +1041,7 @@ sub AdminCcAddresses {
     
 }   
 
-# }}}
 
-# {{{ CcAddresses
 
 =head2 CcAddresses
 
@@ -1098,10 +1059,8 @@ sub CcAddresses {
     return ( $self->Cc->MemberEmailAddressesAsString);
 
 }
-# }}}
 
 
-# {{{ sub Cc
 
 =head2 Cc
 
@@ -1122,9 +1081,7 @@ sub Cc {
 
 }
 
-# }}}
 
-# {{{ sub AdminCc
 
 =head2 AdminCc
 
@@ -1145,11 +1102,8 @@ sub AdminCc {
 
 }
 
-# }}}
 
-# {{{ IsWatcher, IsCc, IsAdminCc
 
-# {{{ sub IsWatcher
 # a generic routine to be called by IsRequestor, IsCc and IsAdminCc
 
 =head2 IsWatcher { Type => TYPE, PrincipalId => PRINCIPAL_ID }
@@ -1187,10 +1141,8 @@ sub IsWatcher {
     return ($group->HasMemberRecursively($principal));
 }
 
-# }}}
 
 
-# {{{ sub IsCc
 
 =head2 IsCc PRINCIPAL_ID
 
@@ -1208,9 +1160,7 @@ sub IsCc {
 
 }
 
-# }}}
 
-# {{{ sub IsAdminCc
 
 =head2 IsAdminCc PRINCIPAL_ID
 
@@ -1227,20 +1177,15 @@ sub IsAdminCc {
 
 }
 
-# }}}
 
 
-# }}}
 
 
 
 
 
-# }}}
 
-# {{{ ACCESS CONTROL
 
-# {{{ sub _Set
 sub _Set {
     my $self = shift;
 
@@ -1250,9 +1195,7 @@ sub _Set {
     return ( $self->SUPER::_Set(@_) );
 }
 
-# }}}
 
-# {{{ sub _Value
 
 sub _Value {
     my $self = shift;
@@ -1264,9 +1207,7 @@ sub _Value {
     return ( $self->__Value(@_) );
 }
 
-# }}}
 
-# {{{ sub CurrentUserHasRight
 
 =head2 CurrentUserHasRight
 
@@ -1289,9 +1230,7 @@ sub CurrentUserHasRight {
 
 }
 
-# }}}
 
-# {{{ sub HasRight
 
 =head2 HasRight
 
@@ -1322,8 +1261,6 @@ sub HasRight {
     );
 }
 
-# }}}
 
-# }}}
 
 1;
diff --git a/lib/RT/Queues_Overlay.pm b/lib/RT/Queues_Overlay.pm
index dee13fe..5d6d5bb 100755
--- a/lib/RT/Queues_Overlay.pm
+++ b/lib/RT/Queues_Overlay.pm
@@ -69,7 +69,6 @@ package RT::Queues;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub _Init
 sub _Init { 
   my $self = shift;
   $self->{'table'} = "Queues";
@@ -83,18 +82,14 @@ sub _Init {
 
   return ($self->SUPER::_Init(@_));
 }
-# }}}
 
-# {{{ sub Limit 
 sub Limit  {
   my $self = shift;
   my %args = ( ENTRYAGGREGATOR => 'AND',
 	       @_);
   $self->SUPER::Limit(%args);
 }
-# }}}
 
-# {{{ sub AddRecord
 
 =head2 AddRecord
 
@@ -111,7 +106,6 @@ sub AddRecord {
     push @{$self->{'items'}}, $Queue;
     $self->{'rows'}++;
 }
-# }}}
 
 1;
 
diff --git a/lib/RT/Record.pm b/lib/RT/Record.pm
index 9e461e6..826df73 100755
--- a/lib/RT/Record.pm
+++ b/lib/RT/Record.pm
@@ -75,7 +75,6 @@ our $_TABLE_ATTR = { };
 use base RT->Config->Get('RecordBaseClass');
 use base 'RT::Base';
 
-# {{{ sub _Init 
 
 sub _Init {
     my $self = shift;
@@ -83,7 +82,6 @@ sub _Init {
     $self->CurrentUser(@_);
 }
 
-# }}}
 
 
 =head2 _PrimaryKeys
@@ -247,12 +245,9 @@ sub FirstAttribute {
 }
 
 
-# {{{ sub _Handle 
 sub _Handle { return $RT::Handle }
 
-# }}}
 
-# {{{ sub Create 
 
 =head2  Create PARAMHASH
 
@@ -344,9 +339,7 @@ sub Create {
 
 }
 
-# }}}
 
-# {{{ sub LoadByCols
 
 =head2 LoadByCols
 
@@ -382,13 +375,10 @@ sub LoadByCols {
     return $self->SUPER::LoadByCols( %hash );
 }
 
-# }}}
 
-# {{{ Datehandling
 
 # There is room for optimizations in most of those subs:
 
-# {{{ LastUpdatedObj
 
 sub LastUpdatedObj {
     my $self = shift;
@@ -398,9 +388,7 @@ sub LastUpdatedObj {
     return $obj;
 }
 
-# }}}
 
-# {{{ CreatedObj
 
 sub CreatedObj {
     my $self = shift;
@@ -411,9 +399,7 @@ sub CreatedObj {
     return $obj;
 }
 
-# }}}
 
-# {{{ AgeAsString
 #
 # TODO: This should be deprecated
 #
@@ -422,9 +408,7 @@ sub AgeAsString {
     return ( $self->CreatedObj->AgeAsString() );
 }
 
-# }}}
 
-# {{{ LastUpdatedAsString
 
 # TODO this should be deprecated
 
@@ -439,9 +423,7 @@ sub LastUpdatedAsString {
     }
 }
 
-# }}}
 
-# {{{ CreatedAsString
 #
 # TODO This should be deprecated 
 #
@@ -450,9 +432,7 @@ sub CreatedAsString {
     return ( $self->CreatedObj->AsString() );
 }
 
-# }}}
 
-# {{{ LongSinceUpdateAsString
 #
 # TODO This should be deprecated
 #
@@ -468,11 +448,8 @@ sub LongSinceUpdateAsString {
     }
 }
 
-# }}}
 
-# }}} Datehandling
 
-# {{{ sub _Set 
 #
 sub _Set {
     my $self = shift;
@@ -520,9 +497,7 @@ sub _Set {
 
 }
 
-# }}}
 
-# {{{ sub _SetLastUpdated
 
 =head2 _SetLastUpdated
 
@@ -551,9 +526,7 @@ sub _SetLastUpdated {
     }
 }
 
-# }}}
 
-# {{{ sub CreatorObj 
 
 =head2 CreatorObj
 
@@ -571,9 +544,7 @@ sub CreatorObj {
     return ( $self->{'CreatorObj'} );
 }
 
-# }}}
 
-# {{{ sub LastUpdatedByObj
 
 =head2 LastUpdatedByObj
 
@@ -590,9 +561,7 @@ sub LastUpdatedByObj {
     return $self->{'LastUpdatedByObj'};
 }
 
-# }}}
 
-# {{{ sub URI 
 
 =head2 URI
 
@@ -606,7 +575,6 @@ sub URI {
     return($uri->URIForObject($self));
 }
 
-# }}}
 
 =head2 ValidateName NAME
 
@@ -975,11 +943,8 @@ sub _UpdateAttributes {
     return @results;
 }
 
-# {{{ Routines dealing with Links
 
-# {{{ Link Collections
 
-# {{{ sub Members
 
 =head2 Members
 
@@ -993,9 +958,7 @@ sub Members {
     return ( $self->_Links( 'Target', 'MemberOf' ) );
 }
 
-# }}}
 
-# {{{ sub MemberOf
 
 =head2 MemberOf
 
@@ -1009,9 +972,7 @@ sub MemberOf {
     return ( $self->_Links( 'Base', 'MemberOf' ) );
 }
 
-# }}}
 
-# {{{ RefersTo
 
 =head2 RefersTo
 
@@ -1024,9 +985,7 @@ sub RefersTo {
     return ( $self->_Links( 'Base', 'RefersTo' ) );
 }
 
-# }}}
 
-# {{{ ReferredToBy
 
 =head2 ReferredToBy
 
@@ -1039,9 +998,7 @@ sub ReferredToBy {
     return ( $self->_Links( 'Target', 'RefersTo' ) );
 }
 
-# }}}
 
-# {{{ DependedOnBy
 
 =head2 DependedOnBy
 
@@ -1054,7 +1011,6 @@ sub DependedOnBy {
     return ( $self->_Links( 'Target', 'DependsOn' ) );
 }
 
-# }}}
 
 
 
@@ -1094,7 +1050,6 @@ sub HasUnresolvedDependencies {
 }
 
 
-# {{{ UnresolvedDependencies 
 
 =head2 UnresolvedDependencies
 
@@ -1119,9 +1074,7 @@ sub UnresolvedDependencies {
 
 }
 
-# }}}
 
-# {{{ AllDependedOnBy
 
 =head2 AllDependedOnBy
 
@@ -1194,9 +1147,7 @@ sub _AllLinkedTickets {
     }
 }
 
-# }}}
 
-# {{{ DependsOn
 
 =head2 DependsOn
 
@@ -1209,12 +1160,10 @@ sub DependsOn {
     return ( $self->_Links( 'Base', 'DependsOn' ) );
 }
 
-# }}}
 
 
 
 
-# {{{ sub _Links 
 
 =head2 Links DIRECTION [TYPE]
 
@@ -1250,11 +1199,8 @@ sub _Links {
     return ( $self->{"$field$type"} );
 }
 
-# }}}
 
-# }}}
 
-# {{{ sub FormatType
 
 =head2 FormatType
 
@@ -1273,9 +1219,7 @@ sub FormatType{
 }
 
 
-# }}}
 
-# {{{ sub FormatLink
 
 =head2 FormatLink
 
@@ -1296,9 +1240,7 @@ sub FormatLink {
     return $text;
 }
 
-# }}}
 
-# {{{ sub _AddLink
 
 =head2 _AddLink
 
@@ -1375,9 +1317,7 @@ sub _AddLink {
     return ( $linkid, $TransString ) ;
 }
 
-# }}}
 
-# {{{ sub _DeleteLink 
 
 =head2 _DeleteLink
 
@@ -1447,13 +1387,9 @@ sub _DeleteLink {
     }
 }
 
-# }}}
 
-# }}}
 
-# {{{ Routines dealing with transactions
 
-# {{{ sub _NewTransaction
 
 =head2 _NewTransaction  PARAMHASH
 
@@ -1527,9 +1463,7 @@ sub _NewTransaction {
     return ( $transaction, $msg, $trans );
 }
 
-# }}}
 
-# {{{ sub Transactions 
 
 =head2 Transactions
 
@@ -1556,10 +1490,7 @@ sub Transactions {
     return ($transactions);
 }
 
-# }}}
-# }}}
 #
-# {{{ Routines dealing with custom fields
 
 sub CustomFields {
     my $self = shift;
@@ -1604,7 +1535,6 @@ sub CustomFieldLookupType {
     return ref($self);
 }
 
-# {{{ AddCustomFieldValue
 
 =head2 AddCustomFieldValue { Field => FIELD, Value => VALUE }
 
@@ -1813,9 +1743,7 @@ sub _AddCustomFieldValue {
     }
 }
 
-# }}}
 
-# {{{ DeleteCustomFieldValue
 
 =head2 DeleteCustomFieldValue { Field => FIELD, Value => VALUE }
 
@@ -1880,9 +1808,7 @@ sub DeleteCustomFieldValue {
     );
 }
 
-# }}}
 
-# {{{ FirstCustomFieldValue
 
 =head2 FirstCustomFieldValue FIELD
 
@@ -1924,7 +1850,6 @@ sub CustomFieldValuesAsString {
 }
 
 
-# {{{ CustomFieldValues
 
 =head2 CustomFieldValues FIELD
 
diff --git a/lib/RT/ScripAction_Overlay.pm b/lib/RT/ScripAction_Overlay.pm
index d29d3e0..bdfeaeb 100755
--- a/lib/RT/ScripAction_Overlay.pm
+++ b/lib/RT/ScripAction_Overlay.pm
@@ -73,7 +73,6 @@ use strict;
 no warnings qw(redefine);
 use RT::Template;
 
-# {{{ sub _Accessible 
 sub _Accessible  {
     my $self = shift;
     my %Cols = ( Name  => 'read',
@@ -87,9 +86,7 @@ sub _Accessible  {
        );
     return($self->SUPER::_Accessible(@_, %Cols));
 }
-# }}}
 
-# {{{ sub Create 
 
 =head2 Create
 
@@ -103,17 +100,13 @@ sub Create  {
     #TODO check these args and do smart things.
     return($self->SUPER::Create(@_));
 }
-# }}}
 
-# {{{ sub Delete 
 sub Delete  {
     my $self = shift;
     
     return (0, "ScripAction->Delete not implemented");
 }
-# }}}
 
-# {{{ sub Load 
 
 =head2 Load IDENTIFIER
 
@@ -147,9 +140,7 @@ sub Load  {
     }
     return ($self->Id, ($self->loc('[_1] ScripAction loaded', $self->Id)));
 }
-# }}}
 
-# {{{ sub LoadAction 
 
 =head2 LoadAction HASH
 
@@ -181,9 +172,7 @@ sub LoadAction  {
                                       TransactionObj => $args{'TransactionObj'},
 				    );
 }
-# }}}
 
-# {{{ sub TemplateObj
 
 =head2 TemplateObj
 
@@ -218,11 +207,9 @@ sub TemplateObj {
 
     return ( $self->{'TemplateObj'} );
 }
-# }}}
 
 # The following methods call the action object
 
-# {{{ sub Prepare 
 
 sub Prepare  {
     my $self = shift;
@@ -230,24 +217,19 @@ sub Prepare  {
     return ($self->Action->Prepare());
   
 }
-# }}}
 
-# {{{ sub Commit 
 sub Commit  {
     my $self = shift;
     return($self->Action->Commit());
     
     
 }
-# }}}
 
-# {{{ sub Describe 
 sub Describe  {
     my $self = shift;
     return ($self->Action->Describe());
     
 }
-# }}}
 
 =head2 Action
 
@@ -260,14 +242,12 @@ sub Action {
     return ($self->{'Action'});
 }
 
-# {{{ sub DESTROY
 sub DESTROY {
     my $self=shift;
     $self->{'_TicketObj'} = undef;
     $self->{'Action'} = undef;
     $self->{'TemplateObj'} = undef;
 }
-# }}}
 
 =head2 TODO
 
diff --git a/lib/RT/ScripActions_Overlay.pm b/lib/RT/ScripActions_Overlay.pm
index 8193441..252b16c 100755
--- a/lib/RT/ScripActions_Overlay.pm
+++ b/lib/RT/ScripActions_Overlay.pm
@@ -69,16 +69,13 @@ package RT::ScripActions;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub _Init
 sub _Init { 
   my $self = shift;
   $self->{'table'} = "ScripActions";
   $self->{'primary_key'} = "id";
   return ( $self->SUPER::_Init(@_));
 }
-# }}}
 
-# {{{ sub LimitToType 
 sub LimitToType  {
   my $self = shift;
   my $type = shift;
@@ -95,15 +92,12 @@ sub LimitToType  {
 		VALUE => 'any');
   
 }
-# }}}
 
-# {{{ sub NewItem 
 sub NewItem  {
   my $self = shift;
   return(RT::ScripAction->new($self->CurrentUser));
 
 }
-# }}}
 
 
 1;
diff --git a/lib/RT/ScripCondition_Overlay.pm b/lib/RT/ScripCondition_Overlay.pm
index 1f81bd5..f1a3b0d 100755
--- a/lib/RT/ScripCondition_Overlay.pm
+++ b/lib/RT/ScripCondition_Overlay.pm
@@ -73,15 +73,12 @@ use strict;
 no warnings qw(redefine);
 
 
-# {{{  sub _Init 
 sub _Init  {
     my $self = shift; 
     $self->{'table'} = "ScripConditions";
     return ($self->SUPER::_Init(@_));
 }
-# }}}
 
-# {{{ sub _Accessible 
 sub _Accessible  {
     my $self = shift;
     my %Cols = ( Name  => 'read',
@@ -96,9 +93,7 @@ sub _Accessible  {
 	       );
     return($self->SUPER::_Accessible(@_, %Cols));
 }
-# }}}
 
-# {{{ sub Create 
 
 =head2 Create
   
@@ -111,9 +106,7 @@ sub Create  {
     my $self = shift;
     return($self->SUPER::Create(@_));
 }
-# }}}
 
-# {{{ sub Delete 
 
 =head2 Delete
 
@@ -125,9 +118,7 @@ sub Delete  {
     my $self = shift;
     return(0, $self->loc('Unimplemented'));
 }
-# }}}
 
-# {{{ sub Load 
 
 =head2 Load IDENTIFIER
 
@@ -150,9 +141,7 @@ sub Load  {
 	return ($self->LoadByCol('Name', $identifier));
     }
 }
-# }}}
 
-# {{{ sub LoadCondition 
 
 =head2 LoadCondition  HASH
 
@@ -184,12 +173,9 @@ sub LoadCondition  {
                      CurrentUser => $self->CurrentUser 
 				       );
 }
-# }}}
 
-# {{{ The following methods call the Condition object
 
 
-# {{{ sub Describe 
 
 =head2 Describe 
 
@@ -202,9 +188,7 @@ sub Describe  {
     return ($self->{'Condition'}->Describe());
     
 }
-# }}}
 
-# {{{ sub IsApplicable 
 
 =head2 IsApplicable
 
@@ -217,16 +201,12 @@ sub IsApplicable  {
     return ($self->{'Condition'}->IsApplicable());
     
 }
-# }}}
 
-# }}}
 
-# {{{ sub DESTROY
 sub DESTROY {
     my $self=shift;
     $self->{'Condition'} = undef;
 }
-# }}}
 
 
 1;
diff --git a/lib/RT/ScripConditions_Overlay.pm b/lib/RT/ScripConditions_Overlay.pm
index 0aec04f..24c5522 100755
--- a/lib/RT/ScripConditions_Overlay.pm
+++ b/lib/RT/ScripConditions_Overlay.pm
@@ -70,16 +70,13 @@ package RT::ScripConditions;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub _Init
 sub _Init { 
   my $self = shift;
   $self->{'table'} = "ScripConditions";
   $self->{'primary_key'} = "id";
   return ( $self->SUPER::_Init(@_));
 }
-# }}}
 
-# {{{ sub LimitToType 
 sub LimitToType  {
   my $self = shift;
   my $type = shift;
@@ -96,14 +93,11 @@ sub LimitToType  {
 		VALUE => 'any');
   
 }
-# }}}
 
-# {{{ sub NewItem 
 sub NewItem  {
   my $self = shift;
   return(RT::ScripCondition->new($self->CurrentUser));
 }
-# }}}
 
 
 1;
diff --git a/lib/RT/Scrip_Overlay.pm b/lib/RT/Scrip_Overlay.pm
index 3c5079f..3fc4f7e 100755
--- a/lib/RT/Scrip_Overlay.pm
+++ b/lib/RT/Scrip_Overlay.pm
@@ -68,7 +68,6 @@ package RT::Scrip;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub Create
 
 =head2 Create
 
@@ -179,9 +178,7 @@ sub Create {
     }
 }
 
-# }}}
 
-# {{{ sub Delete
 
 =head2 Delete
 
@@ -199,9 +196,7 @@ sub Delete {
     return ( $self->SUPER::Delete(@_) );
 }
 
-# }}}
 
-# {{{ sub QueueObj
 
 =head2 QueueObj
 
@@ -220,9 +215,7 @@ sub QueueObj {
     return ( $self->{'QueueObj'} );
 }
 
-# }}}
 
-# {{{ sub ActionObj
 
 =head2 ActionObj
 
@@ -245,9 +238,7 @@ sub ActionObj {
     return ( $self->{'ScripActionObj'} );
 }
 
-# }}}
 
-# {{{ sub ConditionObj
 
 =head2 ConditionObj
 
@@ -263,7 +254,6 @@ sub ConditionObj {
     return $res;
 }
 
-# }}}
 
 =head2 LoadModules
 
@@ -278,7 +268,6 @@ sub LoadModules {
     $self->ActionObj->LoadAction;
 }
 
-# {{{ sub TemplateObj
 
 =head2 TemplateObj
 
@@ -297,11 +286,8 @@ sub TemplateObj {
     return ( $self->{'TemplateObj'} );
 }
 
-# }}}
 
-# {{{ Dealing with this instance of a scrip
 
-# {{{ sub Apply
 
 =head2 Apply { TicketObj => undef, TransactionObj => undef}
 
@@ -358,9 +344,7 @@ sub Apply {
 
 }
 
-# }}}
 
-# {{{ sub IsApplicable
 
 =head2 IsApplicable
 
@@ -430,9 +414,7 @@ sub IsApplicable {
 
 }
 
-# }}}
 
-# {{{ SUb Prepare
 
 =head2 Prepare
 
@@ -464,9 +446,7 @@ sub Prepare {
         return ($return);
 }
 
-# }}}
 
-# {{{ sub Commit
 
 =head2 Commit
 
@@ -500,13 +480,9 @@ sub Commit {
     return ($return);
 }
 
-# }}}
 
-# }}}
 
-# {{{ ACL related methods
 
-# {{{ sub _Set
 
 # does an acl check and then passes off the call
 sub _Set {
@@ -536,9 +512,7 @@ sub _Set {
     return $self->__Set(@_);
 }
 
-# }}}
 
-# {{{ sub _Value
 # does an acl check and then passes off the call
 sub _Value {
     my $self = shift;
@@ -553,9 +527,7 @@ sub _Value {
     return $self->__Value(@_);
 }
 
-# }}}
 
-# {{{ sub CurrentUserHasRight
 
 =head2 CurrentUserHasRight
 
@@ -572,9 +544,7 @@ sub CurrentUserHasRight {
 
 }
 
-# }}}
 
-# {{{ sub HasRight
 
 =head2 HasRight
 
@@ -604,9 +574,7 @@ sub HasRight {
     }
 }
 
-# }}}
 
-# }}}
 
 =head2 CompileCheck
 
diff --git a/lib/RT/Scrips_Overlay.pm b/lib/RT/Scrips_Overlay.pm
index f4a65db..66b0371 100644
--- a/lib/RT/Scrips_Overlay.pm
+++ b/lib/RT/Scrips_Overlay.pm
@@ -69,7 +69,6 @@ package RT::Scrips;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub LimitToQueue 
 
 =head2 LimitToQueue
 
@@ -89,9 +88,7 @@ sub LimitToQueue  {
       if defined $queue;
   
 }
-# }}}
 
-# {{{ sub LimitToGlobal
 
 =head2 LimitToGlobal
 
@@ -110,17 +107,13 @@ sub LimitToGlobal  {
 		VALUE => 0);
   
 }
-# }}}
 
-# {{{ sub NewItem 
 sub NewItem  {
   my $self = shift;
   
   return(RT::Scrip->new($self->CurrentUser));
 }
-# }}}
 
-# {{{ sub Next 
 
 =head2 Next
 
@@ -150,7 +143,6 @@ sub Next {
     }	
     
 }
-# }}}
 
 =head2 Apply
 
@@ -261,7 +253,6 @@ sub Prepared {
 }
 
 
-# {{{ sup _SetupSourceObjects
 
 =head2  _SetupSourceObjects { TicketObj , Ticket, Transaction, TransactionObj }
 
@@ -305,9 +296,7 @@ sub _SetupSourceObjects {
     }
 } 
 
-# }}}
 
-# {{{ sub _FindScrips;
 
 =head2 _FindScrips
 
@@ -376,7 +365,6 @@ sub _FindScrips {
     );
 }
 
-# }}}
 
 1;
 
diff --git a/lib/RT/Search.pm b/lib/RT/Search.pm
index 52b102d..763d088 100755
--- a/lib/RT/Search.pm
+++ b/lib/RT/Search.pm
@@ -76,7 +76,6 @@ package RT::Search;
 
 use strict;
 
-# {{{ sub new 
 sub new  {
   my $proto = shift;
   my $class = ref($proto) || $proto;
@@ -85,9 +84,7 @@ sub new  {
   $self->_Init(@_);
   return $self;
 }
-# }}}
 
-# {{{ sub _Init 
 sub _Init  {
   my $self = shift;
   my %args = ( 
@@ -98,9 +95,7 @@ sub _Init  {
   $self->{'TicketsObj'} = $args{'TicketsObj'}; 
   $self->{'Argument'} = $args{'Argument'};
 }
-# }}}
 
-# {{{ sub Argument 
 
 =head2 Argument
 
@@ -112,7 +107,6 @@ sub Argument  {
   my $self = shift;
   return($self->{'Argument'});
 }
-# }}}
 
 
 =head2 TicketsObj 
@@ -126,19 +120,15 @@ sub TicketsObj {
     return($self->{'TicketsObj'});
 }
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return ($self->loc("No description for [_1]", ref $self));
 }
-# }}}
 
-# {{{ sub Prepare
 sub Prepare  {
   my $self = shift;
   return(1);
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Search/ActiveTicketsInQueue.pm b/lib/RT/Search/ActiveTicketsInQueue.pm
index d6204ec..5e01142 100755
--- a/lib/RT/Search/ActiveTicketsInQueue.pm
+++ b/lib/RT/Search/ActiveTicketsInQueue.pm
@@ -69,14 +69,11 @@ use strict;
 use base qw(RT::Search);
 
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return ($self->loc("No description for [_1]", ref $self));
 }
-# }}}
 
-# {{{ sub Prepare
 sub Prepare  {
   my $self = shift;
 
@@ -88,7 +85,6 @@ sub Prepare  {
 
   return(1);
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Search/FromSQL.pm b/lib/RT/Search/FromSQL.pm
index d04f4ca..11198ae 100644
--- a/lib/RT/Search/FromSQL.pm
+++ b/lib/RT/Search/FromSQL.pm
@@ -74,12 +74,10 @@ Returns a localized string describing the module's function.
 
 =cut
 
-# {{{ sub Describe 
 sub Describe  {
     my $self = shift;
     return ($self->loc("TicketSQL search module", ref $self));
 }
-# }}}
 
 =head2 Prepare
 
@@ -89,14 +87,12 @@ is reduced to those tickets matching the SQL query.
 
 =cut
 
-# {{{ sub Prepare
 sub Prepare  {
     my $self = shift;
 
     $self->TicketsObj->FromSQL($self->Argument);
     return(1);
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Search/Googleish.pm b/lib/RT/Search/Googleish.pm
index 4235b1e..2e8715e 100644
--- a/lib/RT/Search/Googleish.pm
+++ b/lib/RT/Search/Googleish.pm
@@ -81,16 +81,12 @@ sub _Init {
     $self->{'Queues'} = delete($args{'Queues'}) || [];
     $self->SUPER::_Init(%args);
 }
-# }}}
 
-# {{{ sub Describe 
 sub Describe  {
   my $self = shift;
   return ($self->loc("No description for [_1]", ref $self));
 }
-# }}}
 
-# {{{ sub QueryToSQL
 sub QueryToSQL {
     my $self     = shift;
     my $query    = shift || $self->Argument;
@@ -188,9 +184,7 @@ sub QueryToSQL {
     @tql_clauses = grep { $_ ? $_ = "( $_ )" : undef } @tql_clauses;
     return join " AND ", sort @tql_clauses;
 }
-# }}}
 
-# {{{ sub Prepare
 sub Prepare  {
   my $self = shift;
   my $tql = $self->QueryToSQL($self->Argument);
@@ -200,7 +194,6 @@ sub Prepare  {
   $self->TicketsObj->FromSQL($tql);
   return(1);
 }
-# }}}
 
 RT::Base->_ImportOverlays();
 
diff --git a/lib/RT/Templates_Overlay.pm b/lib/RT/Templates_Overlay.pm
index 196fed2..a3c8019 100755
--- a/lib/RT/Templates_Overlay.pm
+++ b/lib/RT/Templates_Overlay.pm
@@ -69,7 +69,6 @@ use strict;
 no warnings qw(redefine);
 
 
-# {{{ sub _Init
 
 =head2 _Init
 
@@ -84,9 +83,7 @@ sub _Init {
     $self->{'primary_key'} = "id";
     return ($self->SUPER::_Init(@_));
 }
-# }}}
 
-# {{{ LimitToNotInQueue
 
 =head2 LimitToNotInQueue
 
@@ -103,9 +100,7 @@ sub LimitToNotInQueue {
                  OPERATOR => '!='
                 );
 }
-# }}}
 
-# {{{ LimitToGlobal
 
 =head2 LimitToGlobal
 
@@ -122,9 +117,7 @@ sub LimitToGlobal {
                  OPERATOR => '='
                 );
 }
-# }}}
 
-# {{{ LimitToQueue
 
 =head2 LimitToQueue
 
@@ -141,9 +134,7 @@ sub LimitToQueue {
                  OPERATOR => '='
                 );
 }
-# }}}
 
-# {{{ sub NewItem 
 
 =head2 NewItem
 
@@ -158,9 +149,7 @@ sub NewItem  {
   my $item = RT::Template->new($self->CurrentUser);
   return($item);
 }
-# }}}
 
-# {{{ sub Next 
 
 =head2 Next
 
@@ -194,7 +183,6 @@ sub Next {
     }	
     
 }
-# }}}
 
 1;
 
diff --git a/lib/RT/Ticket_Overlay.pm b/lib/RT/Ticket_Overlay.pm
index a73282f..fb805e6 100755
--- a/lib/RT/Ticket_Overlay.pm
+++ b/lib/RT/Ticket_Overlay.pm
@@ -46,7 +46,6 @@
 # 
 # END BPS TAGGED BLOCK }}}
 
-# {{{ Front Material 
 
 =head1 SYNOPSIS
 
@@ -85,7 +84,6 @@ use MIME::Entity;
 use Devel::GlobalDestruction;
 
 
-# {{{ LINKTYPEMAP
 # A helper table for links mapping to make it easier
 # to build and parse links between tickets
 
@@ -113,9 +111,7 @@ our %LINKTYPEMAP = (
 
 );
 
-# }}}
 
-# {{{ LINKDIRMAP
 # A helper table for links mapping to make it easier
 # to build and parse links between tickets
 
@@ -131,7 +127,6 @@ our %LINKDIRMAP = (
 
 );
 
-# }}}
 
 sub LINKTYPEMAP   { return \%LINKTYPEMAP   }
 sub LINKDIRMAP   { return \%LINKDIRMAP   }
@@ -141,7 +136,6 @@ our %MERGE_CACHE = (
     merged => {},
 );
 
-# {{{ sub Load
 
 =head2 Load
 
@@ -196,9 +190,7 @@ sub Load {
     return $self->Id;
 }
 
-# }}}
 
-# {{{ sub Create
 
 =head2 Create (ARGS)
 
@@ -725,9 +717,7 @@ sub Create {
 }
 
 
-# }}}
 
-# {{{ _Parse822HeadersForAttributes Content
 
 =head2 _Parse822HeadersForAttributes Content
 
@@ -788,9 +778,7 @@ sub _Parse822HeadersForAttributes {
     return (%args);
 }
 
-# }}}
 
-# {{{ sub Import
 
 =head2 Import PARAMHASH
 
@@ -984,11 +972,8 @@ sub Import {
     return ( $self->Id, $ErrStr );
 }
 
-# }}}
 
-# {{{ Routines dealing with watchers.
 
-# {{{ _CreateTicketGroups 
 
 =head2 _CreateTicketGroups
 
@@ -1023,9 +1008,7 @@ sub _CreateTicketGroups {
     
 }
 
-# }}}
 
-# {{{ sub OwnerGroup
 
 =head2 OwnerGroup
 
@@ -1040,10 +1023,8 @@ sub OwnerGroup {
     return ($owner_obj);
 }
 
-# }}}
 
 
-# {{{ sub AddWatcher
 
 =head2 AddWatcher
 
@@ -1182,10 +1163,8 @@ sub _AddWatcher {
         return ( 1, $self->loc('Added principal as a [_1] for this ticket', $self->loc($args{'Type'})) );
 }
 
-# }}}
 
 
-# {{{ sub DeleteWatcher
 
 =head2 DeleteWatcher { Type => TYPE, PrincipalId => PRINCIPAL_ID, Email => EMAIL_ADDRESS }
 
@@ -1312,7 +1291,6 @@ sub DeleteWatcher {
 
 
 
-# }}}
 
 
 =head2 SquelchMailTo [EMAIL]
@@ -1374,7 +1352,6 @@ sub UnsquelchMailTo {
 }
 
 
-# {{{ a set of  [foo]AsString subs that will return the various sorts of watchers for a ticket/queue as a comma delineated string
 
 =head2 RequestorAddresses
 
@@ -1426,11 +1403,8 @@ sub CcAddresses {
 
 }
 
-# }}}
 
-# {{{ Routines that return RT::Watchers objects of Requestors, Ccs and AdminCcs
 
-# {{{ sub Requestors
 
 =head2 Requestors
 
@@ -1450,9 +1424,7 @@ sub Requestors {
 
 }
 
-# }}}
 
-# {{{ sub Cc
 
 =head2 Cc
 
@@ -1473,9 +1445,7 @@ sub Cc {
 
 }
 
-# }}}
 
-# {{{ sub AdminCc
 
 =head2 AdminCc
 
@@ -1496,13 +1466,9 @@ sub AdminCc {
 
 }
 
-# }}}
 
-# }}}
 
-# {{{ IsWatcher,IsRequestor,IsCc, IsAdminCc
 
-# {{{ sub IsWatcher
 # a generic routine to be called by IsRequestor, IsCc and IsAdminCc
 
 =head2 IsWatcher { Type => TYPE, PrincipalId => PRINCIPAL_ID, Email => EMAIL }
@@ -1551,9 +1517,7 @@ sub IsWatcher {
     return $group->HasMember( $args{'PrincipalId'} );
 }
 
-# }}}
 
-# {{{ sub IsRequestor
 
 =head2 IsRequestor PRINCIPAL_ID
   
@@ -1571,9 +1535,7 @@ sub IsRequestor {
 
 };
 
-# }}}
 
-# {{{ sub IsCc
 
 =head2 IsCc PRINCIPAL_ID
 
@@ -1591,9 +1553,7 @@ sub IsCc {
 
 }
 
-# }}}
 
-# {{{ sub IsAdminCc
 
 =head2 IsAdminCc PRINCIPAL_ID
 
@@ -1610,9 +1570,7 @@ sub IsAdminCc {
 
 }
 
-# }}}
 
-# {{{ sub IsOwner
 
 =head2 IsOwner
 
@@ -1643,11 +1601,8 @@ sub IsOwner {
     }
 }
 
-# }}}
 
-# }}}
 
-# }}}
 
 
 =head2 TransactionAddresses
@@ -1690,9 +1645,7 @@ sub TransactionAddresses {
 
 
 
-# {{{ Routines dealing with queues 
 
-# {{{ sub ValidateQueue
 
 sub ValidateQueue {
     my $self  = shift;
@@ -1714,9 +1667,7 @@ sub ValidateQueue {
     }
 }
 
-# }}}
 
-# {{{ sub SetQueue  
 
 sub SetQueue {
     my $self     = shift;
@@ -1824,9 +1775,7 @@ sub SetQueue {
     return ($status, $msg);
 }
 
-# }}}
 
-# {{{ sub QueueObj
 
 =head2 QueueObj
 
@@ -1847,13 +1796,9 @@ sub QueueObj {
     return ($self->{_queue_obj});
 }
 
-# }}}
 
-# }}}
 
-# {{{ Date printing routines
 
-# {{{ sub DueObj
 
 =head2 DueObj
 
@@ -1877,9 +1822,7 @@ sub DueObj {
     return $time;
 }
 
-# }}}
 
-# {{{ sub DueAsString 
 
 =head2 DueAsString
 
@@ -1892,9 +1835,7 @@ sub DueAsString {
     return $self->DueObj->AsString();
 }
 
-# }}}
 
-# {{{ sub ResolvedObj
 
 =head2 ResolvedObj
 
@@ -1910,9 +1851,7 @@ sub ResolvedObj {
     return $time;
 }
 
-# }}}
 
-# {{{ sub SetStarted
 
 =head2 SetStarted
 
@@ -1956,9 +1895,7 @@ sub SetStarted {
 
 }
 
-# }}}
 
-# {{{ sub StartedObj
 
 =head2 StartedObj
 
@@ -1975,9 +1912,7 @@ sub StartedObj {
     return $time;
 }
 
-# }}}
 
-# {{{ sub StartsObj
 
 =head2 StartsObj
 
@@ -1994,9 +1929,7 @@ sub StartsObj {
     return $time;
 }
 
-# }}}
 
-# {{{ sub ToldObj
 
 =head2 ToldObj
 
@@ -2013,9 +1946,7 @@ sub ToldObj {
     return $time;
 }
 
-# }}}
 
-# {{{ sub ToldAsString
 
 =head2 ToldAsString
 
@@ -2035,9 +1966,7 @@ sub ToldAsString {
     }
 }
 
-# }}}
 
-# {{{ sub TimeWorkedAsString
 
 =head2 TimeWorkedAsString
 
@@ -2058,9 +1987,7 @@ sub TimeWorkedAsString {
         ->DurationAsString( $value * 60 );
 }
 
-# }}}
 
-# {{{ sub TimeLeftAsString
 
 =head2  TimeLeftAsString
 
@@ -2076,11 +2003,8 @@ sub TimeLeftAsString {
         ->DurationAsString( $value * 60 );
 }
 
-# }}}
 
-# {{{ Routines dealing with correspondence/comments
 
-# {{{ sub Comment
 
 =head2 Comment
 
@@ -2128,9 +2052,7 @@ sub Comment {
 
     return(@results);
 }
-# }}}
 
-# {{{ sub Correspond
 
 =head2 Correspond
 
@@ -2185,9 +2107,7 @@ sub Correspond {
 
 }
 
-# }}}
 
-# {{{ sub _RecordNote
 
 =head2 _RecordNote
 
@@ -2275,7 +2195,6 @@ sub _RecordNote {
     return ( $Trans, $self->loc("Message recorded"), $TransObj );
 }
 
-# }}}
 
 =head2 DryRun
 
@@ -2360,9 +2279,7 @@ sub DryRunCreate {
     return $Object;
 }
 
-# }}}
 
-# {{{ sub _Links 
 
 sub _Links {
     my $self = shift;
@@ -2403,9 +2320,7 @@ sub _Links {
     return $links;
 }
 
-# }}}
 
-# {{{ sub DeleteLink 
 
 =head2 DeleteLink
 
@@ -2502,9 +2417,7 @@ sub DeleteLink {
     return ( $val, $Msg );
 }
 
-# }}}
 
-# {{{ sub AddLink
 
 =head2 AddLink
 
@@ -2633,10 +2546,8 @@ sub _AddLink {
     return ( $val, $msg );
 }
 
-# }}}
 
 
-# {{{ sub MergeInto
 
 =head2 MergeInto
 
@@ -2847,13 +2758,9 @@ sub Merged {
         = map $_->id, @{ $mergees->ItemsArrayRef || [] };
 }
 
-# }}}
 
-# }}}
 
-# {{{ Routines dealing with ownership
 
-# {{{ sub OwnerObj
 
 =head2 OwnerObj
 
@@ -2876,9 +2783,7 @@ sub OwnerObj {
     return ($owner);
 }
 
-# }}}
 
-# {{{ sub OwnerAsString 
 
 =head2 OwnerAsString
 
@@ -2892,9 +2797,7 @@ sub OwnerAsString {
 
 }
 
-# }}}
 
-# {{{ sub SetOwner
 
 =head2 SetOwner
 
@@ -3043,9 +2946,7 @@ sub SetOwner {
     return ( $val, $msg );
 }
 
-# }}}
 
-# {{{ sub Take
 
 =head2 Take
 
@@ -3058,9 +2959,7 @@ sub Take {
     return ( $self->SetOwner( $self->CurrentUser->Id, 'Take' ) );
 }
 
-# }}}
 
-# {{{ sub Untake
 
 =head2 Untake
 
@@ -3073,9 +2972,7 @@ sub Untake {
     return ( $self->SetOwner( $RT::Nobody->UserObj->Id, 'Untake' ) );
 }
 
-# }}}
 
-# {{{ sub Steal 
 
 =head2 Steal
 
@@ -3097,13 +2994,9 @@ sub Steal {
 
 }
 
-# }}}
 
-# }}}
 
-# {{{ Routines dealing with status
 
-# {{{ sub ValidateStatus 
 
 =head2 ValidateStatus STATUS
 
@@ -3127,9 +3020,7 @@ sub ValidateStatus {
     return 0;
 }
 
-# }}}
 
-# {{{ sub SetStatus
 
 =head2 SetStatus STATUS
 
@@ -3209,9 +3100,7 @@ sub SetStatus {
     return ($val, $msg);
 }
 
-# }}}
 
-# {{{ sub Delete
 
 =head2 Delete
 
@@ -3226,9 +3115,7 @@ sub Delete {
     # TODO: garbage collection
 }
 
-# }}}
 
-# {{{ sub Stall
 
 =head2 Stall
 
@@ -3241,9 +3128,7 @@ sub Stall {
     return ( $self->SetStatus('stalled') );
 }
 
-# }}}
 
-# {{{ sub Reject
 
 =head2 Reject
 
@@ -3256,9 +3141,7 @@ sub Reject {
     return ( $self->SetStatus('rejected') );
 }
 
-# }}}
 
-# {{{ sub Open
 
 =head2 Open
 
@@ -3271,9 +3154,7 @@ sub Open {
     return ( $self->SetStatus('open') );
 }
 
-# }}}
 
-# {{{ sub Resolve
 
 =head2 Resolve
 
@@ -3286,14 +3167,10 @@ sub Resolve {
     return ( $self->SetStatus('resolved') );
 }
 
-# }}}
 
-# }}}
 
     
-# {{{ Actions + Routines dealing with transactions
 
-# {{{ sub SetTold and _SetTold
 
 =head2 SetTold ISO  [TIMETAKEN]
 
@@ -3367,7 +3244,6 @@ sub SeenUpTo {
     return $txns->First;
 }
 
-# }}}
 
 =head2 TransactionBatch
 
@@ -3457,11 +3333,8 @@ sub DESTROY {
     return $self->_ApplyTransactionBatch;
 }
 
-# }}}
 
-# {{{ PRIVATE UTILITY METHODS. Mostly needed so Ticket can be a DBIx::Record
 
-# {{{ sub _OverlayAccessible
 
 sub _OverlayAccessible {
     {
@@ -3491,9 +3364,7 @@ sub _OverlayAccessible {
 
 }
 
-# }}}
 
-# {{{ sub _Set
 
 sub _Set {
     my $self = shift;
@@ -3552,9 +3423,7 @@ sub _Set {
     }
 }
 
-# }}}
 
-# {{{ sub _Value 
 
 =head2 _Value
 
@@ -3585,9 +3454,7 @@ sub _Value {
 
 }
 
-# }}}
 
-# {{{ sub _UpdateTimeTaken
 
 =head2 _UpdateTimeTaken
 
@@ -3611,13 +3478,9 @@ sub _UpdateTimeTaken {
     return ($Total);
 }
 
-# }}}
 
-# }}}
 
-# {{{ Routines dealing with ACCESS CONTROL
 
-# {{{ sub CurrentUserHasRight 
 
 =head2 CurrentUserHasRight
 
@@ -3636,9 +3499,7 @@ sub CurrentUserHasRight {
     )
 }
 
-# }}}
 
-# {{{ sub HasRight 
 
 =head2 HasRight
 
@@ -3673,9 +3534,7 @@ sub HasRight {
     );
 }
 
-# }}}
 
-# }}}
 
 =head2 Reminders
 
@@ -3697,7 +3556,6 @@ sub Reminders {
 
 
 
-# {{{ sub Transactions 
 
 =head2 Transactions
 
@@ -3743,10 +3601,8 @@ sub Transactions {
     return ($transactions);
 }
 
-# }}}
 
 
-# {{{ TransactionCustomFields
 
 =head2 TransactionCustomFields
 
@@ -3759,9 +3615,7 @@ sub TransactionCustomFields {
     return $self->QueueObj->TicketTransactionCustomFields;
 }
 
-# }}}
 
-# {{{ sub CustomFieldValues
 
 =head2 CustomFieldValues
 
@@ -3791,9 +3645,7 @@ sub CustomFieldValues {
     return $self->SUPER::CustomFieldValues( $cf->id );
 }
 
-# }}}
 
-# {{{ sub CustomFieldLookupType
 
 =head2 CustomFieldLookupType
 
@@ -3802,7 +3654,6 @@ RT::CustomField->Create() via the 'LookupType' hash key.
 
 =cut
 
-# }}}
 
 sub CustomFieldLookupType {
     "RT::Queue-RT::Ticket";
diff --git a/lib/RT/Tickets_Overlay.pm b/lib/RT/Tickets_Overlay.pm
index 02b251f..7e2bc8e 100755
--- a/lib/RT/Tickets_Overlay.pm
+++ b/lib/RT/Tickets_Overlay.pm
@@ -215,7 +215,6 @@ sub can_bundle { return \%can_bundle }
 # Bring in the clowns.
 require RT::Tickets_Overlay_SQL;
 
-# {{{ sub SortFields
 
 our @SORTFIELDS = qw(id Status
     Queue Subject
@@ -234,7 +233,6 @@ sub SortFields {
     return (@SORTFIELDS);
 }
 
-# }}}
 
 # BEGIN SQL STUFF *********************************
 
@@ -1625,7 +1623,6 @@ sub _HasAttributeLimit {
 
 # End of SQL Stuff -------------------------------------------------
 
-# {{{ Allow sorting on watchers
 
 =head2 OrderByCols ARRAY
 
@@ -1761,11 +1758,8 @@ sub OrderByCols {
     return $self->SUPER::OrderByCols(@res);
 }
 
-# }}}
 
-# {{{ Limit the result set based on content
 
-# {{{ sub Limit
 
 =head2 Limit
 
@@ -1814,11 +1808,8 @@ sub Limit {
     return ($index);
 }
 
-# }}}
 
-# {{{ Limit by enum or foreign key
 
-# {{{ sub LimitQueue
 
 =head2 LimitQueue
 
@@ -1860,9 +1851,7 @@ sub LimitQueue {
 
 }
 
-# }}}
 
-# {{{ sub LimitStatus
 
 =head2 LimitStatus
 
@@ -1893,9 +1882,7 @@ sub LimitStatus {
     );
 }
 
-# }}}
 
-# {{{ sub IgnoreType
 
 =head2 IgnoreType
 
@@ -1916,9 +1903,7 @@ sub IgnoreType {
     $self->{looking_at_type} = 1;
 }
 
-# }}}
 
-# {{{ sub LimitType
 
 =head2 LimitType
 
@@ -1946,13 +1931,9 @@ sub LimitType {
     );
 }
 
-# }}}
 
-# }}}
 
-# {{{ Limit by string field
 
-# {{{ sub LimitSubject
 
 =head2 LimitSubject
 
@@ -1974,14 +1955,10 @@ sub LimitSubject {
     );
 }
 
-# }}}
 
-# }}}
 
-# {{{ Limit based on ticket numerical attributes
 # Things that can be > < = !=
 
-# {{{ sub LimitId
 
 =head2 LimitId
 
@@ -2007,9 +1984,7 @@ sub LimitId {
     );
 }
 
-# }}}
 
-# {{{ sub LimitPriority
 
 =head2 LimitPriority
 
@@ -2032,9 +2007,7 @@ sub LimitPriority {
     );
 }
 
-# }}}
 
-# {{{ sub LimitInitialPriority
 
 =head2 LimitInitialPriority
 
@@ -2058,9 +2031,7 @@ sub LimitInitialPriority {
     );
 }
 
-# }}}
 
-# {{{ sub LimitFinalPriority
 
 =head2 LimitFinalPriority
 
@@ -2083,9 +2054,7 @@ sub LimitFinalPriority {
     );
 }
 
-# }}}
 
-# {{{ sub LimitTimeWorked
 
 =head2 LimitTimeWorked
 
@@ -2108,9 +2077,7 @@ sub LimitTimeWorked {
     );
 }
 
-# }}}
 
-# {{{ sub LimitTimeLeft
 
 =head2 LimitTimeLeft
 
@@ -2133,13 +2100,9 @@ sub LimitTimeLeft {
     );
 }
 
-# }}}
 
-# }}}
 
-# {{{ Limiting based on attachment attributes
 
-# {{{ sub LimitContent
 
 =head2 LimitContent
 
@@ -2162,9 +2125,7 @@ sub LimitContent {
     );
 }
 
-# }}}
 
-# {{{ sub LimitFilename
 
 =head2 LimitFilename
 
@@ -2187,8 +2148,6 @@ sub LimitFilename {
     );
 }
 
-# }}}
-# {{{ sub LimitContentType
 
 =head2 LimitContentType
 
@@ -2211,13 +2170,9 @@ sub LimitContentType {
     );
 }
 
-# }}}
 
-# }}}
 
-# {{{ Limiting based on people
 
-# {{{ sub LimitOwner
 
 =head2 LimitOwner
 
@@ -2248,11 +2203,8 @@ sub LimitOwner {
 
 }
 
-# }}}
 
-# {{{ Limiting watchers
 
-# {{{ sub LimitWatcher
 
 =head2 LimitWatcher
 
@@ -2293,15 +2245,10 @@ sub LimitWatcher {
     );
 }
 
-# }}}
 
-# }}}
 
-# }}}
 
-# {{{ Limiting based on links
 
-# {{{ LimitLinkedTo
 
 =head2 LimitLinkedTo
 
@@ -2337,9 +2284,7 @@ sub LimitLinkedTo {
     );
 }
 
-# }}}
 
-# {{{ LimitLinkedFrom
 
 =head2 LimitLinkedFrom
 
@@ -2382,9 +2327,7 @@ sub LimitLinkedFrom {
     );
 }
 
-# }}}
 
-# {{{ LimitMemberOf
 sub LimitMemberOf {
     my $self      = shift;
     my $ticket_id = shift;
@@ -2395,9 +2338,7 @@ sub LimitMemberOf {
     );
 }
 
-# }}}
 
-# {{{ LimitHasMember
 sub LimitHasMember {
     my $self      = shift;
     my $ticket_id = shift;
@@ -2409,9 +2350,7 @@ sub LimitHasMember {
 
 }
 
-# }}}
 
-# {{{ LimitDependsOn
 
 sub LimitDependsOn {
     my $self      = shift;
@@ -2424,9 +2363,7 @@ sub LimitDependsOn {
 
 }
 
-# }}}
 
-# {{{ LimitDependedOnBy
 
 sub LimitDependedOnBy {
     my $self      = shift;
@@ -2439,9 +2376,7 @@ sub LimitDependedOnBy {
 
 }
 
-# }}}
 
-# {{{ LimitRefersTo
 
 sub LimitRefersTo {
     my $self      = shift;
@@ -2454,9 +2389,7 @@ sub LimitRefersTo {
 
 }
 
-# }}}
 
-# {{{ LimitReferredToBy
 
 sub LimitReferredToBy {
     my $self      = shift;
@@ -2468,13 +2401,9 @@ sub LimitReferredToBy {
     );
 }
 
-# }}}
 
-# }}}
 
-# {{{ limit based on ticket date attribtes
 
-# {{{ sub LimitDate
 
 =head2 LimitDate (FIELD => 'DateField', OPERATOR => $oper, VALUE => $ISODate)
 
@@ -2510,7 +2439,6 @@ sub LimitDate {
 
 }
 
-# }}}
 
 sub LimitCreated {
     my $self = shift;
@@ -2550,7 +2478,6 @@ sub LimitLastUpdated {
 }
 
 #
-# {{{ sub LimitTransactionDate
 
 =head2 LimitTransactionDate (OPERATOR => $oper, VALUE => $ISODate)
 
@@ -2586,12 +2513,8 @@ sub LimitTransactionDate {
 
 }
 
-# }}}
 
-# }}}
 
-# {{{ Limit based on custom fields
-# {{{ sub LimitCustomField
 
 =head2 LimitCustomField
 
@@ -2673,10 +2596,7 @@ sub LimitCustomField {
     $self->{'RecalcTicketLimits'} = 1;
 }
 
-# }}}
-# }}}
 
-# {{{ sub _NextIndex
 
 =head2 _NextIndex
 
@@ -2689,13 +2609,9 @@ sub _NextIndex {
     return ( $self->{'restriction_index'}++ );
 }
 
-# }}}
 
-# }}}
 
-# {{{ Core bits to make this a DBIx::SearchBuilder object
 
-# {{{ sub _Init
 sub _Init {
     my $self = shift;
     $self->{'table'}                   = "Tickets";
@@ -2713,27 +2629,21 @@ sub _Init {
 
 }
 
-# }}}
 
-# {{{ sub Count
 sub Count {
     my $self = shift;
     $self->_ProcessRestrictions() if ( $self->{'RecalcTicketLimits'} == 1 );
     return ( $self->SUPER::Count() );
 }
 
-# }}}
 
-# {{{ sub CountAll
 sub CountAll {
     my $self = shift;
     $self->_ProcessRestrictions() if ( $self->{'RecalcTicketLimits'} == 1 );
     return ( $self->SUPER::CountAll() );
 }
 
-# }}}
 
-# {{{ sub ItemsArrayRef
 
 =head2 ItemsArrayRef
 
@@ -2780,9 +2690,7 @@ sub ItemsArrayRefWindow {
     return \@res;
 }
 
-# }}}
 
-# {{{ sub Next
 sub Next {
     my $self = shift;
 
@@ -3069,13 +2977,9 @@ sub CurrentUserCanSee {
     return $self->{'_sql_current_user_can_see_applied'} = 1;
 }
 
-# }}}
 
-# }}}
 
-# {{{ Deal with storing and restoring restrictions
 
-# {{{ sub LoadRestrictions
 
 =head2 LoadRestrictions
 
@@ -3084,9 +2988,7 @@ TODO It is not yet implemented
 
 =cut
 
-# }}}
 
-# {{{ sub DescribeRestrictions
 
 =head2 DescribeRestrictions
 
@@ -3108,9 +3010,7 @@ sub DescribeRestrictions {
     return (%listing);
 }
 
-# }}}
 
-# {{{ sub RestrictionValues
 
 =head2 RestrictionValues FIELD
 
@@ -3129,9 +3029,7 @@ sub RestrictionValues {
         keys %{ $self->{'TicketRestrictions'} };
 }
 
-# }}}
 
-# {{{ sub ClearRestrictions
 
 =head2 ClearRestrictions
 
@@ -3147,9 +3045,7 @@ sub ClearRestrictions {
     $self->{'RecalcTicketLimits'}      = 1;
 }
 
-# }}}
 
-# {{{ sub DeleteRestriction
 
 =head2 DeleteRestriction
 
@@ -3168,9 +3064,7 @@ sub DeleteRestriction {
     #make the underlying easysearch object forget all its preconceptions
 }
 
-# }}}
 
-# {{{ sub _RestrictionsToClauses
 
 # Convert a set of oldstyle SB Restrictions to Clauses for RQL
 
@@ -3263,9 +3157,7 @@ sub _RestrictionsToClauses {
     return \%clause;
 }
 
-# }}}
 
-# {{{ sub _ProcessRestrictions
 
 =head2 _ProcessRestrictions PARAMHASH
 
@@ -3365,9 +3257,7 @@ sub ItemMap {
 }
 
 
-# }}}
 
-# }}}
 
 =head2 PrepForSerialization
 
diff --git a/lib/RT/Transaction_Overlay.pm b/lib/RT/Transaction_Overlay.pm
index 3e2f41f..9702968 100755
--- a/lib/RT/Transaction_Overlay.pm
+++ b/lib/RT/Transaction_Overlay.pm
@@ -83,7 +83,6 @@ use RT::Ruleset;
 use HTML::FormatText;
 use HTML::TreeBuilder;
 
-# {{{ sub Create 
 
 =head2 Create
 
@@ -193,7 +192,6 @@ sub Create {
     return ( $id, $self->loc("Transaction Created") );
 }
 
-# }}}
 
 =head2 Scrips
 
@@ -227,7 +225,6 @@ sub Rules {
 }
 
 
-# {{{ sub Delete
 
 =head2 Delete
 
@@ -259,11 +256,8 @@ sub Delete {
     return ($id,$msg);
 }
 
-# }}}
 
-# {{{ Routines dealing with Attachments
 
-# {{{ sub Message 
 
 =head2 Message
 
@@ -291,9 +285,7 @@ sub Message {
     return $self->{'message'};
 }
 
-# }}}
 
-# {{{ sub Content
 
 =head2 Content PARAMHASH
 
@@ -382,7 +374,6 @@ sub Content {
     return ($content);
 }
 
-# }}}
 
 
 =head2 Addresses
@@ -404,7 +395,6 @@ sub Addresses {
 }
 
 
-# {{{ ContentObj
 
 =head2 ContentObj 
 
@@ -466,9 +456,7 @@ sub ContentObj {
     return (undef);
 }
 
-# }}}
 
-# {{{ sub Subject
 
 =head2 Subject
 
@@ -483,9 +471,7 @@ sub Subject {
     return $first->Subject;
 }
 
-# }}}
 
-# {{{ sub Attachments 
 
 =head2 Attachments
 
@@ -522,9 +508,7 @@ sub Attachments {
     return $self->{'attachments'};
 }
 
-# }}}
 
-# {{{ sub _Attach 
 
 =head2 _Attach
 
@@ -549,9 +533,7 @@ sub _Attach {
     return ( $Attachment, $msg || $self->loc("Attachment created") );
 }
 
-# }}}
 
-# }}}
 
 sub ContentAsMIME {
     my $self = shift;
@@ -596,9 +578,7 @@ sub ContentAsMIME {
     return $entity;
 }
 
-# {{{ Routines dealing with Transaction Attributes
 
-# {{{ sub Description 
 
 =head2 Description
 
@@ -620,9 +600,7 @@ sub Description {
     return $self->loc("[_1] by [_2]", $self->BriefDescription , $self->CreatorObj->Name );
 }
 
-# }}}
 
-# {{{ sub BriefDescription 
 
 =head2 BriefDescription
 
@@ -935,11 +913,8 @@ sub BriefDescription {
     }
 );
 
-# }}}
 
-# {{{ Utility methods
 
-# {{{ sub IsInbound
 
 =head2 IsInbound
 
@@ -954,9 +929,7 @@ sub IsInbound {
     return ( $self->TicketObj->IsRequestor( $self->CreatorObj->PrincipalId ) );
 }
 
-# }}}
 
-# }}}
 
 sub _OverlayAccessible {
     {
@@ -967,20 +940,15 @@ sub _OverlayAccessible {
     }
 };
 
-# }}}
 
-# }}}
 
-# {{{ sub _Set
 
 sub _Set {
     my $self = shift;
     return ( 0, $self->loc('Transactions are immutable') );
 }
 
-# }}}
 
-# {{{ sub _Value 
 
 =head2 _Value
 
@@ -1005,9 +973,7 @@ sub _Value {
     return $self->SUPER::_Value( $field );
 }
 
-# }}}
 
-# {{{ sub CurrentUserHasRight
 
 =head2 CurrentUserHasRight RIGHT
 
@@ -1073,7 +1039,6 @@ sub CurrentUserCanSee {
     return 1;
 }
 
-# }}}
 
 sub Ticket {
     my $self = shift;
@@ -1207,9 +1172,7 @@ sub CustomFieldValues {
     return $self->SUPER::CustomFieldValues($field);
 }
 
-# }}}
 
-# {{{ sub CustomFieldLookupType
 
 =head2 CustomFieldLookupType
 
@@ -1218,7 +1181,6 @@ be passed to RT::CustomField->Create() via the 'LookupType' hash key.
 
 =cut
 
-# }}}
 
 sub CustomFieldLookupType {
     "RT::Queue-RT::Ticket-RT::Transaction";
diff --git a/lib/RT/Transactions_Overlay.pm b/lib/RT/Transactions_Overlay.pm
index d57228b..aa92c9b 100755
--- a/lib/RT/Transactions_Overlay.pm
+++ b/lib/RT/Transactions_Overlay.pm
@@ -69,7 +69,6 @@ package RT::Transactions;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub _Init  
 sub _Init   {
   my $self = shift;
   
@@ -84,7 +83,6 @@ sub _Init   {
 
   return ( $self->SUPER::_Init(@_));
 }
-# }}}
 
 =head2 LimitToTicket TICKETID 
 
@@ -126,7 +124,6 @@ sub LimitToTicket {
 }
 
 
-# {{{ sub Next
 sub Next {
     my $self = shift;
  	
@@ -149,7 +146,6 @@ sub Next {
 	return(undef);
     }	
 }
-# }}}
 
 
 
diff --git a/lib/RT/URI.pm b/lib/RT/URI.pm
index eaf4698..b4c58bd 100755
--- a/lib/RT/URI.pm
+++ b/lib/RT/URI.pm
@@ -92,7 +92,6 @@ sub new {
 
 
 
-# {{{ FromObject
 
 =head2 FromObject <Object>
 
@@ -109,9 +108,7 @@ sub FromObject {
     return $self->FromURI($obj->URI);
 }
 
-# }}}
 
-# {{{ FromURI
 
 =head2 FromURI <URI>
 
@@ -157,9 +154,7 @@ sub FromURI {
 
 }
 
-# }}}
 
-# {{{ _GetResolver
 
 =head2 _GetResolver <scheme>
 
@@ -189,9 +184,7 @@ sub _GetResolver {
 
 }
 
-# }}}
 
-# {{{ Scheme
 
 =head2 Scheme
 
@@ -205,8 +198,6 @@ sub Scheme {
     return ($self->Resolver->Scheme);
 
 }
-# }}}
-# {{{ URI
 
 =head2 URI
 
@@ -220,9 +211,7 @@ sub URI {
     return ($self->Resolver->URI);
 
 }
-# }}}
 
-# {{{ Object
 
 =head2 Object
 
@@ -238,9 +227,7 @@ sub Object {
 }
 
 
-# }}}
 
-# {{{ IsLocal
 
 =head2 IsLocal
 
@@ -254,7 +241,6 @@ sub IsLocal {
 }
 
 
-# }}}
 
 =head2 AsHREF
 
diff --git a/lib/RT/Users_Overlay.pm b/lib/RT/Users_Overlay.pm
index 1896d0c..a7aea68 100755
--- a/lib/RT/Users_Overlay.pm
+++ b/lib/RT/Users_Overlay.pm
@@ -69,7 +69,6 @@ package RT::Users;
 use strict;
 no warnings qw(redefine);
 
-# {{{ sub _Init 
 sub _Init {
     my $self = shift;
     $self->{'table'} = 'Users';
@@ -97,7 +96,6 @@ sub _Init {
     return (@result);
 }
 
-# }}}
 
 =head2 PrincipalsAlias
 
@@ -149,7 +147,6 @@ sub LimitToDeleted {
 }
 
 
-# {{{ LimitToEmail
 
 =head2 LimitToEmail
 
@@ -164,9 +161,7 @@ sub LimitToEmail {
     $self->Limit( FIELD => 'EmailAddress', VALUE => "$addr" );
 }
 
-# }}}
 
-# {{{ MemberOfGroup
 
 =head2 MemberOfGroup PRINCIPAL_ID
 
@@ -195,9 +190,7 @@ sub MemberOfGroup {
                   OPERATOR => "=" );
 }
 
-# }}}
 
-# {{{ LimitToPrivileged
 
 =head2 LimitToPrivileged
 
@@ -216,9 +209,7 @@ sub LimitToPrivileged {
     $self->MemberOfGroup( $priv->PrincipalId );
 }
 
-# }}}
 
-# {{{ WhoHaveRight
 
 =head2 WhoHaveRight { Right => 'name', Object => $rt_object , IncludeSuperusers => undef, IncludeSubgroupMembers => undef, IncludeSystemRights => undef, EquivObjects => [ ] }
 
@@ -388,7 +379,6 @@ sub WhoHaveRight {
 
     return;
 }
-# }}}
 
 # XXX: should be generalized
 sub WhoHaveRoleRight
@@ -521,7 +511,6 @@ sub WhoHaveGroupRight
     return $group_members;
 }
 
-# {{{ WhoBelongToGroups
 
 =head2 WhoBelongToGroups { Groups => ARRAYREF, IncludeSubgroupMembers => 1 }
 
@@ -549,7 +538,6 @@ sub WhoBelongToGroups {
                     );
     }
 }
-# }}}
 
 
 1;

commit 9387d6b02d7550578b408bb7853690b6c75393cf
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:42:10 2010 -0400

    remove obsolete fold markers from t

diff --git a/t/api/group.t b/t/api/group.t
index a03f3d5..5d3b2a9 100644
--- a/t/api/group.t
+++ b/t/api/group.t
@@ -7,7 +7,6 @@ use RT::Test nodata => 1, tests => 38;
 
 {
 
-# {{{ Tests
 ok (require RT::Group);
 
 ok (my $group = RT::Group->new($RT::SystemUser), "instantiated a group object");
@@ -81,7 +80,6 @@ is($group_2->HasMemberRecursively($principal_2), undef, "group 2 doesn't have me
 is($ng->HasMember($principal_2), undef, "group 1 doesn't have member 2");
 is($group_3->HasMemberRecursively($principal_2), undef, "group 3 has member 2 recursively");
 
-# }}}
 
 
 }
diff --git a/t/api/scrip_order.t b/t/api/scrip_order.t
index d351741..25e90d9 100644
--- a/t/api/scrip_order.t
+++ b/t/api/scrip_order.t
@@ -6,7 +6,6 @@ use RT;
 use RT::Test tests => 7;
 
 
-# {{{ test scrip ordering based on description
 
 my $scrip_queue = RT::Queue->new($RT::SystemUser);
 my ($queue_id, $msg) = $scrip_queue->Create( Name => "ScripOrdering-$$", 
@@ -51,5 +50,4 @@ isnt($ticket->Priority , 0, "Ticket shouldn't be priority 0");
 isnt($ticket->Priority , 5, "Ticket shouldn't be priority 5");
 is  ($ticket->Priority , 10, "Ticket should be priority 10");
 
-# }}}
 
diff --git a/t/api/user.t b/t/api/user.t
index 129b2bf..c63f546 100644
--- a/t/api/user.t
+++ b/t/api/user.t
@@ -210,7 +210,6 @@ ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User
  ok ($id,$msg);
 ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket without group membership");
 
-# }}}
 
 
 my ($usrid, $usrmsg) =  $subgroup->DeleteMember($new_user->PrincipalId);
@@ -222,7 +221,6 @@ ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User
 ok(($gv,$gm) = $group->PrincipalObj->RevokeRight( Object => $q, Right => 'ModifyTicket'),"Granted the group the right to modify tickets");
 ok($gv,"revoke succeeed - $gm");
 
-# {{{ Test the user's right to modify a ticket as a _queue_ admincc for a right granted at the _queue_ level
 
 # Grant queue admin cc the right to modify ticket in the queue 
 ok(my ($qv,$qm) = $q_as_system->AdminCc->PrincipalObj->GrantRight( Object => $q_as_system, Right => 'ModifyTicket'),"Granted the queue adminccs the right to modify tickets");
@@ -240,9 +238,7 @@ ok (my ($del_id, $del_msg) = $q_as_system->DeleteWatcher(Type => 'AdminCc', Prin
 # Make sure the user doesn't have the right to modify tickets in the queue
 ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership");
 
-# }}}
 
-# {{{ Test the user's right to modify a ticket as a _ticket_ admincc with the right granted at the _queue_ level
 
 # Add the user as a ticket admincc
 ok (my( $uadd_id, $uadd_msg) = $new_tick2->AddWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId)  , "Added the new user as a queue admincc");
@@ -262,11 +258,9 @@ ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User
 ok(my ($rqv,$rqm) = $q_as_system->AdminCc->PrincipalObj->RevokeRight( Object => $q_as_system, Right => 'ModifyTicket'),"Revokeed the queue adminccs the right to modify tickets");
 ok($rqv, "Revoked the right successfully - $rqm");
 
-# }}}
 
 
 
-# {{{ Test the user's right to modify a ticket as a _queue_ admincc for a right granted at the _system_ level
 
 # Before we start Make sure the user does not have the right to modify tickets in the queue
 ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can not modify the ticket without it being granted");
@@ -294,9 +288,7 @@ ok (($del_id, $del_msg) = $q_as_system->DeleteWatcher(Type => 'AdminCc', Princip
 ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership");
 ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can't modify tickets in the queue without group membership");
 
-# }}}
 
-# {{{ Test the user's right to modify a ticket as a _ticket_ admincc with the right granted at the _queue_ level
 
 ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can not modify the ticket without being an admincc");
 ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue obj without being an admincc");
@@ -322,7 +314,6 @@ ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket
 ok(($rqv,$rqm) = $q_as_system->AdminCc->PrincipalObj->RevokeRight( Object => $RT::System, Right => 'ModifyTicket'),"Revokeed the queue adminccs the right to modify tickets");
 ok($rqv, "Revoked the right successfully - $rqm");
 
-# }}}
 
 
 
diff --git a/t/customfields/api.t b/t/customfields/api.t
index b82643e..12823b2 100644
--- a/t/customfields/api.t
+++ b/t/customfields/api.t
@@ -86,16 +86,13 @@ for (@custom_fields) {
 	is( $ticket->FirstCustomFieldValue( $_->id ), undef );
 	is( $ticket->FirstCustomFieldValue( $_->Name ), undef );
 }
-# }}}
 
 # try to add field value with fields that do not exist {{{
 my ($status, $msg) = $ticket->AddCustomFieldValue( Field => -1 , Value => 'foo' );
 ok(!$status, "shouldn't add value" );
 ($status, $msg) = $ticket->AddCustomFieldValue( Field => 'SomeUnexpedCustomFieldName' , Value => 'foo' );
 ok(!$status, "shouldn't add value" );
-# }}}
 
-# {{{
 SKIP: {
 
 	skip "TODO: We want fields that are not allowed to set unexpected values", 10;
diff --git a/t/mail/gateway.t b/t/mail/gateway.t
index c2bd21b..4d2e33f 100644
--- a/t/mail/gateway.t
+++ b/t/mail/gateway.t
@@ -647,7 +647,6 @@ my $queue = RT::Queue->new($RT::SystemUser);
 my ($qid) = $queue->Create( Name => 'ext-mailgate');
 ok( $qid, 'queue created for ext-mailgate tests' );
 
-# {{{ Check take and resolve actions
 
 # create ticket that is owned by nobody
 use RT::Ticket;
@@ -850,6 +849,5 @@ is( $tick->Transactions->Count, 5, "transactions added" );
 
 $m->no_warnings_ok;
 
-# }}}
 };
 
diff --git a/t/mail/sendmail.t b/t/mail/sendmail.t
index 99d59cb..37767d6 100644
--- a/t/mail/sendmail.t
+++ b/t/mail/sendmail.t
@@ -241,7 +241,6 @@ sub iso8859_redef_sendmessage {
     };
 }
 
-# {{{ test a multipart alternative containing a text-html part with an umlaut
 
  my $alt_umlaut_email = RT::Test::get_relocatable_file(
      'multipart-alternative-with-umlaut', (File::Spec->updir(), 'data', 'emails'));
@@ -270,9 +269,7 @@ $parser->ParseMIMEEntityFromScalar($content);
 
 }
 
-# }}}
 
-# {{{ test a text-html message with an umlaut
  my $text_html_email = RT::Test::get_relocatable_file('text-html-with-umlaut',
      (File::Spec->updir(), 'data', 'emails'));
  $content =  RT::Test->file_content($text_html_email);
@@ -307,9 +304,7 @@ sub text_html_redef_sendmessage {
     };
 }
 
-# }}}
 
-# {{{ test a text-html message with russian characters
  my $russian_email = RT::Test::get_relocatable_file('text-html-in-russian',
      (File::Spec->updir(), 'data', 'emails'));
  $content =  RT::Test->file_content($russian_email);
@@ -341,9 +336,7 @@ like (first_attach($tick)->ContentType , qr/text\/html/, "We recorded the conten
 
 is (count_attachs($tick) ,1 , "Has one attachment, presumably a text-html and a multipart alternative");
 
-# }}}
 
-# {{{ test a message containing a russian subject and NO content type
 
 RT->Config->Set( EmailInputEncodings => 'koi8-r', RT->Config->Get('EmailInputEncodings') );
 RT->Config->Set( EmailOutputEncoding => 'koi8-r' );
@@ -384,10 +377,8 @@ my @input_encodings = RT->Config->Get( 'EmailInputEncodings' );
 shift @input_encodings;
 RT->Config->Set(EmailInputEncodings => @input_encodings );
 RT->Config->Set(EmailOutputEncoding => 'utf-8');
-# }}}
 
 
-# {{{ test a message containing a nested RFC 822 message
 
 my $nested_rfc822_email = RT::Test::get_relocatable_file('nested-rfc-822',
     (File::Spec->updir(), 'data', 'emails'));
@@ -431,10 +422,8 @@ sub text_plain_nested_redef_sendmessage {
     };
 }
 
-# }}}
 
 
-# {{{ test a multipart alternative containing a uuencoded mesage generated by lotus notes
 
  my $uuencoded_email = RT::Test::get_relocatable_file('notes-uuencoded',
      (File::Spec->updir(), 'data', 'emails'));
@@ -459,9 +448,7 @@ $parser->ParseMIMEEntityFromScalar($content);
     is (count_attachs($tick) , 3 , "Has three attachments");
 }
 
-# }}}
 
-# {{{ test a multipart that crashes the file-based mime-parser works
 
  my $crashes_file_based_parser_email = RT::Test::get_relocatable_file(
      'crashes-file-based-parser', (File::Spec->updir(), 'data', 'emails'));
@@ -488,9 +475,7 @@ is (count_attachs($tick) , 5 , "Has three attachments");
 
 
 
-# }}}
 
-# {{{ test a multi-line RT-Send-CC header
 
  my $rt_send_cc_email = RT::Test::get_relocatable_file('rt-send-cc',
      (File::Spec->updir(), 'data', 'emails'));
@@ -515,7 +500,6 @@ like ($cc , qr/test3/, "Found test 3");
 like ($cc , qr/test4/, "Found test 4");
 like ($cc , qr/test5/, "Found test 5");
 
-# }}}
 
 diag q{regression test for #5248 from rt3.fsck.com};
 {
diff --git a/t/web/basic.t b/t/web/basic.t
index 358ba2c..dafe6bf 100644
--- a/t/web/basic.t
+++ b/t/web/basic.t
@@ -77,7 +77,6 @@ my $url = $agent->rt_base_url;
     $agent->content_contains("to &#39;300&#39;", "5 hours is 300 minutes");
 }
 
-# {{{ test an image
 
 TODO: {
     todo_skip("Need to handle mason trying to compile images",1);
@@ -93,9 +92,7 @@ is(
     "got a file of the correct size ($file)",
 );
 }
-# }}}
 
-# {{{ Query Builder tests
 #
 # XXX: hey-ho, we have these tests in t/web/query-builder
 # TODO: move everything about QB there
diff --git a/t/web/command_line.t b/t/web/command_line.t
index d1eb9d1..3839e30 100644
--- a/t/web/command_line.t
+++ b/t/web/command_line.t
@@ -11,7 +11,6 @@ use RT::Queue;
 
 my $rt_tool_path = "$RT::BinPath/rt";
 
-# {{{  test configuration options
 
 # config directives:
 #    (in $CWD/.rtrc)
@@ -43,9 +42,7 @@ $ENV{'RTDEBUG'} = '1';
 #    - RTORDERBY     Default order for rt list
 
 
-# }}}
 
-# {{{ test ticket manipulation
 
 # create a ticket
 expect_run(
@@ -65,7 +62,6 @@ expect_like(qr/Ticket \d+ created/, "Created the ticket");
 expect_send(q{rt create -t ticket set subject='rt ticket'}, "Creating a ticket with 'rt create'...");
 expect_like(qr/Ticket \d+ created/, "Created the ticket");
 
-# {{{ test queue manipulation
 
 # creating queues
 expect_send("create -t queue set Name='NewQueue$$'", 'Creating a queue...');
@@ -85,7 +81,6 @@ TODO: {
     expect_like(qr/$queue_id: EditedQueue$$/, 'Found the queue');
 }
 
-# }}}
 
 
 # Set up a custom field for editing tests
@@ -273,9 +268,7 @@ expect_like(qr/isn't a valid status/i, 'Errored out');
 expect_send("show ticket/$ticket_id -f status", 'Verifying lack of change...');
 expect_like(qr/Status: resolved/, 'Verified change');
 
-# }}}
 
-# {{{ display
 
 # show ticket list
 expect_send("ls -s -t ticket -o +id \"Status='resolved'\"", 'Listing resolved tickets...');
@@ -307,9 +300,7 @@ ok($attachment_id, "Got attachment id=$attachment_id $attachment_type");
 expect_send("show -s ticket/$ticket_id/attachments/$attachment_id", "Showing attachment $attachment_id...");
 expect_like(qr/ContentType: $attachment_type/, 'Got the attachment');
 
-# }}}
 
-# {{{ test user manipulation
 
 # creating users
 expect_send("create -t user set Name='NewUser$$' EmailAddress='fbar$$\@example.com'", 'Creating a user...');
@@ -329,9 +320,7 @@ TODO: {
     expect_like(qr/$user_id: EditedUser$$/, 'Found the user');
 }
 
-# }}}
 
-# {{{ test group manipulation
 
 TODO: {
 todo_skip "Group manipulation doesn't work right now", 8;
@@ -354,11 +343,9 @@ TODO: {
 }
 }
 
-# }}}
 
 TODO: {
 todo_skip "Custom field manipulation not yet implemented", 8;
-# {{{ test custom field manipulation
 
 # creating custom fields
 expect_send("create -t custom_field set Name='NewCF$$'", 'Creating a custom field...');
@@ -379,9 +366,7 @@ TODO: {
 }
 }
 
-# }}}
 
-# {{{ test merging tickets
 expect_send("create -t ticket set subject='CLIMergeTest1-$$'", 'Creating first ticket to merge...');
 expect_like(qr/Ticket \d+ created/, 'Created first ticket');
 expect_handle->before() =~ /Ticket (\d+) created/;
@@ -401,9 +386,7 @@ expect_send("show ticket/$merge_ticket_A/history", 'Checking merge on first tick
 expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in first ticket');
 expect_send("show ticket/$merge_ticket_B/history", 'Checking merge on second ticket');
 expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in second ticket');
-# }}}
 
-# {{{ test taking/stealing tickets
 {
     # create a user; give them privileges to take and steal
     ### TODO: implement 'grant' in the CLI tool; use that here instead.
@@ -473,9 +456,7 @@ expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in
     expect_send("steal $steal_ticket_id", 'root steals the ticket back...');
     expect_like(qr/Owner changed from fooser$$ to root/, '...and succeeds.');
 }
-# }}}
 
-# {{{ test ticket linking
     my @link_relns = ( 'DependsOn', 'DependedOnBy', 'RefersTo', 'ReferredToBy',
                        'MemberOf', 'HasMember', );
     my %display_relns = map { $_ => $_ } @link_relns;
@@ -499,7 +480,6 @@ expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in
         #expect_unlike(qr/\Q$reln: \E[\w\d\.]+\Q://\E[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln");
 
     }
-# }}}
 
 expect_quit(); # We need to do this ourselves, so that we quit
                # *before* we tear down the webserver.
diff --git a/t/web/dashboards-groups.t b/t/web/dashboards-groups.t
index 6b39d01..5acd221 100644
--- a/t/web/dashboards-groups.t
+++ b/t/web/dashboards-groups.t
@@ -26,7 +26,6 @@ $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue)
 # are checked and not these as well
 $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System)
     for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/;
-# }}}
 # create and test groups (outer < inner < user) {{{
 my $inner_group = RT::Group->new($RT::SystemUser);
 ($ok, $msg) = $inner_group->CreateUserDefinedGroup(Name => "inner", Description => "inner group");
@@ -51,7 +50,6 @@ ok(!$inner_group->HasMember($outer_group->PrincipalId), "inner doesn't have oute
 ok($inner_group->HasMember($user_obj->PrincipalId), "inner has user");
 ok(!$inner_group->HasMemberRecursively($outer_group->PrincipalId), "inner doesn't have outer, even recursively");
 ok($inner_group->HasMemberRecursively($user_obj->PrincipalId), "inner has user recursively");
-# }}}
 
 ok $m->login(customer => 'customer'), "logged in";
 
diff --git a/t/web/dashboards-permissions.t b/t/web/dashboards-permissions.t
index 8dc7532..5eb500e 100644
--- a/t/web/dashboards-permissions.t
+++ b/t/web/dashboards-permissions.t
@@ -25,7 +25,6 @@ $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue)
 
 $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System)
     for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/;
-# }}}
 
 ok $m->login(customer => 'customer'), "logged in";
 
diff --git a/t/web/query_builder.t b/t/web/query_builder.t
index a3747eb..0f2137c 100644
--- a/t/web/query_builder.t
+++ b/t/web/query_builder.t
@@ -22,7 +22,6 @@ ok $queue && $queue->id, 'loaded or created queue';
 my $url = $agent->rt_base_url;
 ok $agent->login, "logged in";
 
-# {{{ Query Builder tests
 
 my $response = $agent->get($url."Search/Build.html");
 ok $response->is_success, "Fetched ". $url ."Search/Build.html";
@@ -193,7 +192,6 @@ diag "click advanced, enter 'C1 OR ( C2 AND C3 )', apply, aggregators should sta
 # - clears entire query
 # - clears it from the session, too
 
-# }}}
 
 # create a custom field with nonascii name and try to add a condition
 {

commit cf570f5107c1285e42fb5f747234d34601576f0c
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:43:20 2010 -0400

    remove most of the old markers from etc/

diff --git a/etc/initialdata b/etc/initialdata
index c29f627..d96bab8 100755
--- a/etc/initialdata
+++ b/etc/initialdata
@@ -487,7 +487,6 @@ Hour:         { $SubscriptionObj->SubValue('Hour') }
 }
 },
 );
-# }}}
 
 @Scrips = (
     {  Description    => 'On Correspond Open Tickets',
diff --git a/etc/schema.SQLite b/etc/schema.SQLite
index 59949c6..2da3bda 100755
--- a/etc/schema.SQLite
+++ b/etc/schema.SQLite
@@ -331,7 +331,6 @@ CREATE TABLE Templates (
 
 
 
-# {{{ ObjectCustomFieldValues 
 
 CREATE TABLE ObjectCustomFieldValues (
   id INTEGER NOT NULL  ,
@@ -356,9 +355,7 @@ CREATE TABLE ObjectCustomFieldValues (
 CREATE INDEX ObjectCustomFieldValues1 ON ObjectCustomFieldValues (Content); 
 CREATE INDEX ObjectCustomFieldValues2 ON ObjectCustomFieldValues (CustomField,ObjectType,ObjectId); 
 
-# }}}
 
-# {{{ CustomFields
 
 CREATE TABLE CustomFields (
   id INTEGER NOT NULL  ,
@@ -379,9 +376,7 @@ CREATE TABLE CustomFields (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ ObjectCustomFields 
 
 CREATE TABLE ObjectCustomFields (
   id INTEGER NOT NULL  ,
@@ -396,9 +391,7 @@ CREATE TABLE ObjectCustomFields (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ CustomFieldValues 
 
 CREATE TABLE CustomFieldValues (
   id INTEGER NOT NULL  ,
@@ -416,7 +409,6 @@ CREATE TABLE CustomFieldValues (
 
 CREATE INDEX CustomFieldValues1 ON CustomFieldValues (CustomField);
  
-# }}}
 
 --- {{{ Attributes
 CREATE TABLE Attributes (
diff --git a/etc/schema.Sybase b/etc/schema.Sybase
index cd3574d..bee1f56 100644
--- a/etc/schema.Sybase
+++ b/etc/schema.Sybase
@@ -1,4 +1,3 @@
-# {{{ Attachments
 
 CREATE TABLE rt3.Attachments (
   id numeric(38,0) identity,
@@ -19,9 +18,7 @@ CREATE TABLE rt3.Attachments (
 CREATE INDEX Attachments1 ON Attachments (Parent) ;
 CREATE INDEX Attachments2 ON Attachments (TransactionId) ;
 CREATE INDEX Attachments3 ON Attachments (Parent, TransactionId) ;
-# }}}
 
-# {{{ Queues
 CREATE TABLE rt3.Queues (
   id numeric(38,0) identity,
   Name varchar(200) NOT NULL  ,
@@ -41,9 +38,7 @@ CREATE TABLE rt3.Queues (
 CREATE UNIQUE INDEX Queues1 ON Queues (Name) ;
 CREATE INDEX Queues2 ON Queues (Disabled) ;
 
-# }}}
 
-# {{{ Links
 
 CREATE TABLE rt3.Links (
   id numeric(38,0) identity,
@@ -64,9 +59,7 @@ CREATE INDEX Links2 ON Links (Base,  Type) ;
 CREATE INDEX Links3 ON Links (Target,  Type) ;
 CREATE INDEX Links4 ON Links(Type,LocalBase);
 
-# }}}
 
-# {{{ Principals
 
 CREATE TABLE rt3.Principals (
       id numeric(38,0) identity,
@@ -77,9 +70,7 @@ CREATE TABLE rt3.Principals (
 
 CREATE INDEX Principals2 ON Principals (ObjectId);
 
-# }}}
 
-# {{{ Groups
 
 CREATE TABLE rt3.Groups (
   id numeric(38,0) identity,
@@ -94,9 +85,7 @@ CREATE TABLE rt3.Groups (
 CREATE INDEX Groups1 ON Groups (Domain,Instance,Type,id);
 CREATE INDEX Groups2 On Groups  (Type, Instance, Domain);   
 
-# }}}
 
-# {{{ ScripConditions
 
 CREATE TABLE rt3.ScripConditions (
   id numeric(38,0) identity,
@@ -113,9 +102,7 @@ CREATE TABLE rt3.ScripConditions (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ Transactions
 CREATE TABLE rt3.Transactions (
   id numeric(38,0) identity,
   EffectiveTicket integer NOT NULL   ,
@@ -134,9 +121,7 @@ CREATE TABLE rt3.Transactions (
 CREATE INDEX Transactions1 ON Transactions (Ticket);
 CREATE INDEX Transactions2 ON Transactions (EffectiveTicket);
 
-# }}}
 
-# {{{ Scrips 
 
 CREATE TABLE rt3.Scrips (
   id numeric(38,0) identity,
@@ -158,9 +143,7 @@ CREATE TABLE rt3.Scrips (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ ACL
 CREATE TABLE rt3.ACL (
   id numeric(38,0) identity,
   PrincipalType varchar(25) NOT NULL, #"User" "Group", "Owner", "Cc" "AdminCc", "Requestor", "Requestor" 
@@ -174,9 +157,7 @@ CREATE TABLE rt3.ACL (
 
 CREATE INDEX  ACL1 on ACL(RightName, ObjectType, ObjectId,PrincipalType,PrincipalId);
 
-# }}}
 
-# {{{ GroupMembers 
 
 CREATE TABLE rt3.GroupMembers (
   id numeric(38,0) identity,
@@ -187,9 +168,7 @@ CREATE TABLE rt3.GroupMembers (
 CREATE UNIQUE INDEX GroupMembers1 on GroupMembers (GroupId, MemberId);
 
 
-# }}}
 
-# {{{ GroupMembersCache
 
 CREATE TABLE rt3.CachedGroupMembers (
   id numeric(38,0) identity,
@@ -210,9 +189,7 @@ CREATE TABLE rt3.CachedGroupMembers (
 CREATE INDEX DisGrouMem  on CachedGroupMembers (GroupId,MemberId,Disabled);
 CREATE INDEX GrouMem  on CachedGroupMembers (GroupId,MemberId);
 
-# }}}
 
-# {{{ Users
 
 CREATE TABLE rt3.Users (
   id numeric(38,0) identity,
@@ -260,9 +237,7 @@ CREATE INDEX Users3 ON Users (id, EmailAddress);
 CREATE INDEX Users4 ON Users (EmailAddress);
 
 
-# }}}
 
-# {{{ Tickets
 
 CREATE TABLE rt3.Tickets (
   id numeric(38,0) identity,
@@ -302,9 +277,7 @@ CREATE INDEX Tickets4 ON Tickets (id, Status) ;
 CREATE INDEX Tickets5 ON Tickets (id, EffectiveId) ;
 CREATE INDEX Tickets6 ON Tickets (EffectiveId, Type) ;
 
-# }}}
 
-# {{{ ScripActions
 
 CREATE TABLE rt3.ScripActions (
   id numeric(38,0) identity,
@@ -319,9 +292,7 @@ CREATE TABLE rt3.ScripActions (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ Templates
 
 CREATE TABLE rt3.Templates (
   id numeric(38,0) identity,
@@ -339,9 +310,7 @@ CREATE TABLE rt3.Templates (
   PRIMARY KEY (id)
 ) ;
 
-# }}}
 
-# {{{ TicketCustomFieldValues 
 
 CREATE TABLE rt3.TicketCustomFieldValues (
   id numeric(38,0) identity,
@@ -359,9 +328,7 @@ CREATE TABLE rt3.TicketCustomFieldValues (
 CREATE INDEX TicketCustomFieldValues1 ON TicketCustomFieldValues (CustomField,Ticket,Content); 
 CREATE INDEX TicketCustomFieldValues2 ON TicketCustomFieldValues (CustomField,Ticket); 
 
-# }}}
 
-# {{{ CustomFields
 
 CREATE TABLE rt3.CustomFields (
   id numeric(38,0) identity,
@@ -382,9 +349,7 @@ CREATE TABLE rt3.CustomFields (
 CREATE INDEX CustomFields1 on CustomFields (Disabled, Queue);
 
 
-# }}}
 
-# {{{ CustomFieldValues 
 
 CREATE TABLE rt3.CustomFieldValues (
   id numeric(38,0) identity,
@@ -402,10 +367,8 @@ CREATE TABLE rt3.CustomFieldValues (
 
 CREATE INDEX CustomFieldValues1 ON CustomFieldValues (CustomField);
  
-# }}}
 
 
-# {{{ Attributes
 
 CREATE TABLE rt3.Attributes (
   id numeric(38,0) identity,
@@ -425,9 +388,7 @@ CREATE TABLE rt3.Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
-# }}}
 
-# {{{ Sessions
 
 # sessions is used by Apache::Session to keep sessions in the database.
 # We should have a reaper script somewhere.
@@ -439,4 +400,3 @@ CREATE TABLE rt3.sessions (
     PRIMARY KEY (id)
 );
 
-# }}}
diff --git a/etc/schema.mysql-4.0 b/etc/schema.mysql-4.0
index e9c6911..c736af4 100755
--- a/etc/schema.mysql-4.0
+++ b/etc/schema.mysql-4.0
@@ -1,4 +1,3 @@
-# {{{ Attachments
 
 CREATE TABLE Attachments (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -18,9 +17,7 @@ CREATE TABLE Attachments (
 
 CREATE INDEX Attachments2 ON Attachments (TransactionId) ;
 CREATE INDEX Attachments3 ON Attachments (Parent, TransactionId) ;
-# }}}
 
-# {{{ Queues
 CREATE TABLE Queues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   Name varchar(200) NOT NULL  ,
@@ -40,9 +37,7 @@ CREATE TABLE Queues (
 CREATE UNIQUE INDEX Queues1 ON Queues (Name) ;
 CREATE INDEX Queues2 ON Queues (Disabled) ;
 
-# }}}
 
-# {{{ Links
 
 CREATE TABLE Links (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -62,9 +57,7 @@ CREATE INDEX Links2 ON Links (Base,  Type) ;
 CREATE INDEX Links3 ON Links (Target,  Type) ;
 CREATE INDEX Links4 ON Links (Type,LocalBase);
 
-# }}}
 
-# {{{ Principals
 
 CREATE TABLE Principals (
         id INTEGER  AUTO_INCREMENT not null,
@@ -76,9 +69,7 @@ CREATE TABLE Principals (
 
 CREATE INDEX Principals2 ON Principals (ObjectId);
 
-# }}}
 
-# {{{ Groups
 
 CREATE TABLE Groups (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -93,9 +84,7 @@ CREATE TABLE Groups (
 CREATE INDEX Groups1 ON Groups (Domain,Instance,Type,id);
 CREATE INDEX Groups2 On Groups (Type, Instance);   
 
-# }}}
 
-# {{{ ScripConditions
 
 CREATE TABLE ScripConditions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -112,9 +101,7 @@ CREATE TABLE ScripConditions (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ Transactions
 CREATE TABLE Transactions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   ObjectType varchar(64) NOT NULL,
@@ -135,9 +122,7 @@ CREATE TABLE Transactions (
 ) TYPE=InnoDB;
 CREATE INDEX Transactions1 ON Transactions (ObjectType, ObjectId);
 
-# }}}
 
-# {{{ Scrips 
 
 CREATE TABLE Scrips (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -159,9 +144,7 @@ CREATE TABLE Scrips (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ ACL
 CREATE TABLE ACL (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   PrincipalType varchar(25) NOT NULL, #"User" "Group", "Owner", "Cc" "AdminCc", "Requestor", "Requestor" 
@@ -175,9 +158,7 @@ CREATE TABLE ACL (
 
 CREATE INDEX  ACL1 on ACL(RightName, ObjectType, ObjectId,PrincipalType,PrincipalId);
 
-# }}}
 
-# {{{ GroupMembers 
 
 CREATE TABLE GroupMembers (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -188,9 +169,7 @@ CREATE TABLE GroupMembers (
 CREATE UNIQUE INDEX GroupMembers1 on GroupMembers (GroupId, MemberId);
 
 
-# }}}
 
-# {{{ GroupMembersCache
 
 create table CachedGroupMembers (
         id int auto_increment,
@@ -211,9 +190,7 @@ create table CachedGroupMembers (
 CREATE INDEX DisGrouMem  on CachedGroupMembers (GroupId,MemberId,Disabled);
 CREATE INDEX CachedGroupMembers3 on CachedGroupMembers (MemberId, ImmediateParentId);
 
-# }}}
 
-# {{{ Users
 
 CREATE TABLE Users (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -259,9 +236,7 @@ CREATE UNIQUE INDEX Users1 ON Users (Name) ;
 CREATE INDEX Users4 ON Users (EmailAddress);
 
 
-# }}}
 
-# {{{ Tickets
 
 CREATE TABLE Tickets (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -298,9 +273,7 @@ CREATE INDEX Tickets1 ON Tickets (Queue, Status) ;
 CREATE INDEX Tickets2 ON Tickets (Owner) ;
 CREATE INDEX Tickets6 ON Tickets (EffectiveId, Type) ;
 
-# }}}
 
-# {{{ ScripActions
 
 CREATE TABLE ScripActions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -315,9 +288,7 @@ CREATE TABLE ScripActions (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ Templates
 
 CREATE TABLE Templates (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -335,9 +306,7 @@ CREATE TABLE Templates (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ ObjectCustomFieldValues 
 
 CREATE TABLE ObjectCustomFieldValues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -362,9 +331,7 @@ CREATE TABLE ObjectCustomFieldValues (
 CREATE INDEX ObjectCustomFieldValues1 ON ObjectCustomFieldValues (Content); 
 CREATE INDEX ObjectCustomFieldValues2 ON ObjectCustomFieldValues (CustomField,ObjectType,ObjectId); 
 
-# }}}
 
-# {{{ CustomFields
 
 CREATE TABLE CustomFields (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -385,9 +352,7 @@ CREATE TABLE CustomFields (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ ObjectCustomFields 
 
 CREATE TABLE ObjectCustomFields (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -402,9 +367,7 @@ CREATE TABLE ObjectCustomFields (
   PRIMARY KEY (id)
 ) TYPE=InnoDB;
 
-# }}}
 
-# {{{ CustomFieldValues 
 
 CREATE TABLE CustomFieldValues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -422,10 +385,8 @@ CREATE TABLE CustomFieldValues (
 
 CREATE INDEX CustomFieldValues1 ON CustomFieldValues (CustomField);
  
-# }}}
 
 
-# {{{ Attributes
 
 CREATE TABLE Attributes (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -445,9 +406,7 @@ CREATE TABLE Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
-# }}}
 
-# {{{ Sessions
 
 # sessions is used by Apache::Session to keep sessions in the database.
 # We should have a reaper script somewhere.
@@ -459,4 +418,3 @@ CREATE TABLE sessions (
     PRIMARY KEY (id)
 );
 
-# }}}
diff --git a/etc/schema.mysql-4.1 b/etc/schema.mysql-4.1
index 4597c94..4f09e08 100755
--- a/etc/schema.mysql-4.1
+++ b/etc/schema.mysql-4.1
@@ -1,4 +1,3 @@
-# {{{ Attachments
 
 CREATE TABLE Attachments (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -18,9 +17,7 @@ CREATE TABLE Attachments (
 
 CREATE INDEX Attachments2 ON Attachments (TransactionId) ;
 CREATE INDEX Attachments3 ON Attachments (Parent, TransactionId) ;
-# }}}
 
-# {{{ Queues
 CREATE TABLE Queues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   Name varchar(200) NOT NULL  ,
@@ -41,9 +38,7 @@ CREATE TABLE Queues (
 CREATE UNIQUE INDEX Queues1 ON Queues (Name) ;
 CREATE INDEX Queues2 ON Queues (Disabled) ;
 
-# }}}
 
-# {{{ Links
 
 CREATE TABLE Links (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -63,9 +58,7 @@ CREATE INDEX Links2 ON Links (Base,  Type) ;
 CREATE INDEX Links3 ON Links (Target,  Type) ;
 CREATE INDEX Links4 ON Links (Type,LocalBase);
 
-# }}}
 
-# {{{ Principals
 
 CREATE TABLE Principals (
         id INTEGER  AUTO_INCREMENT not null,
@@ -77,9 +70,7 @@ CREATE TABLE Principals (
 
 CREATE INDEX Principals2 ON Principals (ObjectId);
 
-# }}}
 
-# {{{ Groups
 
 CREATE TABLE Groups (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -94,9 +85,7 @@ CREATE TABLE Groups (
 CREATE INDEX Groups1 ON Groups (Domain,Instance,Type,id);
 CREATE INDEX Groups2 On Groups (Type, Instance);   
 
-# }}}
 
-# {{{ ScripConditions
 
 CREATE TABLE ScripConditions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -113,9 +102,7 @@ CREATE TABLE ScripConditions (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ Transactions
 CREATE TABLE Transactions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   ObjectType varchar(64) CHARACTER SET ascii NOT NULL,
@@ -137,9 +124,7 @@ CREATE TABLE Transactions (
 
 CREATE INDEX Transactions1 ON Transactions (ObjectType, ObjectId);
 
-# }}}
 
-# {{{ Scrips 
 
 CREATE TABLE Scrips (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -161,9 +146,7 @@ CREATE TABLE Scrips (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ ACL
 CREATE TABLE ACL (
   id INTEGER NOT NULL  AUTO_INCREMENT,
   PrincipalType varchar(25) CHARACTER SET ascii NOT NULL, #"User" "Group", "Owner", "Cc" "AdminCc", "Requestor"
@@ -177,9 +160,7 @@ CREATE TABLE ACL (
 
 CREATE INDEX  ACL1 on ACL(RightName, ObjectType, ObjectId,PrincipalType,PrincipalId);
 
-# }}}
 
-# {{{ GroupMembers 
 
 CREATE TABLE GroupMembers (
   id INTEGER NOT NULL AUTO_INCREMENT,
@@ -190,9 +171,7 @@ CREATE TABLE GroupMembers (
 CREATE UNIQUE INDEX GroupMembers1 on GroupMembers (GroupId, MemberId);
 
 
-# }}}
 
-# {{{ GroupMembersCache
 
 create table CachedGroupMembers (
         id int auto_increment,
@@ -213,9 +192,7 @@ create table CachedGroupMembers (
 CREATE INDEX DisGrouMem  on CachedGroupMembers (GroupId,MemberId,Disabled);
 CREATE INDEX CachedGroupMembers3 on CachedGroupMembers (MemberId, ImmediateParentId);
 
-# }}}
 
-# {{{ Users
 
 CREATE TABLE Users (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -261,9 +238,7 @@ CREATE UNIQUE INDEX Users1 ON Users (Name) ;
 CREATE INDEX Users4 ON Users (EmailAddress);
 
 
-# }}}
 
-# {{{ Tickets
 
 CREATE TABLE Tickets (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -300,9 +275,7 @@ CREATE INDEX Tickets1 ON Tickets (Queue, Status) ;
 CREATE INDEX Tickets2 ON Tickets (Owner) ;
 CREATE INDEX Tickets6 ON Tickets (EffectiveId, Type) ;
 
-# }}}
 
-# {{{ ScripActions
 
 CREATE TABLE ScripActions (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -317,9 +290,7 @@ CREATE TABLE ScripActions (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ Templates
 
 CREATE TABLE Templates (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -337,9 +308,7 @@ CREATE TABLE Templates (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ ObjectCustomFieldValues 
 
 CREATE TABLE ObjectCustomFieldValues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -364,9 +333,7 @@ CREATE TABLE ObjectCustomFieldValues (
 CREATE INDEX ObjectCustomFieldValues1 ON ObjectCustomFieldValues (Content); 
 CREATE INDEX ObjectCustomFieldValues2 ON ObjectCustomFieldValues (CustomField,ObjectType,ObjectId); 
 
-# }}}
 
-# {{{ CustomFields
 
 CREATE TABLE CustomFields (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -387,9 +354,7 @@ CREATE TABLE CustomFields (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ ObjectCustomFields 
 
 CREATE TABLE ObjectCustomFields (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -404,9 +369,7 @@ CREATE TABLE ObjectCustomFields (
   PRIMARY KEY (id)
 ) TYPE=InnoDB CHARACTER SET utf8;
 
-# }}}
 
-# {{{ CustomFieldValues 
 
 CREATE TABLE CustomFieldValues (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -424,10 +387,8 @@ CREATE TABLE CustomFieldValues (
 
 CREATE INDEX CustomFieldValues1 ON CustomFieldValues (CustomField);
  
-# }}}
 
 
-# {{{ Attributes
 
 CREATE TABLE Attributes (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -447,9 +408,7 @@ CREATE TABLE Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
-# }}}
 
-# {{{ Sessions
 
 # sessions is used by Apache::Session to keep sessions in the database.
 # We should have a reaper script somewhere.
@@ -461,4 +420,3 @@ CREATE TABLE sessions (
     PRIMARY KEY (id)
 );
 
-# }}}
diff --git a/etc/upgrade/3.1.0/schema.mysql b/etc/upgrade/3.1.0/schema.mysql
index c4a345d..6dcc147 100644
--- a/etc/upgrade/3.1.0/schema.mysql
+++ b/etc/upgrade/3.1.0/schema.mysql
@@ -1,4 +1,3 @@
-# {{{ Attributes
 
 CREATE TABLE Attributes (
   id INTEGER NOT NULL  AUTO_INCREMENT,
@@ -18,4 +17,3 @@ CREATE TABLE Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
-# }}}

commit b29c71d76d0de5d6c212318176925bb77010e463
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:43:50 2010 -0400

    remove fold markers from bin/

diff --git a/bin/rt-crontool.in b/bin/rt-crontool.in
index 61f614d..e759eec 100755
--- a/bin/rt-crontool.in
+++ b/bin/rt-crontool.in
@@ -293,7 +293,6 @@ sub get_template {
     return $cache->{ $queue } = $res;
 } }
 
-# {{{ load_module 
 
 # =head2 load_module
 # 
@@ -310,9 +309,7 @@ sub load_module {
 
 }
 
-# }}}
 
-# {{{ loc 
 
 # =head2 loc LIST
 # 
@@ -324,7 +321,6 @@ sub loc {
     $CurrentUser->loc(@_);
 }
 
-# }}}
 
 sub help {
 

commit ed123d021070260b49e4f2a50e5bf0acb903767d
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:44:07 2010 -0400

    remove fold markers from makefile.in

diff --git a/Makefile.in b/Makefile.in
index 890093f..9be2579 100755
--- a/Makefile.in
+++ b/Makefile.in
@@ -88,7 +88,6 @@ WEB_GROUP		=	@WEB_GROUP@
 
 APACHECTL		=	@APACHECTL@
 
-# {{{ Files and directories 
 
 # DESTDIR allows you to specify that RT be installed somewhere other than
 # where it will eventually reside. DESTDIR _must_ have a trailing slash
@@ -126,7 +125,6 @@ RT_READABLE_DIR_MODE	=	0755
 
 
 
-# {{{ all these define the places that RT's binaries should get installed
 
 # RT_MODPERL_HANDLER is the mason handler script for mod_perl
 RT_MODPERL_HANDLER	=	webmux.pl
@@ -147,7 +145,6 @@ RT_MAILGATE_BIN		=	rt-mailgate
 # RT's cron tool
 RT_CRON_BIN		=	rt-crontool
 
-# }}}
 
 
 BINARIES		=	$(RT_MODPERL_HANDLER) \
@@ -191,15 +188,11 @@ ETC_FILES		=	acl.Informix \
 				schema.SQLite \
 				initialdata
 
-# }}}
 
-# {{{ Web frontend
 
 WEB_HANDLER		=	@WEB_HANDLER@
 
-# }}}
 
-# {{{ Database setup
 
 #
 # DB_TYPE defines what sort of database RT trys to talk to
@@ -249,7 +242,6 @@ DB_DATABASE		=	@DB_DATABASE@
 DB_RT_USER		=	@DB_RT_USER@
 DB_RT_PASS		=	@DB_RT_PASS@
 
-# }}}
 
 
 TEST_FILES = t/*.t t/*/*.t
@@ -293,7 +285,6 @@ upgrade: testdeps config-install dirs files-install fixperms upgrade-instruct
 upgrade-noclobber: config-install dirs libs-install html-install bin-install local-install doc-install po-install font-install fixperms
 
 
-# {{{ dependencies
 
 my_with_web_handlers= $(shell $(PERL) -e 'print join " ", map "--with-$$_", grep defined && length, split /,/, "$(WEB_HANDLER)"')
 testdeps:
@@ -306,7 +297,6 @@ fixdeps:
 
 #}}}
 
-# {{{ fixperms
 fixperms:
 	# Make the libraries readable
 	chmod $(RT_READABLE_DIR_MODE) $(DESTDIR)$(RT_PATH)
@@ -356,9 +346,7 @@ fixperms:
 				$(DESTDIR)$(MASON_SESSION_PATH)
 	chgrp -R $(WEB_GROUP) 	$(DESTDIR)$(MASON_DATA_PATH) \
 				$(DESTDIR)$(MASON_SESSION_PATH)
-# }}}
 
-# {{{ dirs
 dirs:
 	$(INSTALL) -m 0755 -d $(DESTDIR)$(RT_LOG_PATH)
 	$(INSTALL) -m 0755 -d $(DESTDIR)$(RT_FONT_PATH)
@@ -374,7 +362,6 @@ dirs:
 	$(INSTALL) -m 0755 -d $(DESTDIR)$(LOCAL_LIB_PATH)
 	$(INSTALL) -m 0755 -d $(DESTDIR)$(LOCAL_PLUGIN_PATH)
 	$(INSTALL) -m 0755 -d $(DESTDIR)$(LOCAL_LEXICON_PATH)
-# }}}
 
 install: testdeps config-install dirs files-install fixperms instruct
 
@@ -397,7 +384,6 @@ test-parallel:
 regression-install: config-install
 	$(PERL) -pi -e 's/Set\(\$$DatabaseName.*\);/Set\(\$$DatabaseName, "rt3regression"\);/' $(DESTDIR)$(CONFIG_FILE)
 
-# {{{ database-installation
 
 regression-reset-db: force-dropdb
 	$(PERL) -I$(LOCAL_LIB_PATH) -I$(RT_LIB_PATH) sbin/rt-setup-database --action init --dba $(DB_DBA) --dba-password ''
@@ -413,9 +399,7 @@ dropdb:
 force-dropdb: 
 	$(PERL) -I$(LOCAL_LIB_PATH) -I$(RT_LIB_PATH) sbin/rt-setup-database --action drop --dba $(DB_DBA) --dba-password '' --force
 
-# }}}
 
-# {{{ libs-install
 libs-install: 
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(RT_LIB_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(RT_LIB_PATH)
 @COMMENT_INPLACE_LAYOUT@	-( cd lib && find . -type d -print ) | while read dir ; do \
@@ -424,9 +408,7 @@ libs-install:
 @COMMENT_INPLACE_LAYOUT@	-( cd lib && find . -type f -print ) | while read file ; do \
 @COMMENT_INPLACE_LAYOUT@	     $(INSTALL) -m 0644 "lib/$$file" "$(DESTDIR)$(RT_LIB_PATH)/$$file" ; \
 @COMMENT_INPLACE_LAYOUT@	done
-# }}}
 
-# {{{ html-install
 html-install:
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(MASON_HTML_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(MASON_HTML_PATH)
 @COMMENT_INPLACE_LAYOUT@	-( cd share/html && find . -type d -print ) | while read dir ; do \
@@ -435,45 +417,35 @@ html-install:
 @COMMENT_INPLACE_LAYOUT@	-( cd share/html && find . -type f -print ) | while read file ; do \
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -m 0644 "share/html/$$file" "$(DESTDIR)$(MASON_HTML_PATH)/$$file" ; \
 @COMMENT_INPLACE_LAYOUT@	done
-# }}}
 
-# {{{ font-install
 font-install:
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(RT_FONT_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(RT_FONT_PATH)
 @COMMENT_INPLACE_LAYOUT@	-( cd share/fonts && find . -type f -print ) | while read file ; do \
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -m 0644 "share/fonts/$$file" "$(DESTDIR)$(RT_FONT_PATH)/$$file" ; \
 @COMMENT_INPLACE_LAYOUT@	done
-# }}}
 
 
-# {{{ po-install
 po-install:
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(RT_LEXICON_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(RT_LEXICON_PATH)
 @COMMENT_INPLACE_LAYOUT@	-( cd share/po && find . -type f -print ) | while read file ; do \
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -m 0644 "share/po/$$file" "$(DESTDIR)$(RT_LEXICON_PATH)/$$file" ; \
 @COMMENT_INPLACE_LAYOUT@	done
-# }}}
 
 
 
-# {{{ doc-install
 doc-install:
 @COMMENT_INPLACE_LAYOUT@	# RT 3.0.0 - RT 3.0.2 would accidentally create a file instead of a dir
 @COMMENT_INPLACE_LAYOUT@	-[ -f $(DESTDIR)$(RT_DOC_PATH) ] && rm $(DESTDIR)$(RT_DOC_PATH) 
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(RT_DOC_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(RT_DOC_PATH)
 @COMMENT_INPLACE_LAYOUT@	-$(INSTALL) -m 0644 ./README $(DESTDIR)$(RT_DOC_PATH)/
-# }}}
 
-# {{{ etc-install
 
 etc-install:
 @COMMENT_INPLACE_LAYOUT@	[ -d $(DESTDIR)$(RT_ETC_PATH) ] || $(INSTALL) -m 0755 -d $(DESTDIR)$(RT_ETC_PATH)
 @COMMENT_INPLACE_LAYOUT@	for file in $(ETC_FILES) ; do \
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -m 0644 "etc/$$file" "$(DESTDIR)$(RT_ETC_PATH)/" ; \
 @COMMENT_INPLACE_LAYOUT@	done
-# }}}
 
-# {{{ sbin-install
 
 sbin-install:
 @COMMENT_INPLACE_LAYOUT@	$(INSTALL) -m 0755 -d $(DESTDIR)$(RT_SBIN_PATH)
@@ -481,9 +453,7 @@ sbin-install:
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -o $(BIN_OWNER) -g $(RTGROUP) -m 0755 "sbin/$$file" "$(DESTDIR)$(RT_SBIN_PATH)/" ; \
 @COMMENT_INPLACE_LAYOUT@	done
 
-# }}}
 
-# {{{ bin-install
 
 bin-install:
 @COMMENT_INPLACE_LAYOUT@	$(INSTALL) -m 0755 -d $(DESTDIR)$(RT_BIN_PATH)
@@ -491,7 +461,6 @@ bin-install:
 @COMMENT_INPLACE_LAYOUT@	    $(INSTALL) -o $(BIN_OWNER) -g $(RTGROUP) -m 0755 "bin/$$file" "$(DESTDIR)$(RT_BIN_PATH)/" ; \
 @COMMENT_INPLACE_LAYOUT@	done
 
-# {{{ local-install
 local-install:
 	-( cd local/html && find . -type d -print ) | while read dir ; do \
 	    $(INSTALL) -m 0755 -d "$(DESTDIR)$(MASON_LOCAL_HTML_PATH)/$$dir" ; \
@@ -511,9 +480,7 @@ local-install:
 	-( cd local/etc && find . -type f -print ) | while read file ; do \
 	    $(INSTALL) -m 0644 "etc/$$file" "$(DESTDIR)$(LOCAL_ETC_PATH)/$$file" ; \
 	done
-# }}}
 
-# {{{ Best Practical Build targets -- no user servicable parts inside
 
 regenerate-catalogs:
 	$(PERL) sbin/extract-message-catalog
@@ -549,4 +516,3 @@ snapshot:
 	tar -czf "$(SNAPSHOT).tar.gz" "$(SNAPSHOT)/"
 	rm -fr "$(SNAPSHOT)/"
 
-# }}}

commit 762d831e767caf310e8958af013ec76dc5921379
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:44:27 2010 -0400

    remove fold markers from sbin

diff --git a/sbin/extract-message-catalog b/sbin/extract-message-catalog
index e734b89..017c1d7 100755
--- a/sbin/extract-message-catalog
+++ b/sbin/extract-message-catalog
@@ -100,7 +100,6 @@ foreach my $dict (@ARGV) {
 }
 
 
-# {{{ pull strings out of the code.
 
 sub extract_strings_from_code {
     my $file = $_;
@@ -233,7 +232,6 @@ sub extract_strings_from_code {
 
     close (_);
 }
-# }}} extract from strings
 
 sub update {
     my $lang = shift;
diff --git a/sbin/factory b/sbin/factory
index c475632..d051a98 100755
--- a/sbin/factory
+++ b/sbin/factory
@@ -489,5 +489,4 @@ RT::Base->_ImportOverlays();
     return $content;
 }
 
-# }}}
 

commit d77ec4f5c28027fdb2126ec165d752718c46e89b
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:45:38 2010 -0400

    remove fold markers from share/

diff --git a/share/html/Admin/Elements/EditScrips b/share/html/Admin/Elements/EditScrips
index 76e104e..a246bdc 100755
--- a/share/html/Admin/Elements/EditScrips
+++ b/share/html/Admin/Elements/EditScrips
@@ -94,7 +94,7 @@ else {
     $Scrips->LimitToGlobal();
 }
 
-# {{{ deal with modifying and deleting existing scrips
+# deal with modifying and deleting existing scrips
 # we still support DeleteScrip-id format but array is preferred
 foreach my $id ( grep $_, @DeleteScrip, map /^DeleteScrip-(\d+)/, keys %ARGS ) {
     my $scrip = RT::Scrip->new($session{'CurrentUser'});
@@ -107,7 +107,6 @@ foreach my $id ( grep $_, @DeleteScrip, map /^DeleteScrip-(\d+)/, keys %ARGS ) {
         push @actions, $msg;
     }
 }
-# }}}
 
 $Format ||= RT->Config->Get('AdminSearchResultFormat')->{'Scrips'};
 
diff --git a/share/html/Admin/Queues/People.html b/share/html/Admin/Queues/People.html
index 0b71a37..8a333e5 100755
--- a/share/html/Admin/Queues/People.html
+++ b/share/html/Admin/Queues/People.html
@@ -131,7 +131,7 @@
 my $current_tab;
 my ($field, @results, $User, $Users, $Groups, $watcher, $user_msg, $group_msg);
 
-# {{{ Load the queue
+# Load the queue
 #If we get handed two ids, mason will make them an array. bleck.
 # We want teh first one. Just because there's no other sensible way
 # to deal
@@ -140,10 +140,9 @@ my ($field, @results, $User, $Users, $Groups, $watcher, $user_msg, $group_msg);
 
 my $QueueObj = RT::Queue->new($session{'CurrentUser'});
 $QueueObj->Load($id) || Abort(loc("Couldn't load queue", $id));
-# }}}
 
 unless ($OnlySearchForPeople or $OnlySearchForGroup) {
-# {{{ Delete deletable watchers
+# Delete deletable watchers
 
     foreach my $key (keys %ARGS) {
             my $id = $QueueObj->Id;
@@ -154,9 +153,8 @@ unless ($OnlySearchForPeople or $OnlySearchForGroup) {
             push @results, $msg;
         }
     }
-# }}}
 
-# {{{ Add new watchers
+# Add new watchers
     foreach my $key (keys %ARGS) {
         my $type = $ARGS{$key};
 
@@ -172,7 +170,6 @@ unless ($OnlySearchForPeople or $OnlySearchForGroup) {
         );
         push @results, $msg;
     }
-# }}}
 }
  
 
diff --git a/share/html/Prefs/SearchOptions.html b/share/html/Prefs/SearchOptions.html
index 02aeec4..3e00e40 100644
--- a/share/html/Prefs/SearchOptions.html
+++ b/share/html/Prefs/SearchOptions.html
@@ -67,7 +67,7 @@
 <%INIT>
 my @actions;
 
-# {{{ If we're saving search preferences, do that now
+# If we're saving search preferences, do that now
 $Order = join '|', grep defined && /\S/, (ref $Order)? @{$Order}: $Order;
 $OrderBy = join '|', grep defined && /\S/, (ref $OrderBy)? @{$OrderBy}: $OrderBy;
 
@@ -84,7 +84,6 @@ if ($ARGS{'SavePreferences'}) {
     push @actions, $ok ? loc("Preferences saved.") : $msg;
 }
 
-# }}}
 
 # Read from user preferences
 my $prefs = $session{'CurrentUser'}->UserObj->Preferences("SearchDisplay") || {};
diff --git a/share/html/Search/Build.html b/share/html/Search/Build.html
index 0e17f89..5e60222 100644
--- a/share/html/Search/Build.html
+++ b/share/html/Search/Build.html
@@ -186,7 +186,7 @@ my @options = $tree->GetDisplayedNodes;
 my @current_values = grep defined, @options[@clauses];
 my @new_values = ();
 
-# {{{ Try to find if we're adding a clause
+# Try to find if we're adding a clause
 foreach my $arg ( keys %ARGS ) {
     next unless $arg =~ m/^ValueOf(\w+|'CF.{.*?}')$/
                 && ( ref $ARGS{$arg} eq "ARRAY"
@@ -246,7 +246,6 @@ foreach my $arg ( keys %ARGS ) {
     }
 }
 
-# }}}
 
 push @actions, $m->comp('Elements/EditQuery:Process',
     %ARGS,
@@ -255,7 +254,7 @@ push @actions, $m->comp('Elements/EditQuery:Process',
     New      => \@new_values,
 );
 
-# {{{ Rebuild $Query based on the additions / movements
+# Rebuild $Query based on the additions / movements
 
 my $optionlist_arrayref;
 ($query{'Query'}, $optionlist_arrayref) = $tree->GetQueryAndOptionList(\@current_values);
@@ -264,11 +263,10 @@ my $optionlist = join "\n", map { qq(<option value="$_->{INDEX}" $_->{SELECTED}>
                                   . ("&nbsp;" x (5 * $_->{DEPTH}))
                                   . $m->interp->apply_escapes($_->{TEXT}, 'h') . qq(</option>) } @$optionlist_arrayref;
 
-# }}}
 
 my $queues = $tree->GetReferencedQueues;
 
-# {{{ Deal with format changes
+# Deal with format changes
 my ( $AvailableColumns, $CurrentFormat );
 ( $query{'Format'}, $AvailableColumns, $CurrentFormat ) = $m->comp(
     'Elements/BuildFormatString',
@@ -277,12 +275,11 @@ my ( $AvailableColumns, $CurrentFormat );
     Format => $query{'Format'},
 );
 
-# }}}
 
 # if we're asked to save the current search, save it
 push @actions, $m->comp( 'Elements/EditSearches:Save', %ARGS, Query => \%query, SavedSearch => \%saved_search);
 
-# {{{ Push the updates into the session so we don't lose 'em
+# Push the updates into the session so we don't lose 'em
 
 $session{'CurrentSearchHash'} = {
     %query,
@@ -291,9 +288,8 @@ $session{'CurrentSearchHash'} = {
     Description => $saved_search{'Description'},
 };
 
-# }}}
 
-# {{{ Show the results, if we were asked.
+# Show the results, if we were asked.
 
 if ( $ARGS{'DoSearch'} ) {
     $m->comp( 'Results.html', %query, SavedChartSearchId => $ARGS{'SavedChartSearchId'}, );
@@ -301,9 +297,8 @@ if ( $ARGS{'DoSearch'} ) {
     $m->abort;
 }
 
-# }}}
 
-# {{{ Build a querystring for the tabs
+# Build a querystring for the tabs
 
 my $QueryString = '';
 if ($NewQuery) {
@@ -313,7 +308,6 @@ elsif ( $query{'Query'} ) {
     $QueryString = $m->comp('/Elements/QueryString', %query );
 }
 
-# }}}
 
 </%INIT>
 
diff --git a/share/html/Search/Bulk.html b/share/html/Search/Bulk.html
index b9bec56..8244342 100755
--- a/share/html/Search/Bulk.html
+++ b/share/html/Search/Bulk.html
@@ -238,16 +238,15 @@ map ( $ARGS{$_} =~ /^$/ && ( delete $ARGS{$_} ), keys %ARGS );
 
 my (@results);
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
         delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {            # attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -259,13 +258,11 @@ if ($ARGS{'Attach'}) {            # attachment?
         $file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
     delete $session{'Attachments'};
 }
-# }}}
 
 $Page ||= 1;
 
diff --git a/share/html/SelfService/Display.html b/share/html/SelfService/Display.html
index 93a837f..0a5638c 100755
--- a/share/html/SelfService/Display.html
+++ b/share/html/SelfService/Display.html
@@ -93,7 +93,7 @@ my ( $field, @results );
 
 $m->callback( ARGSRef => \%ARGS, CallbackName => 'Initial' );
 
-# {{{ Load the ticket
+# Load the ticket
 #If we get handed two ids, mason will make them an array. bleck.
 # We want teh first one. Just because there's no other sensible way
 # to deal
diff --git a/share/html/Ticket/Create.html b/share/html/Ticket/Create.html
index 098f1b8..e45d508 100755
--- a/share/html/Ticket/Create.html
+++ b/share/html/Ticket/Create.html
@@ -370,16 +370,15 @@ my $ValidCFs = $m->comp(
     ARGSRef => \%ARGS
 );
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
 	delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {			# attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -391,7 +390,6 @@ if ($ARGS{'Attach'}) {			# attachment?
 	$file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'id'} eq 'new') {
diff --git a/share/html/Ticket/ModifyAll.html b/share/html/Ticket/ModifyAll.html
index 0979006..00f7a96 100755
--- a/share/html/Ticket/ModifyAll.html
+++ b/share/html/Ticket/ModifyAll.html
@@ -161,16 +161,15 @@ $CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or
 $CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or
                      $Ticket->CurrentUserHasRight('ModifyTicket') );
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
         delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {            # attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -182,13 +181,11 @@ if ($ARGS{'Attach'}) {            # attachment?
         $file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
     delete $session{'Attachments'};
 }
-# }}}
 
 
 $m->callback( TicketObj => $Ticket, ARGSRef => \%ARGS );
diff --git a/share/html/Ticket/Update.html b/share/html/Ticket/Update.html
index 0624a11..8159df9 100755
--- a/share/html/Ticket/Update.html
+++ b/share/html/Ticket/Update.html
@@ -233,16 +233,15 @@ $CanComment = 1 if ( $TicketObj->CurrentUserHasRight('CommentOnTicket') or
                      $TicketObj->CurrentUserHasRight('ModifyTicket') ); 
 
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
         delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {            # attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -254,13 +253,11 @@ if ($ARGS{'Attach'}) {            # attachment?
         $file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
     delete $session{'Attachments'};
 }
-# }}}
 
 my $gnupg_widget = $m->comp('/Elements/GnuPG/SignEncryptWidget:new', Arguments => \%ARGS );
 $m->comp( '/Elements/GnuPG/SignEncryptWidget:Process',
diff --git a/share/html/m/ticket/create b/share/html/m/ticket/create
index 7c23194..16fd1b1 100644
--- a/share/html/m/ticket/create
+++ b/share/html/m/ticket/create
@@ -118,16 +118,15 @@ my $ValidCFs = $m->comp(
     ARGSRef => \%ARGS
 );
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
 	delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {			# attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -139,7 +138,6 @@ if ($ARGS{'Attach'}) {			# attachment?
 	$file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'id'} eq 'new') {
diff --git a/share/html/m/ticket/reply b/share/html/m/ticket/reply
index 34dc2c2..28dd6a9 100644
--- a/share/html/m/ticket/reply
+++ b/share/html/m/ticket/reply
@@ -114,16 +114,15 @@ $CanComment = 1 if ( $t->CurrentUserHasRight('CommentOnTicket') or
                      $t->CurrentUserHasRight('ModifyTicket') ); 
 
 
-# {{{ deal with deleting uploaded attachments
+# deal with deleting uploaded attachments
 foreach my $key (keys %ARGS) {
     if ($key =~ m/^DeleteAttach-(.+)$/) {
         delete $session{'Attachments'}{$1};
     }
     $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
 }
-# }}}
 
-# {{{ store the uploaded attachment in session
+# store the uploaded attachment in session
 if ($ARGS{'Attach'}) {            # attachment?
     my $attachment = MakeMIMEEntity(
         AttachmentFieldName => 'Attach'
@@ -135,13 +134,11 @@ if ($ARGS{'Attach'}) {            # attachment?
         $file_path => $attachment,
     };
 }
-# }}}
 
 # delete temporary storage entry to make WebUI clean
 unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
     delete $session{'Attachments'};
 }
-# }}}
 
 # check email addresses for RT's
 {

commit 23ee79e1e298c447e76df6fdff8f35a9039d83a4
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:45:54 2010 -0400

    remove fold markers from docs

diff --git a/docs/design_docs/acls b/docs/design_docs/acls
index bb093ad..f4f23f0 100755
--- a/docs/design_docs/acls
+++ b/docs/design_docs/acls
@@ -4,7 +4,6 @@ Does principal baz have right foo for object bar
 
 What rights does user baz have for object bar
 
-# {{{ Which principals have right foo for object bar
 
 
 if ($args{'ObjectType'} eq 'Ticket') {
@@ -44,7 +43,6 @@ my $query = "SELECT Users.*  from ACL, Groups, Users, Principals, Principals Use
            $or_check_roles
         )";
 
-# }}}
 
 What objects does principal baz have right foo for
 ;

commit 78554fef607c2d8ae3d0b4f8c32a189ffd75a26d
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:48:36 2010 -0400

    Fix indented fold markers in lib

diff --git a/lib/RT/ACE_Overlay.pm b/lib/RT/ACE_Overlay.pm
index 8a2db0e..28b1f45 100755
--- a/lib/RT/ACE_Overlay.pm
+++ b/lib/RT/ACE_Overlay.pm
@@ -223,7 +223,7 @@ sub Create {
 	return ( 0, $self->loc("System error. Right not granted.") );
     }
 
-    # {{{ Validate the principal
+    # Validate the principal
     my $princ_obj;
     ( $princ_obj, $args{'PrincipalType'} ) =
       $self->_CanonicalizePrincipal( $args{'PrincipalId'},
@@ -237,7 +237,7 @@ sub Create {
 
     # }}}
 
-    # {{{ Check the ACL
+    # Check the ACL
 
     if (ref( $args{'Object'}) eq 'RT::Group' ) {
         unless ( $self->CurrentUser->HasRight( Object => $args{'Object'},
@@ -254,7 +254,7 @@ sub Create {
     }
     # }}}
 
-    # {{{ Canonicalize and check the right name
+    # Canonicalize and check the right name
     my $canonic_name = $self->CanonicalizeRightName( $args{'RightName'} );
     unless ( $canonic_name ) {
         return ( 0, $self->loc("Invalid right. Couldn't canonicalize right '[_1]'", $args{'RightName'}) );
diff --git a/lib/RT/I18N.pm b/lib/RT/I18N.pm
index 81ecd17..91b9ccd 100755
--- a/lib/RT/I18N.pm
+++ b/lib/RT/I18N.pm
@@ -247,7 +247,7 @@ sub SetMIMEEntityToEncoding {
         Encode::_utf8_off($string);
         my $orig_string = $string;
 
-        # {{{ Convert the body
+        # Convert the body
         eval {
             $RT::Logger->debug( "Converting '$charset' to '$enc' for "
                   . $head->mime_type . " - "
diff --git a/lib/RT/Interface/Email.pm b/lib/RT/Interface/Email.pm
index b2e27ab..175f180 100755
--- a/lib/RT/Interface/Email.pm
+++ b/lib/RT/Interface/Email.pm
@@ -1359,7 +1359,7 @@ sub Gateway {
     my $Subject = $head->get('Subject') || '';
     chomp $Subject;
     
-    # {{{ Lets check for mail loops of various sorts.
+    # Lets check for mail loops of various sorts.
     my ($should_store_machine_generated_message, $IsALoop, $result);
     ( $should_store_machine_generated_message, $ErrorsTo, $result, $IsALoop ) =
       _HandleMachineGeneratedMail(
@@ -1404,7 +1404,7 @@ sub Gateway {
         SystemQueue   => $SystemQueueObj,
     );
 
-    # {{{ If authentication fails and no new user was created, get out.
+    # If authentication fails and no new user was created, get out.
     if ( !$CurrentUser || !$CurrentUser->id || $AuthStat == -1 ) {
 
         # If the plugins refused to create one, they lose.
diff --git a/lib/RT/Interface/Web.pm b/lib/RT/Interface/Web.pm
index 42c3bdd..b7618cb 100755
--- a/lib/RT/Interface/Web.pm
+++ b/lib/RT/Interface/Web.pm
@@ -1635,7 +1635,7 @@ sub ProcessTicketBasics {
 
     my $OrigOwner = $TicketObj->Owner;
 
-    # {{{ Set basic fields
+    # Set basic fields
     my @attribs = qw(
         Subject
         FinalPriority
@@ -2004,7 +2004,7 @@ sub ProcessTicketDates {
 
     my (@results);
 
-    # {{{ Set date fields
+    # Set date fields
     my @date_fields = qw(
         Told
         Resolved
diff --git a/lib/RT/Link_Overlay.pm b/lib/RT/Link_Overlay.pm
index 43dded6..cc94f35 100755
--- a/lib/RT/Link_Overlay.pm
+++ b/lib/RT/Link_Overlay.pm
@@ -144,7 +144,7 @@ sub Create {
         $target_id = $object->Id if UNIVERSAL::isa($object, 'RT::Ticket');
     }
 
-    # {{{ We don't want references to ourself
+    # We don't want references to ourself
     if ( $base->URI eq $target->URI ) {
         return ( 0, $self->loc("Can't link a ticket to itself") );
     }
@@ -159,7 +159,7 @@ sub Create {
     return ( $id, $msg );
 }
 
- # {{{ sub LoadByParams
+ # sub LoadByParams
 
 =head2 LoadByParams
 
diff --git a/lib/RT/Principal_Overlay.pm b/lib/RT/Principal_Overlay.pm
index c5aff05..7256eca 100755
--- a/lib/RT/Principal_Overlay.pm
+++ b/lib/RT/Principal_Overlay.pm
@@ -289,7 +289,7 @@ sub HasRight {
         unless $self->can('_IsOverrideGlobalACL')
                && $self->_IsOverrideGlobalACL( $args{'Object'} );
 
-    # {{{ If we've cached a win or loss for this lookup say so
+    # If we've cached a win or loss for this lookup say so
 
     # Construct a hashkeys to cache decisions:
     # 1) full_hashkey - key for any result and for full combination of uid, right and objects
diff --git a/lib/RT/Record.pm b/lib/RT/Record.pm
index 826df73..49448bf 100755
--- a/lib/RT/Record.pm
+++ b/lib/RT/Record.pm
@@ -1282,7 +1282,7 @@ sub _AddLink {
         return ( 0, $self->loc('Either base or target must be specified') );
     }
 
-    # {{{ Check if the link already exists - we don't want duplicates
+    # Check if the link already exists - we don't want duplicates
     use RT::Link;
     my $old_link = RT::Link->new( $self->CurrentUser );
     $old_link->LoadByParams( Base   => $args{'Base'},
diff --git a/lib/RT/Ticket_Overlay.pm b/lib/RT/Ticket_Overlay.pm
index fb805e6..60ad137 100755
--- a/lib/RT/Ticket_Overlay.pm
+++ b/lib/RT/Ticket_Overlay.pm
@@ -330,7 +330,7 @@ sub Create {
     $args{'Priority'} = $args{'InitialPriority'}
         unless defined $args{'Priority'};
 
-    # {{{ Dates
+    # Dates
     #TODO we should see what sort of due date we're getting, rather +
     # than assuming it's in ISO format.
 
@@ -383,7 +383,7 @@ sub Create {
 
     # }}}
 
-    # {{{ Dealing with time fields
+    # Dealing with time fields
 
     $args{'TimeEstimated'} = 0 unless defined $args{'TimeEstimated'};
     $args{'TimeWorked'}    = 0 unless defined $args{'TimeWorked'};
@@ -391,7 +391,7 @@ sub Create {
 
     # }}}
 
-    # {{{ Deal with setting the owner
+    # Deal with setting the owner
 
     my $Owner;
     if ( ref( $args{'Owner'} ) eq 'RT::User' ) {
@@ -545,7 +545,7 @@ sub Create {
 
 
 
-    # {{{ Deal with setting up watchers
+    # Deal with setting up watchers
 
     foreach my $type ( "Cc", "AdminCc", "Requestor" ) {
         # we know it's an array ref
@@ -576,7 +576,7 @@ sub Create {
 
     # }}}
 
-    # {{{ Add all the custom fields
+    # Add all the custom fields
 
     foreach my $arg ( keys %args ) {
         next unless $arg =~ /^CustomField-(\d+)$/i;
@@ -602,7 +602,7 @@ sub Create {
 
     # }}}
 
-    # {{{ Deal with setting up links
+    # Deal with setting up links
 
     # TODO: Adding link may fire scrips on other end and those scrips
     # could create transactions on this ticket before 'Create' transaction.
@@ -672,7 +672,7 @@ sub Create {
 
     if ( $args{'_RecordTransaction'} ) {
 
-        # {{{ Add a transaction for the create
+        # Add a transaction for the create
         my ( $Trans, $Msg, $TransObj ) = $self->_NewTransaction(
             Type         => "Create",
             TimeTaken    => $args{'TimeWorked'},
@@ -848,7 +848,7 @@ sub Import {
               , $QueueObj->Name));
     }
 
-    # {{{ Deal with setting the owner
+    # Deal with setting the owner
 
     # Attempt to take user object, user name or user id.
     # Assign to nobody if lookup fails.
@@ -1216,7 +1216,7 @@ sub DeleteWatcher {
         return ( 0, $self->loc("Group not found") );
     }
 
-    # {{{ Check ACLS
+    # Check ACLS
     #If the watcher we're trying to add is for the current user
     if ( $self->CurrentUser->PrincipalId == $principal->id ) {
 
diff --git a/lib/RT/Tickets_Overlay.pm b/lib/RT/Tickets_Overlay.pm
index 7e2bc8e..5e1fb21 100755
--- a/lib/RT/Tickets_Overlay.pm
+++ b/lib/RT/Tickets_Overlay.pm
@@ -1117,7 +1117,7 @@ sub _WatcherMembershipLimit {
         );
     }
 
-    # {{{ Tie to groups for tickets we care about
+    # Tie to groups for tickets we care about
     $self->_SQLLimit(
         ALIAS           => $groups,
         FIELD           => 'Domain',

commit c4b84db582512507d802f6cb1da444464f2bf4f4
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:49:45 2010 -0400

    kill more indented fold-close markers

diff --git a/share/html/Admin/Users/Modify.html b/share/html/Admin/Users/Modify.html
index 3412218..db1b3cb 100755
--- a/share/html/Admin/Users/Modify.html
+++ b/share/html/Admin/Users/Modify.html
@@ -346,7 +346,6 @@ if ($UserObj->Id && $id ne 'new') {
     }
 
 
-    # }}}
 }
 
 
diff --git a/share/html/SelfService/Display.html b/share/html/SelfService/Display.html
index 0a5638c..e225edb 100755
--- a/share/html/SelfService/Display.html
+++ b/share/html/SelfService/Display.html
@@ -142,14 +142,12 @@ if ( defined ($id[0]) && $id[0] eq 'new' ) {
               $m->abort();
         }
 
-        # }}}
 
         # delete temporary storage entry to make WebUI clean
         unless ( keys %{ $session{'Attachments'} } and $ARGS{'UpdateAttach'} ) {
             delete $session{'Attachments'};
         }
 
-        # }}}
     }
     else {
         unless ( $Ticket->Load( $id[0] ) ) {
@@ -185,7 +183,6 @@ if ( defined ($id[0]) && $id[0] eq 'new' ) {
     my @cfupdates = ProcessObjectCustomFieldUpdates(Object => $Ticket, ARGSRef => \%ARGS);
     push (@results, @cfupdates);
 
-    # }}}
 
     #Update the status
     if (    ( defined $ARGS{'Status'} )
@@ -195,7 +192,6 @@ if ( defined ($id[0]) && $id[0] eq 'new' ) {
         ( $code, $msg ) = $Ticket->SetStatus( $ARGS{'Status'} );
         push @results, "$msg";
     }
-    # }}}
 
 
     }
diff --git a/share/html/Ticket/Display.html b/share/html/Ticket/Display.html
index a273df5..2752d1e 100755
--- a/share/html/Ticket/Display.html
+++ b/share/html/Ticket/Display.html
@@ -133,7 +133,6 @@ if ($ARGS{'id'} eq 'new') {
     unless ( $TicketObj->CurrentUserHasRight('ShowTicket') ) {
         Abort("No permission to view newly created ticket #".$TicketObj->id.".");
     }
-    # }}}
 } else { 
     $TicketObj ||= LoadTicket($ARGS{'id'});
 
diff --git a/share/html/m/ticket/show b/share/html/m/ticket/show
index c650019..35eef91 100644
--- a/share/html/m/ticket/show
+++ b/share/html/m/ticket/show
@@ -25,7 +25,6 @@ if ($ARGS{'id'} eq 'new') {
     unless ( $Ticket->CurrentUserHasRight('ShowTicket') ) {
         Abort("No permission to view newly created ticket #".$Ticket->id.".");
     }
-    # }}}
 } else { 
     $Ticket ||= LoadTicket($ARGS{'id'});
 

commit 57dd17f84a1a16e6f9b942a161f20499b3e5e1aa
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Sep 19 10:51:21 2010 -0400

    kill fold markers in pg/sqlite schemas

diff --git a/etc/schema.Pg b/etc/schema.Pg
index 7bfc5a4..6b897cc 100755
--- a/etc/schema.Pg
+++ b/etc/schema.Pg
@@ -11,7 +11,7 @@
 
 CREATE SEQUENCE attachments_id_seq;
 
--- {{{ Attachments
+
 
 CREATE TABLE Attachments (
   id INTEGER DEFAULT nextval('attachments_id_seq'),
@@ -33,9 +33,9 @@ CREATE TABLE Attachments (
 CREATE INDEX Attachments1 ON Attachments (Parent) ;
 CREATE INDEX Attachments2 ON Attachments (TransactionId) ;
 CREATE INDEX Attachments3 ON Attachments (Parent, TransactionId) ;
--- }}}
 
--- {{{ Queues
+
+
 
 
 --
@@ -63,9 +63,9 @@ CREATE TABLE Queues (
 );
 CREATE UNIQUE INDEX Queues1 ON Queues (Name) ;
 
--- }}}
 
--- {{{ Links
+
+
 
 
 
@@ -92,9 +92,9 @@ CREATE TABLE Links (
 CREATE UNIQUE INDEX Links1 ON Links (Base, Target, Type) ;
 CREATE INDEX Links4 ON Links(Type,LocalBase);
 
--- }}}
 
--- {{{ Principals
+
+
 
 
 
@@ -116,9 +116,9 @@ CREATE TABLE Principals (
 CREATE INDEX Principals2 ON Principals (ObjectId);
 
 
--- }}}
 
--- {{{ Groups
+
+
 
 
 
@@ -142,9 +142,9 @@ CREATE UNIQUE INDEX Groups1 ON Groups (Domain,Instance,Type,id, Name);
 CREATE INDEX Groups2 On Groups  (Type, Instance, Domain);
 
 
--- }}}
 
--- {{{ ScripConditions
+
+
 
 
 
@@ -170,9 +170,9 @@ CREATE TABLE ScripConditions (
 
 );
 
--- }}}
 
--- {{{ Transactions
+
+
 
 
 --
@@ -202,9 +202,9 @@ CREATE TABLE Transactions (
 );
 CREATE INDEX Transactions1 ON Transactions (ObjectType, ObjectId);
 
--- }}}
 
--- {{{ Scrips 
+
+
 
 
 
@@ -235,9 +235,9 @@ CREATE TABLE Scrips (
 
 );
 
--- }}}
 
--- {{{ ACL
+
+
 
 
 --
@@ -261,9 +261,9 @@ CREATE TABLE ACL (
 CREATE INDEX  ACL1 on ACL(RightName, ObjectType, ObjectId,PrincipalType,PrincipalId);
 
 
--- }}}
 
--- {{{ GroupMembers 
+
+
 
 
 
@@ -283,9 +283,9 @@ CREATE TABLE GroupMembers (
 
 CREATE UNIQUE INDEX GroupMembers1 ON GroupMembers(GroupId, MemberId);
 
--- }}}
 
--- {{{ GroupMembersCache
+
+
 
 
 
@@ -310,9 +310,9 @@ CREATE INDEX CachedGroupMembers2 on CachedGroupMembers (MemberId);
 CREATE INDEX CachedGroupMembers3 on CachedGroupMembers (GroupId);
 CREATE INDEX DisGrouMem  on CachedGroupMembers (GroupId,MemberId,Disabled); 
 
--- }}}
 
--- {{{ Users
+
+
 
 
 
@@ -368,9 +368,9 @@ CREATE INDEX Users3 ON Users (id, EmailAddress);
 CREATE INDEX Users4 ON Users (EmailAddress);
 
 
--- }}}
 
--- {{{ Tickets
+
+
 
 
 
@@ -418,9 +418,9 @@ CREATE INDEX Tickets3 ON Tickets (EffectiveId) ;
 CREATE INDEX Tickets4 ON Tickets (id, Status) ;
 CREATE INDEX Tickets5 ON Tickets (id, EffectiveId) ;
 
--- }}}
 
--- {{{ ScripActions
+
+
 
 
 
@@ -444,9 +444,9 @@ CREATE TABLE ScripActions (
 
 );
 
--- }}}
 
--- {{{ Templates
+
+
 
 
 
@@ -473,9 +473,9 @@ CREATE TABLE Templates (
 
 );
 
--- }}}
 
--- {{{ ObjectCustomFieldValues 
+
+
 
 
 
@@ -509,9 +509,9 @@ CREATE TABLE ObjectCustomFieldValues (
 CREATE INDEX ObjectCustomFieldValues1 ON ObjectCustomFieldValues (CustomField,ObjectType,ObjectId,Content); 
 CREATE INDEX ObjectCustomFieldValues2 ON ObjectCustomFieldValues (CustomField,ObjectType,ObjectId); 
 
--- }}}
 
--- {{{ CustomFields
+
+
 
 
 
@@ -541,9 +541,9 @@ CREATE TABLE CustomFields (
 
 );
 
--- }}}
 
--- {{{ ObjectCustomFields 
+
+
 
 CREATE SEQUENCE objectcustomfields_id_s;
 
@@ -561,9 +561,9 @@ CREATE TABLE ObjectCustomFields (
 
 );
 
--- }}}
 
--- {{{ CustomFieldValues 
+
+
 
 
 
@@ -590,10 +590,10 @@ CREATE TABLE CustomFieldValues (
 
 CREATE INDEX CustomFieldValues1 ON CustomFieldValues (CustomField);
 
--- }}}
 
 
--- {{{ Attributes
+
+
 
 CREATE SEQUENCE attributes_id_seq;
 
@@ -616,9 +616,9 @@ CREATE TABLE Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
--- }}}
 
--- {{{ Sessions
+
+
 
 -- sessions is used by Apache::Session to keep sessions in the database.
 -- We should have a reaper script somewhere.
@@ -631,5 +631,5 @@ CREATE TABLE sessions (
 
 );
 
--- }}}
+
 
diff --git a/etc/upgrade/3.1.0/schema.Pg b/etc/upgrade/3.1.0/schema.Pg
index 94c3fe7..08a964c 100644
--- a/etc/upgrade/3.1.0/schema.Pg
+++ b/etc/upgrade/3.1.0/schema.Pg
@@ -1,4 +1,4 @@
--- {{{ Attributes
+
 
 CREATE SEQUENCE attributes_id_seq;
 
@@ -21,5 +21,5 @@ CREATE TABLE Attributes (
 CREATE INDEX Attributes1 on Attributes(Name);
 CREATE INDEX Attributes2 on Attributes(ObjectType, ObjectId);
 
--- }}}
+
 

-----------------------------------------------------------------------


More information about the Rt-commit mailing list