package-builder
SPXQTAY82XX699XMKAH7GXT3M6S76HESZJQWD8KWSource Code
;; Service Bundles - Bundle services
(define-map bundles uint {creator: principal, name: (string-ascii 100), price: uint})
(define-data-var bundle-id uint u0)
(define-public (create-bundle (name (string-ascii 100)) (price uint))
(let ((id (var-get bundle-id)))
(map-set bundles id {creator: tx-sender, name: name, price: price})
(var-set bundle-id (+ id u1))
(ok id)))
(define-read-only (get-bundle (id uint))
(map-get? bundles id))
Functions (2)
| Function | Access | Args |
|---|---|---|
| create-bundle | public | name: (string-ascii 100 |
| get-bundle | read-only | id: uint |