Help for this page

Select Code to Download


  1. or download this
    NR------E-mail----------Comment---------Dates-------------Age--Action_
    +date
    12------Tom@info.com----blablabla-------AM0,PM0,AM1,PM1---32---10-10-2
    +001
    13------Frank@info.com--blablabla-------AM0,PM0-----------45---10-10-2
    +001
    14------Sand@info.com---blablabla-------AM1,PM1,PM2-------47---10-10-2
    +001
    14------Sand@info.com---blablabla-------AM1,PM1,PM2-------47---12-10-2
    +001
    
  2. or download this
    while (my $c = $st->fetchrow_hashref)
    {
    ...
    $a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_2}}=$c->{AM_
    +2};
    $a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_3}}=$c->{AM_
    +3};
    $a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_4}}=$c->{AM_
    +4};
    
  3. or download this
    Show_analyst_row(\$analyst_record{$c->{ANA_ID}});
    
    ...
    my(%analyst_record) = %{@_};
    print "$analyst_record{e_mail}\n";
    }