OT: Perl script question

From: M.Godlewski <mcgodlewski_at_yahoo.com>
Date: Tue, 14 Dec 2004 07:20:53 -0800 (PST)
Message-ID: <20041214152053.7241.qmail@web42002.mail.yahoo.com>

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

Received on Tue Dec 14 2004 - 09:23:38 CST