rev 1288 - trunk/siesta/lib/Siesta

[prev] [thread] [next] [lurker] [Date index for 2003/08/01]

Author: richardc
Date: 2003-08-01 17:00:35 +0100 (Fri, 01 Aug 2003)
New Revision: 1288

Modified:
   trunk/siesta/lib/Siesta/List.pm
Log:
From: Jody Belka <belkajm-siesta@xxxxxxxxxxx.xxx>
Subject: [siesta-dev] bugfix to Siesta::List::set_plugins


Modified: trunk/siesta/lib/Siesta/List.pm
===================================================================
--- trunk/siesta/lib/Siesta/List.pm	2003-08-01 14:20:12 UTC (rev 1287)
+++ trunk/siesta/lib/Siesta/List.pm	2003-08-01 16:00:35 UTC (rev 1288)
@@ -168,7 +168,7 @@
     my $pos = shift;
 
 
-	my $personal = ($plugin =~ s/^\+//);
+        my $personal = ($plugin =~ s/^\+//);
 
     my @existing = $self->plugins( $queue );
     croak "can only add 1 instance of a plugin to a queue"
@@ -190,10 +190,8 @@
                              name     => $plugin,
                              rank     => $pos,
                              list     => $self,
-							 personal => $personal,
+                             personal => $personal,
                          });
-
-	
 }
 
 
@@ -212,25 +210,25 @@
     die "'$queue' doesn't look like an queue id" unless $queue =~ /^[a-z]+$/;
 
     # first, delete the plugins that don't exist in the new order
-    for ($self->_plugins) {
+    for ($self->plugins($queue)) {
         $_->delete unless $new_rank{ $_->name };
     }
 
     # then just add new ones
-    my %old = map { $_->name => 1 } $self->_plugins;
+    my %old = map { $_->name => 1 } $self->plugins($queue);
     for my $plugin (keys %new_rank) {
-		my $personal = ($plugin =~ s/^\+//);
+                my $personal = ($plugin =~ s/^\+//);
         next if $old{ $plugin };
         Siesta::Plugin->create({ name     => $plugin,
                                  list     => $self,
                                  queue    => $queue,
                                  rank     => 0,
-								 personal => $personal,
+                                 personal => $personal,
                              });
     }
 
     # and reorder all of them
-    for ($self->_plugins) {
+    for ($self->plugins($queue)) {
         $_->rank( $new_rank{ $_->name } );
         $_->update;
     }

• rev 1288 - trunk/siesta/lib/Siesta richardc 17:00 on 01 Aug 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52