% if ($str) {
 <% $str %>
% } else {
<h3>There's nothing here!</h3>
<p>
If you followed an internal link, you may have caught me in the middle of an update.<BR>
If the link still doesn't work in an hour, please let me know. Thanks!
<BR>&nbsp;&nbsp;&nbsp; Contact: [ emily (AT) lieder (DOT) net ]<BR>
% }

<%shared>
my $home = $ENV{'lieder_homedir'} . "/";
use lib $ENV{'lieder_libdir'};
use Lieder::Text;
my $str = "";
use CGI::Cookie;
my %cookies = CGI::Cookie->fetch;
my $admin = exists $cookies{'admincookie'};

my ($TextId, $Transliterate, $show_orig, $remove, $RF) = (0,0,0,0,0);
if (defined $m->request_args->{'TextId'}) {
    $TextId = $m->request_args->{'TextId'};
}  else {
    $TextId = Lieder::Text->get_last_text();
}
if (defined $m->request_args->{'Transliterate'}) {
    $Transliterate = $m->request_args->{'Transliterate'};
}
if (defined $m->request_args->{'show_orig'}) {
    $show_orig = $m->request_args->{'show_orig'};
}
if (defined $m->request_args->{'remove'}) {
    $remove = $m->request_args->{'remove'};
}
if (defined $m->request_args->{'RF'}) {
    $RF = $m->request_args->{'RF'};
}

my $text;
my $left = 1;
$text = Lieder::Text->retrieve($TextId);
my $Title = "";
my $extrastring = "";

if (!$show_orig && $text && $text->based_on_text_id() && 
# $text->our_translation_flag eq 'Y' &&
  $text->adaptation ne 'Y' &&
    $text->based_on_text_id->display_text() && $text->based_on_text_id->can_show()) {
    unless (!$text->display_text()) {
        $show_orig = 1;
    }
}
if ($text && $text->language_id()) {
    $str .= '<table cellspacing="5" border="0" cellpadding="5"><tr><td valign="top" width="50%">' . "\n";
    if ($show_orig) {
        $str .= $m->scomp($ENV{'lieder_homedir'} . '/components/showtext', Text => $text->based_on_text_id(), Transliterate => $Transliterate, Left => 1, remove => $remove, RF => $RF);
    } else {
        $str .= $m->scomp($ENV{'lieder_homedir'} . '/components/showtext', Text => $text, Transliterate => $Transliterate, Left => $left, remove => $remove, RF => $RF);
    }

    $str .= '</td><td valign="top" width="50%">';
    $left = 0;

    if ($show_orig) {
        $str .= $m->scomp($ENV{'lieder_homedir'} . '/components/showtext', Text => $text, Transliterate => $Transliterate, Left => $left, remove => $remove, RF => $RF);
    } else {
        unless ($admin) {
            $str .= $m->scomp($ENV{'lieder_homedir'} . '/components/show_outside_links', Text => $text );
        }
    }
    $Title = $text->get_title();
    if (!$Title) {
        my $fline = $text->first_lines->next->display_first_line();
	if ($fline) {
            $Title = $fline;
        } else {
	    $Title = Lieder->notitle_string();
        }
    }
    my $t = $text; # t is the text we use to get info for the title
    while (! ($t->authors() && $t->authors->next() && $t->authors->next->author_artist_id())) {
        $t = $t->based_on_text_id();  # eventually we'll find a text with a real author!
    }
    my $a = $t->authors->next->author_artist_id->display_surname();
    if ($a) {
        $extrastring .= "(" . $a;
    }
    
    my $c = $t->setting_composers_CS();
    if ($c) {
        if ($extrastring) {
	    $extrastring .= ", ";
        } else {
            $extrastring = "(";
        }
        $extrastring .= "set by " . $c;
    }
    $extrastring .= ")";
}

</%shared>

<%method title>
 <% $Title %> <% $extrastring %> (<% Lieder->keyword_laden_title() %>)
</%method>