partner-network
SP1HGXPGWSHPHW3PNC66FWQ5VG1PFNYKBCV82FWNKSource Code
;; Referral System - Track referrals
(define-map referrals {referrer: principal, referred: principal} {active: bool})
(define-public (add-referral (referred principal))
(begin
(map-set referrals {referrer: tx-sender, referred: referred} {active: true})
(ok true)))
(define-read-only (get-referral (referrer principal) (referred principal))
(map-get? referrals {referrer: referrer, referred: referred}))
Functions (2)
| Function | Access | Args |
|---|---|---|
| add-referral | public | referred: principal |
| get-referral | read-only | referrer: principal, referred: principal |