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 |