[Rt-commit] rt branch, 4.2/selectobject-callback, created. rt-4.1.8-303-g11ace41

[Jim Brandt]

The branch, 4.2/selectobject-callback has been created
        at  11ace41337cdc8d0a45f2d42d0a7bd3b74f2a848 (commit)

- Log -----------------------------------------------------------------
commit 11ace41337cdc8d0a45f2d42d0a7bd3b74f2a848
Author: Jim Brandt <jbrandt at bestpractical.com>
Date:   Thu May 16 12:31:40 2013 -0400

    Add SelectObject callback for modifying collection

diff --git a/share/html/Elements/SelectObject b/share/html/Elements/SelectObject
index 1c61153..6e8c16a 100644
--- a/share/html/Elements/SelectObject
+++ b/share/html/Elements/SelectObject
@@ -104,6 +104,9 @@ if ( not defined $session{$cache_key} and not $Lite ) {
     my $collection = "${ObjectType}s"->new($session{'CurrentUser'});
     $collection->UnLimit;
 
+    $m->callback( CallbackName => 'ModifyCollection', ARGSRef => \%ARGS,
+                  Collection => $collection, ObjectType => $ObjectType );
+
     while (my $object = $collection->Next) {
         if ($ShowAll
             or not $CheckRight

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