gnu: openboard: Update to 1.7.1.

* gnu/packages/education.scm (openboard): Update to 1.7.1.
[arguments]<#:phases>: Remove unnecessary fix.

Change-Id: I15be965a15baa6458217e6e5c88a457b8c65e810

gnu/packages/education.scm

@@ -500,23 +500,18 @@ specialized device.")
     (license license:gpl3)))
 
 (define-public openboard
-  ;; The last release builds from qtwebkit, which has been removed from
-  ;; Guix, so use the latest commit of the 1.7-dev branch, which builds with
-  ;; qtwebengine-5.
-  (let ((commit "47a96e1d6bbdc0250977d22f1b79f11fcc1cbeee")
-        (revision "0"))
   (package
     (name "openboard")
-      (version (git-version "1.7-dev" revision commit))
+    (version "1.7.1")
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
              (url "https://github.com/OpenBoard-org/OpenBoard")
-               (commit commit)))
+             (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-          (base32 "04pwmg41vlkwigym3zzkid6srh6f05b44g4mbihd6mhj6vsagx1f"))))
+        (base32 "1lxwf50n0bfjjnpq5z82f3apsv9mn834js7f2spw1k1f06a72z41"))))
     (build-system qt-build-system)
     (arguments
      (list
@@ -524,26 +519,15 @@ specialized device.")
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'set-initial-values
-              ;; Remove useless "Check for updates" action from menu.
-              ;; Also prevent pop-up window about importing Open Sankore
-              ;; documents since we don't package OpenBoard-Importer.
+            ;; Remove useless "Check for updates" action from menu.  Also
+            ;; prevent pop-up window about importing Open Sankore documents
+            ;; since we don't package OpenBoard-Importer.
             (lambda _
               (substitute* "src/core/UBSettings.cpp"
                 (("(appHideCheckForSoftwareUpdate = .*?)false(\\);)" _ beg end)
                  (string-append beg "true" end))
                 (("(appLookForOpenSankoreInstall = .*?)true(\\);)" _ beg end)
                  (string-append beg "false" end)))))
-            (add-after 'unpack 'fix-build-error
-              ;; XXX: `errorOpeningVirtualKeyboard' variable is only
-              ;; defined when building for OSX.  Yet,
-              ;; "UBBoardController.cpp" relies on it unconditionally,
-              ;; resulting in a build failure.  Here, we get rid of
-              ;; that variable, assuming it is always false (its
-              ;; default value when building for OSX).
-              (lambda _
-                (substitute* "src/board/UBBoardController.cpp"
-                  (("if \\(!UBPlatformUtils::errorOpeningVirtualKeyboard\\)")
-                   ""))))
           (add-after 'unpack 'fix-hard-coded-env
             (lambda* (#:key inputs #:allow-other-keys)
               (substitute* "src/frameworks/UBPlatformUtils_linux.cpp"
@@ -628,7 +612,7 @@ specialized device.")
 designed primarily for use in schools and universities.  It can be
 used both with interactive whiteboards or in a dual-screen setup with
 a pen-tablet display and a beamer.")
-      (license license:gpl3))))
+    (license license:gpl3)))
 
 (define-public fet
   (package