verification-system
SP3WW7HZBWTXRQ14134RMJ7SH1Q83CVD9PVW5SSPWSource Code
;; Verification System
(define-constant contract-owner tx-sender)
(define-map verified-products uint bool)
(define-public (verify-product (product-id uint))
(begin
(asserts! (is-eq tx-sender contract-owner) (err u100))
(map-set verified-products product-id true)
(ok true)
)
)
Functions (1)
| Function | Access | Args |
|---|---|---|
| verify-product | public | product-id: uint |