Tcl IVR Help

Hi’ everyone
I wrote a Tcl script for our company and it works good. I have a AS5350 that athenticate with Radius server. my script works like debitcard. when user press Pound(#) key for 1 second it disconnect the call and propmt user to press new destination number. but i want it to first say the remaining Credit and then prompt for destination.
—-
some parts of my script is:
proc act_LongPound { } {

if {[infotag get evt_digit] != “#”} {
fsm setstate same_state;
return;
}

set duration [infotag get evt_digit_duration];

if {$duration < 300} { fsm setstate same_state; return; } connection destroy con_all; return; } proc act_ConnDestroyed { } { global pound; global account; global pass; leg disconnect leg_outgoing; set pound 1; init_perCallVars; act_GetDestination; fsm setstate DESTSELECTION; # aaa authorize $account $pass "" "" leg_incoming; # fsm setstate AUTHORIZE; return; } ----------- when I replace the commented lines with their above line the radius didnot authenticate. I'll glad if someony can help me. Mehdi Es.