|
Lines 55-60
sub Preference {
Link Here
|
| 55 |
return C4::Context->preference( $pref ); |
55 |
return C4::Context->preference( $pref ); |
| 56 |
} |
56 |
} |
| 57 |
|
57 |
|
|
|
58 |
=head3 CSVDelimiter |
| 59 |
|
| 60 |
The delimiter option 'tabs' is stored in the DB as 'tabulation' to avoid issues |
| 61 |
storing special characters in the DB. This helper function translates the value |
| 62 |
to the correct character when used in templates. |
| 63 |
|
| 64 |
You can, optionally, pass a value parameter to this routine in the case of delimiter |
| 65 |
being fetched in the scripts and still needing to be translated |
| 66 |
|
| 67 |
=cut |
| 68 |
|
| 58 |
sub CSVDelimiter { |
69 |
sub CSVDelimiter { |
| 59 |
my ( $self, $val ) = @_; |
70 |
my ( $self, $val ) = @_; |
| 60 |
my $sep = $val || C4::Context->preference('CSVDelimiter') || ','; |
71 |
my $sep = $val || C4::Context->preference('CSVDelimiter') || ','; |
| 61 |
- |
|
|