]> git.p6c8.net - selfforum.git/blob - selfforum-cgi/shared/Template/_conf.pm
626815b5f995c10b7d52cbfb57f782ae8ccbf913
[selfforum.git] / selfforum-cgi / shared / Template / _conf.pm
1 package Template::_conf;
2
3 ################################################################################
4 # #
5 # File: shared/Template/_conf.pm #
6 # #
7 # Authors: André Malo <nd@o3media.de>, 2001-06-16 #
8 # #
9 # Description: combine user and default config #
10 # #
11 ################################################################################
12
13 use strict;
14 use vars qw(
15 @EXPORT
16 $VERSION
17 );
18
19 ################################################################################
20 #
21 # Version check
22 #
23 $VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
24
25 ################################################################################
26 #
27 # Export
28 #
29 use base qw(Exporter);
30 @EXPORT = qw(get_view_params);
31
32 ### get_view_params () #########################################################
33 #
34 # determine output parameters
35 #
36 # Params: $param - hashref
37 #
38 # Return: hashref
39 #
40 sub get_view_params ($) {
41 my $param = shift;
42 my $default = $param -> {adminDefault};
43 my %hash;
44
45 %hash = (
46 quoting => $default -> {View} -> {quoting},
47 quoteChars => $default -> {View} -> {quoteChars},
48 sortedMsg => $default -> {View} -> {sortMessages},
49 sortedThreads => $default -> {View} -> {sortThreads}
50 );
51
52 \%hash;
53 }
54
55 # keep 'require' happy
56 1;
57
58 #
59 #
60 ### end of Template::_conf #####################################################

patrick-canterino.de