Changeset 1181 for trunk


Ignore:
Timestamp:
10/01/12 15:42:02 (12 years ago)
Author:
nanardon
Message:

enable unexported objects where searching next id

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

    r1134 r1181  
    534534        $field, $min, $max); 
    535535    my %existsid; 
     536    my $oldunexported = $base->unexported(1); 
    536537    foreach ($base->list_objects($class->type)) { 
    537538        my $obj = $base->get_object($class->type, $_) or next; 
     
    539540        $existsid{$id + 0} = 1; 
    540541    } 
     542    $base->unexported($oldunexported); 
    541543    $min += 0; 
    542544    $max += 0; 
Note: See TracChangeset for help on using the changeset viewer.