Support categories as URIs (not only literals).

1 files changed, 4 insertions, 1 deletions

diff --git a/bin/rdf2hours b/bin/rdf2hours
index dea675a..6fe6472 100755
--- a/bin/rdf2hours
+++ b/bin/rdf2hours
@@ -121,12 +121,15 @@ SPARQL
 my %data;
 my $iterator = $query->execute($model);
 while ( my $row = $iterator->next ) {
-	my $category = $row->{category}->literal_value;
+	my $category = $row->{category}->as_string;
 	my $name = $row->{name}->literal_value;
 	my $locationcomment = $row->{locationcomment} ? $row->{locationcomment}->literal_value : '';
 
 	my $speclabel = $row->{speclabel} ? $row->{speclabel}->literal_value : '';
 
+	# Strip surrounding quotes
+	$category =~ s/^"(.*)"$/$1/;
+
 	# merge identically named locations, tying varying descriptions to spec instead
 #	my $name_key = titledescribe( $name, $locationcomment );
 #	my $specbundle_key = $speclabel;