OT: Perl script question

Newbie Perl dba!
 
There is a perl program left by a previous employee which I'm trying to 
understand.  Below are some pieces of the program.  Basically it throws up a 
screen and asks for selected records 1-5.  If 2 is picked it runs the following 
code.   I'm trying to figure out how to pull all records back instead of just a 
$user_list entered.  Can I use a special character for the $user_list to pull 
all records back that are of user_rec_type=2?
 
If I need to post the whole program let me know.  
 
TIA
 
User_rec_type = 2
 
# Build basic query for user's selected record type
my $querydef = $session -> BuildQuery($rec_type);
$querydef -> BuildField("id");
$querydef -> BuildField("state");
$querydef -> BuildField("owner");
my $resultset = $session -> BuildResultSet($querydef);
$resultset -> Execute();
# Traverse query results, checking for user's reporting criteria, i.e. record 
list
while (($resultset -> MoveNext()) == 1) {
  $id=$resultset->GetColumnValue(1);
  $state=$resultset->GetColumnValue(2);
  $owner=$resultset->GetColumnValue(3);
  for ($j=1; $j <= $i; $j++) {
     if (($list[$j] eq $id) or ($list[$j] eq $owner) or ($list[$j] eq $state)) {
 
    if ($user_rec_type eq 2) {
     $rec=$session->GetEntity($rec_type,$id);
     $head=$rec->GetFieldValue("Headline")->GetValue();
     $description=$rec->GetFieldValue("Description")->GetValue();
     $sev=$rec->GetFieldValue("Severity")->GetValue();
     $pri=$rec->GetFieldValue("Priority")->GetValue();
     $sub_date=$rec->GetFieldValue("Submit_Date")->GetValue();
     $submitter=$rec->GetFieldValue("Submitter")->GetValue();
     $est_staff_hours=$rec->GetFieldValue("Estimated_Staff_Hours")->GetValue();
     
$est_completion_date=$rec->GetFieldValue("Estimated_Completion_Date")->GetValue();
     $impact_analysis=$rec->GetFieldValue("Impact_Analysis_Data")->GetValue();
     $scr_cross=$rec->GetFieldValue("SCR_Cross_Ref")->GetValue();
     $resolution=$rec->GetFieldValue("Resolution")->GetValue();
     $notes=$rec->GetFieldValue("Notes_Log")->GetValue();
     print OUT1 "\n$rec_type $id\n\n";
     print OUT1 wrap("","",$head);
     print OUT1 "\n\n";
     print OUT1 "State:           $state \n";
     print OUT1 "Severity:        $sev\n";
     print OUT1 "Priority:        $pri\n";
     print OUT1 "Resolution:      $resolution \n";
     print OUT1 "SCR Cross Ref:   $scr_cross\n";
     print OUT1 "Owner:           $owner \n";
     print OUT1 "Submit Date:     $sub_date \n";
     print OUT1 "Submitter:       $submitter\n\n";
     print OUT1 "Description: \n\n";
     print OUT1 wrap("","",$description);
     print OUT1 "\n\n";
     print OUT1 "Impact Analysis Data: \n\n";
     print OUT1 wrap("","",$impact_analysis);
     print OUT1 "\n\n";
     print OUT1 "Est. Staff Hours:       $est_staff_hours\n";
     print OUT1 "Est. Completion date:   $est_completion_date\n\n";
     print OUT1 "Notes Log: \n";
     print OUT1 wrap("","",$notes);
     print OUT1 "\n";
     print OUT1 
"\n---------------------------------------------------------------------------------\n";
     }

sub pad_user_list{
# Parse user's comma-separated record list & pad numbers with epme0000...
$i=0;
$done="F";
while ($done eq "F") {
   $i=$i+1;
   $list[$i]=$user_list;
   $done="T";
   if (index($user_list,",") > -1) {
      $done="F";
      $list[$i]=substr($user_list,0,index($user_list,","));
      $user_list=substr($user_list,index($user_list,",")+1,1000);
   }
   if ($list[$i] =~ /[0123456789]/ ) {$list[$i]=sprintf("epme%08d",$list[$i]);}
}
}

                
---------------------------------
Do you Yahoo!?
 Yahoo! Mail - 250MB free storage. Do more. Manage less.

--
http://www.freelists.org/webpage/oracle-l

Other related posts: