#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my $input = $cgi->Vars();

use Opals::Template qw(
    tmpl_read
    tmpl_preference
    tmpl_redirect
    tmpl_write

);
use Opals::User qw(
    user_currentUser
    user_getInformation
    user_getInformationById
);
my $url=$input->{'uri'}    ;
my $pref = tmpl_preference($dbh);
my $clienKey = $pref->{'learn360ClientKey'};
my $location = $pref->{'learn360Location'};

my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'search/learn360.tmpl',
            reqPermission   => 'circ_rsrv_self',
        }
);
if($permission && $permission->{'circ_rsrv_self'}){
    my ($errCode, $ck, $user) = user_currentUser($dbh, $cgi);
    my ($userInfo, $guardian)= user_getInformationById($dbh,$user->{'uid'});
    my $username = $userInfo->{'username'};
    my $firstname = $userInfo->{'firstname'};
    my $lastname = $userInfo->{'lastname'};
    my $email = $userInfo->{'email'};
    #$username =$email if($email && $email ne '');
    if($clienKey && $location && $url =~ m/http:\/\/www.learn360.com\/(.*)(ID=(.*))([&](.*))*/g){
        $url= "http://www.learn360.com/PassThrough.aspx?clientKey=$clienKey" 
              . "&sublocation=$location"
              . "&user_name=$username&firstname=$firstname&lastname=$lastname"
              . "&email=$email&ID=$3";
    }
     $template->param(
        url=>$url,
    );
    tmpl_write($dbh, $cgi, $cookie, $template);
    
}
else{
   my @form_input;
    foreach my $param (keys %{$input}) {
        push @form_input, {name =>"$param",value => "$input->{$param}"};
    }
    $template->param(
        input=>\@form_input,
    );
    tmpl_write($dbh, $cgi, $cookie, $template);
}