gnue/gnue-config base/company/classes/company.g...

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/05/15 10:18:17

Modified files:
        gnue-config/base/company/classes: company.gcd 
        gnue-config/base/person/classes: person.gcd 
        gnue-config/supply-chain/vendor/classes: vendor.gcd 

Log message:
        More updates to fix geas parser issues.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/company/classes/company.gcd.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/person/classes/person.gcd.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd.diff?cvsroot=OldCVS&tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: gnue/gnue-config/base/company/classes/company.gcd
diff -u gnue/gnue-config/base/company/classes/company.gcd:1.2 
gnue/gnue-config/base/company/classes/company.gcd:1.3
--- gnue/gnue-config/base/company/classes/company.gcd:1.2       Mon May 14 
07:54:34 2001
+++ gnue/gnue-config/base/company/classes/company.gcd   Tue May 15 10:18:17 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.2 $ $Date: 2001/05/14 14:54:34 $ $Author: ntiffin $
+# $Revision: 1.3 $ $Date: 2001/05/15 17:18:17 $ $Author: ntiffin $
 #
 include "../../../base/person/classes/person.gcd"
 include "../../../base/location/classes/address.gcd"
@@ -34,7 +34,7 @@
   # -------------------------------------------------------------------------
   class contact
   {
-    person::person  person;
+    person::person  name;
     char            code<8>;  # type of contact   
   };
 
Index: gnue/gnue-config/base/person/classes/person.gcd
diff -u gnue/gnue-config/base/person/classes/person.gcd:1.11 
gnue/gnue-config/base/person/classes/person.gcd:1.12
--- gnue/gnue-config/base/person/classes/person.gcd:1.11        Mon May 14 
07:16:57 2001
+++ gnue/gnue-config/base/person/classes/person.gcd     Tue May 15 10:18:17 2001
@@ -22,9 +22,11 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.11 $ $Date: 2001/05/14 14:16:57 $ $Author: ntiffin $
+# $Revision: 1.12 $ $Date: 2001/05/15 17:18:17 $ $Author: ntiffin $
 #
 
+include "../../../base/location/classes/address.gcd"
+
 module person {
 
   # ----------------------------------------------
@@ -67,7 +69,7 @@
   # ----------------------------------------------
   class comm
   {
-    comm_type    *type;
+    person::comm_type    *atype;
     char         address<70>;
     char         remark<70>;
   };
@@ -89,9 +91,9 @@
     
                # name_prefix + given_names + other_name
                #       + surname + name_postfix
-   text get_full_name();   # Mr. Frank N. Furter Sr.
+   #text get_full_name();   # Mr. Frank N. Furter Sr.
                # name_prefix + surname
-    text get_polite_name(); # Mr. Furter
+    #text get_polite_name(); # Mr. Furter
   };
   
   # ----------------------------------------------
Index: gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd
diff -u gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.12 
gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.13
--- gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd:1.12        Mon May 
14 07:16:57 2001
+++ gnue/gnue-config/supply-chain/vendor/classes/vendor.gcd     Tue May 15 
10:18:17 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.12 $ $Date: 2001/05/14 14:16:57 $ $Author: ntiffin $
+# $Revision: 1.13 $ $Date: 2001/05/15 17:18:17 $ $Author: ntiffin $
 #
 include "../../../base/company/classes/company.gcd"
 
@@ -39,6 +39,7 @@
     #status_code  code;
     char         code<8>;
     char         description<25>;
+    
     INDEX (code);
   };
     
@@ -59,7 +60,8 @@
   # -------------------------------------------------------------------------
   class vendor : company::company
   {
-
+    text  notes;                      # notes specific to vendors
+    
     #vendor_status_code  code;        # Approved, dont use etc.
     #LOOKUP status : vendor::vendorStatus(code).description = statuscode;