Update of /cvsroot/openinteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv30157
Modified Files:
Changes MANIFEST RELEASE SPOPS.pm
Log Message:
release, sync manifest, etc.
Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/Changes,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** Changes 2001/10/23 14:25:00 1.68
--- Changes 2001/10/26 03:22:27 1.69
***************
*** 1,5 ****
Revision history for Perl extension SPOPS.
! 0.52
Overall:
--- 1,5 ----
Revision history for Perl extension SPOPS.
! 0.52 Thu Oct 25 23:19:43 EDT 2001
Overall:
***************
*** 11,14 ****
--- 11,16 ----
examples and ideas.
+ - Enhancements to SPOPS::LDAP::Multidatasource
+
- Bugfixes, including one in SPOPS::ClassFactory::DefaultBehavior
that broke old apps using rules
***************
*** 29,33 ****
- Example of a SPOPS::ClassFactory behavior that retrieves the
! information for a particular record to use as defaults.
* eg/My/LDAPConnect.pm:
--- 31,35 ----
- Example of a SPOPS::ClassFactory behavior that retrieves the
! information from a particular record to use as defaults.
* eg/My/LDAPConnect.pm:
***************
*** 66,72 ****
- Make datasources sticky -- each object should be able to find
! out where it came from. Also override save() and remove() so that
! we first grab the right handle and pass it along to the method
! that does the real work.
--- 68,81 ----
- Make datasources sticky -- each object should be able to find
! out where it came from (modified fetch() and fetch_group_all()
! with this).
!
! - Override save() and remove() so that we first grab the right
! handle (from the datasource put into the object) and pass it along
! to the method that does the real work.
!
! - Create fetch_by_dn() so you can actually store in a group the
! DNs for objects that reside on multiple servers. (Cool!) Thanks to
! Andreas Nolte <and...@be...> for testing this out.
Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/MANIFEST,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** MANIFEST 2001/10/22 05:42:50 1.22
--- MANIFEST 2001/10/26 03:22:27 1.23
***************
*** 65,68 ****
--- 65,69 ----
eg/fetch_doodads.pl
eg/find_defaults_demo.pl
+ eg/ldap_multidatasource.pl
eg/stock_doodads.pl
eg/stock_user_group.pl
***************
*** 75,78 ****
--- 76,80 ----
eg/My/Common.pm
eg/My/Group.pm
+ eg/My/LDAPConnect.pm
eg/My/Security.pm
eg/My/User.pm
Index: RELEASE
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/RELEASE,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** RELEASE 2001/10/15 04:28:24 1.8
--- RELEASE 2001/10/26 03:22:27 1.9
***************
*** 2,5 ****
--- 2,10 ----
=========================
+ 0.52 Thu Oct 25 23:19:43 EDT 2001
+
+ * Bugfixes, enhancements. Nothing major.
+
+
0.51 Sun Oct 14 20:23:59 EDT 2001
Index: SPOPS.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** SPOPS.pm 2001/10/23 12:19:29 1.53
--- SPOPS.pm 2001/10/26 03:22:27 1.54
***************
*** 15,19 ****
@SPOPS::ISA = qw( Exporter Storable );
@SPOPS::EXPORT_OK = qw( _w _wm DEBUG );
! $SPOPS::VERSION = '0.51a';
$SPOPS::Revision = substr(q$Revision$, 10);
--- 15,19 ----
@SPOPS::ISA = qw( Exporter Storable );
@SPOPS::EXPORT_OK = qw( _w _wm DEBUG );
! $SPOPS::VERSION = '0.52';
$SPOPS::Revision = substr(q$Revision$, 10);
***************
*** 176,180 ****
my %initial_data = ();
my $id_field = $class->id_field;
! $initial_data{ $id_field } = $p->{ $id_field } || $p->{id};
while ( my ( $k, $v ) = each %{ $self } ) {
--- 176,182 ----
my %initial_data = ();
my $id_field = $class->id_field;
! if ( $id_field ) {
! $initial_data{ $id_field } = $p->{ $id_field } || $p->{id};
! }
while ( my ( $k, $v ) = each %{ $self } ) {
|
