|
Lines 87-92
sub MultivaluePreference {
Link Here
|
| 87 |
return C4::Context->multivalue_preference($pref); |
87 |
return C4::Context->multivalue_preference($pref); |
| 88 |
} |
88 |
} |
| 89 |
|
89 |
|
|
|
90 |
=head3 debug_flag |
| 91 |
|
| 92 |
This method checks if the currently logged in user is allowed |
| 93 |
access to the new debug ui permission. It should return |
| 94 |
0 if no one is logged in or context is unavailable for some other reason |
| 95 |
or they do not have the permission |
| 96 |
1 if they are a superlibrarian |
| 97 |
1<<31 if they do have the permission |
| 98 |
|
| 99 |
=cut |
| 100 |
|
| 101 |
sub debug_flag { |
| 102 |
return 0 unless C4::Context->userenv(); |
| 103 |
return 1 if C4::Context->IsSuperLibrarian(); |
| 104 |
my $flags = C4::Context->userenv()->{'flags'}; |
| 105 |
my $mask = 1 << 31; |
| 106 |
return $flags & $mask; |
| 107 |
|
| 108 |
} |
| 109 |
|
| 90 |
=head3 CSVDelimiter |
110 |
=head3 CSVDelimiter |
| 91 |
|
111 |
|
| 92 |
The delimiter option 'tabs' is stored in the DB as 'tabulation' to avoid issues |
112 |
The delimiter option 'tabs' is stored in the DB as 'tabulation' to avoid issues |