[Slim-Checkins] r11066 - /trunk/server/Slim/Plugin/Base.pm

[adrian at svn.slimdevices.com]

Author: adrian
Date: Sun Dec 31 05:18:51 2006
New Revision: 11066

URL: http://svn.slimdevices.com?rev=11066&view=rev
Log:
Bug: N/A
Description: whitespace (avoid mix of spaces and tabs)

Modified:
    trunk/server/Slim/Plugin/Base.pm

Modified: trunk/server/Slim/Plugin/Base.pm
URL: http://svn.slimdevices.com/trunk/server/Slim/Plugin/Base.pm?rev=11066&r1=11065&r2=11066&view=diff
==============================================================================
--- trunk/server/Slim/Plugin/Base.pm (original)
+++ trunk/server/Slim/Plugin/Base.pm Sun Dec 31 05:18:51 2006
@@ -11,7 +11,7 @@
 use constant PLUGINMENU => 'PLUGINS';
 
 sub initPlugin {
-        my $class = shift;
+	my $class = shift;
 	my $args  = shift;
 
 	my $name  = $class->displayName;
@@ -25,22 +25,22 @@
 
 		my $exitMode = $class->can('exitMode') ? sub { $class->exitMode(@_) } : undef;
 
-	        Slim::Buttons::Common::addMode($class, $class->getFunctions, sub { $class->setMode(@_) }, $exitMode);
+		Slim::Buttons::Common::addMode($class, $class->getFunctions, sub { $class->setMode(@_) }, $exitMode);
 	}
 
-        my %params = (
-                'useMode' => $class,
-                'header'  => $name,
-        );
+	my %params = (
+		'useMode' => $class,
+		'header'  => $name,
+	);
 
-        # Add toplevel info for the option of having a plugin at the top level.
-        Slim::Buttons::Home::addMenuOption($name, \%params);
+	# Add toplevel info for the option of having a plugin at the top level.
+	Slim::Buttons::Home::addMenuOption($name, \%params);
 
-        Slim::Buttons::Home::addSubMenu($menu, $name, \%params);
+	Slim::Buttons::Home::addSubMenu($menu, $name, \%params);
 
 	if ($menu ne PLUGINMENU) {
 
-        	Slim::Buttons::Home::addSubMenu(PLUGINMENU, $menu, Slim::Buttons::Home::getMenu("-$menu"));
+		Slim::Buttons::Home::addSubMenu(PLUGINMENU, $menu, Slim::Buttons::Home::getMenu("-$menu"));
 	}
 
 	#logWarning("Adding $name to menu $menu");
@@ -85,12 +85,13 @@
 sub getFunctions {
 	my $class = shift;
 
-        return {};
+	return {};
 }
 
 sub setMode {
-        my $client = shift;
-        my $method = shift;
+	my $class = shift;
+	my $client = shift;
+	my $method = shift;
 
 	return;
 }