[siesta-commit] siesta/lib/Siesta Plugin.pm,1.28,1.29 Preferences.pm,1.1,1.2 Storage.pm,1.20,1.21

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

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

Modified Files:
	Plugin.pm Preferences.pm Storage.pm 
Log Message:
perltidy

Index: Plugin.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- Plugin.pm	17 Oct 2002 11:52:18 -0000	1.28
+++ Plugin.pm	17 Oct 2002 12:57:29 -0000	1.29
@@ -65,7 +65,7 @@
     my $list_id = defined $mail->list ? $mail->list->id() : undef;
     my $user_id = defined $mail->user ? $mail->user->id() : undef;
 
-    return Siesta::Preferences::delete ( $package, $user_id, $list_id, @_ );
+    return Siesta::Preferences::delete( $package, $user_id, $list_id, @_ );
 }
 
 =item ->options()

Index: Preferences.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Preferences.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Preferences.pm	17 Oct 2002 11:52:18 -0000	1.1
+++ Preferences.pm	17 Oct 2002 12:57:29 -0000	1.2
@@ -18,8 +18,6 @@
 
 =cut
 
-
-
 sub preference {
 
     my ( $namespace, $user_id, $list_id, $key, $value ) = @_;
@@ -33,10 +31,10 @@
 
     # if we haven't been passed a value then fetch and return it
     return _get( $namespace, $user_id, $list_id, $key )
-    	unless defined $value;
-
-    return Siesta->storage->set_preference( $namespace, $user_id, $list_id, $key, $value );
+      unless defined $value;
 
+    return Siesta->storage->set_preference( $namespace, $user_id, $list_id,
+                                            $key, $value );
 
 }
 
@@ -59,7 +57,8 @@
 
     unless ( $user_id eq '' || $list_id eq '' ) {
         my $return =
-         Siesta->storage->get_preference( $namespace, $user_id, $list_id, $key );
+          Siesta->storage->get_preference( $namespace, $user_id, $list_id,
+                                           $key );
         return $return
           if defined $return;
     }

Index: Storage.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Storage.pm	17 Oct 2002 11:52:18 -0000	1.20
+++ Storage.pm	17 Oct 2002 12:57:29 -0000	1.21
@@ -31,8 +31,8 @@
 
 sub user_lists { die "virtual" }
 
-sub get_preference { die "virtual" }
-sub set_preference { die "virtual" }
+sub get_preference    { die "virtual" }
+sub set_preference    { die "virtual" }
 sub delete_preference { die "virtual" }
 
 =item ->init_db ($db)

• [siesta-commit] siesta/lib/Siesta Plugin.pm,1.28,1.29 Preferences.pm,1.1,1.2 Storage.pm,1.20,1.21 clampr 13:57 on 17 Oct 2002

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