From af6c6c7a10f6f20410836d4cb63a759fcdb1998f Mon Sep 17 00:00:00 2001 From: Bert Burgemeister Date: Thu, 13 Jul 2017 12:05:50 +0200 Subject: [PATCH] Make search for generic_device_id case-insensitive This takes into account that the strings read from .pictures files are always turned into uppercase. --- phoros.asd | 2 +- stuff-db.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/phoros.asd b/phoros.asd index 80d6fb6..aa3bfec 100644 --- a/phoros.asd +++ b/phoros.asd @@ -21,7 +21,7 @@ it available over a web interface." ;; There should be a corresponding git tag which marks the point this ;; version number becomes official. - "14.2.4" + "14.2.5" :licence ;goes with --licence output "Copyright (C) 2010, 2011, 2012, 2015, 2016, 2017 Bert Burgemeister diff --git a/stuff-db.lisp b/stuff-db.lisp index 8cd577c..3940f52 100644 --- a/stuff-db.lisp +++ b/stuff-db.lisp @@ -363,7 +363,7 @@ recorded-device-id (a string) of camera (etc.)" (:set 'mounting-date (:least :current-date 'unmounting-date)) (:set (:date date) (:date date))) - (:= 'recorded-device-id recorded-device-id)))))) + (:ilike 'recorded-device-id recorded-device-id)))))) (assert device-stage-of-life () "Can't figure out what event-number belongs to ~ -- 2.11.4.GIT