Changeset 25

Show
Ignore:
Timestamp:
04/13/07 17:20:40 (2 years ago)
Author:
root
Message:

Fixed persistent clid-label for recompute queues

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r23 r25  
    56805680                                if ( defined( $botonregistrado{$interno} ) ) { 
    56815681                                    if ( $botonregistrado{$interno} eq "$quehace|$dos" ) { 
    5682                                         print "registrado igual cambiaron($interno) = 0\n"; 
    56835682                                        $cambiaron{$interno} = 0; 
    56845683                                    } 
    …… 
    59405939                            } 
    59415940                        } 
     5941                        elsif ( $quehace eq "settextnopermanente" ) { 
     5942                            if ( !defined( $group_count{$interno} ) ) { 
     5943                                push @respuestas, "$interno|settext|$dos"; 
     5944                            } 
     5945                        } 
    59425946                        elsif ( $quehace eq "fopledcolor" ) { 
    59435947                            $botonledcolor{$interno} = $dos; 
    …… 
    60806084                                        if ( $quehace2 ne "" ) { 
    60816085                                            push @respuestas, "$interno|$quehace2|$dos"; 
    6082                                             print "push $quehace2 en $interno quehace2\n"; 
     6086 
     6087                                            # print "push $quehace2 en $interno quehace2\n"; 
    60836088                                        } 
    60846089                                    } 
    …… 
    61716176                                        if ( defined( $botonpermanenttext{$interno} ) ) { 
    61726177                                            push @mensajefinal, "$interno|settext|$botonpermanenttext{$interno}"; 
     6178                                            print "interno $interno tenia permanente $botonpermanenttext{$interno}\n"; 
    61736179                                        } 
    61746180                                        $botonclid{$interno} = ""; 
    …… 
    88328838    my $maxtime = 0; 
    88338839 
    8834     print_recomputequeues(); 
     8840    #print_recomputequeues(); 
    88358841 
    88368842    my $header = "**RECOMP QUEUE"; 
    …… 
    89128918                  $cola->{$id}{QUEUE} . "=" 
    89138919                  . $cola->{$id}{POSITION} 
    8914                   . "|settext|[$clidtext]|" 
     8920                  . "|settextnopermanente|[$clidtext]|" 
    89158921                  . $cola->{$id}{QUEUE} . "-" 
    89168922                  . $cola->{$id}{SERVER} . "|$id";