[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP/Control VLVResponse.pm,1.4,1.5

[Graham B. <gb...@us...>]

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 {