#!/usr/bin/perl

use CGI qw(:standard);
use DBI;

# Connecting to the database
$drh = DBI->install_driver("mysql");
#$dsn = "DBI:mysql:database=bewellcontentdb;host=bewellcontentdb.db.2081014.hostedresource.com";
#$dbh = DBI->connect($dsn,"bewellcontentdb","BeW3!!DB");
$dsn = "DBI:mysql:database=beweezfy_bewellworld;host=localhost";
$dbh = DBI->connect($dsn,"beweezfy_bewell","B3W3!!$");

require "./cgi/print_header_footer.cgi";
require "./cgi/shared_ads2.cgi";

$id = param('id');
$pagenum = param('pagenum');
if ($pagenum eq "") {$pagenum = "1";}

my $sth = $dbh->prepare("select large_graphic, title, subtitle, article_text, affiliations, footnotes, status from article where id = '$id' ");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
	$large_graphic = $ref->{'large_graphic'};
	$article_title = $ref->{'title'};
	$article_subtitle = $ref->{'subtitle'};
	$article_text = $ref->{'article_text'};
	$footnotes = $ref->{'footnotes'};
	$affiliations = $ref->{'affiliations'};
	$status = $ref->{'status'};
}
$sth->finish();

$all_article_text = $article_text;
if ($footnotes ne "") {
	$all_article_text = $all_article_text . "<h2>Footnotes</h2><hr>\n" . $footnotes;
}
if ($affiliations ne "") {
	$all_article_text = $all_article_text . "<div id=\"author_info\"><h2 id=\"author_bio\">Author Bio</h2><hr>\n" . $affiliations . "\n</div><!-- end author_info -->\n";
}
$all_article_text =~ s/\n/ /g;
$all_article_text = undbquote($all_article_text);
$all_article_text_length = length($all_article_text);
if ($all_article_text =~ m/....manual_page_break.../) {
	#we've got manual page breaks
	$all_article_text = $all_article_text . "<!--manual_page_break-->"; 
	$pages = 0;
	while ($all_article_text =~ m/manual_page_break/g) { $pages++ }
	
	if ($pagenum eq "1") {
		$all_article_text =~ m/^(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> <a href=\"/article.cgi?id=$id&pagenum=2\">Continue to page 2 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "2") {
		$all_article_text =~ m/^.*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=1\">Back to page 1 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=1\">Back to page 1 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=3\">Continue to page 3 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "3") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=2\">Back to page 2 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=2\">Back to page 2 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=4\">Continue to page 4 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "4") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=3\">Back to page 3 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=3\">Back to page 3 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=5\">Continue to page 5 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "5") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=4\">Back to page 4 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=4\">Back to page 4 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=6\">Continue to page 6 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "6") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=5\">Back to page 5 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=5\">Back to page 5 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=7\">Continue to page 7 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "7") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=6\">Back to page 6 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=6\">Back to page 6 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=8\">Continue to page 8 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "8") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=7\">Back to page 7 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=7\">Back to page 7 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=9\">Continue to page 9 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "9") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=8\">Back to page 8 of $pages</a></p>";}
		if ($pagenum < $pages) {$display_article_text = $display_article_text . "<p> &lt; <a href=\"/article.cgi?id=$id&pagenum=8\">Back to page 8 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=10\">Continue to page 10 of $pages &gt;</a></p>";}
	}
	if ($pagenum eq "10") {
		$all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../;
		$display_article_text = $1;
		if ($pagenum == $pages) {$display_article_text = $display_article_text . "<p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=9\">Back to page 9 of $pages</a></p>";}
	}
} #end of manual page break processing
else { # no manual page breaks, so do automatic page breaks instead
$pages = $all_article_text_length/3400;
$pages =~ s/\..*$//;
$pages = $pages + 1;

#$display_article_text = "[ length: $all_article_text_length, page $page of $pages ] " . $all_article_text;
if ($pagenum eq "1") {
	$all_article_text =~ m/^(.{1,3400})([^ ]*)/;
	$display_article_text = $1 . $2;
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p> <a href=\"/article.cgi?id=$id&pagenum=2\">Continue to page 2 of $pages &gt;</a></p>";}
}
if ($pagenum eq "2") {
	if ($pages eq "2") {
		$all_article_text =~ m/^.{3300}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{3300}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=1\">Back to page 1 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p> &lt; <a href=\"/article.cgi?id=$id&pagenum=1\">Back to page 1 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=3\">Continue to page 3 of $pages &gt;</a></p>";}
}
if ($pagenum eq "3") {
	if ($pages eq "3") {		
		$all_article_text =~ m/^.{6400}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{6400}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=2\">Back to page 2 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=2\">Back to page 2 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=4\">Continue to page 4 of $pages &gt;</a></p>";}
}
if ($pagenum eq "4") {
	if ($pages eq "4") {		
		$all_article_text =~ m/^.{9500}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{9500}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=3\">Back to page 3 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=3\">Back to page 3 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=5\">Continue to page 5 of $pages &gt;</a></p>";}
}
if ($pagenum eq "5") {
	if ($pages eq "5") {		
		$all_article_text =~ m/^.{12600}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{12600}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=4\">Back to page 4 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=4\">Back to page 4 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=6\">Continue to page 6 of $pages &gt;</a></p>";}
}
if ($pagenum eq "6") {
	if ($pages eq "6") {		
		$all_article_text =~ m/^.{15700}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{15700}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=5\">Back to page 5 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=5\">Back to page 5 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=7\">Continue to page 7 of $pages &gt;</a></p>";}
}
if ($pagenum eq "7") {
	if ($pages eq "7") {		
		$all_article_text =~ m/^.{18800}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{18800}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=6\">Back to page 6 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=6\">Back to page 6 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=8\">Continue to page 8 of $pages &gt;</a></p>";}
}
if ($pagenum eq "8") {
	if ($pages eq "8") {		
		$all_article_text =~ m/^.{21900}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{21900}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=7\">Back to page 7 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=7\">Back to page 7 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=9\">Continue to page 9 of $pages &gt;</a></p>";}
}
if ($pagenum eq "9") {
	if ($pages eq "9") {		
		$all_article_text =~ m/^.{25000}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{25000}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=8\">Back to page 8 of $pages</a></p>";}
	if ($pagenum < $pages) {$display_article_text = $display_article_text . "...</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=8\">Back to page 8 of $pages</a> &bull; <a href=\"/article.cgi?id=$id&pagenum=10\">Continue to page 10 of $pages &gt;</a></p>";}
}
if ($pagenum eq "10") {
	if ($pages eq "10") {		
		$all_article_text =~ m/^.{28100}[^ ]*(.*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	} 
	else {
		$all_article_text =~ m/^.{28100}[^ ]*(.{3350})([^ ]*)/;
		$text_start = $1;
		$text_start =~ s/^[^<]{1,50}>//;
		$text_start =~ s/^[^>]{1,50}<\/[^>]*>//;
		$display_article_text = "<p>..." . $text_start . $2;
	}
	if ($pagenum == $pages) {$display_article_text = $display_article_text . "</p><p>  &lt; <a href=\"/article.cgi?id=$id&pagenum=9\">Back to page 9 of $pages</a></p>";}
}

if ($display_article_text =~ /div id=\"author_info\"/) {
	unless ($display_article_text =~ /div id=\"author_info\".* end author_info /) {
		$display_article_text = $display_article_text . "</div>";
	}
}
if ($display_article_text =~ / end author_info /) {
	unless ($display_article_text =~ /div id=\"author_info\".* end author_info /) {
		$display_article_text = "<div id=\"author_info\">" . $display_article_text;
	}
}	

} #end check for manual vs. automatic page breaks

