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>                                      #
   8 #                                                                              #
   9 # Description: combine user and default config                                 #
  10 #                                                                              #
  11 ################################################################################
  12
  13 use strict;
  14 use vars qw(
  15   @EXPORT
  16 );
  17
  18 ################################################################################
  19 #
  20 # Version check
  21 #
  22 # last modified:
  23 #    $Date$ (GMT)
  24 # by $Author$
  25 #
  26 sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
  27
  28 ################################################################################
  29 #
  30 # Export
  31 #
  32 use base qw(Exporter);
  33 @EXPORT = qw(get_view_params);
  34
  35 ### get_view_params () #########################################################
  36 #
  37 # determine output parameters
  38 #
  39 # Params: $param - hashref
  40 #
  41 # Return: hashref
  42 #
  43 sub get_view_params ($) {
  44   my $param = shift;
  45   my $default = $param -> {adminDefault};
  46   my %hash;
  47
  48   %hash = (
  49     quoting       => $default -> {View} -> {quoting},
  50     quoteChars    => $default -> {View} -> {quoteChars},
  51     sortedMsg     => $default -> {View} -> {sortMessages},
  52     sortedThreads => $default -> {View} -> {sortThreads}
  53   );
  54
  55   \%hash;
  56 }
  57
  58 # keep 'require' happy
  59 1;
  60
  61 #
  62 #
  63 ### end of Template::_conf #####################################################