[siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.34,1.35

[prev] [thread] [next] [lurker] [Date index for 2002/10/17]

Update of /cvsroot/siesta/siesta/lib/Siesta/Storage
In directory usw-pr-cvs1:/tmp/cvs-serv785/lib/Siesta/Storage

Modified Files:
	DBI.pm 
Log Message:
perltidy

Index: DBI.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/DBI.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- DBI.pm	17 Oct 2002 11:52:19 -0000	1.34
+++ DBI.pm	17 Oct 2002 12:57:29 -0000	1.35
@@ -279,7 +279,6 @@
     return map { Siesta::List->new( $_->{list_id} ) } @results;
 }
 
-
 # add plugin into the processing queue for a list
 # providing a number will insert at that position.
 # otherwise it will be added at the end. Position 
@@ -339,43 +338,35 @@
     return 1;
 }
 
-
 # sets a preference value 
-sub set_preference
-{
-    my ($self, $namespace, $user_id, $list_id, $key, $value ) = @_;
+sub set_preference {
+    my ( $self, $namespace, $user_id, $list_id, $key, $value ) = @_;
 
     # make sure they're not undef
     $user_id ||= '';
     $list_id ||= '';
 
-
-
     $self->_update_or_insert(
                               table => 'config',
                               where => {
                                          namespace => $namespace,
                                          user_id   => $user_id,
                                          list_id   => $list_id,
-                                         key	   => $key
+                                         key       => $key
                               },
                               row => {
                                        namespace => $namespace,
                                        user_id   => $user_id,
                                        list_id   => $list_id,
-                                       key	 => $key,
+                                       key       => $key,
                                        value     => $value
                               },
                               );
 
 }
 
-
-
-sub get_preference
-{
-    my ($self,  $namespace, $user_id, $list_id, $key) = @_;
-
+sub get_preference {
+    my ( $self, $namespace, $user_id, $list_id, $key ) = @_;
 
     # just to be sure
     $user_id ||= '';
@@ -398,9 +389,9 @@
 
 }
 
-sub delete_preference
-{
-    my ($self,  $namespace, $user_id, $list_id, $key) = @_;
+sub delete_preference {
+    my ( $self, $namespace, $user_id, $list_id, $key ) = @_;
+
     # just to be sure
     $user_id ||= '';
     $list_id ||= '';
@@ -418,10 +409,7 @@
 
     my @results = $self->_delete(%args);
 
-
-
 }
-
 
 1;
 

• [siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.34,1.35 clampr 13:57 on 17 Oct 2002

Generated at 08:01 on 28 Dec 2006 by mariachi 0.52