Changeset 53

Show
Ignore:
Timestamp:
08/02/07 19:36:45 (1 year ago)
Author:
root
Message:

Ooops! Format clid fixed

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r52 r53  
    51575157            $texto                      = $canalid; 
    51585158            $estado_final               = "ring"; 
    5159             $datos{$unico_id}{'Origin'} = "true"; 
    5160             log_debug( "$heading POPULATES datos($unico_id){ Origin } = true", 128 ) if DEBUG; 
     5159            #$datos{$unico_id}{'Origin'} = "true"; 
     5160            #log_debug( "$heading POPULATES datos($unico_id){ Origin } = true", 128 ) if DEBUG; 
    51615161        } 
    51625162 
    …… 
    91699169 
    91709170    my $numero       = shift; 
    9171     my $name         = defined shift; 
    9172     my $format       = defined shift; 
     9171    my $name         = shift; 
     9172    my $format       = shift; 
    91739173    my @chars_number = (); 
    91749174    my @chars_format = (); 
    …… 
    91769176    my $devuelve     = ""; 
    91779177 
    9178     if ( $name eq "<unknown>" ) { $name = ""; } 
     9178    if ( $name == undef ) { $name = "" } 
     9179 
     9180        if ( $name eq "<unknown>" ) { $name = ""; } 
    91799181 
    91809182    if ( !is_number($numero) ) {