badge-reader

;; Badge Reader Contract
;; Implements badge lookup and reading functionality

(use-trait badge-reader-trait .badge-reader-trait.badge-reader)

;; Constants
(define-constant err-not-found (err u102))

;; Read badge metadata by ID
(define-read-only (get-badge-metadata (badge-id uint))
  (match (contract-call? .badge-metadata get-badge-metadata badge-id)
    metadata (ok {
      level: (get level metadata),
      category: (get category metadata),
      timestamp: (get timestamp metadata)
    })
    (err err-not-found)
  )
)

;; Get badge owner from NFT contract
(define-read-only (get-badge-owner (badge-id uint))
  (contract-call? .passport-nft get-owner badge-id)
)

;; Get all badges for a user
(define-read-only (get-user-badges (user principal))
  (ok (get badge-ids (contract-call? .badge-metadata get-user-badges user)))
)

;; Check if badge exists and is active
(define-read-only (badge-exists (badge-id uint))
  (match (contract-call? .badge-metadata get-badge-metadata badge-id)
    metadata (ok (get active metadata))
    (ok false)
  )
)

;; Get badge template information
(define-read-only (get-badge-template (template-id uint))
  (match (contract-call? .badge-metadata get-badge-template template-id)
    template (ok {
      name: (get name template),
      description: (get description template)
    })
    (err err-not-found)
  )
)

;; Get full badge information (metadata + template)
(define-read-only (get-full-badge-info (badge-id uint))
  (let
    (
      (metadata (unwrap! (contract-call? .badge-metadata get-badge-metadata badge-id) err-not-found))
      (owner (unwrap! (contract-call? .passport-nft get-owner badge-id) err-not-found))
    )
    (ok {
      id: badge-id,
      owner: owner,
      level: (get level metadata),
      category: (get category metadata),
      timestamp: (get timestamp metadata),
      issuer: (get issuer metadata),
      active: (get active metadata)
    })
  )
)

;; Get badges by category for a user
(define-read-only (get-user-badges-by-category (user principal) (category uint))
  (let
    (
      (user-badges (get badge-ids (contract-call? .badge-metadata get-user-badges user)))
    )
    (ok (filter check-badge-category user-badges))
  )
)

;; Helper function to check badge category
(define-private (check-badge-category (badge-id uint))
  (match (contract-call? .badge-metadata get-badge-metadata badge-id)
    metadata (is-eq (get category metadata) u1) ;; placeholder category check
    false
  )
)

;; Get active badges count for user
(define-read-only (get-active-badges-count (user principal))
  (let
    (
      (user-badges (get badge-ids (contract-call? .badge-metadata get-user-badges user)))
    )
    (ok (len (filter check-badge-active user-badges)))
  )
)

;; Helper function to check if badge is active
(define-private (check-badge-active (badge-id uint))
  (match (contract-call? .badge-metadata get-badge-metadata badge-id)
    metadata (get active metadata)
    false
  )
)