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 use vars qw(@ISA @EXPORT);
  17
  18 # ====================================================
  19 # Funktionsexport
  20 # ====================================================
  21
  22 require Exporter;
  23 @ISA    = qw(Exporter);
  24 @EXPORT = qw(get_view_params);
  25
  26 ################################
  27 # sub get_view_params
  28 #
  29 # Ausgabeparameter bestimmen
  30 ################################
  31
  32 sub get_view_params ($) {
  33   my $param = shift;
  34   my $default = $param -> {adminDefault};
  35   my %hash;
  36
  37   %hash = (quoteChars    => $default -> {View} -> {quoteChars},
  38            sortedMsg     =>  $default -> {View} -> {sortMessages},
  39            sortedThreads => $default -> {View} -> {sortThreads}
  40           );
  41
  42   \%hash;
  43 }
  44
  45 # ====================================================
  46 # Modulinitialisierung
  47 # ====================================================
  48
  49 # making require happy
  50 1;
  51
  52 # ====================================================
  53 # end of Template::_conf
  54 # ====================================================