[Rt-commit] r7012 - in rt/branches/3.7-EXPERIMENTAL-RTIR-2.2: html/Elements/RT__Ticket

[ruz at bestpractical.com]

Author: ruz
Date: Wed Feb 14 16:17:15 2007
New Revision: 7012

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/html/Elements/RT__Ticket/ColumnMap

Log:
 r4567 at cubic-pc (orig r7009):  ruz | 2007-02-15 00:03:14 +0300
 * get rid of the latest named functions in our comps


Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/html/Elements/RT__Ticket/ColumnMap
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/html/Elements/RT__Ticket/ColumnMap	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/html/Elements/RT__Ticket/ColumnMap	Wed Feb 14 16:17:15 2007
@@ -52,7 +52,7 @@
 <%ONCE>
 our ( $COLUMN_MAP );
 
-sub ColumnMap {
+my $ColumnMap = sub {
     my $name = shift;
     my $attr = shift;
 
@@ -98,7 +98,7 @@
     }
 }
 
-sub LinkCallback {
+my $LinkCallback = sub {
     my $method = shift;
 
     my $mode            = $RT::Ticket::LINKTYPEMAP{$method}{Mode};
@@ -297,7 +297,7 @@
 
     # Everything from LINKTYPEMAP
     (map {
-        $_ => { value => LinkCallback( $_ ) }
+        $_ => { value => $LinkCallback->( $_ ) }
     } keys %RT::Ticket::LINKTYPEMAP),
 
     '_CLASS' => {
@@ -314,5 +314,5 @@
 </%ONCE>
 <%init>
 $m->comp( '/Elements/Callback', COLUMN_MAP    => $COLUMN_MAP, _CallbackName => 'ColumnMap');
-return ColumnMap($Name, $Attr);
+return $ColumnMap->( $Name, $Attr );
 </%init>