#########JS Code##############
###########Perl Code:##############
if (exists $ENV{'HTTP_COOKIE'}) {
my $cookies = $ENV{'HTTP_COOKIE'};
my @cookies_record = split(';',$ENV{'HTTP_COOKIE'});
foreach (@cookies_record) {
my ($k,$v) = split('=',$_);
$k =~ s/ //g;
if ($k eq 'Records') {
$value = $v;
}
}
}
@selected_records = split(',', $value);
##############TT2 Code ############
[% SET subscription = cgi.param('first') %]
[% SET subject = cgi.param('second') %]
[% SET content = cgi.param('third') %]
[% SET resource = cgi.param('forth') %]
[% SET saved_search = cgi.param('saved_search') %]
[% cookie = cgi.cookie(
name = saved_search,
value = resource,
expires = '+1m',
);
cookies.push(cookie)
%]
###############Perl Code##################
my $template = $self->load_tt_template('setup_resource_final');
my $setup_resource_final;
my @cookies;
my $hash = {
'page_header' => $self->page_header(),
'page_title' => $self->page_title(),
'errors' => $submission_errors,
'content' => $self->content(),
'url' => url(),
'cookies' => \@cookies,
'page_footer' => $self->footer(),
};
$$hash{'main_search'} = $self->show_main_search();
$$hash{'site'} = $self->current_site()->nuc_code;
$$hash{'cgi'} = $cgi;
$template->process('setup_resource_final', $hash, \$setup_reso
+urce_final);
if(@cookies) {
@cookies = ('-cookie', [@cookies]);
}
$output = header(@cookies, '-CHARSET' => 'UTF-8');
$output .= $self->http_header();
$output .= $setup_resource_final;
$output .= $self->http_footer();
|