Saving proposal for TAS

tasscan.c

@@ -36,6 +36,8 @@
 #include <splitter.h>
 #include <status.h>
 
+extern char *GetVarText(char *name); /* from tasscanub.c*/
+
 /*------------------------------------------------------------------------
   a little local utility for making a line of characters
   -------------------------------------------------------------------------*/
@@ -210,7 +212,7 @@ static int TASHeader(pScanData self)
      output a plethora of parameters
    */
   fprintf(self->fd, "INSTR: %s\n", pTAS->tasPar[INST]->text);
-  fprintf(self->fd, "EXPNO: \n");
+  fprintf(self->fd, "EXPNO: %s\n", GetVarText("proposalid"));
   fprintf(self->fd, "USER_: %s\n", pTAS->tasPar[USR]->text);
   fprintf(self->fd, "LOCAL: %s\n", pTAS->tasPar[LOC]->text);
   fprintf(self->fd, "FILE_: %d\n", iFileNO);