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 #####################################################