r1419 - in packages/libuser-simple-perl/branches/upstream/current: . lib/User lib/User/Simple

[Gunnar Wolf]

Author: gwolf
Date: 2005-10-12 23:14:52 +0000 (Wed, 12 Oct 2005)
New Revision: 1419

Modified:
   packages/libuser-simple-perl/branches/upstream/current/Changes
   packages/libuser-simple-perl/branches/upstream/current/META.yml
   packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple.pm
   packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple/Admin.pm
Log:
Load /tmp/tmp.cT80eg/libuser-simple-perl-1.35 into
packages/libuser-simple-perl/branches/upstream/current.


Modified: packages/libuser-simple-perl/branches/upstream/current/Changes
===================================================================
--- packages/libuser-simple-perl/branches/upstream/current/Changes	2005-10-12 23:12:55 UTC (rev 1418)
+++ packages/libuser-simple-perl/branches/upstream/current/Changes	2005-10-12 23:14:52 UTC (rev 1419)
@@ -1,5 +1,10 @@
 Revision history for Perl extension User::Simple.
 
+1.35
+        - Gah... Using DBD::XBase in the tests lets many subtle
+          problems slip by... For example, 1.3 was released with a
+          broken User::Admin::new_user :-/
+
 1.3 Thu Oct  6 13:21:56 CDT 2005
 	- By popular demand, User::Simple (not necessarily from within
 	  ::Admin) can modify the user data - Not only that, but also

Modified: packages/libuser-simple-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libuser-simple-perl/branches/upstream/current/META.yml	2005-10-12 23:12:55 UTC (rev 1418)
+++ packages/libuser-simple-perl/branches/upstream/current/META.yml	2005-10-12 23:14:52 UTC (rev 1419)
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         User-Simple
-version:      1.3
+version:      1.35
 version_from: lib/User/Simple.pm
 installdirs:  site
 requires:

Modified: packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple/Admin.pm
===================================================================
--- packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple/Admin.pm	2005-10-12 23:12:55 UTC (rev 1418)
+++ packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple/Admin.pm	2005-10-12 23:14:52 UTC (rev 1419)
@@ -158,8 +158,8 @@
 
 Modifies the requested attribute of the specified user, setting it to the new 
 value. Except for the login, they can all be set to null values - If the 
-password is set to a null value, the account will be locked (that is, no
-password will be accepted). The internal attributes C<id>, C<session> and 
+password is set to a null or empty value, the account will be locked (that is, 
+no password will be accepted). The internal attributes C<id>, C<session> and 
 C<session_exp> cannot be directly modified (you have the C<id> as the hash 
 keys).
 
@@ -515,7 +515,7 @@
 	$id++;
 
 	$sth = $db->prepare("INSERT INTO $self->{tbl} (id, login) 
-            VALUES (?, ?, ?, ?)");
+            VALUES (?, ?)");
 	$sth->execute($id, $param{login});
 
 	# But just to be sure, lets retreive the ID from the login.

Modified: packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple.pm
===================================================================
--- packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple.pm	2005-10-12 23:12:55 UTC (rev 1418)
+++ packages/libuser-simple-perl/branches/upstream/current/lib/User/Simple.pm	2005-10-12 23:14:52 UTC (rev 1419)
@@ -120,6 +120,11 @@
 C<User::Simple> anyway, as changes are transparent. Some minor API changes do 
 happen in C<User::Simple::Admin>, though. 
 
+Extended attributes are not checked in any way by User::Simple, they are just 
+stored in the database just as they are received - Some DBDs might not even
+verify they are of the correct data type. As always, if you want to ensure
+consistence, use a real RDBMS.
+
 Of course, beware: if the field does not exist, User::Simple will raise an 
 error and die just as if an unknown method had been called.
 
@@ -164,7 +169,7 @@
 use UNIVERSAL qw(isa);
 
 our $AUTOLOAD;
-our $VERSION = '1.3';
+our $VERSION = '1.35';
 
 ######################################################################
 # Constructor/destructor