#!/usr/local/bin/perl

#unshift (@INC, "/home3/global-l/PERL");
use CGI;

$querystring = new CGI;
$qquery = $querystring->param('query');
$frametype = $querystring->param('frametype');
$site = $querystring->param('site');

#&parse_form_data (*simple_form);
#$qquery = $simple_form{'query'};
$qquery =~ s/\.narp/\.html/;
$qquery =~ s/home2\/global\-l/home\/global\-language/;
#$frametype = $simple_form{'frametype'};
#$site = $simple_form{'site'};

$ZCAT = "/bin/zcat";
$GZCAT = "/bin/zcat";

$titletext = $qquery;
$titletext =~ s/^.*AD\.([0-9\-]*)\.//;
$titletext =~ s/\/home3\/global-l\/TEXTS\/...\/....\///;
$titletext =~ s/\/home3\/global-l\/TEXTS\/...\///;
$titletext =~ s/\/home2\/global-l\/TEXTS\/...\/....\///;
$titletext =~ s/\/home2\/global-l\/TEXTS\/...\///;
$titletext =~ s/\/home\/global-language\/TEXTS\/...\/....\///;
$titletext =~ s/\/home\/global-language\/TEXTS\/...\///;
$titletext =~ s/AD\.([0-9\-]*)\.//;
$titletext =~ s/UNFIN\.//;
$titletext =~ s/Shakespeare.FirstFolio.html/Shakespeare <i>First Folio<\/i>/;
$titletext =~ s/Shakespeare.Folio.allswell.html/Shakespeare <i>All's Well That Ends Well<\/i>/;
$titletext =~ s/Shakespeare.Folio.antonyandcleopatra.html/Shakespeare <i>Anthony and Cleopatra<\/i>/;
$titletext =~ s/Shakespeare.Folio.asyoulikeit.html/Shakespeare <i>As You Like It<\/i>/;
$titletext =~ s/Shakespeare.Folio.coriolanus.html/Shakespeare <i>Coriolanus<\/i>/;
$titletext =~ s/Shakespeare.Folio.cymbeline.html/Shakespeare <i>Cymbeline<\/i>/;
$titletext =~ s/Shakespeare.Folio.errors.html/Shakespeare <i>Comedy of Errors<\/i>/;
$titletext =~ s/Shakespeare.Folio.hamlet.html/Shakespeare <i>Hamlet<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrytheeighth.html/Shakespeare <i>Henry the eighth<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythefifth.html/Shakespeare <i>Henry the Fifth<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythefourth.html/Shakespeare <i>Henry the Fourth<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythefourthparttwo.html/Shakespeare <i>Henry the Fourth, Part Two<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythesixth.html/Shakespeare <i>Henry the Sixth<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythesixthpartthree.html/Shakespeare <i>Henry the Sixth, Part Three<\/i>/;
$titletext =~ s/Shakespeare.Folio.henrythesixthparttwo.html/Shakespeare <i>Henry the Sixth, Part Two<\/i>/;
$titletext =~ s/Shakespeare.Folio.juliuscaesar.html/Shakespeare <i>Julius Caesar<\/i>/;
$titletext =~ s/Shakespeare.Folio.kingjohn.html/Shakespeare <i>King John<\/i>/;
$titletext =~ s/Shakespeare.Folio.kinglear.html/Shakespeare <i>King Lear<\/i>/;
$titletext =~ s/Shakespeare.Folio.loveslabour.html/Shakespeare <i>Love's Labour Lost<\/i>/;
$titletext =~ s/Shakespeare.Folio.macbeth.html/Shakespeare <i>Macbeth<\/i>/;
$titletext =~ s/Shakespeare.Folio.measure.html/Shakespeare <i>Measure for Measure<\/i>/;
$titletext =~ s/Shakespeare.Folio.merchant.html/Shakespeare <i>The Merchant of Venice<\/i>/;
$titletext =~ s/Shakespeare.Folio.merrywives.html/Shakespeare <i>The Merry Wives of Windsor<\/i>/;
$titletext =~ s/Shakespeare.Folio.midsummer.html/Shakespeare <i>A Midsummer's Night Dream<\/i>/;
$titletext =~ s/Shakespeare.Folio.muchado.html/Shakespeare <i>Much Ado About Nothing<\/i>/;
$titletext =~ s/Shakespeare.Folio.othello.html/Shakespeare <i>Othello<\/i>/;
$titletext =~ s/Shakespeare.Folio.richardthesecond.html/Shakespeare <i>Richard the Second<\/i>/;
$titletext =~ s/Shakespeare.Folio.richardthethird.html/Shakespeare <i>Richard the Third<\/i>/;
$titletext =~ s/Shakespeare.Folio.romeoandjuliet.html/Shakespeare <i>Romeo and Juliet<\/i>/;
$titletext =~ s/Shakespeare.Folio.taming.html/Shakespeare <i>The Taming of the Shrew<\/i>/;
$titletext =~ s/Shakespeare.Folio.tempest.html/Shakespeare <i>The Tempest<\/i>/;
$titletext =~ s/Shakespeare.Folio.timonofathens.html/Shakespeare <i>Timon of Athens<\/i>/;
$titletext =~ s/Shakespeare.Folio.titusandronicus.html/Shakespeare <i>Titus Adronicus<\/i>/;
$titletext =~ s/Shakespeare.Folio.troylusandcressida.html/Shakespeare <i>Troylus and Cressida<\/i>/;
$titletext =~ s/Shakespeare.Folio.twelthnight.html/Shakespeare <i>The Twelth Night<\/i>/;
$titletext =~ s/Shakespeare.Folio.verona.html/Shakespeare <i>Two Gentlemen of Verona<\/i>/;
$titletext =~ s/Shakespeare.Folio.winterstale.html/Shakespeare <i>A Winter's Tale<\/i>/;
$titletext =~ s/KJBible.html/<i>King James Bible<\/i>/;
$titletext =~ s/Reims.Bible.html/<i>The New Testament<\/i> (Rheims)/;
$titletext =~ s/Luther.Bible.html/<i>Die Bibel<\/i> (Luther)/;
$titletext =~ s/EncyclopediaVol1.html/Famous Encyclop&aelig;dia, Volume 1/;
$titletext =~ s/Catholic.Encyclopedia.html/<i>The Catholic Encyclopedia<\/i>/;
$titletext =~ s/Abbott.AboriginalAmerica.html/Abbott <i>Aboriginal America<\/i>/;
$titletext =~ s/Abbott.Flatland.html/Abbott <i>Flatland<\/i>/;
$titletext =~ s/Ade.Fables.html/Ade <i>Fables In Slang<\/i>/;
$titletext =~ s/Alcott.LittleWomen.html/Alcott <i>Little Women<\/i>/;
$titletext =~ s/Alcott.Thanksgiving.html/Alcott <i>An Old-Fashioned Thanksgiving<\/i>/;
$titletext =~ s/Allen.Reason.html/Allen <i>Reason, the Only Oracle of Man<\/i>/;
$titletext =~ s/Austen.Emma.html/Austen <i>Emma<\/i>/;
$titletext =~ s/Austen.Lady.html/Austen <i>Lady Susan<\/i>/;
$titletext =~ s/Austen.Love.html/Austen <i>Love and Friendship<\/i>/;
$titletext =~ s/Austen.Lett.html/Austen <i>Letters<\/i>/;
$titletext =~ s/Austen.MansfieldPark.html/Austen <i>Mansfield Park<\/i>/;
$titletext =~ s/Austen.NorthangerAbbey.html/Austen <i>Northanger Abbey<\/i>/;
$titletext =~ s/Austen.Persuasion.html/Austen <i>Persuasion<\/i>/;
$titletext =~ s/Austen.PrideandPrejudice.html/Austen <i>Pride and Prejudice<\/i>/;
$titletext =~ s/Austen.Sanditon.html/Austen <i>Sanditon<\/i>/;
$titletext =~ s/Austen.SenseandSensibility.html/Austen <i>Sense and Sensibility<\/i>/;
$titletext =~ s/Austen.Watsons.html/Austen <i>The Watsons<\/i>/;
$titletext =~ s/Bacon.NewOrganon.INT.html/Bacon <i>The New Organon<\/i>/;
$titletext =~ s/Barrie.PeterPan.html/Barrie <i>Peter Pan<\/i>/;
$titletext =~ s/Baum.MarvelousLandofOz.html/Baum <i>Marvelous Land of Oz<\/i>/;
$titletext =~ s/Baum.WizardofOz.html/Baum <i>Wizard of Oz<\/i>/;
$titletext =~ s/Beaumont.Fletcher.Pestle.html/Beaumont and Fletcher <i>The Knight of the Burning Pestle<\/i>/;
$titletext =~ s/Bentham.FragmentonGovernment.INT.html/Bentham <i>A Fragment on Government<\/i>/;
$titletext =~ s/Bentham.MoralsandLegislation.INT.html/Bentham <i>Introduction to the Principles of Morals and Legislation<\/i>/;
$titletext =~ s/Bentham.Usury.html/Bentham <i>Defence of Usury<\/i>/;
$titletext =~ s/Berkeley.Hylas.html/Berkeley <i>Three Dialogues Between Hylas and Philonous<\/i>/;
$titletext =~ s/Bessemer.Autobiography.html/Bessemer <i>Autobiography of Henry Bessemer<\/i>/;
$titletext =~ s/Beverly.OnBacon.html/Beverley <i>On Bacon's Rebellion<\/i>/;
$titletext =~ s/Berkeley.Essays.INT.html/Berkeley <i>An Essay Towards a New Theory of Vision<\/i>/;
$titletext =~ s/Bierce.CanSuchThingsBe.html/Bierce <i>Can Such Things Be<\/i>/;
$titletext =~ s/Blake.Songs.html/Blake <i>Songs of Innocence and Experience<\/i>/;
$titletext =~ s/Blake.Marriage.html/Blake <i>The Marriage of Heaven and Hell<\/i>/;
$titletext =~ s/Blake.Thel.html/Blake <i>The Book of Thel<\/i>/;
$titletext =~ s/Blake.Poems.html/Blake <i>Selected Poems<\/i>/;
$titletext =~ s/Boccaccio.Decameron.html/<i>Boccaccio's Decameron<\/i>/;
$titletext =~ s/Boysen.TwoHemispheres.html/Boysen <i>Tales from Two Hemispheres<\/i>/;
$titletext =~ s/Bonner.Homilies.html/Bp. Bonner <i>Homilies<\/i>/;
$titletext =~ s/Bronte.Agnes.html/A. Bront&euml; <i>Agnes Grey<\/i>/;
$titletext =~ s/Bronte.Wildfell.html/A. Bront&euml; <i>The Tenant of Wildfell Hall<\/i>/;
$titletext =~ s/Bronte.JaneEyre.html/C. Bront&euml; <i>Jane Eyre<\/i>/;
$titletext =~ s/Bronte.Professor.html/C. Bront&euml; <i>The Professor<\/i>/;
$titletext =~ s/Bronte.WutheringHeights.html/E. Bront&euml; <i>Wuthering Heights<\/i>/;
$titletext =~ s/Browne.LettertoFriend.html/Browne <i>Letter to a Friend<\/i>/;
$titletext =~ s/Browne.Religio.html/Browne <i>Religio Medici<\/i>/;
$titletext =~ s/Browne.UrnBurial.html/Browne <i>Urn Burial<\/i>/;
$titletext =~ s/Browning.Romances.html/R\. Browning <i>Dramatic Romances<\/i>/;
$titletext =~ s/Browning.Lyrics.html/R\. Browning <i>Dramatic Lyrics<\/i>/;
$titletext =~ s/Bunyan.HolyWar.html/Bunyan <i>Holy War<\/i>/;
$titletext =~ s/Bunyan.Pilgrim.html/Bunyan <i>Pilgrim's Progress<\/i>/;
$titletext =~ s/Burnett.SecretGarden.html/Burnett <i>Secret Garden<\/i>/;
$titletext =~ s/Burroughs.BeastsofTarzan.html/Burroughs <i>Beasts of Tarzan<\/i>/;
$titletext =~ s/Burroughs.PrincessofMars.html/Burroughs <i>Princess of Mars<\/i>/;
$titletext =~ s/Burroughs.TarzanoftheApes.html/Burroughs <i>Tarzan of the Apes<\/i>/;
$titletext =~ s/Burton.ArabianNights.html/Burton <i>Arabian Nights<\/i>/;
$titletext =~ s/Butler.WayofallFlesh.html/Butler <i>The Way of all Flesh<\/i>/;
$titletext =~ s/Byron.Juan.html/Byron <i>Don Juan<\/i>/;
$titletext =~ s/Byron.Manfred.html/Byron <i>Manfred<\/i>/;
$titletext =~ s/Carlyle.Sartor.html/Carlyle <i>Sartor Resartus<\/i>/;
$titletext =~ s/Carroll.AliceinWonderland.html/Carroll <i>Alice in Wonderland<\/i>/;
$titletext =~ s/Carroll.HuntingoftheSnark.html/Carroll <i>Hunting of the Snark<\/i>/;
$titletext =~ s/Carroll.LookingGlass.html/Carroll <i>Through the Looking Glass<\/i>/;
$titletext =~ s/Cather.MyAntonia.html/Cather <i>My Antonia<\/i>/;
$titletext =~ s/Cather.Pioneers.html/Cather <i>O Pioneers<\/i>/;
$titletext =~ s/Cather.ProfessorsHouse.html/Cather <i>Professor's House<\/i>/;
$titletext =~ s/Cather.SongofLark.html/Cather <i>Song of the Lark<\/i>/;
$titletext =~ s/Cayley.AerialNavigation.html/Cayley <i>On Aerial Navigation<\/i>/;
$titletext =~ s/Chaucer.CanterburyTales.html/Chaucer <i>Canterbury Tales<\/i>/;
$titletext =~ s/Chaucer.Troilus.html/Chaucer <i>Troilus and Criseyde<\/i>/;
$titletext =~ s/Cleland.FannyHill.html/Cleland <i>Fanny Hill<\/i>/;
$titletext =~ s/Collins.WomaninWhite.html/Collins <i>Woman in White<\/i>/;
$titletext =~ s/Collins.HauntedHotel.html/Collins <i>The Haunted Hotel: A Mystery of Modern Venice<\/i>/;
$titletext =~ s/Conkling.Washington1.html/Conkling <i>Memoirs of the Mother and Wife of Washington \(1\)<\/i>/;
$titletext =~ s/Conkling.Washington2.html/Conkling <i>Memoirs of the Mother and Wife of Washington \(2\)<\/i>/;
$titletext =~ s/Conrad.HeartofDarkness.html/Conrad <i>Heart of Darkness<\/i>/;
$titletext =~ s/Conrad.LordJim.html/Conrad <i>Lord Jim<\/i>/;
$titletext =~ s/Conrad.NiggerofNarcissus.html/Conrad <i>Nigger of Narcissus<\/i>/;
$titletext =~ s/Conrad.Nostromo.html/Conrad <i>Nostromo<\/i>/;
$titletext =~ s/Conrad.SecretAgent.html/Conrad <i>The Secret Agent<\/i>/;
$titletext =~ s/Conrad.SecretSharer.html/Conrad <i>Secret Sharer<\/i>/;
$titletext =~ s/Cooper.Mohicans.html/Cooper <i>Last of the Mohicans<\/i>/;
$titletext =~ s/Crane.Maggie.html/Crane <i>Maggie: A Girl of the Streets<\/i>/;
$titletext =~ s/Cosmopolitan1.html/<i>Cosmopolitan \(1\)<\/i> Jan\. 1898/;
$titletext =~ s/Cosmopolitan2.html/<i>Cosmopolitan \(2\)<\/i> Jan\. 1898/;
$titletext =~ s/Cosmopolitan3.html/<i>Cosmopolitan \(3\)<\/i> Jan\. 1898/;
$titletext =~ s/Cosmopolitan4.html/<i>Cosmopolitan \(4\)<\/i> Jan\. 1898/;
$titletext =~ s/Cosmopolitan5.html/<i>Cosmopolitan \(5\)<\/i> Jan\. 1898/;
$titletext =~ s/Cosmopolitan6.html/<i>Cosmopolitan \(6\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan7.html/<i>Cosmopolitan \(7\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan8.html/<i>Cosmopolitan \(8\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan9.html/<i>Cosmopolitan \(9\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan10.html/<i>Cosmopolitan \(10\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan11.html/<i>Cosmopolitan \(11\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan12.html/<i>Cosmopolitan \(12\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan13.html/<i>Cosmopolitan \(13\)<\/i> Feb\. 1898/;
$titletext =~ s/Cosmopolitan14.html/<i>Cosmopolitan \(14\)<\/i> Feb\. 1898/;
$titletext =~ s/Crane.RedBadge.html/Crane <i>Red Badge of Courage<\/i>/;
$titletext =~ s/Crevecoeur.Letters.html/Cr&egrave;vecoeur <i>Letters From an American Farmer<\/i>/;
$titletext =~ s/Dana.TwoYearsBeforeMast.html/Dana <i>Two Years Before the Mast<\/i>/;
$titletext =~ s/Darwin.Beagle.html/Darwin <i>Voyage of the Beagle<\/i>/;
$titletext =~ s/Darwin.OriginofSpecies.html/Darwin <i>Origin of the Species<\/i>/;
$titletext =~ s/DeQuincy.Tartars.html/De Quincy <i>Revolt of the Tartars<\/i>/;
$titletext =~ s/Defoe.MollFlanders.html/Defoe <i>Moll Flanders<\/i>/;
$titletext =~ s/Defoe.Plague.html/Defoe <i>A Journal of the Plague Year<\/i>/;
$titletext =~ s/Dekker.Edmonton.html/Dekker <i>Witch of Edmonton<\/i>/;
$titletext =~ s/Dekker.London.html/Dekker <i>Meet Me in London<\/i>/;
$titletext =~ s/Dekker.Shoemaker.html/Dekker <i>Shoemaker's Holiday<\/i>/;
$titletext =~ s/Dickens.Chimes.html/Dickens <i>Chimes<\/i>/;
$titletext =~ s/Dickens.ChristmasCarol.html/Dickens <i>Christmas Carol<\/i>/;
$titletext =~ s/Dickens.Dombey.html/Dickens <i>Dombey and Son<\/i>/;
$titletext =~ s/Dickens.GreatExpectations.html/Dickens <i>Great Expectations<\/i>/;
$titletext =~ s/Dickens.Dorrit.html/Dickens <i>Little Dorrit<\/i>/;
$titletext =~ s/Dickens.Chuzzlewit.html/Dickens <i>Martin Chuzzlewit<\/i>/;
$titletext =~ s/Dickens.Drood.html/Dickens <i>The Mystery of Edwin Drood<\/i>/;
$titletext =~ s/Dickens.Nicholas.html/Dickens <i>Nicholas Nickleby<\/i>/;
$titletext =~ s/Dickens.Twist.html/Dickens <i>Oliver Twist<\/i>/;
$titletext =~ s/Dickens.Mutual.html/Dickens <i>Our Mutual Friend<\/i>/;
$titletext =~ s/Dickens.Pickwick.html/Dickens <i>The Pickwick Papers<\/i>/;
$titletext =~ s/Dickens.Pictures.html/Dickens <i>Pictures from Italy<\/i>/;
$titletext =~ s/Dickens.TaleofTwoCities.html/Dickens <i>Tale of Two Cities<\/i>/;
$titletext =~ s/Dickinson.Poems.html/E. Dickinson <i>Poems<\/i>/;
$titletext =~ s/Dickinson.BritishColonies.html/J. Dickinson <i>British Colonies<\/i>/;
$titletext =~ s/Donne.Anniversary1.html/Donne <i>An Anatomie of the World: The First Anniversary<\/i>/;
$titletext =~ s/Donne.Duel.html/Donne <i>Death's Duel<\/i>/;
$titletext =~ s/Donne.Devotions.html/Donne <i>Devotions<\/i>/;
$titletext =~ s/Donne.Elegies.html/Donne <i>Elegies<\/i>/;
$titletext =~ s/Donne.Epigrams.html/Donne <i>Epigrams<\/i>/;
$titletext =~ s/Donne.Epithalamions.html/Donne <i>Epithalamions<\/i>/;
$titletext =~ s/Donne.HolySonnets.html/Donne <i>Holy Sonnets<\/i>/;
$titletext =~ s/Donne.Latin.html/Donne <i>Latin Poems and Translations<\/i>/;
$titletext =~ s/Donne.Progress.html/Donne <i>The Progresse of the Soule<\/i>/;
$titletext =~ s/Donne.Songs.html/Donne <i>Songs and Sonnets<\/i>/;
$titletext =~ s/Douglass.Autobiography.html/Douglass <i>Autobiography<\/i>/;
$titletext =~ s/Doyle.Holmes.html/Doyle <i>Adventures of Sherlock Holmes<\/i>/;
$titletext =~ s/Doyle.ValleyofFear.html/Doyle <i>Valley of Fear<\/i>/;
$titletext =~ s/Dryden.Aeneid.html/Dryden <i>&AElig;neid<\/i>/;
$titletext =~ s/Duncan.Autobiography.html/Duncan <i>Autobiography of Chapman Duncan<\/i>/;
$titletext =~ s/EEAllitPearl.html/<i>Early English Alliterative Pearl<\/i>/;
$titletext =~ s/Edward3.html/<i>Edward the Third<\/i>/;
$titletext =~ s/Edwards.TrueSaints.html/Edwards <i>True Saints, When Absent From the Body, Are Present with the Lord<\/i>/;
$titletext =~ s/Eliot.Bede.html/Geo. Eliot <i>Adam Bede<\/i>/;
$titletext =~ s/Eliot.FelixHolt.html/Geo. Eliot <i>Felix Holt, The Radical<\/i>/;
$titletext =~ s/Eliot.Veil.html/Geo. Eliot <i>The Lifted Veil<\/i>/;
$titletext =~ s/Eliot.Amos.html/Geo. Eliot <i>The Sad Fortunes of The Reverend Amos Barton<\/i>/;
$titletext =~ s/Eliot.Gilfil.html/Geo. Eliot <i>Mr. Gilfil's Love Story<\/i>/;
$titletext =~ s/Eliot.Janet.html/Geo. Eliot <i>Janet's Repentance<\/i>/;
$titletext =~ s/Eliot.Middlemarch.html/Geo. Eliot <i>Middlemarch<\/i>/;
$titletext =~ s/Eliot.Romola.html/Geo. Eliot <i>Romola<\/i>/;
$titletext =~ s/Eliot.MillontheFloss.html/Geo. Eliot <i>The Mill on the Floss<\/i>/;
$titletext =~ s/Eliot.Poems.html/T. S. Eliot <i>Poems<\/i> \(1920\)/;
$titletext =~ s/Eliot.Prufrock.html/T. S. Eliot <i>Prufrock and Other Observations<\/i>/;
$titletext =~ s/Eliot.SacredWood.html/T. S. Eliot <i>The Sacred Wood<\/i>/;
$titletext =~ s/Eliot.Wasteland.html/T. S. Eliot <i>The Waste Land<\/i>/;
$titletext =~ s/Elyot.Governor.html/Elyot <i>Governor<\/i>/;
$titletext =~ s/Emerson.EarlyPoems.html/Emerson <i>Early Poems<\/i>/;
$titletext =~ s/Emerson.EnglishTraits.html/Emerson <i>English Traits<\/i>/;
$titletext =~ s/Emerson.Essays1.html/Emerson <i>Essays: First Series<\/i>/;
$titletext =~ s/Emerson.Essays2.html/Emerson <i>Essays: Second Series<\/i>/;
$titletext =~ s/Emerson.RepresentativeMen.html/Emerson <i>Representative Men<\/i>/;
$titletext =~ s/Engels.CommunistManifesto.html/Engels <i>Communist Manifesto<\/i>/;
$titletext =~ s/FederalistPapers.html/<i>Federalist Papers<\/i>/;
$titletext =~ s/Fielding.JosephAndrews.html/Fielding <i>Joseph Andrews<\/i>/;
$titletext =~ s/Fielding.Journey.html/Fielding <i>A Journey From This World to the Next<\/i>/;
$titletext =~ s/Fielding.TomJones.html/Fielding <i>Tom Jones<\/i>/;
$titletext =~ s/Fielding.Lisbon.html/Fielding <i>Voyage to Lisbon<\/i>/;
$titletext =~ s/Fletcher.Chances.html/Fletcher <i>Chances<\/i>/;
$titletext =~ s/Fletcher.Demetrius.html/Fletcher <i>Demetrius<\/i>/;
$titletext =~ s/Fletcher.Island.html/Fletcher <i>Island<\/i>/;
$titletext =~ s/Fletcher.MonsieurThomas.html/Fletcher <i>Monsieur Thomas<\/i>/;
$titletext =~ s/Fletcher.Prize.html/Fletcher <i>Prize<\/i>/;
$titletext =~ s/Franklin.Autobiography.html/Franklin <i>Autobiography<\/i>/;
$titletext =~ s/Franklin.Lett.html/Franklin <i>Letters<\/i>/;
$titletext =~ s/Franklin.Philadelphia.html/Franklin <i>Philadelphia<\/i>/;
$titletext =~ s/GammerGurton.html/<i>Gammer Gurton's Needle<\/i>/;
$titletext =~ s/Gaskell.Hand.html/Gaskell <i>Hand and Heart<\/i>/;
$titletext =~ s/Gaskell.Cumberland.html/Gaskell <i>Cumberland Sheep\-Shearers<\/i>/;
$titletext =~ s/Gaskell.Doom.html/Gaskell <i>The Doom of the Griffiths<\/i>/;
$titletext =~ s/Gaskell.Right.html/Gaskell <i>Right at Last<\/i>/;
$titletext =~ s/Gaskell.Sketches.html/Gaskell <i>Sketches among the Poor<\/i>/;
$titletext =~ s/Gaskell.Lizzie.html/Gaskell <i>Lizzie Leigh<\/i>/;
$titletext =~ s/Gaskell.Middleton.html/Gaskell <i>The Heart of John Middleton<\/i>/;
$titletext =~ s/Gaskell.Well.html/Gaskell <i>The Well of Pen-Morfa<\/i>/;
$titletext =~ s/Gaskell.Wives.html/Gaskell <i>Wives and Daughters<\/i>/;
$titletext =~ s/Gaskell.Nurse.html/Gaskell <i>The Old Nurse's Story<\/i>/;
$titletext =~ s/Gaskell.French.html/Gaskell <i>My French Master<\/i>/;
$titletext =~ s/Gaskell.Ruth.html/Gaskell <i>Ruth<\/i>/;
$titletext =~ s/Gaskell.Manchester.html/Gaskell <i>The Manchester Marriage<\/i>/;
$titletext =~ s/Gaskell.NorthSouth.html/Gaskell <i>North and South<\/i>/;
$titletext =~ s/Gaskell.Squire.html/Gaskell <i>The Squire's Story<\/i>/;
$titletext =~ s/Gaskell.Brothers.html/Gaskell <i>Half-Brothers<\/i>/;
$titletext =~ s/Gaskell.Curious.html/Gaskell <i>Curious, If True<\/i>/;
$titletext =~ s/Gaskell.Heppenheim.html/Gaskell <i>Six Weeks at Heppenheim<\/i>/;
$titletext =~ s/Gaskell.Phillis.html/Gaskell <i>Cousin Phillis<\/i>/;
$titletext =~ s/Gaskell.Charlotte.html/Gaskell <i>The Life of Charlotte Bront\&euml\;<\/i>/;
$titletext =~ s/Gaskell.MaryBarton.html/Gaskell <i>Mary Barton<\/i>/;
$titletext =~ s/Gaskell.Chomley.html/Gaskell <i>Chomley<\/i>/;
$titletext =~ s/Gaskell.Christmas.html/Gaskell <i>Christmas Storms and Sunshine<\/i>/;
$titletext =~ s/Gaskell.Cranford.html/Gaskell <i>Cranford<\/i>/;
$titletext =~ s/Gaskell.DesertedMansion.html/Gaskell <i>Deserted Mansion<\/i>/;
$titletext =~ s/Gaskell.FearforFuture.html/Gaskell <i>Fear for Future<\/i>/;
$titletext =~ s/Gaskell.SextonsHero.html/Gaskell <i>Sextons Hero<\/i>/;
$titletext =~ s/Gaskell.Shams.html/Gaskell <i>Shams<\/i>/;
$titletext =~ s/Gaskell.Sylvia.html/Gaskell <i>Sylvia's Lovers<\/i>/;
$titletext =~ s/Gaskell.UnclePeter1.html/Gaskell <i>Uncle Peter 1<\/i>/;
$titletext =~ s/Gaskell.UnclePeter2.html/Gaskell <i>Uncle Peter 2<\/i>/;
$titletext =~ s/Gaskell.VisittoEton.html/Gaskell <i>Visit to Eton<\/i>/;
$titletext =~ s/Gawain.html/<i>Gawain<\/i>/;
$titletext =~ s/Gay.BeggarsOpera.html/Gay <i>Beggar's Opera<\/i>/;
$titletext =~ s/Gibbon.Decline1.html/Gibbon <i>History Of The Decline And Fall Of The Roman Empire, Volume I\.<\/i>/;
$titletext =~ s/Gibbon.Decline2.html/Gibbon <i>History Of The Decline And Fall Of The Roman Empire, Volume II\.<\/i>/;
$titletext =~ s/Gilman.Herland.html/Gilman <i>Herland<\/i>/;
$titletext =~ s/Gower.Confessio.html/Gower <i>Confessio amantis<\/i>/;
$titletext =~ s/Grahame.GoldenAge.html/Grahame <i>Golden Age<\/i>/;
$titletext =~ s/Graunt.BillsofMortality.html/Graunt <i>Bills of Mortality<\/i>/;
$titletext =~ s/Graves.FairiesandFusiliers.html/Graves <i>Fairies and Fusiliers<\/i>/;
$titletext =~ s/Gray.TwoPoems.html/Gray <i>Two Poems<\/i>/;
$titletext =~ s/Hakluyt.Discourse.html/Hakluyt <i>Discourse of Western Planting<\/i> \(Introduction\)/;
$titletext =~ s/HarpersMag1.html/<i>Harper's New Monthly Magazine \(1\)<\/i> Dec. 1879/;
$titletext =~ s/HarpersMag2.html/<i>Harper's New Monthly Magazine \(2\)<\/i> Dec. 1879/;
$titletext =~ s/HarpersMag3.html/<i>Harper's New Monthly Magazine \(3\)<\/i> Dec. 1879/;
$titletext =~ s/HarpersMag4.html/<i>Harper's New Monthly Magazine \(4\)<\/i> Jan. 1880/;
$titletext =~ s/HarpersMag5.html/<i>Harper's New Monthly Magazine \(5\)<\/i> Jan. 1880/;
$titletext =~ s/HarpersMag6.html/<i>Harper's New Monthly Magazine \(6\)<\/i> Jan. 1880/;
$titletext =~ s/Hardy.FFMC.html/Hardy <i>Far From the Madding Crowd<\/i>/;
$titletext =~ s/Hardy.Jude.html/Hardy <i>Jude the Obscure<\/i>/;
$titletext =~ s/Hardy.MayorofCasterbridge.html/Hardy <i>Mayor of Casterbridge<\/i>/;
$titletext =~ s/Hardy.BlueEyes.html/Hardy <i>A Pair of Blue Eyes<\/i>/;
$titletext =~ s/Hardy.ReturnofNative.html/Hardy <i>Return of the Native<\/i>/;
$titletext =~ s/Hardy.Tess.html/Hardy <i>Tess of the d'Urbervilles<\/i>/;
$titletext =~ s/Hardy.WessexPoems.html/Hardy <i>Wessex Poems<\/i>/;
$titletext =~ s/Hardy.Woodlanders.html/Hardy <i>The Woodlanders<\/i>/;
$titletext =~ s/Hawthorne.Gables.html/Hawthorne <i>House of the Seven Gables<\/i>/;
$titletext =~ s/Hawthorne.ScarletLetter.html/Hawthorne <i>Scarlet Letter<\/i>/;
$titletext =~ s/Hawthorne.TwiceToldTales.html/Hawthorne <i>Twice Told Tales<\/i>/;
$titletext =~ s/Hobbes.Leviathan.INT.html/Hobbes <i>Leviathan<\/i>/;
$titletext =~ s/Hobbes.DeCive.html/Hobbes <i>De Cive<\/i>/;
$titletext =~ s/Hoby.Castiglione1.html/Hoby <i>Castiglione's Courtyer, Book 1<\/i>/;
$titletext =~ s/Hope.PrisonerofZenda.html/Hope <i>Prisoner of Zenda<\/i>/;
$titletext =~ s/Hopkins.Poems.html/Hopkins <i>The Poems of Gerard Manley Hopkins<\/i>/;
$titletext =~ s/Housman.ShropshireLad.html/Housman <i>A Shropshire Lad<\/i>/;
$titletext =~ s/Howells.Silas.html/Howells <i>The Rise of Silas Lapham<\/i>/;
$titletext =~ s/Hume.HumanNature.INT.html/Hume <i>A Treatise of Human Nature<\/i>/;
$titletext =~ s/InternationalReview1.html/<i>The International Review \(1\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview2.html/<i>The International Review \(2\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview3.html/<i>The International Review \(3\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview4.html/<i>The International Review \(4\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview5.html/<i>The International Review \(5\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview6.html/<i>The International Review \(6\)<\/i> Jan\. 1874/;
$titletext =~ s/InternationalReview7.html/<i>The International Review \(7\)<\/i> Mar\. 1874/;
$titletext =~ s/InternationalReview8.html/<i>The International Review \(8\)<\/i> Mar\. 1874/;
$titletext =~ s/InternationalReview9.html/<i>The International Review \(9\)<\/i> May 1874/;
$titletext =~ s/InternationalReview10.html/<i>The International Review \(10\)<\/i> May 1874/;
$titletext =~ s/Inventories.html/Inventories 1537-1756/;
$titletext =~ s/Irving.SleepyHollow.html/Irving <i>Legend of Sleepy Hollow<\/i>/;
$titletext =~ s/James.American.html/H. James <i>American<\/i>/;
$titletext =~ s/James.Ambassadors.html/H. James <i>The Ambassadors<\/i>/;
$titletext =~ s/James.Bostonians.html/H. James <i>The Bostonians<\/i>/;
$titletext =~ s/James.Confidence.html/H. James <i>Confidence<\/i>/;
$titletext =~ s/James.DaisyMiller.html/H. James <i>Daisy Miller<\/i>/;
$titletext =~ s/James.Europeans.html/H. James <i>Europeans<\/i>/;
$titletext =~ s/James.GoldenBowl.html/H. James <i>The Golden Bowl<\/i>/;
$titletext =~ s/James.International.html/H. James <i>An International Episode<\/i>/;
$titletext =~ s/James.Portrait.html/H. James <i>Portrait of a Lady<\/i>/;
$titletext =~ s/James.Roderick.html/H. James <i>Roderick Hudson<\/i>/;
$titletext =~ s/James.TurnofScrew.html/H. James <i>The Turn of the Screw<\/i>/;
$titletext =~ s/James.WashingtonSquare.html/H. James <i>Washington Square<\/i>/;
$titletext =~ s/James.Watch.html/H. James <i>Watch and Ward<\/i>/;
$titletext =~ s/James.Empiricism.html/W. James <i>Essays in Radical Empiricism<\/i>/;
$titletext =~ s/James.GreatMen.html/W. James <i>Great Men and their Environment<\/i>/;
$titletext =~ s/James.Varieties.html/W. James <i>Varieties of Religious Experience<\/i>/;
$titletext =~ s/Jefferson.Addresses.html/Jefferson <i>Addresses<\/i>/;
$titletext =~ s/Jefferson.Autobiography.html/Jefferson <i>Autobiography<\/i>/;
$titletext =~ s/Jefferson.BritishAmerica.html/Jefferson <i>British America<\/i>/;
$titletext =~ s/Jefferson.Lett.html/Jefferson <i>Letters<\/i>/;
$titletext =~ s/Jefferson.MiscWritings.html/Jefferson <i>Miscellaneous Writings<\/i>/;
$titletext =~ s/Jefferson.PublicPapers.html/Jefferson <i>Public Papers<\/i>/;
$titletext =~ s/Jefferson.Virginia.html/Jefferson <i>Virginia<\/i>/;
$titletext =~ s/Jonson.Alchemist.html/Jonson <i>Alchemist<\/i>/;
$titletext =~ s/Jonson.BartholomewFair.html/Jonson <i>Bartholomew Fair<\/i>/;
$titletext =~ s/Jonson.Catiline.html/Jonson <i>Catiline<\/i>/;
$titletext =~ s/Jonson.Cynthia.html/Jonson <i>Cynthia's Revels<\/i>/;
$titletext =~ s/Jonson.Epicoene.html/Jonson <i>Epicoene<\/i>/;
$titletext =~ s/Jonson.EveryMan.html/Jonson <i>Every Man in His Humour<\/i>/;
$titletext =~ s/Jonson.Sejanus.html/Jonson <i>Sejanus<\/i>/;
$titletext =~ s/Jonson.Volpone.html/Jonson <i>Volpone<\/i>/;
$titletext =~ s/Joyce.Dubliners.html/Joyce <i>Dubliners<\/i>/;
$titletext =~ s/Joyce.Portrait.html/Joyce <i>Portrait of the Artist as a Young Man<\/i>/;
$titletext =~ s/Joyce.Ulysses.html/Joyce <i>Ulysses<\/i>/;
$titletext =~ s/Kelly.Autobiography.html/Kelly <i>Autobiography<\/i>/;
$titletext =~ s/Kipling.JungleBook.html/Kipling <i>Jungle Book<\/i>/;
$titletext =~ s/Kipling.Kim.html/Kipling <i>Kim<\/i>/;
$titletext =~ s/Kipling.Stalky.html/Kipling <i>Stalky and Company<\/i>/;
$titletext =~ s/Kyd.SpanishTragedy.html/Kyd <i>Spanish Tragedy<\/i>/;
$titletext =~ s/Law.Appeal.html/Law <i>An Appeal To all that Doubt, or Disbelieve The Truths of the Gospel<\/i>/;
$titletext =~ s/Law.Justification.html/Law <i>Of Justification by Faith and Works<\/i>/;
$titletext =~ s/Lawrence.Amores.html/Lawrence <i>Amores<\/i>/;
$titletext =~ s/Lawrence.NewPoems.html/Lawrence <i>New Poems<\/i>/;
$titletext =~ s/Lawrence.LadyChatterley.html/Lawrence <i>Lady Chatterley's Lover<\/i>/;
$titletext =~ s/Lawrence.Women.html/Lawrence <i>Women in Love<\/i>/;
$titletext =~ s/Observator.html/L\'Estrange <i>Selections from The Observator<\/i>/;
$titletext =~ s/Lewis.Wrenn.html/Lewis <i>Our Mr. Wrenn<\/i>/;
$titletext =~ s/Locke.Understanding.INT.html/Locke <i>An Essay Concerning Human Understanding<\/i>/;
$titletext =~ s/London.CallofWild.html/London <i>Call of the Wild<\/i>/;
$titletext =~ s/London.KlondikeStories.html/London <i>Klondike Stories<\/i>/;
$titletext =~ s/London.SeaWolf.html/London <i>Sea Wolf<\/i>/;
$titletext =~ s/London.SelectedStories.html/London <i>Selected Stories<\/i>/;
$titletext =~ s/London.WhiteFang.html/London <i>White Fang<\/i>/;
$titletext =~ s/LongBuckbyWills.html/Long Buckby Wills 1558-1688/;
$titletext =~ s/MacDonald.NorthWind.html/Mac Donald <i>North Wind<\/i>/;
$titletext =~ s/Marlowe.EdwardII.html/Marlowe <i>Edward the Second<\/i>/;
$titletext =~ s/Marlowe.Faustus.html/Marlowe <i>Dr. Faustus<\/i>/;
$titletext =~ s/Marvell.Poems.html/Marvell <i>Poems<\/i>/;
$titletext =~ s/Maryland.Toleration.html/<i>The Maryland Toleration Act<\/i>/;
$titletext =~ s/Maugham.HumanBondage.html/Maugham <i>Of Human Bondage<\/i>/;
$titletext =~ s/Mayhew.Submission.html/Mayhew <i>Submission<\/i>/;
$titletext =~ s/Melville.BartlebytheScrivener.html/Melville <i>Bartleby the Scrivener<\/i>/;
$titletext =~ s/Melville.BenitoCereno.html/Melville <i>Benito Cereno<\/i>/;
$titletext =~ s/Melville.BillyBudd.html/Melville <i>Billy Budd<\/i>/;
$titletext =~ s/Melville.MobyDick.html/Melville <i>Moby Dick<\/i>/;
$titletext =~ s/Melville.MobyDick.LoA.html/Melville <i>Moby Dick<\/i>/;
$titletext =~ s/Mill.Women.html/Mill <i>On Women<\/i>/;
$titletext =~ s/Milton.Areopagitica.html/Milton <i>Areopagitica<\/i>/;
$titletext =~ s/Milton.Comus.html/Milton <i>Comus<\/i>/;
$titletext =~ s/Milton.ParadiseLost.html/Milton <i>Paradise Lost<\/i>/;
$titletext =~ s/Milton.ParadiseRegained.html/Milton <i>Paradise Regained<\/i>/;
$titletext =~ s/Milton.Samson.html/Milton <i>Samson Agonistes<\/i>/;
$titletext =~ s/Milton.ThreePoems.html/Milton <i>Lycidas, L'Allegro, Il Penseroso<\/i>/;
$titletext =~ s/Montgomery.Avonlea.html/Montgomery <i>Anne of Avonlea<\/i>/;
$titletext =~ s/Montgomery.GreenGables.html/Montgomery <i>Anne of Green Gables<\/i>/;
$titletext =~ s/Montgomery.Island.html/Montgomery <i>Anne of the Island<\/i>/;
$titletext =~ s/More.Richard3.html/More <i>History of King Richard the Thirde<\/i>/;
$titletext =~ s/Morris.News.html/Morris <i>News From Nowhere<\/i>/;
$titletext =~ s/MorteArthure.html/<i>Morte Arthure<\/i>/;
$titletext =~ s/Muir.FirstSummerinSierra.html/Muir <i>My First Summer in the Sierra<\/i>/;
$titletext =~ s/Muir.Youth.html/Muir <i>My Boyhood and Youth<\/i>/;
$titletext =~ s/Mulcaster.Elementarie.html/Mulcaster <i>Elementarie<\/i>/;
$titletext =~ s/NewYorkNewspapers.0.html/New York Newspapers \(0\)/;
$titletext =~ s/NewYorkNewspapers.1.html/New York Newspapers \(1\)/;
$titletext =~ s/NewYorkNewspapers.2.html/New York Newspapers \(2\)/;
$titletext =~ s/NewYorkNewspapers.3.html/New York Newspapers \(3\)/;
$titletext =~ s/NewYorkNewspapers.4.html/New York Newspapers \(4\)/;
$titletext =~ s/NewYorkNewspapers.5.html/New York Newspapers \(5\)/;
$titletext =~ s/NewYorkNewspapers.6.html/New York Newspapers \(6\)/;
$titletext =~ s/Norris.Pit.html/Norris <i>Pit<\/i>/;
$titletext =~ s/Norton.EnglishLawsforWomen.html/Norton <i>English Laws for Women in the Nineteenth Century<\/i>/;
$titletext =~ s/OHenry.GiftofMagi.html/O. Henry <i>Gift of the Magi<\/i>/;
$titletext =~ s/Orczy.ScarletPimpernel.html/Orczy <i>Scarlet Pimpernel<\/i>/;
$titletext =~ s/Otis.RightsBritishColonies.html/Otis <i>Rights of the British Colonies<\/i>/;
$titletext =~ s/Otis.Vindication.html/Otis <i>Vindication<\/i>/;
$titletext =~ s/Owen.NewView.html/R\. Owen <i>A New View of Society<\/i>/;
$titletext =~ s/Owen.Poems.html/W\. Owen <i>Collected Poems<\/i>/;
$titletext =~ s/OwlandNightengale1.html/<i>Owl and the Nightengale 1<\/i>/;
$titletext =~ s/OwlandNightengale2.html/<i>Owl and the Nightengale 2<\/i>/;
$titletext =~ s/Paine.RightsofMan.html/Paine <i>Rights of Man<\/i>/;
$titletext =~ s/PastonLetters.html/<i>Paston Letters<\/i>/;
$titletext =~ s/Phillips.SusanLenox.html/Phillips <i>Susan Lenox<\/i>/;
$titletext =~ s/Pliny.Epistles.html/Pliny <i>Epistles<\/i>/;
$titletext =~ s/Plutarch.html/Plutarch <i>Lives of the Noble Grecians and Romans<\/i>/;
$titletext =~ s/Poe.Stories.html/Poe <i>Stories<\/i>/;
$titletext =~ s/Poe.Usher.Ligeia.html/Poe <i>Fall of the House of Usher and Ligeia<\/i>/;
$titletext =~ s/Porter.JustDavid.html/Porter <i>Just David<\/i>/;
$titletext =~ s/Puttenham.Poesie.html/Puttenham <i>Arte of Poesie<\/i>/;
$titletext =~ s/Randolph.VirginiaHousewife.html/Randolph <i>The Virginia House\-wife<\/i>/;
$titletext =~ s/Roberts.ForgeinForest.html/Roberts <i>Forge in Forest<\/i>/;
$titletext =~ s/Robinson.Sappho.html/Robinson <i>Sappho and Phoan<\/i>/;
$titletext =~ s/Roosevelt.RoughRiders.html/T\. Roosevelt <i>Rough Riders<\/i>/;
$titletext =~ s/Rutledge.Carolina.html/Rutledge <i>The Carolina Housewife<\/i>/;
$titletext =~ s/Sassoon.CounterAttack.html/Sassoon <i>Counter\-Attack, and Other Poems<\/i>/;
$titletext =~ s/Sassoon.Huntsman.html/Sassoon <i>The Old Huntsman, and Other Poems<\/i>/;
$titletext =~ s/Sassoon.PictureShow.html/Sassoon <i>Picture\-show<\/i>/;
$titletext =~ s/Scots.RaufColzear.html/Scots <i>Rauf Colzear<\/i>/;
$titletext =~ s/Scott.Antiquary.html/Scott <i>Antiquary<\/i>/;
$titletext =~ s/Scott.Ivanhoe.html/Scott <i>Ivanhoe<\/i>/;
$titletext =~ s/Scott.Montrose.html/Scott <i>A Legend of Montrose<\/i>/;
$titletext =~ s/Scott.Waverley.html/Scott <i>Waverley<\/i>/;
$titletext =~ s/Shakespeare.Hamlet.Q1.html/Shakespeare <i>Hamlet Q1<\/i>/;
$titletext =~ s/Shakespeare.Hamlet.Q2.html/Shakespeare <i>Hamlet Q2<\/i>/;
$titletext =~ s/Shakespeare.Hamlet.folio.html/Shakespeare <i>Hamlet folio<\/i>/;
$titletext =~ s/Shakespeare.Lear.folio.html/Shakespeare <i>Lear folio<\/i>/;
$titletext =~ s/Shakespeare.Macbeth.folio.html/Shakespeare <i>Macbeth folio<\/i>/;
$titletext =~ s/Shakespeare.MerchantofVenice.folio.html/Shakespeare <i>Merchant of Venice folio<\/i>/;
$titletext =~ s/Shakespeare.Othello.Q.html/Shakespeare <i>Othello Quarto<\/i>/;
$titletext =~ s/Shakespeare.Othello.folio.html/Shakespeare <i>Othello folio<\/i>/;
$titletext =~ s/Shakespeare.Richard2.html/Shakespeare <i>Richard the Second folio<\/i>/;
$titletext =~ s/Shakespeare.Tempest.folio.html/Shakespeare <i>Tempest folio<\/i>/;
$titletext =~ s/Shaw.Ibsenism.html/Shaw <i>Ibsenism<\/i>/;
$titletext =~ s/Shelley.Frankenstein.html/M. Shelley <i>Frankenstein<\/i>/;
$titletext =~ s/Shelley.Alastor.html/P. Shelley <i>Alastor<\/i>/;
$titletext =~ s/Shelley.Islam.html/P. Shelley <i>The Revolt of Islam<\/i>/;
$titletext =~ s/Shelley.Mab.html/P. Shelley <i>Queen Mab<\/i>/;
$titletext =~ s/Shelley.Julian.html/P. Shelley <i>Julian and Maddalo<\/i>/;
$titletext =~ s/Sherry.Children.html/Sherry <i>On the Education of Children<\/i>/;
$titletext =~ s/Sidney.Stella.html/Sidney <i>Astrophel and Stella<\/i>/;
$titletext =~ s/Sidney.May.html/Sidney <i>The Lady of May<\/i>/;
$titletext =~ s/Sidney.Defence.html/Sidney <i>The Defence of Poesie<\/i>/;
$titletext =~ s/Sherry.Treatise.html/Sherry <i>Treatise<\/i>/;
$titletext =~ s/Skelton.Poems.html/Skelton <i>Poems<\/i>/;
$titletext =~ s/Smith.Wealth.html/Smith <i>An Inquiry into the Nature and Causes of the Wealth of Nations<\/i>/;
$titletext =~ s/Smith.MoralSentiments.html/Smith <i>The Theory of Moral Sentiments<\/i>/;
$titletext =~ s/Stevenson.ChildGarden.html/Stevenson <i>A Child's Garden of Verses<\/i>/;
$titletext =~ s/Stevenson.Dynamiter.html/Stevenson <i>The Dynamiter<\/i>/;
$titletext =~ s/Stevenson.JekyllHyde.html/Stevenson <i>Dr. Jekyll and Mr. Hyde<\/i>/;
$titletext =~ s/Stevenson.Kidnapped.html/Stevenson <i>Kidnapped<\/i>/;
$titletext =~ s/Stevenson.NewArabianNights.html/Stevenson <i>New Arabian Nights<\/i>/;
$titletext =~ s/Stevenson.SouthSeas.html/Stevenson <i>In the South Seas<\/i>/;
$titletext =~ s/Stevenson.Osbourne.Wrecker.html/Stevenson and Osbourne <i>Wrecker<\/i>/;
$titletext =~ s/Sterne.Journey.html/Sterne <i>Sentimental Journey<\/i>/;
$titletext =~ s/Stoker.Dracula.html/Stoker <i>Dracula<\/i>/;
$titletext =~ s/Stowe.UncleTom.html/Stowe <i>Uncle Tom's Cabin<\/i>/;
$titletext =~ s/Swift.Abolish.html/Swift <i>An Argument to Prove That the Abolishing of Christianity in England, May as Things Now Stand, Be Attended with Some Inconveniencies, and Perhaps Not Produce Those Many Good Effects Proposed Thereby<\/i>/;
$titletext =~ s/Swift.Debt.html/Swift <i>A Proposal to Pay off the Debt of the Nation<\/i>/;
$titletext =~ s/Swift.Gulliver.html/Swift <i>Gulliver's Travels<\/i>/;
$titletext =~ s/Swift.TaleofTub.html/Swift <i>Tale of a Tub<\/i>/;
$titletext =~ s/Taverner.Proverbes.html/Taverner <i>Proverbes<\/i>/;
$titletext =~ s/Thacher.BritishAmerican.html/Thacher <i>British American<\/i>/;
$titletext =~ s/Thackeray.RoseandRing.html/Thackeray <i>The Rose and the Ring<\/i>/;
$titletext =~ s/Thackeray.VanityFair.html/Thackeray <i>Vanity Fair<\/i>/;
$titletext =~ s/Thoreau.CapeCod.html/Thoreau <i>Cape Cod<\/i>/;
$titletext =~ s/Thoreau.CivilDisobedience.html/Thoreau <i>Civil Disobedience<\/i>/;
$titletext =~ s/Thoreau.MaineWoods.html/Thoreau <i>Maine Woods<\/i>/;
$titletext =~ s/Thoreau.Walden.html/Thoreau <i>Walden<\/i>/;
$titletext =~ s/Thoreau.Week.html/Thoreau <i>A Week on the Concord and Merrimack Rivers<\/i>/;
$titletext =~ s/Tottel.Misc.html/Tottel <i>Miscellany<\/i>/;
$titletext =~ s/Towneley.Myst.html/Towneley <i>Mystery Play<\/i>/;
$titletext =~ s/Trollope.Ayala.html/Trollope <i>Ayala's Angel<\/i>/;
$titletext =~ s/Trollope.CanYouForgiveHer.html/Trollope <i>Can You Forgive Her<\/i>/;
$titletext =~ s/Trollope.EustaceDiamonds.html/Trollope <i>Eustace Diamonds<\/i>/;
$titletext =~ s/Trollope.LadyAnna.html/Trollope <i>Lady Anna<\/i>/;
$titletext =~ s/Trollope.PhineasFinn.html/Trollope <i>Phineas Finn<\/i>/;
$titletext =~ s/Trollope.PhineasRedux.html/Trollope <i>Phineas Redux<\/i>/;
$titletext =~ s/Trollope.RachelRay.html/Trollope <i>Rachel Ray<\/i>/;
$titletext =~ s/Trollope.Wortle.html/Trollope <i>Wortle<\/i>/;
$titletext =~ s/Twain.HuckleberryFinn.html/Twain <i>Huckleberry Finn<\/i>/;
$titletext =~ s/Twain.Innocents.html/Twain <i>Innocents Abroad<\/i>/;
$titletext =~ s/Twain.PuddnheadWilson.html/Twain <i>Pudd'n'head Wilson<\/i>/;
$titletext =~ s/Twain.RoughingIt.html/Twain <i>Roughing It<\/i>/;
$titletext =~ s/Twain.TomSawyer.html/Twain <i>Tom Sawyer<\/i>/;
$titletext =~ s/Twain.Yankee.html/Twain <i>A Connecticut Yankee at King Arthur's Court<\/i>/;
$titletext =~ s/Turgot.Reflections.html/Turgot <i>Reflections on the Formation and Distribution of Wealth<\/i>/;
$titletext =~ s/Vanderlint.Money.html/Vanderlint <i>Money Answers all Things<\/i>/;
$titletext =~ s/Vaughan.Coin.html/R\. Vaughan <i>A Discourse of Coin and Coinage<\/i>/;
$titletext =~ s/Virginia.Charter.html/<i>Virginia Charters<\/i>/;
$titletext =~ s/Walton.Angler.html/Walton <i>The Compleat Angler<\/i>/;
$titletext =~ s/Webster.DuchessMalfi.html/Webster <i>Duchess of Malfi<\/i>/;
$titletext =~ s/Wells.InvisibleMan.html/Wells <i>Invisible Man<\/i>/;
$titletext =~ s/Wells.TimeMachine.html/Wells <i>Time Machine<\/i>/;
$titletext =~ s/Wells.WaroftheWorlds.html/Wells <i>War of the Worlds<\/i>/;
$titletext =~ s/Westcott.Harum.html/Westcott <i>David Harum<\/i>/;
$titletext =~ s/Wharton.AgeofInnocence.html/Wharton <i>Age of Innocence<\/i>/;
$titletext =~ s/Wharton.FrenchWays.html/Wharton <i>French Ways and their Meaning<\/i>/;
$titletext =~ s/Wharton.Summer.html/Wharton <i>Summer<\/i>/;
$titletext =~ s/White.Educator.html/White <i>Youth's Educator for Home And Society<\/i>/;
$titletext =~ s/Wilson.Rhetorique.html/Wilson <i>The Arte of Rhetorique<\/i>/;
$titletext =~ s/Wilson.BritishParliament.html/Wilson <i>British Parliament<\/i>/;
$titletext =~ s/Wollstonecraft.Women.html/Wollstonecraft <i>A Vindication of the Rights of Women<\/i>/;
$titletext =~ s/Woolf.VoyageOut.html/Woolf <i>Voyage Out<\/i>/;
$titletext =~ s/Wordsworth.Coleridge.LyricalBallads.html/Wordsworth and Coleridge <i>Lyrical Ballads<\/i>/;
$titletext =~ s/Wordsworth.ImmortalityOde.html/Wordsworth <i>Intimations of Immortality from Recollections of Early Childhood<\/i>/;
$titletext =~ s/Wordsworth.Excursion.html/Wordsworth <i>The Excursion<\/i>/;
$titletext =~ s/Wordsworth.Poems.html/Wordsworth <i>Poetical Works<\/i>/;
$titletext =~ s/Wordsworth.Prelude.html/Wordsworth <i>The Prelude<\/i>/;
$titletext =~ s/Wycherley.CountryWife.html/Wycherley <i>Country Wife<\/i>/;
$titletext =~ s/York.Myst.html/York <i>Mystery Play<\/i>/;
$titletext =~ s/1609Son.sgm.html/William Shakespeare <i>Sonnets<\/i>/;
$titletext =~ s/AlgHers.sgm.html/Horatio Alger, Jr. <i>A Fancy of Hers , A Fancy of Hers, Volume 6<\/i>/;
$titletext =~ s/AllHapp.sgm.html/Allen, Raymund <i>A Happy Solution , The Omnibus of Crime, The Strand Magazine, volume one<\/i>/;
$titletext =~ s/AngPuls.sgm.html/Angelou, Maya <i>On the Pulse of Morning , On the Pulse of Morning<\/i>/;
$titletext =~ s/AnoAFog.sgm.html/Anonymous <i>In a Fog , In a Fog, Volume 5<\/i>/;
$titletext =~ s/AnoChie.sgm.html/Anonymous <i>Three Noted Chiefs of the Sioux , , Three Noted Chiefs of the Sioux, Volume 34<\/i>/;
$titletext =~ s/AnoCrop.sgm.html/Anonymous <i>Watching the Crops , Watching the Crops, Volume 34<\/i>/;
$titletext =~ s/AnoFoun.sgm.html/Anonymous <i>Found and Lost , Found and Lost, 5<\/i>/;
$titletext =~ s/AnoGrin.sgm.html/Anonymous <i>The Grindwell Governing Machine , The Grindwell Governing Machine, 1<\/i>/;
$titletext =~ s/AnoHyck.sgm.html/Anonymous <i>Hycke Scorner , Hycke Scorner<\/i>/;
$titletext =~ s/AnoJose.sgm.html/Anonymous <i>Chief Joseph , Chief Joseph, Volume 34<\/i>/;
$titletext =~ s/AnoLite.sgm.html/Anonymous <i>Literary Chat , Literary Chat, Munsey's Magazine<\/i>/;
$titletext =~ s/AnoMary.sgm.html/Anonymous <i>Mary Somerville , Mary Somerville, 5<\/i>/;
$titletext =~ s/AnoShep.sgm.html/Anonymous <i>Elizabeth Sara Sheppard , Elizabeth Sara Sheppard, 10<\/i>/;
$titletext =~ s/AnonBel.sgm.html/Anonymous <i>The History of Bel , The Omnibus of Crime, volume one<\/i>/;
$titletext =~ s/AstJour.sgm.html/John Jacob Astor <i>A Journey in Other Worlds , , A Journey in Other Worlds<\/i>/;
$titletext =~ s/BacAtla.sgm.html/Bacon, Francis <i>New Atlantis , Ideal Commonwealths, The World's Great Classics<\/i>/;
$titletext =~ s/BakNegr.sgm.html/Ray Stannard Baker <i>Negro Suffrage in a Democracy, Volume 106<\/i>/;
$titletext =~ s/BehCity.sgm.html/Behn, Aphra <i>The City Heiress , The City Heiress, from volume 2 of The works of Aphra Behn, 6 vols<\/i>/;
$titletext =~ s/BieFavo.sgm.html/Ambrose Bierce <i>My Favorite Murder , The Collected Works of Ambrose Bierce, vol. 8<\/i>/;
$titletext =~ s/BroLady.sgm.html/Brooke, Frances <i>The History of Lady Julia Mandeville , The History of Lady Julia Mandeville<\/i>/;
$titletext =~ s/BroWHei.sgm.html/Bronte, Emile <i>Emily Bront&euml;'s "Wuthering Heights": electronic edition<\/i>/;
$titletext =~ s/BurJohn.sgm.html/Burney, Fanny <i>Dr. Johnson and Fanny Burney , Dr. Johnson and Fanny Burney<\/i>/;
$titletext =~ s/BurLitt.sgm.html/Frances Hodgson Burnett <i>A Little Princess , A Little Princess, <\/i>/;
$titletext =~ s/BurGods.sgm.html/Burroughs, Edgar Rice <i>The Gods of Mars<\/i>/;
$titletext =~ s/BurLost.sgm.html/Burroughs, Edgar Rice <i>The Lost Continent , The Lost Continent<\/i>/;
$titletext =~ s/BurRetu.sgm.html/Burroughs, Edgar Rice <i>The Return of Tarzan , The Return of Tarzan<\/i>/;
$titletext =~ s/BurSara.sgm.html/Burnett, Frances Hodgson <i>Sara Crewe; or What Happened at Miss Minchin's , Sara Crewe; or What Happened at Miss Minchin's<\/i>/;
$titletext =~ s/BurWarl.sgm.html/Burroughs, Edgar Rice <i>The Warlord of Mars , The Warlord of Mars<\/i>/;
$titletext =~ s/CabCert.sgm.html/Cabell, James Branch <i>The Certain Hour , The Certain Hour<\/i>/;
$titletext =~ s/CarGlas.sgm.html/Carroll, Lewis <i>Through the Looking-Glass and What Alice Found There , Through the Looking-Glass and What Alice Found There<\/i>/;
$titletext =~ s/CatAlex.sgm.html/Cather, Willa <i>Alexander's Bridge , Alexander's Bridge<\/i>/;
$titletext =~ s/CatOurs.sgm.html/Cather, Willa <i>Willa Cather's One of Ours<\/i>/;
$titletext =~ s/CatTrol.sgm.html/Cather, Willa <i>Willa Cather's The Troll Garden<\/i>/;
$titletext =~ s/ChaBuDA.sgm.html/Chapman, George <i>George Chapman's Bussy d'ambois<\/i>/;
$titletext =~ s/ChancEng.sgm.html/Anonymous <i>An anthology of Chancery English  , An anthology of Chancery English<\/i>/;
$titletext =~ s/ColWork.sgm.html/Coleridge <i>The Poems of Samuel Taylor Coleridge<\/i>/;
$titletext =~ s/DanDefR.sgm.html/Daniel, Samuel <i>A Defence of Ryme<\/i>/;
$titletext =~ s/DanDeli.sgm.html/Daniel, Samuel <i>Delia<\/i>/;
$titletext =~ s/DanEpis.sgm.html/Daniel, Samuel <i>Epistles<\/i>/;
$titletext =~ s/DanMuso.sgm.html/Daniel, Samuel <i>Musophilus<\/i>/;
$titletext =~ s/DanRosa.sgm.html/Daniel, Samuel <i>The Complaint of Rosamond<\/i>/;
$titletext =~ s/DanUlSy.sgm.html/Daniel, Samuel <i>Ulisses and The Syren<\/i>/;
$titletext =~ s/DavElec.sgm.html/Maria Thompson Daviess <i>The Elected Mother , The Elected Mother: A Story of Woman's Equal Rights<\/i>/;
$titletext =~ s/DavFirs.sgm.html/Richard Harding Davis <i>HER FIRST APPEARANCE , HER FIRST APPEARANCE<\/i>/;
$titletext =~ s/DavFran.sgm.html/Davis, Rebecca Harding <i>Frances Waldeaux , Frances Waldeaux<\/i>/;
$titletext =~ s/DavKing.sgm.html/Richard Harding Davis <i>The King's Jackal , The King's Jackal<\/i>/;
$titletext =~ s/DavPrin.sgm.html/Richard Harding Davis <i>The Princess Aline, <\/i>/;
$titletext =~ s/DavRepo.sgm.html/Richard Harding Davis <i>The King's Jackal<\/i>/;
$titletext =~ s/DavScar.sgm.html/Richard Harding Davis <i>THE SCARLET CAR , THE SCARLET CAR<\/i>/;
$titletext =~ s/DawHave.sgm.html/H. L. Dawes <i>Have We Failed with the Indian? , Have We Failed with the Indian?, 84<\/i>/;
$titletext =~ s/DefRobi.sgm.html/Defoe, Daniel <i>Robinson Crusoe<\/i>/;
$titletext =~ s/DixFool.sgm.html/Thomas Dixon <i>The Foolish Virgin , The Foolish Virgin, <\/i>/;
$titletext =~ s/DouAppe.sgm.html/Frederick Douglass <i>An Appeal to Congress for Impartial Suffrage , An Appeal to Congress for Impartial Suffrage, 19<\/i>/;
$titletext =~ s/DouEsca.sgm.html/Frederick Douglass <i>My Escape from Slavery , My Escape from Slavery, 23, n.s., 1<\/i>/;
$titletext =~ s/DouNarr.sgm.html/Douglass, Frederick <i>Narrative of the Life of Frederick Douglass, an American Slave , Narrative of the Life of Frederick Douglass, an American Slave<\/i>/;
$titletext =~ s/DouReco.sgm.html/Frederick Douglass <i>Reconstruction , Reconstruction, 18<\/i>/;
$titletext =~ s/DouSand.sgm.html/Ren&eacute; Doumic <i>George Sand; Some Aspects of her Life and Writings , George Sand; Some Aspects of Her Life and Writings, <\/i>/;
$titletext =~ s/DovLady.sgm.html/Rita Dove <i>LADY FREEDOM AMONG US , LADY FREEDOM AMONG US<\/i>/;
$titletext =~ s/DoyAdve.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Adventures of Sherlock Holmes": electronic edition<\/i>/;
$titletext =~ s/DoyCase.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Casebook of Sherlock Holmes": electronic edition<\/i>/;
$titletext =~ s/DoyCity.sgm.html/Doyle, Arthur Conan <i>Beyond the City , Beyond the City<\/i>/;
$titletext =~ s/DoyHoun.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Hound of the Baskervilles": electronic edition<\/i>/;
$titletext =~ s/DoyLamp.sgm.html/Doyle, Arthur Conan <i>Round the Red Lamp , Round the Red Lamp<\/i>/;
$titletext =~ s/DoyLast.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "His Last Bow": electronic edition<\/i>/;
$titletext =~ s/DoyMemo.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Memoirs of Sherlock Holmes": electronic edition<\/i>/;
$titletext =~ s/DoyPara.sgm.html/Doyle, Arthur Conan <i>The Parasite , The Parasite<\/i>/;
$titletext =~ s/DoyRetu.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Return of Sherlock Holmes": electronic edition<\/i>/;
$titletext =~ s/DoyReve.sgm.html/Doyle, Arthur Conan <i>The New Revelation , The New Revelation<\/i>/;
$titletext =~ s/DoySign.sgm.html/Doyle, Arthur Conan <i>The Sign of Four <\/i>/;
$titletext =~ s/DoyStar.sgm.html/Doyle, Arthur Conan <i>The Stark Munro Letters<\/i>/;
$titletext =~ s/DoyStud.sgm.html/Doyle, Arthur Conan <i>Conan Doyles "A Study in Scarlet": electronic edition<\/i>/;
$titletext =~ s/DoyVall.sgm.html/Doyle, Arthur Conan <i>Conan Doyles' "The Valley of Fear": electronic edition<\/i>/;
$titletext =~ s/DoyVita.sgm.html/Doyle, Arthur Conan <i>The Vital Message , The Vital Message<\/i>/;
$titletext =~ s/DryAbAc.sgm.html/Dryden, John <i>Absalom and Achitophel. A Poem.<\/i>/;
$titletext =~ s/DryAnMi.sgm.html/Dryden, John <i>Annus Mirabillis<\/i>/;
$titletext =~ s/DubFree.sgm.html/Du Bois, W. E. Burghardt <i>The Freedmen's Bureau , The Freedmen's Bureau, Volume 87<\/i>/;
$titletext =~ s/DubNegr.sgm.html/Du Bois, W. E. Burghardt <i>A Negro Schoolmaster in the New South , A Negro Schoolmaster in the New South, 83<\/i>/;
$titletext =~ s/DubStri.sgm.html/Du Bois, W. E. Burghardt <i>Strivings of the Negro People, 80<\/i>/;
$titletext =~ s/DubTrai.sgm.html/Du Bois, W. E. Burghardt <i>Of the Training of Black Men, Vol. 90<\/i>/;
$titletext =~ s/DunTwa.sgm.html/Dunbar, William <i>The poems of William Dunbar, Oxford English texts<\/i>/;
$titletext =~ s/DylLyri.sgm.html/Dylan, Bob <i>Bob Dylan's Lyrics, 1962-1985<\/i>/;
$titletext =~ s/EasIndi.sgm.html/Eastman, Charles A. \(Ohiyesa\) <i>Indian Boyhood , Indian Boyhood<\/i>/;
$titletext =~ s/EasDays.sgm.html/Eastman, Charles A. \(Ohiyesa\) <i>Old Indian days , Old Indian days<\/i>/;
$titletext =~ s/EdwNava.sgm.html/William M. Edwardy <i>The Navajo Indians , The Navajo Indians, 34<\/i>/;
$titletext =~ s/Eliot.Silas.html/Geo. Eliot <i>Silas Marner <\/i>/;
$titletext =~ s/Eli2Sil.sgm.html/Geo. Eliot <i>Silas Marner <\/i>/;
$titletext =~ s/EliSila.sgm.html/Geo. Eliot <i>Silas Marner<\/i>/;
$titletext =~ s/EmeCond.sgm.html/Emerson <i>The Conduct of Life<\/i>/;
$titletext =~ s/EmeUPro.sgm.html/Emerson, Ralph Waldo <i>Uncollected Prose<\/i>/;
$titletext =~ s/Everyman.sgm.html/Anonymous <i>Everyman, Old and Middle English texts; 1<\/i>/;
$titletext =~ s/EwiHear.sgm.html/Ewing, Quincy <i>The Heart of the Race Problem, Vol 103<\/i>/;
$titletext =~ s/FauAsIL.sgm.html/Faulkner <i>As I Lay Dying<\/i>/;
$titletext =~ s/FauLigh.sgm.html/Faulkner <i>Light in August<\/i>/;
$titletext =~ s/FauPylo.sgm.html/Faulkner <i>Pylon<\/i>/;
$titletext =~ s/FauSanc.sgm.html/Faulkner <i>Sanctuary<\/i>/;
$titletext =~ s/FerButt.sgm.html/Edna Ferber <i>Buttered Side Down<\/i>/;
$titletext =~ s/FerDawn.sgm.html/Ferber, Edna <i>Dawn O'Hara, the Girl who Laughed , Dawn O'Hara, the Girl Who Laughed<\/i>/;
$titletext =~ s/FieSham.sgm.html/Fielding, Henry <i>Shamela<\/i>/;
$titletext =~ s/FinTrai.sgm.html/William L. Finley <i>The Trail of the Plume-Hunter, Vol. 106<\/i>/;
$titletext =~ s/FitzGerald.Rubaiyat.html/E. FitzGerald <i>Rub\&aacute;iy\&aacute;t of Omar Khayy\&aacute;m<\/i>/;
$titletext =~ s/FitGats.sgm.html/F. Scott Fitzgerald <i>The Great Gatsby<\/i>/;
$titletext =~ s/Fitzgerald.Paradise.html/F. Scott Fitzgerald <i>This Side of Paradise<\/i>/;
$titletext =~ s/ForHowa.sgm.html/Forster <i>Howards End <\/i>/;
$titletext =~ s/Forster.LongestJourney.html/Forster <i>The Longest Journey <\/i>/;
$titletext =~ s/ForRoom.sgm.html/Forster <i>A Room with a View <\/i>/;
$titletext =~ s/ForWher.sgm.html/Forster <i>Where Angels Fear to Tread <\/i>/;
$titletext =~ s/Fra2Aut.sgm.html/Benjamin Franklin; John Woolman; William Penn <i>The Autobiography of Benjamin Franklin , The Harvard Classics, vol. 1<\/i>/;
$titletext =~ s/Fra2Phi.sgm.html/Franklin <i>Philadelphia, 1785-1790<\/i>/;
$titletext =~ s/FraBost.sgm.html/Franklin <i>Boston and London<\/i> 1722-1726/;
$titletext =~ s/FraLond.sgm.html/Franklin <i>London<\/i> 1757-1775/;
$titletext =~ s/FraPari.sgm.html/Franklin <i>Paris, 1776-1785<\/i>/;
$titletext =~ s/FraPoor.sgm.html/Franklin <i>Poor Richard's Almanac<\/i> 1733-1758/;
$titletext =~ s/FroChro.sgm.html/Froissart, Jean; translated by John Bourchier, Lord Berners <i>The Chronicles of Froissart , The Chronicles of Froissart, The Harvard Classics<\/i>/;
$titletext =~ s/FroPoem.sgm.html/Frost <i>The Poetry of Robert Frost<\/i>/;
$titletext =~ s/FutPhan.sgm.html/Futrelle, Jacques, 1875-1912 <i><\/i>/;
$titletext =~ s/GalImpe.sgm.html/Gallienne, Richard Le <i>Munsey's Magazine<\/i>/;
$titletext =~ s/GasFras.sgm.html/Gaskell, Elizabeth <i>Elizabeth Gaskell's "Selected contributions to Frasers.": electronic edition<\/i>/;
$titletext =~ s/GilPoet.sgm.html/Richard Watson Gilder <i>The Poet's Fame , The Poet's Fame, Vol. 17, no. 1<\/i>/;
$titletext =~ s/GogEven.sgm.html/Nikolai Vasilievich Gogol <i>A May Evening , A May Evening, 3<\/i>/;
$titletext =~ s/GolDese.sgm.html/Goldsmith, Oliver <i>The Deserted Village<\/i>/;
$titletext =~ s/GolVica.sgm.html/Goldsmith, Oliver <i>The Vicar of Wakefield<\/i>/;
$titletext =~ s/GriIndi.sgm.html/Grinnell, George Bird <i>The Indian on the Reservation , The Indian on the Reservation, 83<\/i>/;
$titletext =~ s/GriWild.sgm.html/Grinnell, George Bird <i>The Wild Indian, 83<\/i>/;
$titletext =~ s/HagMini.sgm.html/Hagar, Albert D. <i>Ancient Mining on the Shores of Lake Superior, Vol. 15<\/i>/;
$titletext =~ s/HarLast.sgm.html/Harvey, Charles M. <i>The Red Man's Last Roll-Call , The Red Man's Last Roll-Call, 97<\/i>/;
$titletext =~ s/HarLyr.sgm.html/anonymous <i>The Harley lyrics , Facsimile of British Museum MS. Harley 2253, Early English Text Society \(Series\). Original series ; 255, The Harley lyrics : the Middle English lyrics of Ms. Harley 2253<\/i>/;
$titletext =~ s/HawBliR.sgm.html/Hawthorne <i>The Blithedale Romance<\/i>/;
$titletext =~ s/HawFans.sgm.html/Hawthorne <i>Fanshawe<\/i>/;
$titletext =~ s/HawMarb.sgm.html/Hawthorne <i>The Marble Faun or, The Romance of Monte Beni<\/i>/;
$titletext =~ s/HenGive.sgm.html/Henry, Patrick <i>The War Inevitable \(Give Me Liberty or Give Me Death\!\)<\/i>/;
$titletext =~ s/HenCres.sgm.html/Henryson, Robert <i>The testament of Cresseid<\/i>/;
$titletext =~ s/HenFabl.sgm.html/Henryson, Robert, 1430?-1506? <i>The poems of Robert Henryson, Scottish Text Society, v. 55, 58, 64<\/i>/;
$titletext =~ s/HenMino.sgm.html/Henryson, Robert <i>The poems of Robert Henryson, Scot. Text S. ; v. 55, 58, 64<\/i>/;
$titletext =~ s/HenOrpheus.sgm.html/Henryson, Robert <i>Orpheus and Eurydice, The poems of Robert Henryson, Scot. Text S. ; 55, 58, 64<\/i>/;
$titletext =~ s/HerRham.sgm.html/<i>The Story of Rhampsinitus' Treasure-House , The Omnibus of Crime, volume one<\/i>/;
$titletext =~ s/HodArle.sgm.html/Hodgson, Fannie <i>One Day at Arle, 4<\/i>/;
$titletext =~ s/HodSurl.sgm.html/Hodgson, Fannie <i>Surly Tim's Trouble, 4<\/i>/;
$titletext =~ s/HodWoma.sgm.html/Hodgson, Fannie E. <i>The Woman Who Saved Me, 4<\/i>/;
$titletext =~ s/HouTera.sgm.html/Houseman, A.E. <i>Terance, This is Stupid Stuff<\/i>/;
$titletext =~ s/HugMise.sgm.html/Hugo, Victor <i>Les Miserables<\/i>/;
$titletext =~ s/HulCome.sgm.html/Hull, Thomas <i>Comedy of Errors<\/i>/;
$titletext =~ s/JamAmWr.sgm.html/H. James <i>American Writers<\/i>/;
$titletext =~ s/JamAspe.sgm.html/H. James <i>The Aspern Papers<\/i>/;
$titletext =~ s/JamEnWr.sgm.html/H. James <i>English Writers<\/i>/;
$titletext =~ s/JamEssL.sgm.html/H. James <i>Essays on Literature<\/i>/;
$titletext =~ s/JefCoop.sgm.html/Jefferson, Thomas <i>Letter to Dr. Thomas Cooper<\/i>/;
$titletext =~ s/JefDecl.sgm.html/Jefferson, Thomas <i>Declaration of Independence,<\/i>/;
$titletext =~ s/JefSumm.sgm.html/Jefferson, Thomas <i>A Summary View of the Rights of British America<\/i>/;
$titletext =~ s/JefWood.sgm.html/Jefferson, Thomas <i>Letter to W.W. Woodward<\/i>/;
$titletext =~ s/JewLand.sgm.html/Jewett, Sarah Orne <i>The Landscape Chamber, Vol 60<\/i>/;
$titletext =~ s/JewShre.sgm.html/Jewett, Sarah Orne <i>Going to Shrewsbury, 64<\/i>/;
$titletext =~ s/JewToms.sgm.html/Jewett, Sarah Orne <i>Tom's Husband, 49<\/i>/;
$titletext =~ s/JohShal.sgm.html/Johnson, Lyndon B. <i>We Shall Overcome <\/i>/;
$titletext =~ s/JohLoVa.sgm.html/Johnson <i>London and the Vanity of Human Wishes<\/i>/;
$titletext =~ s/JohRass.sgm.html/Johnson <i>The History of Rasselas, Prince of Abissinia<\/i>/;
$titletext =~ s/JonNInn.sgm.html/Jonson, Ben <i>New Inn<\/i>/;
$titletext =~ s/KeaPoem.sgm.html/Keats, John <i>Poetic Dramas<\/i>/;
$titletext =~ s/Keats.Poems.html/Keats <i>Poems<\/i>/;
$titletext =~ s/KipAndr.sgm.html/Kipling, Rudyard <i>McAndrew's Hymn<\/i>/;
$titletext =~ s/KipBrea.sgm.html/Kipling, Rudyard <i>Hymn of Breaking Strain<\/i>/;
$titletext =~ s/KipJung.sgm.html/Kipling, Rudyard <i>The Jungle Book<\/i>/;
$titletext =~ s/KipPilg.sgm.html/Kipling, Rudyard <i>A Pilgrim's Way<\/i>/;
$titletext =~ s/KipSons.sgm.html/Kipling, Rudyard <i>The Sons of Martha<\/i>/;
$titletext =~ s/KirJoys.sgm.html/Kirkland, Winifred Margaretta <i>The Joys of Being a Woman and Other Papers<\/i>/;
$titletext =~ s/PPlLan.sgm.html/Langland, William <i>The vision of Piers Plowman<\/i>/;
$titletext =~ s/LawSons.sgm.html/Lawrence, D. H. <i>Sons and Lovers<\/i>/;
$titletext =~ s/LayCal.sgm.html/Layamon <i>Brut, Early English Text Society ; no. 250, 277<\/i>/;
$titletext =~ s/LayOtho.sgm.html/Layamon <i>Layamon, Brut, Early English Text Society (Series); 250, 277<\/i>/;
$titletext =~ s/LigOmah.sgm.html/William R. Lighton <i>Omaha, the Prairie City<\/i>/;
$titletext =~ s/LonEvan.sgm.html/Longfellow <i>Evangeline<\/i>/;
$titletext =~ s/Mar1Fau.sgm.html/Marlowe <i>Dramatic Works, A Concordance to the Works of Christopher Marlowe<\/i>/;
$titletext =~ s/MarEdw2.sgm.html/Marlowe <i>Dramatic Works, A Concordance to the Works of Christopher Marlowe<\/i>/;
$titletext =~ s/MarFaus.sgm.html/Marlowe <i>Dramatic Works, A Concordance to the Works of Christopher Marlowe<\/i>/;
$titletext =~ s/MarDido.sgm.html/Marlowe <i>The Tragedy of Dido, Queen of Carthage<\/i> \(Dido and Aeneas\)/;
$titletext =~ s/MarHero.sgm.html/Marlowe <i>Hero and Leander<\/i>/;
$titletext =~ s/MarMalt.sgm.html/Marlowe <i>The Jew of Malta<\/i>/;
$titletext =~ s/MarMass.sgm.html/Marlowe <i>The Massacre At Paris<\/i>/;
$titletext =~ s/MarOvid.sgm.html/Marlowe <i>All Ovid's Elegies<\/i>/;
$titletext =~ s/MarPass.sgm.html/Marlowe <i>Passionate Sheperd to his Love<\/i>/;
$titletext =~ s/MarPhar.sgm.html/Marlowe <i>Pharsalia; The First Book of Lucan Translated into English<\/i>/;
$titletext =~ s/MarRare.sgm.html/Marlowe <i>I walked along a stream for pureness rare<\/i>/;
$titletext =~ s/MarTamb.sgm.html/Marlowe <i>Tamburlaine the Great, Parts I and II<\/i>/;
$titletext =~ s/MarPoem.sgm.html/<i>Marvell's Miscellaneous Poems<\/i>/;
$titletext =~ s/MasVirg.sgm.html/Mason <i>Virginia Declaration of Rights<\/i>/;
$titletext =~ s/MauMess.sgm.html/Maus, Marion P. <i>The New Indian Messiah, Vol. 34<\/i>/;
$titletext =~ s/McNTigh.sgm.html/McNutt, William Slavens <i>The Tale of a Tightwad<\/i>/;
$titletext =~ s/McnPoor.sgm.html/McNutt, William Slavens <i>Poor Little Eddie, 59<\/i>/;
$titletext =~ s/MelMoby.sgm.html/Melville, Herman <i>Moby-Dick, or, The Whale<\/i>/;
$titletext =~ s/MelRedb.sgm.html/Melville, Herman <i>Redburn<\/i>/;
$titletext =~ s/MelWhit.sgm.html/Melville, Herman <i>White-Jacket<\/i>/;
$titletext =~ s/Mil67PL.sgm.html/Milton, John <i>Paradise Lost<\/i>/;
$titletext =~ s/MunConf.sgm.html/William Faitoute Mann <i>The Confessions of a Consulting Chemist, 55<\/i>/;
$titletext =~ s/ObrDiam.sgm.html/O'Brien, Fitz-James <i>The Diamond Lens <\/i>/;
$titletext =~ s/ObrWond.sgm.html/O'Brien, Fitz-James <i>The Wondersmith, 4<\/i>/;
$titletext =~ s/OctC.sgm.html/Anonymous <i>Octovian, Early English Text Society ; no. 289<\/i>/;
$titletext =~ s/OctL.sgm.html/Anonymous <i>Octovian, Early English Text Society ; no. 289<\/i>/;
$titletext =~ s/OrtFlyi.sgm.html/Orton, J. R. <i>Trial Trip of the 'Flying Cloud', 4<\/i>/;
$titletext =~ s/OsbAfte.sgm.html/Osborne, William Hamilton <i>After Death - What, 59<\/i>/;
$titletext =~ s/OweDulc.sgm.html/Owen, Wilfred <i>Dulce et Decorum Est<\/i>/;
$titletext =~ s/PaiComm.sgm.html/Paine <i>Common Sense <\/i>/;
$titletext =~ s/PayPers.sgm.html/Payne, Frank Owen <i>The Personal Appearance of Christopher Columbus<\/i>/;
$titletext =~ s/PenSoli.sgm.html/Penn <i>Some Fruits of Solitude<\/i>/;
$titletext =~ s/PerQ.sgm.html/Shakespeare <i>Pericles Quarto<\/i>/;
$titletext =~ s/PlaCrit.sgm.html/Plato <i>Crito , Dialogues of Plato<\/i>/;
$titletext =~ s/PoeAnna.sgm.html/Poe, Edgar Allan <i>Annabel Lee <\/i>/;
$titletext =~ s/PoeAssi.sgm.html/Poe, Edgar Allan <i>The Assignation<\/i> \(The Visionary\)/;
$titletext =~ s/PoeBall.sgm.html/Poe, Edgar Allan <i>The Balloon Hoax<\/i>/;
$titletext =~ s/PoeBere.sgm.html/Poe, Edgar Allan <i>Berenice , Berenice<\/i>/;
$titletext =~ s/PoeBlac.sgm.html/Poe, Edgar Allan <i>The Black Cat<\/i>/;
$titletext =~ s/PoeCask.sgm.html/Poe, Edgar Allan <i>The cask of Amontillado<\/i>/;
$titletext =~ s/PoeColl.sgm.html/Poe, Edgar Allan <i>The colloquy of Monos and Una <\/i>/;
$titletext =~ s/PoeConv.sgm.html/Poe, Edgar Allan <i>XXXX<\/i>/;
$titletext =~ s/PoeCrow.sgm.html/Poe, Edgar Allan <i>The Man of the crowd <\/i>/;
$titletext =~ s/PoeDesc.sgm.html/Poe, Edgar Allan <i>A Descent into the Maelstrom<\/i>/;
$titletext =~ s/PoeDoma.sgm.html/Poe, Edgar Allan <i>The Domain of Arnheim <\/i>/;
$titletext =~ s/PoeEleo.sgm.html/Poe, Edgar Allan <i>Eleonora<\/i>/;
$titletext =~ s/PoeFall.sgm.html/Poe, Edgar Allan <i>The fall of the House of Usher<\/i>/;
$titletext =~ s/PoeFrog.sgm.html/Poe, Edgar Allan <i>Hop-Frog<\/i>/;
$titletext =~ s/PoeGold.sgm.html/Poe, Edgar Allan <i>The gold-bug <\/i>/;
$titletext =~ s/PoeIsla.sgm.html/Poe, Edgar Allan <i>The Island of the Fay <\/i>/;
$titletext =~ s/PoeKing.sgm.html/Poe, Edgar Allan <i>King Pest <\/i>/;
$titletext =~ s/PoeLand.sgm.html/Poe, Edgar Allan <i>Landor's Cottage<\/i>/;
$titletext =~ s/PoeLige.sgm.html/Poe, Edgar Allan <i>Ligeia<\/i>/;
$titletext =~ s/PoeMell.sgm.html/Poe, Edgar Allan <i>Mellonta Tauta <\/i>/;
$titletext =~ s/PoeMoun.sgm.html/Poe, Edgar Allan <i>A Tale of the Ragged Mountains<\/i>/;
$titletext =~ s/PoeMurd.sgm.html/Poe, Edgar Allan <i>The murders in the Rue Morgue <\/i>/;
$titletext =~ s/PoeMyst.sgm.html/Poe, Edgar Allan <i>XXXX<\/i>/;
$titletext =~ s/PoePend.sgm.html/Poe, Edgar Allan <i>The pit and the pendulum<\/i>/;
$titletext =~ s/PoePerv.sgm.html/Poe, Edgar Allan <i>The Imp of the Perverse<\/i>/;
$titletext =~ s/PoePurl.sgm.html/Poe, Edgar Allan <i>The Purloined Letter<\/i>/;
$titletext =~ s/PoeSpec.sgm.html/Poe, Edgar Allan <i>The Spectacles <\/i>/;
$titletext =~ s/PoeTell.sgm.html/Poe, Edgar Allan <i>The Tell-Tale Heart<\/i>/;
$titletext =~ s/PoeThou.sgm.html/Poe, Edgar Allan <i>Thou Art the Man<\/i>/;
$titletext =~ s/PoeWill.sgm.html/Poe, Edgar Allan <i>William Wilson <\/i>/;
$titletext =~ s/PolUnse.sgm.html/Polwhele, Richard <i>The Unsex'd Females<\/i>/;
$titletext =~ s/StrGirl.sgm.html/Porter, Gene Stratton <i>A Girl of the Limberlost<\/i>/;
$titletext =~ s/StrLadd.sgm.html/Porter, Gene Stratton <i>Laddie: A True Blue Story<\/i>/;
$titletext =~ s/PulPueb.sgm.html/Pullen,  Clarence <i>The Pueblo of Acoma, Vol. 34<\/i>/;
$titletext =~ s/RicPate.sgm.html/Richardson, James <i>Our Patent-System, and What We Owe to It, Vol. 17, no. 1<\/i>/;
$titletext =~ s/RobSapp.sgm.html/Robinson, Mary <i>Part of British Poetry 1780-1910, Sappho and Phaon<\/i>/;
$titletext =~ s/RogStea.sgm.html/Rogers,  E. Mandevill <i>Steadfast Falters<\/i>/;
$titletext =~ s/RunNegr.sgm.html/Runnion, James B. <i>The Negro Exodus, Vol. 44<\/i>/;
$titletext =~ s/SJerus.sgm.html/Anonymous <i>The siege of Jerusalem, Early English Text Society (Series). Original series ; 188<\/i>/;
$titletext =~ s/Sawleswd.sgm.html/Anonymous <i>Sawles warde : an early Middle English homily, Leeds School of English language texts and monographs; no. 3<\/i>/;
$titletext =~ s/ScoCasD.sgm.html/Scott, Walter <i>Castle Dangerous<\/i>/;
$titletext =~ s/ScoPoem.sgm.html/Scott, Walter <i>Selected Poems<\/i>/;
$titletext =~ s/SheBidu.sgm.html/Sheridan, Frances <i>Memoirs of Miss Sidney Bidulph<\/i>/;
$titletext =~ s/SopOedi.sgm.html/Sophocles <i>Oedipus the King, Vol. I, The Loeb Classical Library<\/i>/;
$titletext =~ s/SouthChron.sgm.html/unknown chronicle/;
$titletext =~ s/Spenser.Astrophel.html/Spenser <i>Astrophel<\/i>/;
$titletext =~ s/Spenser.Complaints.html/Spenser <i>Complaints<\/i>/;
$titletext =~ s/Spenser.FaeryQueene.html/Spenser <i>The Faerie Queene<\/i>/;
$titletext =~ s/Spenser.Hymnes.html/Spenser <i>Fowre Hymnes<\/i>/;
$titletext =~ s/Spenser.Prothalamion.html/Spenser <i>Prothalamion<\/i>/;
$titletext =~ s/Spenser.ShepheardesCalender.html/Spenser <i>The Shepheardes Calender<\/i>/;
$titletext =~ s/Spenser.Ireland.html/Spenser <i>A View of the Present State of Ireland<\/i>/;
$titletext =~ s/Spe2Amo.sgm.html/Spenser <i>Amoretti and Epithalamion<\/i>/;
$titletext =~ s/SpeAmor.sgm.html/Spenser <i>Amoretti and Ephithalamion, from Spenser's Minor Poems<\/i>/;
$titletext =~ s/SpoTrea.sgm.html/Spooner, Lysander <i>No Treason: The Constitution of No Authority<\/i>/;
$titletext =~ s/SteHome.sgm.html/Stewart <i>Letters of a Woman Homesteader<\/i>/;
$titletext =~ s/SteTrSh.sgm.html/Sterne, Lawrence <i>The Life and Opinions of Tristram Shandy<\/i>/;
$titletext =~ s/SteJekl.sgm.html/Stevenson, Robert Louis <i>The Strange Case of Dr. Jekyll and Mr. Hyde<\/i>/;
$titletext =~ s/Stevenson.Treasure.html/Stevenson <i>Treasure Island<\/i>/;
$titletext =~ s/StoDrac.sgm.html/Stoker, Bram <i>Dracula<\/i>/;
$titletext =~ s/StoEuph.sgm.html/Stockton, Frank R. <i>Euphemia Among the Pelicans, 23, n.s., 1<\/i>/;
$titletext =~ s/StoGrea.sgm.html/Stockton, Frank R. <i>The Great War Syndicate<\/i>/;
$titletext =~ s/StoSojo.sgm.html/Stowe, Harriet Beecher <i>Sojourner Truth, The Libyan Sibyl, The Atlantic Monthly<\/i>/;
$titletext =~ s/SwiIntl.sgm.html/Swift, Jonathan and Thomas Sheridan <i>The Intelligencer<\/i>/;
$titletext =~ s/TNKQ.sgm.html/Shakespeare <i>Two Noble Kinsmen Quarto<\/i>/;
$titletext =~ s/TagGita.sgm.html/Tagore, Rabindranath <i>Gitanjali, <\/i>/;
$titletext =~ s/TarFlir.sgm.html/Tarkington, Booth <i>The Flirt<\/i>/;
$titletext =~ s/TarPenr.sgm.html/Tarkington, Booth <i>Penrod<\/i>/;
$titletext =~ s/TenChar.sgm.html/Tennyson, Alfred <i>The Charge of the Light Brigade<\/i>/;
$titletext =~ s/TenLanc.sgm.html/Tennyson, Alfred <i>Lancelot and Elaine<\/i>/;
$titletext =~ s/TenMaud.sgm.html/Tennyson, Alfred <i>Maud<\/i>/;
$titletext =~ s/ThoCivi.sgm.html/Thoreau, Henry David <i>Civil Disobedience<\/i>/;
$titletext =~ s/TilKnow.sgm.html/Tilden, Freeman <i>Knowledge is Power, Munsey's Magazine<\/i>/;
$titletext =~ s/TowCour.sgm.html/Towner,  Horace <i>Our Highest Court<\/i>/;
$titletext =~ s/TowTape.sgm.html/Towner, Horace <i>Red Tape in Washington, Vol. 59<\/i>/;
$titletext =~ s/TroQ.sgm.html/Shakespeare <i>Troylus and Cresseida Quarto<\/i>/;
$titletext =~ s/TwaMiss.sgm.html/Twain, Mark <i>Life on the Mississippi<\/i>/;
$titletext =~ s/VeaShak.sgm.html/Veatch, Charles <i>Munsey's Magazine<\/i>/;
$titletext =~ s/VerBloc.sgm.html/Verne, Jules <i>The Omnibus<\/i>/;
$titletext =~ s/VerDays.sgm.html/Verne, Jules <i>Around the World in Eighty Days<\/i>/;
$titletext =~ s/VerTwen.sgm.html/Verne, Jules <i>The Omnibus<\/i>/;
$titletext =~ s/WalCivi.sgm.html/Wallace, George C. <i>The Civil Rights Movement: Fraud, Sham, and Hoax<\/i>/;
$titletext =~ s/WasAwak.sgm.html/Washington, Booker T. <i>The Awakening of the Negro, 78<\/i>/;
$titletext =~ s/WasCase.sgm.html/Washington, Booker T. <i>The Case of the Negro, Atlantic Monthly<\/i>/;
$titletext =~ s/WeaNegr.sgm.html/Weaver, Robert C. <i>The Negro as an American<\/i>/;
$titletext =~ s/WelMetr.sgm.html/Welliver, Judson C. <i>The Metric System, Volume 57<\/i>/;
$titletext =~ s/WelSecr.sgm.html/Welliver, Judson C. <i>The New Secret Service of the United States, VOLUME LVII Number 1<\/i>/;
$titletext =~ s/WelInvi.sgm.html/Wells, H. G. <i>The Invisible Man<\/i>/;
$titletext =~ s/WelIsla.sgm.html/Wells, H. G. <i>The Island of Doctor Moreau<\/i>/;
$titletext =~ s/WelTime.sgm.html/Wells, H. G. <i>The Time Machine<\/i>/;
$titletext =~ s/WelWarW.sgm.html/Wells, H. G. <i>War of the Worlds<\/i>/;
$titletext =~ s/WhaAfte.sgm.html/Wharton, Edith <i>Afterward<\/i>/;
$titletext =~ s/WhaBeas.sgm.html/Wharton, Edith <i>The Blond Beast, <\/i>/;
$titletext =~ s/WhaBell.sgm.html/Wharton, Edith <i>The Lady's Maid's Bell<\/i>/;
$titletext =~ s/WhaChoi.sgm.html/Wharton, Edith <i>The Choice<\/i>/;
$titletext =~ s/WhaCopy.sgm.html/Wharton, Edith <i>'Copy': A Dialogue <\/i>/;
$titletext =~ s/WhaDead.sgm.html/Wharton, Edith <i>The House of the Dead Hand, Volume I<\/i>/;
$titletext =~ s/WhaDebt.sgm.html/Wharton, Edith <i>The Debt<\/i>/;
$titletext =~ s/WhaDesc.sgm.html/Wharton, Edith <i>The Descent of Man<\/i>/;
$titletext =~ s/WhaDian.sgm.html/Wharton, Edith <i>The Daunt Diana<\/i>/;
$titletext =~ s/WhaDuch.sgm.html/Wharton, Edith <i>The Duchess at Prayer, <\/i>/;
$titletext =~ s/WhaEyes.sgm.html/Wharton, Edith <i>The Eyes<\/i>/;
$titletext =~ s/WhaFath.sgm.html/Wharton, Edith <i>His Father's Son<\/i>/;
$titletext =~ s/WhaFull.sgm.html/Wharton, Edith <i>Full Circle<\/i>/;
$titletext =~ s/WhaGood.sgm.html/Wharton, Edith <i>That Good May Come<\/i>/;
$titletext =~ s/WhaGrav.sgm.html/Wharton, Edith <i>The Angel at the Grave, Scribner's Magazine 29 (Feb. 1901): 158-166.<\/i>/;
$titletext =~ s/WhaKerf.sgm.html/Wharton, Edith <i>Kerfol<\/i>/;
$titletext =~ s/WhaLamp.sgm.html/Wharton, Edith <i>The Lamp of Psyche<\/i>/;
$titletext =~ s/WhaLege.sgm.html/Wharton, Edith <i>The Legend, Scribner's Magazine<\/i>/;
$titletext =~ s/WhaLife.sgm.html/Wharton, Edith <i>The Fulness of Life<\/i>/;
$titletext =~ s/WhaMuse.sgm.html/Wharton, Edith <i>The Muse's Tragedy<\/i>/;
$titletext =~ s/WhaPeli.sgm.html/Wharton, Edith <i>The Pelican<\/i>/;
$titletext =~ s/WhaTide.sgm.html/Wharton, Edith <i>With the Tide., Volume 191<\/i>/;
$titletext =~ s/WhaVall.sgm.html/Wharton, Edith <i>The Valley of Childish Things, and Other Emblems<\/i>/;
$titletext =~ s/WhaVene.sgm.html/Wharton, Edith <i>A Venetian Night's Entertainment<\/i>/;
$titletext =~ s/WhaVerd.sgm.html/Wharton, Edith <i>The Verdict<\/i>/;
$titletext =~ s/WhaView.sgm.html/Wharton, Edith <i>Scribner's Magazine<\/i>/;
$titletext =~ s/WhaWild.sgm.html/Wharton, Edith <i>The Hermit and the Wild Woman<\/i>/;
$titletext =~ s/WhaXing.sgm.html/Wharton, Edith <i>Xingu<\/i>/;
$titletext =~ s/Whitman.LeavesofGrass1855.html/Whitman <i>Leaves of Grass<\/i> \(1855\)/;
$titletext =~ s/Whitman.LeavesofGrass1891.html/Whitman, Walt <i>Leaves of Grass<\/i> \(1891-1892\)/;
$titletext =~ s/WhiPros.sgm.html/Whitman, Walt <i>Complete Prose Works<\/i> \(1892\)/;
$titletext =~ s/WhiSPro.sgm.html/Whitman, Walt <i>Supplementary Prose<\/i>/;
$titletext =~ s/Wilde.Portrait.html/Wilde <i>The Picture of Dorian Gray<\/i>/;
$titletext =~ s/Wilde.Savile.html/Wilde <i>Lord Arthur Savile's Crime<\/i>/;
$titletext =~ s/WilHapp.sgm.html/Wilde <i>The Happy Prince <\/i>/;
$titletext =~ s/WilInfa.sgm.html/Wilde <i>The Picture of Dorian Gray and Selected Stories<\/i>/;
$titletext =~ s/WilPoem.sgm.html/Wilde <i>Miscellaneous Poems<\/i>/;
$titletext =~ s/WilSavi.sgm.html/Wilde <i>The Picture of Dorian Gray and Selected Stories<\/i>/;
$titletext =~ s/WolMari.sgm.html/Wollstonecraft <i>Maria, or The Wrongs of Woman<\/i>/;
$titletext =~ s/WooCapt.sgm.html/Wood, J. Taylor <i>The Capture of a Slaver, Vol. 86<\/i>/;
$titletext =~ s/WooHaun.sgm.html/Woolf, Virginia <i>A Haunted House and Other Stories<\/i>/;
$titletext =~ s/WooLigh.sgm.html/Woolf, Virginia <i>To The Lighthouse<\/i>/;
$titletext =~ s/WooMrsD.sgm.html/Woolf, Virginia <i>Mrs. Dalloway<\/i>/;
$titletext =~ s/WooWave.sgm.html/Woolf, Virginia <i>The Waves<\/i>/;
$titletext =~ s/WooJour.sgm.html/Woolman, John <i>The Journal of John Woolman, Harvard Classics, vol 1<\/i>/;
$titletext =~ s/Wor2Lyr.sgm.html/Wordsworth, William and Samuel Coleridge <i>Lyrical Ballads<\/i>/;
$titletext =~ s/WorLyri.sgm.html/Coleridge, Samuel Taylor, 1772-1834 <i>Lyrical ballads <\/i>/;
$titletext =~ s/WroPamp.sgm.html/Wroth, Lady Mary <i>XXXX<\/i>/;
$titletext =~ s/YeaEssa.sgm.html/Yeats <i>Essays and Introductions<\/i>/;
$titletext =~ s/Yeats.Poems.html/Yeats <i>The Collected Poems<\/i>/;
$titletext =~ s/ZitGirl.sgm.html/Zitkala-Sa <i>The School Days of an Indian Girl, Vol. 85<\/i>/;
$titletext =~ s/ZitImpr.sgm.html/Zitkala-Sa <i>Impressions of an Indian Childhood, Vol 85<\/i>/;
$titletext =~ s/ZitPaga.sgm.html/Zitkala-Sa <i>Why I Am a Pagan, Vol. 90<\/i>/;
$titletext =~ s/ZitTeac.sgm.html/Zitkala-Sa <i>An Indian Teacher Among Indians, Vol. 85<\/i>/;
$titletext =~ s/ZogLife.sgm.html/Zogbaum, Rufus F. <i>Life at an Indian Agency, Vol. 34<\/i>/;

&printglrheader ();
unless ($frametype eq "frames") {
}

if ($frametype eq "frames") {
	$page = "corpusframe";
	$align = "top";
	$targetwindow = "textwindow";
}
elsif ($frametype eq "bigframes") {
	$page = "corpus";
	$align = "left";
	$targetwindow = "textwindow";
} else {
	$page = "corpus";
	$align = "left";
	$targetwindow = "textwindow";
}
if ( $ARGV[0] eq '-p' ) {
	shift;
	$printit = 0;
} else { $printit = 0; }

if ($frametype eq "frames") {
	#require ("quicksearchframe.pl");
} else {
	#require ("quicksearch.pl");
}

print "<table border=0 colspan=4 width=100%><tr>\n";
print "<th align=left colspan=1><a href=\"/cgi/openbin/glrhcp?frametype=$frametype\&query=$qquery\" onMouseOver=\"window.status='View the Text with Full HTML Enhancements';return true;\">Full Text in HTML</a></th>";
#print "<th align=left colspan=1><a href=\"/cgi/openbin/glrhcp?format=PDF&frametype=$frametype\&query=$qquery\" onMouseOver=\"window.status='Generate PDF Version of the Text';return true;\">Full Text in PDF</a></th>";
#print "<th align=center colspan=1><a href=\"/cgi/openbin/glrhcp?format=SGML&query=$qquery\" onMouseOver=\"window.status='View the Text in Raw SGML-HTML Form';return true;\">Full Text in SGML</a></th>";
#print "<th align=right colspan=1><a href=\"/cgi/openbin/glrhcp?format=BIBL&query=$qquery\" onMouseOver=\"window.status='View the the SGML Header for this Text';return true;\">Bibliographical Header</a></th>";
print "</tr></table>\n";
print "<br>\n";
print "<blockquote>\n";

#require ("rauthillus.pl");
if ($frametype eq "frames") {
	print "<br>";
}


#unless (open(TARGFILE, $qquery)) {
#	die ("could not open target file\n");
#}

if ($qquery =~ /\.Z$/) {
	unless (open(TARGFILE, "$ZCAT $qquery |")) {
		die ("could not open target file\n");
	}
}
elsif ($qquery =~ /\.gz$/) {
	unless (open(TARGFILE, "$GZCAT $qquery |")) {
		die ("could not open target file\n");
	}
}
else {
	unless (open(TARGFILE, $qquery)) {
		die ("could not open target file\n");
	}
}

while (<TARGFILE>) {
if (/<title>/) {
	print;
}
if (/<text/) {
	$printit = 1;
	$div1 = "";
	$div2 = "";
	$div3 = "";
	$div = "";
	$sp = "";
	$p = "";
	$note = "";
}
##if (/<pv>GB/) {
if (/<dAuthor>(.*)<\/dAuthor>/) {
	($authtarg = $1) =~ s/ /\+/g;
	unless (/Anon/ || /anon/) {
		s/<dAuthor>(.*)<\/dAuthor>/<A href="\/cgi\/openbin\/anaconda.pl\?keyword=$authtarg+AND+biography\&tag=globallanguagere" onMouseOver="window.status='Look Up Books About This Author';return true;"> $1<\/A><\/dAuthor>/;
#		s/<dAuthor>(.*)<\/dAuthor>/<A href="\/cgi\/openbin\/glrwebp\?query=$authtarg+AND+biography\&engine=HB" onMouseOver="window.status='Look Up Information About This Author';return true;"> $1<\/A><\/dAuthor>/;
#		s/[ '\-]([A-Z][a-z]*)<\/dAuthor>/<A href="\/cgi\/openbin\/glrwebp\?query=$authtarg\&engine=AV" onMouseOver="window.status='Look Up Information About This Author';return true;"> $1<\/A><\/dAuthor>/;
	}
}
##	}
s/<tPage>/<center>$&/g;
s/<hr>//;
s/<\/tPage>/$&<br clear=all><br><img src=\/images\/redline.gif height=2 width=100%><br><br><\/center>/g;
s/\&th;/\&thorn;/g;
s/\&Th;/\&THORN;/g;
s/\&Thorn;/\&THORN;/g;
s/\&ygh;/<img src=\/IPA\/ipa.yGH.gif align=top alt="3">/g;
s/\&Ygh;/<img src=\/IPA\/ipa.YGH.gif align=top alt="3">/g;
#s/\&oelig;/<img src=\/IPA\/ipa.oe.gif alt="oe">/g;
#s/\&Oelig;/<img src=\/GREEK\/OElig2.gif alt="Oe">/g;
s/\&oelig;/<oe>oe<\/oe>/g;
s/\&Oelig;/<Oe>Oe<\/Oe>/g;
	if (/<div.*id=/) {
		if (/<div1/) {
			$div1 = "div1";
		}
		elsif (/<div2/) {
			$div2 = "div2";
		}
		elsif (/<div3/) {
			$div3 = "div3";
		}
		elsif (/<div/) {
			$divspace = "yes";
			$div = "div";
		}
		$printit = "1";
		$line = ($. + 1);
		s/<div type=(.*) id=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div\&linenum=$line\">$2: <\/A>/;
#		s/<div([0-9]) type=(.*) id=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		s/<div(0) type=(.*) id=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		s/<div(1) type=(.*) id=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		s/<div(2) type=(.*) id=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		s/<div(3) type=(.*) id=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		s/<div(4) type=(.*) id=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$3: <\/A>/;
		print;
		$printit = "0";
	}
	elsif (/<div/) {
		if (/<div1/) {
			if (/<div1>/) {
				$div1end = "yes";
			}
			$div1 = "div1";
		}
		elsif (/<div2/) {
			if (/<div2>/) {
				$div2end = "yes";
			}
			$div2 = "div2";
		}
		elsif (/<div3/) {
			if (/<div3>/) {
				$div3end = "yes";
			}
			$div3 = "div3";
		}
		elsif (/<div/) {
			if (/<div>/) {
				$divend = "yes";
			}
			$divspace = "yes";
			$div = "div";
		}
		$printit = "1";
		$line = ($. + 1);
		s/<div type=(.*) align=[a-z]*>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div\&linenum=$line\">$1: <\/A>/;
		s/<div type=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div\&linenum=$line\">$1: <\/A>/;
#		s/<div([0-9]) type=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div(0) type=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div(1) type=(.*)>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div(2) type=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div(3) type=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div(4) type=(.*)>/<dt>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div$1\&linenum=$line\">$2: <\/A>/;
		s/<div>/<dt><A href="\/cgi\/openbin\/glrcchp\?frametype=$frametype\&query=$qquery\&divtype=div\&linenum=$line\">Chapter or Scene: <\/A>/;
		print;
		$printit = "0";
	}
	if (/h3>/) {
		s/h3>/b>/g;
		s/<br>//;
		print;
	}
	if (/H2>/) {
		s/H2>/b>/g;
		print;
	}
	if (/head>/) {
		s/head>/b>/g;
		print;
	}
if (/<p / || /<p>/) {
	if (/<p>/) {
		$pend = "yes";
	}
	$p = "p";
}
if (/<sp>/) {
	$sp = "sp";
}
if (/<note/) {
	if (/<note>/) {
		$noteend = "yes";
	}
	$note = "note";
}
s/><pv/> <pv/g;
if ( $printit eq "1" ) { print; }
}

close(TARGFILE);

$dtext=$qquery;
##require ("singletextform.pl");
#&singletextform();
&singletextform2();

sub printglrheader
{
if ($site eq "adv") {
	printf("Content-type: text/html\n\n");
#	printf("<body bgcolor=\"lightblue\" text=\"#0000aa\" link=\"#ff0000\" vlink=\"#cc0033\">\n");
	printf("<body bgcolor=\"#fafad2\" text=\"#0000aa\" link=\"#ff0000\" vlink=\"#cc0033\">\n");
	printf("<basefont size=\"4\">\n");
} else {
	printf("Content-type: text/html\n\n");
	printf("<body bgcolor=\"#ffffb8\" text=\"green\" link=\"#ff0000\" vlink=\"#cc0033\">\n");
#	printf("<body bgcolor=\"#ffffb0\" text=\"green\">");
#	printf("<basefont size=\"4\">\n");
	printf("<b>\n");
}
}

sub parse_form_data
{

local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs, $key_value, $key, $value);

$request_method = $ENV{'REQUEST_METHOD'};

if ($request_method eq "GET") {
	$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
	read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
	printf("Unknown method\n");
#	exit (1);
}

@key_value_pairs = split (/&/, $query_string);

foreach $key_value (@key_value_pairs) {
	($key, $value) = split (/=/, $key_value);
	$value =~ tr/+/ /;
	$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	if (defined($FORM_DATA{$key})) {
		$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
	} else {
		$FORM_DATA{$key} = $value;
	}
   }

}

sub authillus
{
$page="corpus";
$align="left";

if ($qquery =~ /^.*Austen..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/austen.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Bronte.J.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/cbronte.gif border=3></a>";
}
elsif ($qquery =~ /^.*Cather..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/cather.gif border=3></a>";
}
elsif ($qquery =~ /^.*Chaucer..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/chaucer.gif border=3></a>";
}
elsif ($qquery =~ /^.*\/ColWork.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/coleridge.gif border=3></a>";
}
elsif ($qquery =~ /^.*\/Coleridge..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/coleridge.gif border=3></a>";
}
elsif ($qquery =~ /^.*Cooper..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/cooper.gif border=3></a>";
}
elsif ($qquery =~ /^.*Crane..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/crane.gif border=3></a>";
}
elsif ($qquery =~ /^.*Crevecoeur..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/creve.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Darwin..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/darwin.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Dickens.C.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/dickens.gif border=3></a>";
}
elsif ($qquery =~ /^.*Dickens.[G-Z].*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/dickens.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Donne..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/donne.gif border=3></a>";
}
elsif ($qquery =~ /^.*Doy.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/doyle.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Douglass..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/f.douglas.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Dou[A-R].*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/f.douglas.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Eliot.Prufrock.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/tseliot.gif border=3></a>";
}
elsif ($qquery =~ /^.*Eliot.Poems.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/tseliot.gif border=3></a>";
}
elsif ($qquery =~ /^.*Eliot..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/geliot.gif border=3></a>";
}
elsif ($qquery =~ /^.*Emerson..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/emerson.gif border=3></a>";
}
elsif ($qquery =~ /^.*Fra[A-Z2].*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/franklin.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Franklin..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/franklin.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Frost.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/frost.gif border=3></a>";
}
elsif ($qquery =~ /^.*FroPoem.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/frost.gif border=3></a>";
}
elsif ($qquery =~ /^.*Godwin..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/godwin.gif border=3></a>";
}
elsif ($qquery =~ /^.*Hardy..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/hardy.gif border=3></a>";
}
elsif ($qquery =~ /^.*Hawthorne..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/hawthorne.gif border=3></a>";
}
elsif ($qquery =~ /^.*Irving..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/irving.jpg border=3></a>";
}
elsif ($qquery =~ /^.*James..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/james.gif border=3></a>";
}
elsif ($qquery =~ /^.*.Jam.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/james.gif border=3></a>";
}
elsif ($qquery =~ /^.*Jefferson..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/jefferson.gif border=3></a>";
}
elsif ($qquery =~ /^.*Jonson..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/jonson.gif border=3></a>";
}
elsif ($qquery =~ /^.*Kip.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/kipling.jpg border=3></a>";
}
elsif ($qquery =~ /^.*\/London..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/london.gif border=3></a>";
}
elsif ($qquery =~ /^.*Melville..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/melville.gif border=3></a>";
}
elsif ($qquery =~ /^.*Milton.A.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/milton.gif border=3></a>";
}
elsif ($qquery =~ /^.*Milton.P.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/milton.gif border=3></a>";
}
elsif ($qquery =~ /^.*Milton.S.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/milton.gif border=3></a>";
}
elsif ($qquery =~ /^.*Milton.Th.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/milton.gif border=3></a>";
}
elsif ($qquery =~ /^.*Mil67PL.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/milton.gif border=3></a>";
}
elsif ($qquery =~ /^.*\/Poe.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/poe.gif border=3></a>";
}
elsif ($qquery =~ /^.*Scott.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/scott.jpg border=3></a>";
}
elsif ($qquery =~ /^.*ScoCasD*.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/scott.jpg border=3></a>";
}
elsif ($qquery =~ /^.*ScoPoem.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/scott.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Shakespeare.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/shake.gif border=3></a>";
}
elsif ($qquery =~ /^.1609Son.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/shake.gif border=3></a>";
}
elsif ($qquery =~ /^.*Q..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/shake.gif border=3></a>";
}
elsif ($qquery =~ /^.*Shaw..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/shaw.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Stevenson..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/stevenson.gif border=3></a>";
}
elsif ($qquery =~ /^.*Stowe..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/stowe.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Thoreau..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/thoreau.gif border=3></a>";
}
elsif ($qquery =~ /^.*Trollope..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/trollope.gif border=3></a>";
}
elsif ($qquery =~ /^.*Twain..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/twain.gif border=3></a>";
}
elsif ($qquery =~ /^.*TwaMiss..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/twain.gif border=3></a>";
}
elsif ($qquery =~ /^.*Wells..*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wells.gif border=3></a>";
}
elsif ($qquery =~ /^.*Wollstonecraft.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wollstonecraft.gif border=3></a>";
}
elsif ($qquery =~ /^.*WolM.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wollstonecraft.gif border=3></a>";
}
elsif ($qquery =~ /^.*Woolf.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/woolf.gif border=3></a>";
}
elsif ($qquery =~ /^.*Woo[D-IK-Z].*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/woolf.gif border=3></a>";
}
elsif ($qquery =~ /^.*Wordsworth.Coleridge.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/coleridge.gif border=3> <IMG SRC=/AUTHORS/wordsworth.gif border=3></a>";
}
#if ($qquery =~ /^.*\/Wordsworth..*$/) {
#	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wordsworth.jpg border=3></a>";
#}
elsif ($qquery =~ /^.*Wordsworth.Excursion.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wordsworth.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Wordsworth.Prelude.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wordsworth.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Wordsworth.Immortality.*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/wordsworth.jpg border=3></a>";
}
elsif ($qquery =~ /^.*Yea[E,P].*$/) {
	print "<a href=/$page.html><IMG align=$align hspace=15 SRC=/AUTHORS/yeats.gif border=3></a>";
}
}

sub singletextform
{
print "<br><br><img src=/images/redline.gif height=2 width=100%><br><br>\n";
print "<FORM ACTION=\"/cgi/openbin/openbin/rhcfilep\">\n";
print "Search for string or word in $titletext:\n";
print "<br><INPUT NAME=\"query\" SIZE=25>\n";
print "<INPUT TYPE=\"submit\" VALUE=\"Search\"> <INPUT TYPE=\"reset\" VALUE=\"Clear\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"dtext\" VALUE=\"$dtext\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"frametype\" VALUE=\"$frametype\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"div1end\" VALUE=\"$div1end\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"div2end\" VALUE=\"$div2end\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"div3end\" VALUE=\"$div3end\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"divend\" VALUE=\"$divend\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"divspace\" VALUE=\"$divspace\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"pend\" VALUE=\"$pend\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"noteend\" VALUE=\"$noteend\">\n";
print "<SELECT NAME=\"format\">\n";
printf("<OPTION>Exact Spellings\n");
printf("<OPTION>Variant Spellings\n");
print "</SELECT>\n";
print "<br>\n";
print "Select Text Search Region:<br>\n";
@oregions = ('Anywhere in Text');
if ($div1 ne "") {
	@div1 = "Part Act or Chapter - div1";
	push(@oregions, @div1);
}
if ($div2 ne "") {
	@div2 = "Chapter or Scene - div2";
	push(@oregions, @div2);
}
if ($div3 ne "") {
	@div3 = "Chapter or Section - div3";
	push(@oregions, @div3);
}
if ($div ne "") {
	@div = "Chapter or Section - div";
	push(@oregions, @div);
}
if ($sp ne "") {
	@sp = "Speech";
	push(@oregions, @sp);
}
if ($p ne "") {
	@p = "Paragraph";
	push(@oregions, @p);
}
if ($note ne "") {
	@note = "Note";
	push(@oregions, @note);
}
print "<SELECT NAME=\"qregion\">\n";
foreach $oregion (@oregions) {
        if ($oregion eq $qregion) {
                printf("<OPTION selected>$oregion\n");
        } else {
                printf("<OPTION>$oregion\n");
        }
}
print "</SELECT>\n";
print "or Lines of Surrounding Context: <INPUT NAME=\"ctext\" value=\"$ctext\" SIZE=4>\n";
print "</FORM>\n";
1;
}
sub singletextform2
{
$titleselect = $qquery;
$titleselect =~ s/\/home.\/global\-l\/TEXTS\/...\/.....\///;
#print "titleselect is $titleselect\n";
$titleselect =~ s/AD\.([0-9\-]*)\.//;
$titleselect =~ s/\.html//;
$titleselect =~ s/\.gz//;
$authorselect = $titletext;
$authorselect =~ s/[A-Z]\. //;
$authorselect =~ s/[A-Z]\. //;
$authorselect =~ s/ .*$//;
$authorselect =~ s/\&euml;/e/;
if ($titleselect =~ /[A-Z][a-z][a-z][A-Z]/) {
#	$authorselect = substr($authorselect, 0, 3);
}
$titleselect = substr($titleselect, 0, 20);
print "<br><br><img src=/images/redline.gif height=2 width=100%><br><br>\n";
print "<form action=\"/cgi/openbin/glrpokecon\">\n";
print "<table border=0 colspan=4 width=100%><tr>\n";
#print "author is $authorselect\n";
print "<th align=left colspan=1>\n";
print "<select name=\"titlerange\">\n";
print "<option value=\"$titleselect\">$titletext\n";
print "<option value=\"$authorselect\">Any work by $authorselect\n";
print "</select>\n";
print "<input type=hidden name=daterange value=\"AD.[0-9]\">\n";
print "</th>\n";
print "<th align=left colspan=1>\n";
print "<select name=\"stringtype\">\n";
print "<option value=\"word\">Word\n";
print "<option value=\"string\">Part of Word\n";
print "</select>\n";
print "</th>\n";
print "</tr>\n";
print "<tr>\n";
print "<th align=left colspan=1>\n";
print "<select name=\"errors\">\n";
print "<option value=\"0\">Exact Spelling\n";
print "<option value=\"1\">One Spelling Change\n";
print "<option value=\"2\">Two Spelling Changes\n";
print "</select>\n";
print "</th>\n";
print "<th align=left colspan=1>\n";
print "<input name=\"query\" SIZE=20>\n";
print "<input type=\"submit\" VALUE=\"Search\">\n";
print "</th>\n";
print "</tr></table>\n";
print "</form>\n";
}