"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } /* Subject Sytuff Not Needed 20220513 $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysqli_query($con,$sub_query); while($data = mysqli_fetch_assoc($sub_result)){ $subrow[] = $data; } // print_r($subrow); // print_r($subrow[0]); if ($subrow) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } }; //end if subrow // print_r($row); Subject Sytuff Not Needed 20220513 */ $nxt_author=mysqli_result($result,0,"author"); $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; if ($nxt_result=mysqli_query($con,$nxt_query)) { while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; // add table for non mobile if (!(isMobileDevice())) { echo "
"; } echo ""; myAllSearch( $num, $result, $ref_num, $ref_result); myRecomends( $row); // rm td for mobile if (!(isMobileDevice())) { echo " "; } echo "
"; } ?> "; } if (!(isMobileDevice())) { echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ // add table def for mobile if (isMobileDevice()) { echo ""; echo ""; } echo ""; // add table def for mobile if (isMobileDevice()) { echo ""; echo "
"; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo "
"; } } //end function function myAllSearch( $num, $result, $ref_num, $ref_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry

"; echo "
"; echo "
"; //echo 'Rhyming Dictionary Search'; // echo ""; // echo "PoetryExplorer: ${title}, by $revauth "; } // ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; /* if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } */ echo ""; // echo ""; // echo ""; echo ""; echo "
"; echo "

Sources:

"; // echo "

References:
"; $j=0; echo "
"; while ($j < $ref_num) { $myTEXT=mysqli_result($ref_result,$j,"title"); $myTEXY=mysqli_result($ref_result,$j,"year"); $myTEXP=mysqli_result($ref_result,$j,"page"); $myTEXA=mysqli_result($ref_result,$j,"author"); $myTEXA = case_author($myTEXA); $myTEXP = case_subject($myTEXP); echo " $myTEXT
"; if ( $myTEXA ) { echo "   $myTEXA
"; } if ( $myTEXY ) { // echo " Published $myTEXY
"; echo "   ($myTEXY)
"; } if ( $myTEXP ) { echo "   $myTEXP
"; } echo "

"; $j++; } echo "

"; echo "


"; $i++; } echo ""; } //end of function if(isMobileDevice()){ echo "
Mobile Browser Detected
"; } else { echo ""; } ?>