diff --git a/derekovecs-server.pl b/derekovecs-server.pl
index 298d0e1..c24e32d 100755
--- a/derekovecs-server.pl
+++ b/derekovecs-server.pl
@@ -148,6 +148,11 @@
   }
 }
 
+sub getCollocationAssociation {
+  my ($c, $word, $collocate) = @_;
+  return getCollocationScores($word, $collocate)
+}
+
 sub getClassicCollocatorsCached {
   my ($c, $word) = @_;
   my $s2 = "";
@@ -211,6 +216,16 @@
   $self->render(json => $vec);
 };
 
+any '*/getCollocationAssociation' => sub {
+  my $self = shift;
+  $self->render(data => getCollocationAssociation($self, getWord($self->param("w") ? $self->param("w") : $self->req->json), getWord($self->param("c"))), format=>'json');
+} => 'getCollocationAssociation';
+
+any '/getCollocationAssociation' => sub {
+  my $self = shift;
+  $self->render(data => getCollocationAssociation($self, getWord($self->param("w") ? $self->param("w") : $self->req->json), getWord($self->param("c"))), format=>'json');
+} => 'getCollocationAssociation1';
+
 any '*/getClassicCollocators' => sub {
   my $self = shift;
   $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');