--- google/lib/CWMP/Response.pm	2007/06/19 20:46:51	49
+++ google/lib/CWMP/Response.pm	2007/06/19 21:29:04	50
@@ -84,11 +84,14 @@
 
 	confess "no ID in state ", dump( $state ) unless ( $state->{ID} );
 
+	warn "state used to generate xml = " . dump( $state ) if $self->debug;
+
 	my $X = XML::Generator->new(':pretty');
 
 	return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
-		$X->Header( $soap, 
+		$X->Header( $soap,
 			$X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} ),
+			$X->NoMoreRequests( $cwmp, $state->{NoMoreRequests} || 0 ),
 		),
 		$X->Body( $soap, $closure->( $X, $state ) ),
 	);