Base: Use proper access method for config values

diff --git a/videosite/Base.pm b/videosite/Base.pm
index d9e2044..415f961 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -84,7 +84,7 @@ sub getconfstr {
     my $p;
 
     foreach $k (keys(%{$self->{'_PARAMS'}})) {
     my $p;
 
     foreach $k (keys(%{$self->{'_PARAMS'}})) {

-        $p = $self->{_API}->{config_get}->{$k};
+        $p = $self->_getval($k);

         $s .= sprintf("  %s: %s", $k, $p);
         if ($p eq $self->{'_PARAMS'}->{$k}->[0]) {
             $s .= " (default)\n";
         $s .= sprintf("  %s: %s", $k, $p);
         if ($p eq $self->{'_PARAMS'}->{$k}->[0]) {
             $s .= " (default)\n";