|
Lines 54-59
BEGIN {
Link Here
|
| 54 |
SearchInTable |
54 |
SearchInTable |
| 55 |
UpdateInTable |
55 |
UpdateInTable |
| 56 |
GetPrimaryKeys |
56 |
GetPrimaryKeys |
|
|
57 |
clear_columns_cache |
| 57 |
); |
58 |
); |
| 58 |
%EXPORT_TAGS = ( all =>[qw( InsertInTable DeleteInTable SearchInTable UpdateInTable GetPrimaryKeys)] |
59 |
%EXPORT_TAGS = ( all =>[qw( InsertInTable DeleteInTable SearchInTable UpdateInTable GetPrimaryKeys)] |
| 59 |
); |
60 |
); |
|
Lines 252-257
sub GetPrimaryKeys($) {
Link Here
|
| 252 |
return grep { $hash_columns->{$_}->{'Key'} =~/PRI/i} keys %$hash_columns; |
253 |
return grep { $hash_columns->{$_}->{'Key'} =~/PRI/i} keys %$hash_columns; |
| 253 |
} |
254 |
} |
| 254 |
|
255 |
|
|
|
256 |
|
| 257 |
=head2 clear_columns_cache |
| 258 |
|
| 259 |
C4::SQLHelper->clear_columns_cache(); |
| 260 |
|
| 261 |
cleans the internal cache of sysprefs. Please call this method if |
| 262 |
you update a tables structure. Otherwise, your new changes |
| 263 |
will not be seen by this process. |
| 264 |
|
| 265 |
=cut |
| 266 |
|
| 267 |
sub clear_columns_cache { |
| 268 |
%$hashref = (); |
| 269 |
} |
| 270 |
|
| 271 |
|
| 272 |
|
| 255 |
=head2 _get_columns |
273 |
=head2 _get_columns |
| 256 |
|
274 |
|
| 257 |
_get_columns($tablename) |
275 |
_get_columns($tablename) |
| 258 |
- |
|
|