my $sth = $dbh->prepare("select modality from modality where article_id = '$id' and modality_type = 1 ");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
	$modality = $ref->{'modality'};
}
$sth->finish();

my $sth = $dbh->prepare("select * from author where article_id = '$id' ");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
			if ($ref->{'order'} eq"1") {
				$firstname1 = $ref->{'first_name'};
				$lastname1 = $ref->{'last_name'};
				$suffix1 = $ref->{'suffix'};
				$practitioner1 = $ref->{'practitioner_id'};
				$link1 = $ref->{'link'};
					if ($link1 eq "1") {$link1_yes_selected = "checked";}
					if ($link1 eq "0") {$link1_no_selected = "checked";}
			}
			if ($ref->{'order'} eq"2") {
				$firstname2 = $ref->{'first_name'};
				$lastname2 = $ref->{'last_name'};
				$suffix2 = $ref->{'suffix'};
				$practitioner2 = $ref->{'practitioner_id'};
				$link2 = $ref->{'link'};
					if ($link2 eq "1") {$link2_yes_selected = "checked";}
					if ($link2 eq "0") {$link2_no_selected = "checked";}
			}
			if ($ref->{'order'} eq"3") {
				$firstname3 = $ref->{'first_name'};
				$lastname3 = $ref->{'last_name'};
				$suffix3 = $ref->{'suffix'};
				$practitioner3 = $ref->{'practitioner_id'};
				$link3 = $ref->{'link'};
					if ($link3 eq "1") {$link3_yes_selected = "checked";}
					if ($link3 eq "0") {$link3_no_selected = "checked";}
			}
			if ($ref->{'order'} eq"4") {
				$firstname4 = $ref->{'first_name'};
				$lastname4 = $ref->{'last_name'};
				$suffix4 = $ref->{'suffix'};
				$practitioner4 = $ref->{'practitioner_id'};
				$link4 = $ref->{'link'};
					if ($link4 eq "1") {$link4_yes_selected = "checked";}
					if ($link4 eq "0") {$link4_no_selected = "checked";}
			}
}
$sth->finish();

