Author: earle Date: 2005-11-29 07:18:17 +0000 (Tue, 29 Nov 2005) New Revision: 721

Modified: trunk/lib/OpenGuides/RDF.pm trunk/t/21_rdf.t Log: fixes #51

Modified: trunk/lib/OpenGuides/RDF.pm =================================================================== --- trunk/lib/OpenGuides/RDF.pm 2005-11-29 07:09:54 UTC (rev 720) +++ trunk/lib/OpenGuides/RDF.pm 2005-11-29 07:18:17 UTC (rev 721) @@ -95,7 +95,7 @@

my ($is_geospatial, $objType);

- if ($os_x || $os_y || $latitude || $longitude || $address || $postcode || @locales) { + if ($os_x || $os_y || $latitude || $longitude || $address || $postcode || @locales || $opening_hours_text) { $is_geospatial = 1; $objType = 'geo:SpatialThing'; } else { @@ -114,7 +114,6 @@

my $url = $self->{make_node_url}->( $node_name, $version ); my $version_indpt_url = $self->{make_node_url}->( $node_name ); - my $rdf = qq{<?xml version="1.0"?> <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

Modified: trunk/t/21_rdf.t =================================================================== --- trunk/t/21_rdf.t 2005-11-29 07:09:54 UTC (rev 720) +++ trunk/t/21_rdf.t 2005-11-29 07:18:17 UTC (rev 721) @@ -5,7 +5,7 @@ use OpenGuides::Utils; use OpenGuides::Test; use URI::Escape; -use Test::More tests => 26; +use Test::More tests => 27;

eval { require DBD::SQLite; }; my $have_sqlite = $@ ? 0 : 1; @@ -140,4 +140,19 @@ like( $redirect_rdf, qr|<owl:sameAs rdf:resource="/?id=Calthorpe_Arms;format=rdf#obj" />|, "redirecting node gets owl:sameAs to target" );

+ $wiki->write_node( "Nonesuch Stores", + "A metaphysical wonderland", + undef, + { + comment => "Yup.", + username => "Nobody", + opening_hours_text => "Open All Hours", + } + ); + + my $rdfxml = $rdf_writer->emit_rdfxml( node => "Nonesuch Stores" ); + + like( $rdfxml, qr|<geo:SpatialThing rdf:ID="obj" dc:title="Nonesuch Stores">|, + "having opening hours marks node as geospatial" ); + }