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 = (quoteChars    => $default -> {View} -> {quoteChars},
  35            sortedMsg     =>  $default -> {View} -> {sortMessages},
  36            sortedThreads => $default -> {View} -> {sortThreads}
  37           );
  38
  39   \%hash;
  40 }
  41
  42 # ====================================================
  43 # Modulinitialisierung
  44 # ====================================================
  45
  46 # making require happy
  47 1;
  48
  49 # ====================================================
  50 # end of Template::_conf
  51 # ====================================================