selfforum-cgi/shared/Template/_conf.pm

   1 # Template/_conf.pm
   2
   3 # ====================================================
   4 # Autor: n.d.p. / 2001-02-20
   5 # lm   : n.d.p. / 2001-02-20
   6 # ====================================================
   7 # Funktion:
   8 #      Bereitstellung der Ausgabeparameter
   9 #      durch Kombination von User und Adminkonf.
  10 # ====================================================
  11
  12 use strict;
  13
  14 package Template::_conf;
  15
  16 # ====================================================
  17 # Funktionsexport
  18 # ====================================================
  19
  20 use base qw(Exporter);
  21 @Template::_conf::EXPORT = qw(get_view_params);
  22
  23 ################################
  24 # sub get_view_params
  25 #
  26 # Ausgabeparameter bestimmen
  27 ################################
  28
  29 sub get_view_params ($) {
  30   my $param = shift;
  31   my $default = $param -> {adminDefault};
  32   my %hash;
  33
  34   %hash = (quoting       => $default -> {View} -> {quoting},
  35            quoteChars    => $default -> {View} -> {quoteChars},
  36            sortedMsg     => $default -> {View} -> {sortMessages},
  37            sortedThreads => $default -> {View} -> {sortThreads}
  38           );
  39
  40   \%hash;
  41 }
  42
  43 # ====================================================
  44 # Modulinitialisierung
  45 # ====================================================
  46
  47 # making require happy
  48 1;
  49
  50 # ====================================================
  51 # end of Template::_conf
  52 # ====================================================