- Timestamp:
- 06/07/19 17:59:53 (5 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm
r2260 r2262 32 32 : (undef, $base_or_object, $maybe_otype); 33 33 34 my $attr_info = {}; 34 35 if (ref $attributes) { 35 $attributes->{_base} = $base; 36 $attributes->{_object} = $object; 37 $attributes->{_name} = $attributes->{name}; 38 $attributes->{_otype} = $otype; 39 $attributes->{monitored} ||= $base->config('monitored')->{ lc( $otype . '.' . $attributes->{name} ) }; 40 41 return bless($attributes, $class); 42 } else { 43 my $attr_info = $base->get_attr_schema($otype, $attributes) or return; 44 45 $attr_info->{_base} = $base; 46 $attr_info->{_object} = $object; 36 $attr_info = $attributes; 37 $attr_info->{_name} = $attributes->{name}; 38 } else { 39 $attr_info = $base->get_attr_schema($otype, $attributes) or return; 47 40 $attr_info->{_name} = $attributes; 48 $attr_info->{_otype} = $otype; 49 $attr_info->{monitored} ||= $base->config('monitored')->{ lc( $otype . '.' . $attributes ) }; 50 51 return bless($attr_info, $class); 52 } 41 } 42 43 $attr_info->{_base} = $base; 44 $attr_info->{_object} = $object; 45 $attr_info->{_otype} = $otype; 46 $attr_info->{monitored} ||= $base->config('monitored')->{ lc( $otype . '.' . $attributes ) }; 47 $attr_info->{ro} = 1 if ($attr_info->{auto}); 48 49 return bless($attr_info, $class); 53 50 } 54 51 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r2256 r2262 18 18 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 19 19 20 sub SCHEMA_VERSION { 3 3};20 sub SCHEMA_VERSION { 34 }; 21 21 22 22 =head1 NAME -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r2228 r2262 951 951 }, 952 952 sAMAccountName => { 953 ro => 1,954 953 auto => 1, 955 954 }, … … 1020 1019 }, 1021 1020 directReports => { 1021 auto => 1, 1022 ro => 1, 1023 }, 1024 _directReports => { 1022 1025 reference => 'user', 1023 1026 ro => 1, 1027 hide => 1, 1024 1028 delayed => 1, 1025 1029 get => sub { … … 1066 1070 otheraddress => { 1067 1071 ro => 1, 1072 auto => 1, 1073 }, 1074 _otheraddress => { 1075 ro => 1, 1076 hide => 1, 1068 1077 reference => 'address', 1069 1078 get => sub { … … 1085 1094 }, 1086 1095 }, 1087 mainaddress => { 1096 mainaddress => { auto => 1 }, 1097 _mainaddress => { 1098 hide => 1, 1088 1099 ro => 1, 1089 1100 reference => 'address', … … 1100 1111 }, 1101 1112 }, 1102 postalAddress => { 1113 postalAddress => { auto => 1 }, 1114 _postalAddress => { 1115 hide => 1, 1103 1116 ro => 1, 1104 1117 get => sub { -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/upgrade.pm
r2256 r2262 1256 1256 ], 1257 1257 }, 1258 { 1259 ver => 34, 1260 code => sub { return 1 }, 1261 recompute => 1, 1262 }, 1258 1263 ); 1259 1264 … … 1290 1295 $maj->{ver}, 'schema_version' 1291 1296 ); 1297 1298 if ($maj->{code}) { 1299 $maj->{code}->() or return; 1300 } 1292 1301 } 1293 1302
Note: See TracChangeset
for help on using the changeset viewer.