;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Quiliro <quiliro@fsfla.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages medical)
  #:use-module (guix build-system python)
  #:use-module (guix download)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt))

(define-public openmolar-1
  (package
   (name "openmolar")
   (version "1.0.15-gd81f9e5")
   (source (origin
             (method url-fetch)
             (uri (string-append
                   "https://static.openmolar.com/om1/releases/openmolar-"
                   version ".tar.gz"))
             (sha256
              (base32
               "1cfdzfbi6wslw7k0dc6ad6xrgs75iwsl91cg73w4myswaqqkfk3z"))))
   (build-system python-build-system)
   (arguments
    `(#:use-setuptools? #f
      #:phases
      (modify-phases %standard-phases
        (add-after 'unpack 'patch-/usr
          (lambda* (#:key outputs #:allow-other-keys)
            (substitute* "setup.py"
              (("/usr") (assoc-ref outputs "out")))
            #t)))))
   (inputs
    `(("python-pyqt+qscintilla" ,python-pyqt+qscintilla)
      ("python-mysqlclient" ,python-mysqlclient)
      ("qscintilla" ,qscintilla)))
   (home-page "https://openmolar.com/om1")
   (synopsis "Dental practice management software")
   (description "Openmolar is a dental practice management suite.  Its
functionality includes appointments, patient records, treatment planning,
billing etc.  It is a full featured, reliable and thoroughly tested
application and has been translated into many languages.")
   (license gpl3+)))
/guix/log/tests/store.scm?id=a81a64492fbf0ab25b87205850c9f0cd13e6b656&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-06-27 23:42:20 +0200'>2020-06-27</span></td><td><a href='/guix/commit/tests/store.scm?id=8e6c1415d87272c0221ce328715fc0dd1dd3e032'>daemon: Recognize SHA3 and BLAKE2s.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-22 01:29:39 +0200'>2020-05-22</span></td><td><a href='/guix/commit/tests/store.scm?id=ce0be5675b702b2ff89aed1772ebb42af4150243'>packages: Introduce &lt;content-hash&gt; and use it in &lt;origin&gt;.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-22 00:35:23 +0200'>2020-05-22</span></td><td><a href='/guix/commit/tests/store.scm?id=73b27eaa64d90051870242464543153b8bcb95de'>tests: Test 'add-to-store' with several hash algorithms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-14 17:21:27 +0200'>2020-05-14</span></td><td><a href='/guix/commit/tests/store.scm?id=80963744a242257921917df5a901dc343d3a93db'>store: 'mapm/accumulate-builds' preserves '%current-target-system'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-04 18:52:35 +0200'>2020-04-04</span></td><td><a href='/guix/commit/tests/store.scm?id=8ed597f4a261fe188de82cd1f5daed83dba948eb'>store: 'with-store' doesn't close the store upon abort.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-29 15:32:17 +0200'>2020-03-29</span></td><td><a href='/guix/commit/tests/store.scm?id=c40bf5816cb3ffb59920a61f71bd34b53cac3637'>store: Add 'map/accumulate-builds'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-22 12:42:51 +0100'>2020-03-22</span></td><td><a href='/guix/commit/tests/store.scm?id=041b340da409078951267b6a8c43b27716e6b7ec'>store: Add 'with-build-handler'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-16 22:53:40 +0200'>2019-10-16</span></td><td><a href='/guix/commit/tests/store.scm?id=81c580c8664bfeeb767e2c47ea343004e88223c7'>daemon: Make 'profiles/per-user' non-world-writable.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-10 22:42:59 +0200'>2019-06-10</span></td><td><a href='/guix/commit/tests/store.scm?id=f8a9f99cd602ce1dc5307cb0c21ae718ad8796bb'>store: 'build-things' accepts derivation/output pairs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-02-06 23:06:18 +0100'>2019-02-06</span></td><td><a href='/guix/commit/tests/store.scm?id=d59124280851c5d62b6ecf5aa07f6b4f6520a0e5'>daemon: Emit a 'build-succeeded' event in check mode.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-01-21 23:09:55 +0100'>2019-01-21</span></td><td><a href='/guix/commit/tests/store.scm?id=f9e8a12379c6fefc9e5c3c7fc3926599bbefc013'>store: Rename '&amp;nix-error' to '&amp;store-error'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-01-09 14:47:53 +0100'>2019-01-09</span></td><td><a href='/guix/commit/tests/store.scm?id=a65177a657b0cb36d45f2e8db574ea9c10f89a1f'>maint: Remove 'cond-expand' forms for Guile 2.0.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-15 22:40:35 +0200'>2018-10-15</span></td><td><a href='/guix/commit/tests/store.scm?id=6ef61cc4c30e94acbd7437f19c893f63a7112267'>daemon: Support multiplexed build output.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-05 13:59:10 +0200'>2018-09-05</span></td><td><a href='/guix/commit/tests/store.scm?id=3d43017026f9995ad128915db8ca5eafe061bf75'>tests: Adjust 'add-file-tree-to-store' test for lack of /bin/sh.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-04 17:25:11 +0200'>2018-09-04</span></td><td><a href='/guix/commit/tests/store.scm?id=ca719424455465fca4b872c371daf2a46de88b33'>Switch to Guile-Gcrypt.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-19 11:48:04 +0200'>2018-07-19</span></td><td><a href='/guix/commit/tests/store.scm?id=7f11efbac7a13898bd925d2ef1e9d26cb0e22ade'>store: Add 'add-file-tree-to-store'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-14 11:17:00 +0200'>2018-06-14</span></td><td><a href='/guix/commit/tests/store.scm?id=df2f6400b1fbc282ef4d6dd7124ea1c17adc23c2'>store: Remove 'register-path'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-11-21 22:46:55 +0100'>2017-11-21</span></td><td><a href='/guix/commit/tests/store.scm?id=953c2de7061f18f55d8c51b72eb24945f436e80e'>tests: Disable test for freed disk space that fails on Btrfs.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>