Back to previous page using Perl script

Hi,

Is there any way can I write perl code for "Back to previous page" . on one of the client website I implemented Health news functionality. This functionality includes getting RSS feed for external site(third party site) and genetares Articles in Teamsite workarea and deploys on one of client website.

On each and every Article I just placed "Back to Most Recent" link so that users can go back to parent page (ex: index.html).

The requirement is, instead of going to root page it should go to previous page. we have this kind of functionality in Javascript using "history.back() or history.go(-1)"

Can any one please assist me on this?

Thanks,
Kumar

Find more posts tagged with

Comments

dazzlad

Please give a little more detail.

When you talk about Perl please confirm that you are talking about Perl within the context of presentation template - Not some server side Perl on your deployed website.

Please also detail version/OS of TeamSite.

Assuming that you are trying to achieve this in a TPL you won't be able to do this without some kind of client side scripting.

If you have some kind of application server technology available then this is easily achievable.

kumar123

Please give a little more detail.

When you talk about Perl please confirm that you are talking about Perl within the context of presentation template - Not some server side Perl on your deployed website.

Please also detail version/OS of TeamSite.

Assuming that you are trying to achieve this in a TPL you won't be able to do this without some kind of client side scripting.

If you have some kind of application server technology available then this is easily achievable.

I'm not using Presentation template. it's pure perl script which generates articles (6750.html,4560.html etc...)

Following is the code I've written in the perl script:
==============================
sub HTML_From_Feed
{
my $html = Remove_CDATA($_[0]);

my $headline = Extract_XML_Value($html,"HEADLINE");
my $byline = Extract_XML_Value($html,"BYLINE");
my $body = Extract_XML_Value($html,"BODY");
my $blurb = Extract_XML_Value($html,"BLURB");
my $image_link = Extract_XML_Value($html,"FEATURE_IMAGE");
my $article_number = GetArticleNumber($_[0]);
my $post_date = GetPostDate($_[0]);
my $output_file_name = "$html_directory/$article_number".".html";

open(OUT2, ">$output_file_name");
print OUT2 "

$headline

\n";

if(!($byline eq ""))
{
print OUT2 "

$byline

\n";
}
print OUT2 "Back to Most Recent\n";
print OUT2 "

$body

\n";
if(!($image_link eq ""))
{
print OUT2 "

\n";
}
##Print information for index build scripts in comments
print OUT2 "\n";
print OUT2 "\n";
print OUT2 "\n";
print OUT2 "\n";
print OUT2 "\n";

close(OUT2);

return "$output_file_name";
}
==============================

this is the code of line displays on each article

print OUT2 "Back to Most Recent\n";

right now i just declared a variable called "$most_recent_index_page" which is pointing to the parent page (index.html).

dazzlad

Try posting your code in a code block next time Smiley Happy

When you say "previous page" do you mean the previous page that the user visited (in the browser history) or the previous article in the RSS feed?

Adam Stoller

Hi,

Is there any way can I write perl code for "Back to previous page" . on one of the client website I implemented Health news functionality. This functionality includes getting RSS feed for external site(third party site) and genetares Articles in Teamsite workarea and deploys on one of client website.

On each and every Article I just placed "Back to Most Recent" link so that users can go back to parent page (ex: index.html).

The requirement is, instead of going to root page it should go to previous page. we have this kind of functionality in Javascript using "history.back() or history.go(-1)"

Can any one please assist me on this?

Thanks,
Kumar

In most cases - Perl is not used to render an HTML page, it's used to generate the HTML code that is then rendered by a browser - as such you can use Perl code to generate the javascript code within the HTML code that will get rendered by the browser - so I think you probably have all the stuff you need, you just need to put it together correctly.

kumar123

In most cases - Perl is not used to render an HTML page, it's used to generate the HTML code that is then rendered by a browser - as such you can use Perl code to generate the javascript code within the HTML code that will get rendered by the browser - so I think you probably have all the stuff you need, you just need to put it together correctly.

Thanks for the suggestion. Really appreciate it.