X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/489e7846289d4fb66eb4b9fab0fed4af719b98ee..a9a9cc16143ab7c16c4f140df5dff8473ed99119:/selfforum-cgi/shared/Template/_conf.pm?ds=sidebyside diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm index 6f1e130..01100a5 100644 --- a/selfforum-cgi/shared/Template/_conf.pm +++ b/selfforum-cgi/shared/Template/_conf.pm @@ -1,52 +1,63 @@ -# Template/_conf.pm +package Template::_conf; -# ==================================================== -# Autor: n.d.p. / 2001-02-20 -# lm : n.d.p. / 2001-02-20 -# ==================================================== -# Funktion: -# Bereitstellung der Ausgabeparameter -# durch Kombination von User und Adminkonf. -# ==================================================== +################################################################################ +# # +# File: shared/Template/_conf.pm # +# # +# Authors: André Malo # +# # +# Description: combine user and default config # +# # +################################################################################ use strict; +use vars qw( + @EXPORT +); -package Template::_conf; - -# ==================================================== -# Funktionsexport -# ==================================================== +################################################################################ +# +# Version check +# +# last modified: +# $Date$ (GMT) +# by $Author$ +# +sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} +################################################################################ +# +# Export +# use base qw(Exporter); -@Template::_conf::EXPORT = qw(get_view_params); +@EXPORT = qw(get_view_params); -################################ -# sub get_view_params +### get_view_params () ######################################################### +# +# determine output parameters +# +# Params: $param - hashref +# +# Return: hashref # -# Ausgabeparameter bestimmen -################################ - sub get_view_params ($) { my $param = shift; my $default = $param -> {adminDefault}; my %hash; - %hash = (quoting => $default -> {View} -> {quoting}, - quoteChars => $default -> {View} -> {quoteChars}, - sortedMsg => $default -> {View} -> {sortMessages}, - sortedThreads => $default -> {View} -> {sortThreads} - ); + %hash = ( + quoting => $default -> {View} -> {quoting}, + quoteChars => $default -> {View} -> {quoteChars}, + sortedMsg => $default -> {View} -> {sortMessages}, + sortedThreads => $default -> {View} -> {sortThreads} + ); \%hash; } -# ==================================================== -# Modulinitialisierung -# ==================================================== - -# making require happy +# keep 'require' happy 1; -# ==================================================== -# end of Template::_conf -# ==================================================== \ No newline at end of file +# +# +### end of Template::_conf ##################################################### \ No newline at end of file