[Catalyst] Redirects not working under Catalyst with Debian server in IE

[Giancarlo Corcuera]

J. Shirley wrote:
> On Mon, Dec 29, 2008 at 8:26 AM, Giancarlo Corcuera
> <giancarlo at capybara-software.com> wrote:
>   
>> I didn't understand your answer. Can you be more specific please
>>
>>     
>
>
>
> First, please don't top post.  Reply at the bottom.
>
> Secondly, you are asking for help with some code that is not behaving
> the way you want.  I asked you to show the code that you are
> attempting to get working.  Please copy the relevant code into a list
> message so we can help you.  No Catalyst hackers are mind-readers,
> however we do have code that redirects properly so if you show us your
> code we can offer advice.
>
> -J
>
> _______________________________________________
> List: Catalyst at lists.scsys.co.uk
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
> Dev site: http://dev.catalyst.perl.org/
>
>   

sorry for my previous post I have my email client to add the message at 
the top of the message I'm posting my code again:

sub login :Chained('lang') :PathPart('sign_in') :Args(0) :Form {
    my ($self, $c) = @_;
   
    my $url_language = $c->stash->{'language'};
    my $lang_id = $c->stash->{'language_id'};
   
    my $form_data = load_tags($c,'fe_login_form', $lang_id);
    $c->stash->{'page_title'} = $form_data->{'form_title'};
   
    my $form = $self->formbuilder->new(
        {
            'source' => $c->config->{'home'}.'/root/forms/login/login.fb',
            'title'  => $form_data->{'form_title'},
            'submit' => $form_data->{'sign_in'},
            'header' => 0
        } );
   
    $form->field(
        'name'  => 'username',
        'label' => $form_data->{'username'}
    );
   
    $form->field(
        'name'  => 'password',
        'label' => $form_data->{'password'}
    );
   
    $form->field(
        'name' => 'qr_submit',
        'type' => 'hidden'
    );
   
    if ( $form->submitted && $form->validate ) {
        my $qr_submit = $form->field('qr_submit') || 0;
       
        if ( $c->login( $form->field('username'), 
$form->field('password') ) ) {
           
            $c->session->{'user_id'}   = $c->user->user_id;
            $c->session->{'is_client'} = $c->user->is_client;
           
            if ( $c->user->is_client eq 'Y' ) {
               
                $c->session->{'user_cty'} = $c->user->b_customer_id->
                    b_country_id->country_code;
               
                
$c->forward('set_currency_format',[$c->session->{'user_cty'}]);
               
                $url_language = $c->user->b_customer_id->b_country_id
                    ->language_iso;
               
            }
            else {
               
                $c->session->{'user_cty'} = 'US';
                $c->forward('set_currency_format', ['US']);
               
            };
           
            $c->forward('user_roles', [$c->user->user_id]);
            $c->forward('lang_session',[]);
           
        }
        else {
           
            if ( $qr_submit == 1 ) {
               
                $c->flash->{'login_username'} = $form->field('username');
               
                $c->flash->{'login_qr'} = 1;
                $c->flash->{'login_error'} = $form_data->{'error_message'};
               
                $c->session->{'rq'} = undef;
               
                
$c->res->redirect($c->uri_for("/$url_language/quotes/edit"));
                $c->detach();
               
            };
           
            $c->flash->{'error'} = $form_data->{'error_message'};
           
            $c->res->redirect($c->uri_for("/$url_language/sign_in"));
            $c->detach();
           
        };
       
        if ( $qr_submit == 1 ) {
           
            $c->session->{'rq'} = undef;
            $c->res->redirect($c->uri_for("/$url_language/quotes/edit"));
            $c->detach();
           
        };
       
        if ( $c->user->is_client eq 'N' ) {
           
            $c->res->redirect($c->uri_for('/administrator'));
            $c->detach();
           
        }
        else {
           
            $c->session->{'rq'} = undef;
           
            $c->res->redirect($c->uri_for("/$url_language"));
            $c->detach();
           
        };
       
    };
   
    $c->stash->{'path'}     = $c->request->{'path'};
    $c->stash->{'template'} = 'login.tt2';
};

sorry for the inconvenience.

Giancarlo