product-registry
SP3WW7HZBWTXRQ14134RMJ7SH1Q83CVD9PVW5SSPWSource Code
;; Product Registry
(define-data-var next-product-id uint u1)
(define-map products uint { manufacturer: principal, name: (string-ascii 64), verified: bool })
(define-public (register-product (name (string-ascii 64)))
(let ((product-id (var-get next-product-id)))
(map-set products product-id { manufacturer: tx-sender, name: name, verified: false })
(var-set next-product-id (+ product-id u1))
(ok product-id)
)
)
Functions (1)
| Function | Access | Args |
|---|---|---|
| register-product | public | name: (string-ascii 64 |