);
my $ci = 27;
my $ct = 27;
chomp($rid); chomp($interpret); chomp($title); # zeilenenden abschneiden
if ($sinterpret ne '') {
if (index($interpret, $sinterpret) == 0) {
$ci = 1;
}
}
else {
$ci = 11;
}
if ($stitle ne '') {
if (index($title, $stitle) == 0) {
$ct = 1;
}
}
else {
$ct = 11;
}
my $a = $ci + $ct;
if ($a == 12) {
print '
' . $interpret . ' - ' . $title . '
';
}
if ($a == 2) {
print '
' . $interpret . ' - ' . $title . '
';
}
}
close (SR);