#########JS Code##############
var arrRecords = new Array();
var arrCookie = new Array();
var recCount = 0;
var strRecord="";
function cookieVal(cookieName) {
thisCookie = document.cookie.split("; ")
for (i = 0; i < thisCookie.length; i++) {
if (cookieName == thisCookie[i].split("=")[0]) {
return thisCookie[i].split("=")[1];
}
}
return 0;
}
function loadCookie() {
if(document.cookie != "") {
if(cookieVal("Records") != 0) {
arrRecords = cookieVal("Records").split(",");
recCount = arrRecords.length;
}
}
}
function addToCookie(id) {
/*
* Comments needs to writen
*
*
*/
strRecord = "";
strRemove = "";
if(document.getElementById(id).checked == true) {
strRecord = strRecord + document.getElementById(id).value;
arrRecords[recCount] = strRecord;
recCount = arrRecords.length;
}
else {
strRemove = document.getElementById(id).value;
strRecord = remove(strRecord, strRemove);
arrRecords.splice(arrRecords.indexOf(strRemove), 1);
recCount = arrRecords.length;
}
if (arrRecords.length != 0) {
document.cookie = "Records="+arrRecords+";expires=;path=/";
} else {
eraseCookie("Records");
}
document.getElementById('myArticleCount').innerHTML = countRecords();
document.getElementById('myArticleCountTop').innerHTML = countRecords(
+);
}
function selectAll(start, end) {
var arrCheckbox = new Array();
if(cookieVal("Records") != 0) {
var noOfRecords = (end - start) + 1;
var k = start;
for (var i = 0; i < noOfRecords ; i++) {
var checkbox = document.getElementById('checkbox'+ k);
checkbox.checked = true;
k = k+1;
arrCheckbox[i] = checkbox.value;
}
for(i=0;i<arrCheckbox.length; i++){
for(j=0;j<arrRecords.length;j++){
if(arrCheckbox[i]==arrRecords[j])
{
arrRecords.splice(j,1);
}
}
}
arrRecords = arrRecords.concat(arrCheckbox);
recCount = arrRecords.length;
}else {
for (var i = start; i <= end; i++) {
i = i * 1;
var checkbox = document.getElementById('checkbox'+ i);
arrRecords[recCount] = checkbox.value;
recCount = arrRecords.length;
checkbox.checked = true;
}
}
document.cookie = "Records="+arrRecords+";expires=;path=/";
document.getElementById('myArticleCount').innerHTML = countRecords
+();
document.getElementById('myArticleCountTop').innerHTML = countReco
+rds();
}
function deSelectAll(start, end) {
var arrCheckbox = new Array();
var noOfRecords = (end - start) + 1;
var k = start;
for (var i = 0; i < noOfRecords ; i++) {
var checkbox = document.getElementById('checkbox'+ k);
checkbox.checked = false;
k = k+1;
arrCheckbox[i] = checkbox.value;
}
//alert("arrCheckbox length is"+arrCheckbox.length);
for(i=0;i<arrCheckbox.length; i++){
for(j=0;j<arrRecords.length;j++){
if(arrCheckbox[i]==arrRecords[j])
{
//alert(arrRecords[j]);
arrRecords.splice(j,1);
}
}
}
recCount = arrRecords.length;
document.cookie = "Records="+arrRecords+";expires=;path=/";
document.getElementById('myArticleCount').innerHTML = countRecords
+();
document.getElementById('myArticleCountTop').innerHTML = countReco
+rds();
}
function countRecords() {
return arrRecords.length;
}
function selectAllMyArticlePage(start, end){
for(var i=start; i<=end; i++) {
var checkbox = document.getElementById('checkbox'+ i);
checkbox.checked = true;
}
}
function deSelectAllMyArticlePage(start, end){
for(var i=start; i<=end; i++) {
var checkbox = document.getElementById('checkbox'+ i);
checkbox.checked = false;
}
}
###########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();
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.