Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Control
In directory sc8-pr-cvs1:/tmp/cvs-serv29845/lib/Net/LDAP/Control
Modified Files:
VLVResponse.pm
Log Message:
Fix VLV response extraction. Patch from Paul Connolly
Index: VLVResponse.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Control/VLVResponse.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- VLVResponse.pm 24 Aug 2001 19:31:14 -0000 1.4
+++ VLVResponse.pm 7 Apr 2003 15:05:14 -0000 1.5
@@ -8,7 +8,7 @@
use Net::LDAP::Control;
@ISA = qw(Net::LDAP::Control);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(VirtualListViewResponse);
use strict;
@@ -22,10 +22,10 @@
else {
my $asn = $self->{asn} = {};
- $asn->{targetPosition} = $self->{target} || 0;
- $asn->{contentCount} = $self->{content} || 0;
- $asn->{virtualListViewResult} = $self->{result} || 0;
- $asn->{context} = $self->{context} || undef;
+ $asn->{targetPosition} = $self->{target} || 0;
+ $asn->{contentCount} = $self->{content} || 0;
+ $asn->{virtualListViewResult} = $self->{result} || 0;
+ $asn->{contextID} = $self->{contextID} || undef;
}
$self;
@@ -63,9 +63,9 @@
my $self = shift;
if (@_) {
delete $self->{value};
- return $self->{asn}{context} = shift;
+ return $self->{asn}{contextID} = shift;
}
- $self->{asn}{context};
+ $self->{asn}{contextID};
}
sub value {
|
