Changeset 1012 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 05/21/12 19:37:05 (12 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm
r989 r1012 97 97 $self 98 98 } 99 100 =head2 call_batch_sync 101 102 Send signal to L<la-sync-manager> daemon to synchronize bases. 103 104 =cut 99 105 100 106 sub call_batch_sync { … … 198 204 } 199 205 206 =head2 default_synchro_name 207 208 Return de default synchronisation name 209 210 =cut 211 200 212 sub default_synchro_name { 201 213 my ($self) = @_; … … 203 215 } 204 216 217 =head2 list_synchro 218 219 List synchronisation setup in L<latmos-accounts.ini> 220 221 =cut 222 205 223 sub list_synchro { 206 224 my ($self) = @_; 207 225 grep { $_ } map { /^sync:(.*)$/; $1 } $self->Sections 208 226 } 227 228 =head2 default_synchro 229 230 Return a reference to default synchronisation object 231 232 =cut 209 233 210 234 sub default_synchro { … … 217 241 } 218 242 219 sub sync_from_name { 220 my ($self, $syncname) = @_; 221 return if (!$syncname); 222 $self->val("sync:$syncname", 'from', $self->default_base_name); 223 } 243 =head2 create_synchro($name, %options) 244 245 Return a reference to synchronisation object for C<$name> synchronisation. 246 247 =cut 224 248 225 249 sub create_synchro { … … 257 281 } 258 282 283 =head2 sync_access($name, %options) 284 285 Return a L<LATMOS::Accounts::SynchAccess> object over C<$name> synchronisation. 286 287 =cut 288 259 289 sub sync_access { 260 290 my ($self, $name, %options) = @_; -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/OCHelper/Accreq.pm
r861 r1012 2 2 3 3 # $Id: Accreq.pm 2041 2010-04-18 13:16:39Z nanardon $ 4 5 =head1 NAME 6 7 LATMOS::Accounts::Bases::Sql::OCHelper::User - Helper to create accreq 8 object 9 10 =cut 4 11 5 12 use strict; … … 20 27 if ($self->base->create_c_object($self->otype, 21 28 strftime('%Y%m%d%H%M%S', localtime), 22 %{$info->{contents s} || {}},29 %{$info->{contents} || {}}, 23 30 )) { 24 31 return 'CREATED'; … … 31 38 } 32 39 40 =head1 SEE ALSO 41 42 L<LATMOS::Accounts> 43 44 =head1 AUTHOR 45 46 Olivier Thauvin, E<lt>olivier.thauvin@latmos.ipsl.frE<gt> 47 48 =head1 COPYRIGHT AND LICENSE 49 50 Copyright (C) 2012 CNRS SA/CETP/LATMOS 51 52 This library is free software; you can redistribute it and/or modify 53 it under the same terms as Perl itself, either Perl version 5.10.0 or, 54 at your option, any later version of Perl 5 you may have available. 55 56 =cut 57 33 58 1;
Note: See TracChangeset
for help on using the changeset viewer.