#!/usr/bin/perl

@indexbychoice=("Actor,actor","Film,film","TV,tv","TV Guest Appearances,tvguest");
@orderbychoice=("First Name,firstname","Last Name,lastname","Age,birthdate");
@letters=("All","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z");

#generate order by links based on current orderby selection
sub gen_orderlinks {
  foreach $orderbylink (@orderbychoice) {
    ($print,$orderbylink)=split(/,/, $orderbylink);
    unless ($orderbylink eq $orderby) {
      $orderbylinks=$orderbylinks." <A HREF=\"$thisscript?$passparams&orderby=$orderbylink\">$print</A > ";
    }
  }
}

#generate indexby links based on current indexby selection
sub gen_indexlinks {
  foreach $indexbylink (@indexbychoice) {
    ($print,$indexbylink)=split(/,/, $indexbylink);
    $currentindex=$print if ($indexbylink eq $indexby);
    unless ($indexbylink eq $indexby) {
      $indexbylinks=$indexbylinks." <A HREF=\"/cgi-bin/main.cgi?indexby=$indexbylink\">$print</A > ";
    }
  }
}