if ($lastname1 ne "") {
	$author1 = "<span class=\"author\">";
	if (($practitioner1 ne "") && ($link1 eq "1")) {
		$author1 = $author1 . "<a href=\"$practitioner1\" target=\"_blank\">$firstname1 $lastname1</a></span>";
		if ($suffix1 ne "") {
			$author1 = $author1 . "<span class=\"affiliations\">, $suffix1</span>";
		}
	}
	else {
		$author1 = $author1 . "$firstname1 $lastname1</span>";
		if ($suffix1 ne "") {
			$author1 = $author1 . "<span class=\"affiliations\">, $suffix1</span>";
		}
	}
}

if ($lastname2 ne "") {
	$author2 = "<br><span class=\"author\">";
	if (($practitioner2 ne "") && ($link2 eq "1")) {
		$author2 = $author2 . "<a href=\"$practitioner2\" target=\"_blank\">$firstname2 $lastname2</a></span>";
		if ($suffix2 ne "") {
			$author2 = $author2 . "<span class=\"affiliations\">, $suffix2</span>";
		}
	}
	else {
		$author2 = $author2 . "$firstname2 $lastname2</span>";
		if ($suffix2 ne "") {
			$author2 = $author2 . "<span class=\"affiliations\">, $suffix2</span>";
		}
	}
}

if ($lastname3 ne "") {
	$author3 = "<br><span class=\"author\">";
	if (($practitioner3 ne "") && ($link3 eq "1")) {
		$author3 = $author3 . "<a href=\"$practitioner3\" target=\"_blank\">$firstname3 $lastname3</a></span>";
		if ($suffix3 ne "") {
			$author3 = $author3 . "<span class=\"affiliations\">, $suffix3</span>";
		}
	}
	else {
		$author3 = $author3 . "$firstname3 $lastname3</span>";
		if ($suffix3 ne "") {
			$author3 = $author3 . "<span class=\"affiliations\">, $suffix3</span>";
		}
	}
}

if ($lastname4 ne "") {
	$author4 = "<br><span class=\"author\">";
	if (($practitioner4 ne "") && ($link4 eq "1")) {
		$author4 = $author4 . "<a href=\"$practitioner4\" target=\"_blank\">$firstname4 $lastname4</a></span>";
		if ($suffix4 ne "") {
			$author4 = $author4 . "<span class=\"affiliations\">, $suffix4</span>";
		}
	}
	else {
		$author4 = $author4 . "$firstname4 $lastname4</span>";
		if ($suffix4 ne "") {
			$author4 = $author4 . "<span class=\"affiliations\">, $suffix4</span>";
		}
	}
}

print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n\n";

