11 lines
344 B
Clojure
11 lines
344 B
Clojure
(ns ldview.models.source
|
|
(:require [korma.core :refer :all]
|
|
[ldview.db :refer :all]))
|
|
|
|
(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})));)
|
|
|