--- capa/capa51/GUITools/common.funct.c	1999/11/02 19:10:44	1.2
+++ capa/capa51/GUITools/common.funct.c	2000/02/22 18:10:27	1.3
@@ -143,10 +143,39 @@ int howManySetDBFile()
   return (ii-1);
 }
 
+/* argv[1] is student number argv[2] is setnumber */
+int capaGetSpecifiCapaId(ClientData clientdata, Tcl_Interp *interp, int argc, 
+			 char *argv[])
+{
+  char buf[MAX_BUFFER_SIZE];
+  if (argc==3) {
+    sprintf(buf,"%d",capa_PIN(argv[1],atoi(argv[2]),0));
+    Tcl_AppendElement(interp,buf);
+  } else {
+    sprintf(buf,"Usage: %s StudentNumber SetNumber",argv[0]);
+    Tcl_AppendElement(interp,buf);
+  }
+  return TCL_OK;
+}
+
+/* argv[1] is student number argv[2] is section number argv[3] is setnumber */
+int capaIsSetOpen(ClientData clientdata, Tcl_Interp *interp, int argc, 
+			 char *argv[])
+{
+  char buf[MAX_BUFFER_SIZE];
+  if (argc==4) {
+    sprintf(buf,"%d",capa_check_date(CHECK_OPEN_DATE,argv[1],atoi(argv[2]),atoi(argv[3])));
+    Tcl_AppendElement(interp,buf);
+  } else {
+    sprintf(buf,"Usage: %s StudentNumber SectionNumber SetNumber",argv[0]);
+    Tcl_AppendElement(interp,buf);
+  }
+  return TCL_OK;
+}
 
 void message()
 {
-  unsigned char *message=
+  signed char *message=
 "*****                *****        ************        *****               *****\n"
 "******              ******     ******************     *****               *****\n"
 " ******            ******    ****              ****    ****               **** \n"