CallerID not functional on Asterisk 1.4.3 - patches included

[Caio Zanolla <caio@xxxxxxxxxx>]

CallerID wont work on asterisk 1.4.3 so I've made a few changes to sort 
it out.
Now i got caller id shown on calee button during ring state as well as 
after  connected.
Not sure if it'll break things further as its not in production, yet.
Nicolás?

-----snip
# We use this hashes to store the remote callerid for CVS-HEAD
       my $key      = "$server^$hash_temporal{'Destination'}";
       my $dorigen  = "";
       my $ddestino = "";
       my $dnada    = "";
       $remote_callerid{$key}      = $hash_temporal{"CallerID"};       
       if ( defined( $hash_temporal{"CallerIDNum"} ) ) {
          $remote_callerid{$key}      = $hash_temporal{"CallerIDNum"};
       }       
       $remote_callerid_name{$key} = $hash_temporal{"CallerIDName"};
-----snip

-----snip
       my $clid1 = "";
       my $clid2 = "";

       if ( defined( $datos{$uniqueid2}{"Callerid"} ) ) {
           $clid1 = $datos{$uniqueid2}{"Callerid"};
       }
       if ( defined( $datos{$uniqueid2}{"CallerID"} ) ) {
           $clid1 = $datos{$uniqueid2}{"CallerID"};
       }
       if ( defined( $datos{$uniqueid2}{"CallerIDNum"} ) ) {
           $clid1 = $datos{$uniqueid2}{"CallerIDNum"};
       }       
       if ( defined( $datos{$uniqueid1}{"Callerid"} ) ) {
           $clid2 = $datos{$uniqueid1}{"Callerid"};
       }
       if ( defined( $datos{$uniqueid1}{"CallerID"} ) ) {
           $clid2 = $datos{$uniqueid1}{"CallerID"};
       }
       if ( defined( $datos{$uniqueid1}{"CallerIDNum"} ) ) {
           $clid2 = $datos{$uniqueid1}{"CallerIDNum"};
       }
       my $sclidname1 = "";
       my $sclidname2 = "";
-----snip

--
Atenciosamente,

Caio Zanolla
Coordenador de TI - LPJ Editora
www.lpj.com.br - (31) 2121-0000