From bf54a33472a858abd6fb0e6cfa37b5e2fc363615 Mon Sep 17 00:00:00 2001
From: Ralf Ertzinger <ralf@skytale.net>
Date: Wed, 24 Apr 2013 13:39:40 +0200
Subject: [PATCH] Remove _prepare_parameters() and mergeconfig()

---
 videosite/Base.pm | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 3c3dd70..c641f2d 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -24,8 +24,6 @@ sub new {
     $self->{_PARAMS}->{enabled} = [1, 'Whether the module is enabled'];
     bless($self, $class);
 
-    $self->_prepare_parameters();
-
     return $self;
 }
 
@@ -46,33 +44,6 @@ sub debug {
     if ($self->{'_DEBUG'} != 0) {$self->error(@data)};
 }
 
-sub mergeconfig {
-    my $self = shift;
-    my $c = shift;
-    my $o;
-
-    return $self->{'_CONFIG'} unless defined($c);
-
-    foreach $o (keys(%{$c->{'option'}})) {
-        if (exists($self->{'_CONFIG'}->{'option'}->{$o})) {
-            $self->{'_CONFIG'}->{'option'}->{$o}->{'content'} = $c->{'option'}->{$o}->{'content'};
-        }
-    }
-
-    return $self->{'_CONFIG'};
-}
-
-sub _prepare_parameters {
-    my $self = shift;
-    my $p;
-
-    $self->{'_CONFIG'} = {'option' => {'enabled' => {'content' => '1'}}};
-
-    foreach $p (keys(%{$self->{'_PARAMS'}})) {
-        $self->{'_CONFIG'}->{'option'}->{$p}->{'content'} = $self->{'_PARAMS'}->{$p}->[0];
-    }
-}
-
 sub _getval {
     my $self = shift;
     my $key = shift;
-- 
1.8.3.1