From 58a8bd00b0c2ad870727aa09628d769a384b2f35 Mon Sep 17 00:00:00 2001
From: koennecke <mark.koennecke@psi.ch>
Date: Mon, 27 Feb 2017 09:56:00 +0100
Subject: [PATCH] Write proposalID to TASP data files

---
 tasscan.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tasscan.c b/tasscan.c
index 5a5bc1a..c0f628e 100644
--- a/tasscan.c
+++ b/tasscan.c
@@ -272,6 +272,11 @@ static int TASHeader(pScanData self)
           pTAS->tasPar[BX]->fVal, pTAS->tasPar[BY]->fVal,
           pTAS->tasPar[BZ]->fVal);
 
+  sVar = FindCommandData(pServ->pSics, "ProposalID", "SicsVariable");
+  if (sVar != NULL) {
+    fprintf(self->fd,"PARAM: ProposalID=%s\n",sVar->text);
+  }
+
   /*
    * write mupad stuff if available
    */