X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.xs;h=eb492e3f30eb104248b6cbee9095f0e2a48d0d32;hp=06dc3b1635589115b9c9db91f2c849805d8d686e;hb=bbae3fcc7f1b9cf30cbfdd1ab3d7784b618ad6cc;hpb=0d2c0f1cdeaec0675cbd0d2463858ecf834effec

diff --git a/SimpleServer.xs b/SimpleServer.xs
index 06dc3b1..eb492e3 100644
--- a/SimpleServer.xs
+++ b/SimpleServer.xs
@@ -930,6 +930,7 @@ int bend_search(void *handle, bend_search_rr *rr)
 	hv_store(href, "GHANDLE", 7, newSVsv(zhandle->ghandle), 0);
 	hv_store(href, "HANDLE", 6, zhandle->handle, 0);
 	hv_store(href, "PID", 3, newSViv(getpid()), 0);
+	hv_store(href, "PRESENT_NUMBER", 14, newSViv(rr->present_number), 0);
 	if ((rpnSV = zquery2perl(rr->query)) != 0) {
 	    hv_store(href, "RPN", 3, rpnSV, 0);
 	}