Apache-TopicMaps

 view release on metacpan or  search on metacpan

lib/Apache/TopicMaps.pm  view on Meta::CPAN

			my %params = $r->args;
			my $param_types = get_param_types( $r->path_info );
			foreach my $p (keys %params)
			{
				print STDERR $p , "\n";
				next unless ($param_types->{$p} eq 'Topic');
				
				# maybe alter sidp string
			}

			$u  .= '?'. join( '&' , map { uri_escape($_) .'='. uri_escape($params{$_} )} keys %params );
		}
		print STDERR $u , "\n";
		getTM($result_tm, $u);		
	}

	my $rv;
	print STDERR "\$rv = Apache::TopicMaps::".$accept."::".$r->path_info."::do" . '($r,$result_tm,1)';

	eval( "\$rv = Apache::TopicMaps::".$accept."::".$r->path_info."::do" . '($r,$result_tm,1)' );
	if ($@)

lib/Apache/TopicMaps.pm  view on Meta::CPAN

		{
			my $param_types = get_param_types( $view );
			foreach my $p (keys %$params)
			{
				print STDERR $p , "\n";
				next unless ($param_types->{$p} eq 'Topic');
				
				# maybe alter sidp string
			}

			$u  .= '?'. join( '&' , map { uri_escape($_) .'='. uri_escape($params->{$_} )} keys %$params );
		}
		print STDERR $u , "\n";
		getTM($tm, $u);		
	}

}

sub get_topic_from_full_sidp_string
{
	my($tm,$sidp_string) = @_;

lib/Apache/TopicMaps/text/html/index.pm  view on Meta::CPAN

        my $r = $$ud->{request};
        my $tm = $$ud->{topicmap};
	#$r->print( "<!-- $name -->\n");
        if( $name eq "entry")
        {
		my $sirs = $tm->get_property($topic, $SAM ."::SubjectIndicators");
		my $scr = $tm->get_property($topic, $SAM ."::SubjectAddress");
		my $names = $tm->get_property($topic, $SAM ."::BaseNames");
		my $name = $names->[0];
 
		my $url = "topic?topic=" . uri_escape( $tm->get_sidp_string($topic) );

		if(0 && $scr)
		{
			my $title = $scr;
			$title = $names->[0] if($names);
			$r->print(qq{
			<p>
			View this information resource: <a href="$scr">$title</a>
			</p>
			});

lib/Apache/TopicMaps/text/html/index.pm  view on Meta::CPAN

		}
		else
		{
			if(exists($$ud->{tms}) )
			{
				Apache::TopicMaps::moo($tm, 'topic', { 'topic' => $tm->get_sidp_string($topic)} );
			}
			my $names = $tm->get_property($topic, $SAM ."::BaseNames");
			my $name = $scr;
			if($names) { $name = $names->[0]; }
			my $about_url = "topic?topic=" . uri_escape( $tm->get_sidp_string($topic) );
			$r->print(qq{Occurrence: <a href="$scr">$name</a> (<a href="$about_url">about</a>)<br />\n});
		}
        }
}

sub index_end_html
{
        my ($ud,$name) = @_;
        my $r = $$ud->{request};
        if( $name eq "entry" )

lib/Apache/TopicMaps/text/html/search.pm  view on Meta::CPAN

        my $tm = $$ud->{topicmap};
	
	
	print STDERR "4\n";
        $r->print("<!-- start $name -->\n");
        if( $name eq "hit" )
        {
		my $names = $tm->get_property($topic, $SAM ."::BaseNames");
                my $name = $names->[0];

		my $url = "topic?topic=" . uri_escape( $tm->get_sidp_string($topic) );
                $r->print(qq{ <a href="$url">$name</a><br />\n});
        }
}
sub hitlist_end_html
{
        my ($ud,$name) = @_;
        my $r = $$ud->{request};
        if( $name eq "hit" )
        {
                #$r->print("</p>\n");

lib/Apache/TopicMaps/text/html/topic.pm  view on Meta::CPAN

1;
sub make_label
{
	my ($tm,$topic) = @_;
	my $x = "no-label";
	my $names = $tm->get_property($topic, $SAM ."::BaseNames");
	if(!$names) { $names = $tm->get_property($topic, $SAM ."::SubjectIndicators"); }
	if(!$names) { $names = [ $tm->get_property($topic, $SAM ."::SubjectAddress")] };
	if(!$names) { $names =  $tm->get_property($topic, $SAM ."::SourceLocators") };
	if($names) { $x = join( " , ",@$names) . "[$topic]"; };
	my $url = "topic?topic=" . uri_escape( $tm->get_sidp_string($topic) );
	my $s = qq{<a href="$url">$x</a>};


	return ($s);
}