<%
use strict;
use Data::Dumper;
my $msg = '';
my $user = $Session->{user};
unless ($api->canGoOn($user->{'id'})) {
$Response->Redirect('/user_preferences.asp');
$Response->End;
}
my $demo = $api->isDemo($user->{'id'});
# love, friends quicksearch
if (not $api->isDemo($user->{'id'})) {
if ($form->{'friends'}) {
$api->setFriendsSearch($user->{'id'});
} elsif ($form->{'love'}) {
$api->setLoveSearch($user->{'id'});
}
}
my $res = $api->getResults('userid' => $user->{id});
my $results = $res->{'list'};
my $limited = $res->{'limited'};
my $toomuch = 0;
my $toolitle = 0;
if (not $results) {
$toomuch = 1;
} elsif (@$results == 0) {
$toolitle = 1;
}
$Response->{FormFill} = 0;
%>
<% $title = 'PERSONiO - Results '; %>
<%
if ( (not $toomuch) && (not $toolitle)) {
%>
Similarity Bars from Match results,
can they be used or generated from another server??
Each success bar on another site would have
to KNOW if person viewed has an account AND if I am logged in. All these have to
hit the perso server to make it possible.
<% if ($api->isDemo($user->{'id'})) { %>
<% } else { %>
| Picture |
Username |
Match % |
About me |
<%
my $color='#F1F1F1';
foreach my $u (@$results) {
if ($color eq '#FFFFFF') {
$color = '#F1F1F1';
} else {
$color = '#FFFFFF';
}
my $dir = '/home/proxima/www.personio.com/html/userphotos';
my $im = $u->{'id'};
if (not -f "$dir/$im".'_thumb.jpg') {
$im = '0';
}
%>
<% if ($user->{'image'}) { %>
<% } else { %>
<% } %>
|
<%= $u->{username} %> |
<%= $u->{percentage} %>%
 
|
<% # sok egybeirt karaktert szetvagunk, mert elrontja a tablazatot kulonben
my $ess = $u->{'essay'};
$ess =~ s/(\S{40})/$1 /g;
$ess = substr($ess,0,400);
%>
<%= $ess %> |
<% } %>
<% if ($limited) { %>
<% if (not $demo) { %>