;; honey-coop -- halal honey cooperative management
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-AUTH (err u401))
(define-constant ERR-NONE (err u404))
(define-data-var member-count uint u0)
(define-data-var batch-count uint u0)
(define-data-var total-kg uint u0)
(define-map members principal { name: (string-utf8 100), hives: uint, contribution-kg: uint })
(define-map batches uint { producer: principal, kg: uint, variety: (string-ascii 30), certified: bool, block: uint })
(define-public (join-coop (name (string-utf8 100)) (hives uint))
(begin (var-set member-count (+ (var-get member-count) u1))
(map-set members tx-sender { name: name, hives: hives, contribution-kg: u0 })
(ok true)))
(define-public (submit-batch (kg uint) (variety (string-ascii 30)))
(let ((id (+ (var-get batch-count) u1))
(m (unwrap! (map-get? members tx-sender) ERR-NONE)))
(var-set batch-count id)
(var-set total-kg (+ (var-get total-kg) kg))
(map-set batches id { producer: tx-sender, kg: kg, variety: variety, certified: false, block: stacks-block-height })
(map-set members tx-sender (merge m { contribution-kg: (+ (get contribution-kg m) kg) }))
(ok id)))
(define-public (certify-batch (id uint))
(let ((b (unwrap! (map-get? batches id) ERR-NONE)))
(asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-AUTH)
(map-set batches id (merge b { certified: true })) (ok true)))
(define-read-only (get-member (addr principal)) (map-get? members addr))
(define-read-only (get-batch (id uint)) (map-get? batches id))
(define-read-only (get-total-kg) (var-get total-kg))