* Update CHANGELOG

* Backport fixes to XXV-1.0.2
* Remove query of revision by svnversion (Use maximum of modul version)
* TIMERS: Drop used function getEvents
* CHANNELS: Don't redirect if deletion of channel failed
* widget/list: avoid theoretical wrong item selection
* popularity: change layout of database table for smaller memory using

1 files changed, 13 insertions, 19 deletions

diff --git a/bin/xxvd b/bin/xxvd
index df6536c..7ffe9c1 100755
--- a/bin/xxvd
+++ b/bin/xxvd
@@ -40,7 +40,7 @@ use Locale::gettext;
 
 $|++;
 
-my $REV = &getRev() || (split(/ /, '$Revision$'))[1];
+my $REV = (split(/ /, '$Revision$'))[1];
 my $MODULES;
 my $VERSION = '1.1';
 my $VDRVERSION = 0;
@@ -276,7 +276,7 @@ sub init {
         my $moduleName = 'XXV::MODULES::'.(split('\.',(split('/', $module))[-1]))[0];
 
         # make an object for the module
-	    eval "use $moduleName";
+	      eval "use $moduleName";
         error $@ if $@;
         my $modul = $moduleName->new(
             -config => $Config,
@@ -284,12 +284,18 @@ sub init {
             -paths  => $PATHS,
         );
 
-        $MODULES->{$moduleName} = $modul if(ref $modul);
-        debug sprintf("Load modul %s(%s)",
+        if(ref $modul) {
+          $MODULES->{$moduleName} = $modul;
+          my $modRev = $modul->{MOD}->{Version};
+          debug sprintf("Load modul %s(%s)",
             $moduleName,
-            (ref $MODULES->{$moduleName})
-                ? $MODULES->{$moduleName}->{MOD}->{Version}
-                : 'failed');
+            $modRev);
+          $REV = $modRev
+            if($modRev > $REV);
+
+        } else {
+          panic sprintf("Load modul %s failed!",$moduleName);
+        }
 
     }
     &after();
@@ -433,18 +439,6 @@ sub getModule {
 }
 
 # ------------------
-sub getRev {
-# ------------------
-    my $sourcedir = $PATHS->{HTMLDIR};
-    if(-d $sourcedir and -d $sourcedir.'/.svn' and `which svnversion` ne "") {
-        my $rev = `svnversion -n $sourcedir`;
-        return $rev;
-    } else {
-        return 0;
-    }
-}
-
-# ------------------
 sub getGeneralConfig {
 # ------------------
     return $Config->{General};