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