Doublecheck to see if you can put a -name or something like that in
the headers. I'm don't exactly remember what it is. IE doesn't use the
-type parameter correctly, especially not versions prior to 6.0.1.

Rob


On Mon, 29 Nov 2004 11:49:13 -0800, Tim Howell <[EMAIL PROTECTED]> wrote:
> Below I have pasted a run mode from one of my applications.  The sub
> grabs a report from a database and then returns it to the user.  It
> works fine under Firefox, but under IE I get a dialogue box asking
> whether I want to save or open the file; if I choose to open the file it
> isn't recognized as an Excel workbook, and if I choose to save it is
> wants to save it as type .pl, based on the name of the instance script.
> 
> Is there a way to fix this?
> 
> --TWH
> 
> sub show_report{        #SELECT already-generated report from reports.
> Report is a BLOB that holds an Excel workbook
>                        #Reports are generated every minute by a cron
> job, so if no report is available for an event instruct user to try
> again in a few minutes
>        my $self = shift;
> 
>        my $cgi_query = $self->query();
> 
>        my $session = $self->param('session');
>        my $sid = $self->param('sid');
> 
>        my $db = $self->param('my_db');
> 
>        #Load permissions and other info from session
>        my $employeeID = $session->param('EmployeeID');
>        my $is_create = $session->param('er_create');
> 
>        if (!$is_create){
>                return $self->display_error("Insufficient permission to
> view report.  Please contact administrator.\n");
>        }
> 
>        my $event_id = $cgi_query->param('event_id');
> 
>        my $db_sth = $db->prepare("SELECT Report FROM reports WHERE
> EventID=?;") || return $self->display_error($DBI::errstr);
>        $db_sth->execute($event_id) || return
> $self->display_error($DBI::errstr);
>        my $report_ref = $db_sth->fetchrow_arrayref() || return
> $self->display_error("Report not yet generated.  Please try again in
> five minutes\n");
> 
>        $self->header_add(-title => 'Event Report');
>        $self->header_add(-type => 'application/xls');
>        return $report_ref->[0];
> 
> }       #End sub show_report
> 
> ---------------------------------------------------------------------
> Web Archive:  http://www.mail-archive.com/cgiapp@lists.erlbaum.net/
>              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
>

---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp@lists.erlbaum.net/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to