- Timestamp:
- 02/01/16 15:01:00 (8 years ago)
- Location:
- trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/RefVal.pm
r1518 r1694 37 37 foreach my $attr (@{ $c->config->{objects}{$oref}{quick_search} || [ 'name' ]}) { 38 38 foreach ($base->search_objects( 39 $oref, "$attr~" . $term )) {39 $oref, "$attr~" . $term, 'exported=true')) { 40 40 $objs{$_} = 1; 41 41 } -
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Timeline.pm
r1686 r1694 123 123 } 124 124 125 126 125 if (my $date = $ouser->get_attributes('endEmployment')) { 127 126 push(@{$var->{employments}{events}}, { -
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Summary/Offices.pm
r1050 r1694 27 27 my $base = $c->model('Accounts')->base; 28 28 29 my @users = $base->search_objects('user', 'active=1'); 29 my $users = $base->fetchObjectInfo( 30 'user', 31 [ qw(sn givenName) ], 32 'active=1' 33 ); 30 34 31 foreach ( $base->search_objects('address', 'active=1', map { "user=$_" } @users)) { 35 my $sites = $base->fetchObjectInfo( 36 'site', 37 [ qw(l description) ], 38 'exported=true' 39 ); 32 40 33 my $add = $base->get_object('address', $_) or next; 34 my $site = $add->get_attributes('site') 35 || $add->get_attributes('l'); 36 my $office = $add->get_attributes('physicalDeliveryOfficeName') || ''; 41 my $addresses = $base->fetchObjectInfo( 42 'address', 43 [ qw(user site physicalDeliveryOfficeName telephoneNumber l isMainAddress) ], 44 'exported=true' 45 ); 37 46 38 $site or next; 47 foreach my $ad (keys %$addresses) { 48 my $sitename = $addresses->{$ad}{site}[0] || $c->loc('(other)'); 39 49 40 push (@{$c->stash->{office}{$site}{$office}}, $add); 50 my $loc = $addresses->{$ad}{site}[0] 51 ? $sites->{ $addresses->{$ad}{site}[0] }{l}[0] 52 : $addresses->{$ad}{l}[0]; 53 54 my $office = $addresses->{$ad}{physicalDeliveryOfficeName}[0] || ''; 55 56 my $user = $users->{ $addresses->{$ad}{user}[0] } or next; 57 58 $c->stash->{sites} = $sites; 59 60 push ( 61 @{$c->stash->{office}{$sitename}{$office}}, 62 { 63 displayName => sprintf('%s %s', $user->{givenName}[0], $user->{sn}[0]), 64 phone => $addresses->{$ad}{telephoneNumber}[0], 65 isMainAddress => $addresses->{$ad}{isMainAddress}[0], 66 id => $ad, 67 user => $addresses->{$ad}{user}[0], 68 l => $loc, 69 site => $sitename, 70 } 71 ); 41 72 } 42 73 }
Note: See TracChangeset
for help on using the changeset viewer.