Source Code

;; halal-audit -- halal certification audit tracker
(define-constant CONTRACT-OWNER tx-sender)
(define-data-var audit-count uint u0)
(define-map audits uint { auditor: principal, business: (string-ascii 30), status: (string-ascii 10), score: uint, block: uint })
(define-public (submit-audit (business (string-ascii 30)) (status (string-ascii 10)) (score uint))
  (let ((id (+ (var-get audit-count) u1)))
    (var-set audit-count id)
    (map-set audits id { auditor: tx-sender, business: business, status: status, score: score, block: stacks-block-height }) (ok id)))
(define-read-only (get-audit (id uint)) (map-get? audits id))
(define-read-only (get-count) (var-get audit-count))

Functions (3)

FunctionAccessArgs
submit-auditpublicbusiness: (string-ascii 30
get-auditread-onlyid: uint
get-countread-only