;; quran-hifz -- Quran memorization (hifz) progress tracker
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-AUTH (err u401))
(define-constant ERR-NONE (err u404))
(define-data-var student-count uint u0)
(define-map students uint { student: principal, teacher: principal, surahs-memorized: uint, juz-completed: uint, started: uint })
(define-map progress-logs uint { student-id: uint, surah: (string-utf8 50), status: (string-ascii 20), block: uint })
(define-data-var log-count uint u0)
(define-public (enroll-student (teacher principal))
(let ((id (+ (var-get student-count) u1)))
(var-set student-count id)
(map-set students id { student: tx-sender, teacher: teacher, surahs-memorized: u0, juz-completed: u0, started: stacks-block-height })
(ok id)))
(define-public (log-progress (student-id uint) (surah (string-utf8 50)) (status (string-ascii 20)))
(let ((id (+ (var-get log-count) u1))
(s (unwrap! (map-get? students student-id) ERR-NONE)))
(asserts! (is-eq tx-sender (get teacher s)) ERR-AUTH)
(var-set log-count id)
(map-set progress-logs id { student-id: student-id, surah: surah, status: status, block: stacks-block-height })
(map-set students student-id (merge s { surahs-memorized: (+ (get surahs-memorized s) u1) }))
(ok id)))
(define-read-only (get-student (id uint)) (map-get? students id))
(define-read-only (get-progress (id uint)) (map-get? progress-logs id))
(define-read-only (get-student-count) (var-get student-count))