print "<html>\n";
print "<head>\n";
$page_title = "$article_title | $modality | Be Well World";
print "<title>$page_title</title>\n";
$image_id = $id;
$image_id =~ s/\//_/g;
print "<meta property=og:image content=\"http://www.bewellworld.com/content/$image_id/$large_graphic\">\n";
&print_in_head("$modality");
	print <<"END1";			
END1

&get_ads("a");

$image_id = $id;
$image_id =~ s/\//_/g;

&print_header("$modality", "$article_title");
print <<"END2";
	<div id="article_box">
		<div id="illustration"><img src="/content/$image_id/$large_graphic" alt="$article_title"></div>
		<div id="article_title">$article_title</div><br>
		<div id="subtitle">$article_subtitle</div><br>
		$author1
		$author2
		$author3
		$author4
		<div id="article_text">
			$display_article_text
		</div>
	</div>

END2

	$random_ad_number = int(rand(3));
	$random_ad_number = $random_ad_number + 1;
	if ($random_ad_number eq "1") {
	print <<"A-1-END";

	<div id="a-1-a" class="ad-480x720">
		<script type="text/javascript">
			document.write(show_ad("a-480x720-1"));
		</script>
	</div>

	<div id="a-1-b" class="ad-480x240">
		<script type="text/javascript">
			document.write(show_ad("a-480x240-1"));
		</script>
	</div>

	<div id="a-1-c" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-1"));
		</script>
	</div>

	<div id="a-1-d" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-2"));
		</script>
	</div>
                                   	
A-1-END
	} #end of a-1

	if ($random_ad_number eq "2") {
	print <<"A-2-END";

	<div id="a-2-a" class="ad-480x480">
		<script type="text/javascript">
			document.write(show_ad("a-480x480-1"));
		</script>
	</div>

	<div id="a-2-b" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-1"));
		</script>
	</div>

	<div id="a-2-c" class="ad-240x480">
		<script type="text/javascript">
			document.write(show_ad("a-240x480-1"));
		</script>
	</div>

	<div id="a-2-d" class="ad-240x480">
		<script type="text/javascript">
			document.write(show_ad("a-240x480-2"));
		</script>
	</div>

	<div id="a-2-e" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-2"));
		</script>
	</div>
                                   	
A-2-END
	} #end of a-2

	if ($random_ad_number eq "3") {
	print <<"A-3-END";

	<div id="a-3-a" class="ad-240x480">
		<script type="text/javascript">
			document.write(show_ad("a-240x480-1"));
		</script>
	</div>

	<div id="a-3-b" class="ad-240x480">
		<script type="text/javascript">
			document.write(show_ad("a-240x480-2"));
		</script>
	</div>

	<div id="a-3-c" class="ad-480x240">
		<script type="text/javascript">
			document.write(show_ad("a-480x240-1"));
		</script>
	</div>

	<div id="a-3-d" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-1"));
		</script>
	</div>

	<div id="a-3-e" class="ad-240x240">
		<script type="text/javascript">
			document.write(show_ad("a-240x240-2"));
		</script>
	</div>

	<div id="a-3-f" class="ad-480x240">
		<script type="text/javascript">
			document.write(show_ad("a-480x240-2"));
		</script>
	</div>
                                   	
A-3-END
	} #end of a-3
&print_footer();

# Disconnect from the database.
$dbh->disconnect();

sub undbquote {  
 	my($str) = @_;  
   
	$str =~ s/\\"/"/g;  
	$str =~ s/\\\\/\\/g;  
 	$str =~ s/\\’/’/g;  
 	$str =~ s/\\'/'/g;  

#   Map incompatible CP-1252 characters
	$str =~ s/\x82/,/g;
	$str =~ s/\x84/,,/g;
	$str =~ s/\x85/.../g;
	$str =~ s/\x88/^/g;
	$str =~ s/\x8B/</g;
	$str =~ s/\x8C/Oe/g;
	$str =~ s/\x91/'/g;
	$str =~ s/\x92/'/g;
	$str =~ s/\x93/"/g;
	$str =~ s/\x94/"/g;
	$str =~ s/\x95/*/g;
	$str =~ s/\x96/-/g;
	$str =~ s/\x97/--/g;
	$str =~ s/\x9B/>/g;
	$str =~ s/\x9C/oe/g;
  
 	return $str;  
}