11 lines
333 B
Clojure
11 lines
333 B
Clojure
(ns ldview.models.source
|
|
(:use korma.core
|
|
[ldview.models.db]))
|
|
|
|
(defn create! [entry_id uri description]
|
|
(if (empty? (select sources (where {:entry_id entry_id :type description})))
|
|
(insert sources (values {:entry_id entry_id
|
|
:uri uri
|
|
:type description}))))
|
|
|