2013-09-30 00:37:38 +02:00
|
|
|
(ns ldview.models.source
|
|
|
|
(:use korma.core
|
2014-04-23 23:23:44 +02:00
|
|
|
[ldview.db]))
|
2013-09-30 00:37:38 +02:00
|
|
|
|
2014-01-03 18:00:14 +01:00
|
|
|
(defn create! [entry_id uri title]
|
|
|
|
; (if (empty? (select sources (where {:entry_id entry_id :type title})))
|
2013-09-30 00:37:38 +02:00
|
|
|
(insert sources (values {:entry_id entry_id
|
|
|
|
:uri uri
|
2014-01-03 18:00:14 +01:00
|
|
|
:type title})));)
|
2013-09-30 00:37:38 +02:00
|
|
|
|