NatLibFi / Skosmos

     * Generates the sparql query for retrieving concept and collection counts in a vocabulary.

     * @return string sparql query

     */

    private function generateCountConceptsQuery($array, $group) {

        $gc = $this->graphClause;

        $optional = $array ? "UNION { ?type rdfs:subClassOf* <$array> }" : '';

        $optional .= $group ? "UNION { ?type rdfs:subClassOf* <$group> }" : '';

        $query = <<<EOQ

      SELECT (COUNT(?conc) as ?c) ?type ?typelabel WHERE {

        $gc {

          { ?conc a ?type .

          { ?type rdfs:subClassOf* skos:Concept . } UNION { ?type rdfs:subClassOf* skos:Collection . } $optional }

          OPTIONAL { ?type rdfs:label ?typelabel . }

        }

      }

GROUP BY ?type ?typelabel

EOQ;

        return $query;

    }

    /**

     * Used for transforming the concept count query results.

     * @param boolean $anylang if you want a label even when it isn't available in the language you requested.

     * @return string sparql query

     */

    private function generatePropertyQuery($uri, $prop, $lang, $anylang) {

        $gc = $this->graphClause;

        $anylang = $anylang ? "OPTIONAL { ?object skos:prefLabel ?label }" : "";

        $query = <<<EOQ

SELECT *

WHERE {

  $gc {

    <$uri> a skos:Concept .

    OPTIONAL {

      <$uri> $prop ?object .

      OPTIONAL {

        ?object skos:prefLabel ?label .

        FILTER (langMatches(lang(?label), "$lang"))

      }

      OPTIONAL {

        ?object skos:prefLabel ?label .

        FILTER (lang(?label) = "")

      }

      $anylang

    }

  }

}

EOQ;

        return $query;

    }

    /**

     * Transforms the sparql query result into an array or null if the concept doesn't exist.

     * @param string $fallback

     * @return string sparql query

     */

    private function generateNarrowerQuery($uri, $lang, $fallback) {

        $uri = is_array($uri) ? $uri[0] : $uri;

        $gc = $this->graphClause;

        $query = <<<EOQ

SELECT ?child ?label ?child ?grandchildren ?notation WHERE {

  $gc {

    <$uri> a skos:Concept .

    OPTIONAL {

      <$uri> skos:narrower ?child .

      OPTIONAL {

        ?child skos:prefLabel ?label .

        FILTER (langMatches(lang(?label), "$lang"))

      }

      OPTIONAL {

        ?child skos:prefLabel ?label .

        FILTER (langMatches(lang(?label), "$fallback"))

      }

      OPTIONAL { # other language case

        ?child skos:prefLabel ?label .

      }

      OPTIONAL {

        ?child skos:notation ?notation .

      }

      BIND ( EXISTS { ?child skos:narrower ?a . } AS ?grandchildren )

    }

  }

}

EOQ;

        return $query;

    }

    /**

     * Transforms the sparql result object into an array.

     * @param int $offset offset of results to retrieve; 0 for beginning of list

     * @return string sparql query

     */

    private function generateChangeListQuery($lang, $offset, $prop) {

        $gc = $this->graphClause;

        $offset = ($offset) ? 'OFFSET ' . $offset : '';

        $query = <<<EOQ

SELECT DISTINCT ?concept ?date ?label

WHERE {

  $gc {

    ?concept a skos:Concept .

    ?concept $prop ?date .

    ?concept skos:prefLabel ?label .

    FILTER (langMatches(lang(?label), '$lang'))

  }

}

ORDER BY DESC(YEAR(?date)) DESC(MONTH(?date)) LCASE(?label)

LIMIT 200 $offset

EOQ;

        return $query;

    }

    /**

     * Transforms the sparql query result into an array.