Please bottom post... > The error is "Internal Server Error".
This error generally indicates that either the script fails to compile or there is output appearing before a valid HTTP header. What appears in the error log for the web server? That is the error you need to find to determine what the real cause of the problem is. You haven't shown us 'errman', does it print a header before erroring? You also call 'exit' with a good return value even though you are failing, is 'errman' sufficient error checking (it could be). You might also consider using fatalsToBrowser while developing. See if that helps, and you can find more info, if not then I (someone) will take a closer look at the code... A quick glance suggests that 'prepare' is failing, which you catch with an eval, but if errman is not printing a header that is why you are getting the 500 error, only real way is to check the server error log though. http://danconia.org > As soon as I comment out the (2)lines below: > -- TO_CHAR(ie_dollar_amt, '$999,999.99'), > it works just fine. > Here's the code: > ================== > #!c:/activeperl/bin/perl > use strict; > use DBI; > use DBD::Oracle; > use CGI qw(:standard *table *Tr ); > my $dbh = DBI->connect('DBI:Oracle:xx', 'yyy', 'zzz') || die "Couldn't connect to database: " . DBI->errstr; > my $NUM_OF_ROWS=0; > my %bgca = ( -bgcolor => "#ffffff", -align => "left", ); > my $sql = param('sql'); > my @cols = param('select'); > my $select_list; > foreach (@cols) { > $select_list .= " $_,"; > } > chop($select_list) if $select_list; > unless ($select_list) { > $select_list = '*'; > } > $sql = " > SELECT coban.c_oac_oban ,c_fund_code, > DECODE(d_doc_nbr, null, ' ' , d_doc_nbr), > TO_CHAR(ie_dollar_amt, '$999,999.99'), > DECODE(ie_dollar_amt, null, ' ' , ie_dollar_amt), > DECODE(d_cost_cd, null, ' ' , d_cost_cd), > DECODE(d_coc, null, ' ', d_coc) > FROM > cpas_difms cd, > (SELECT c_oac_oban, ie_infile, ie_seq_nbr FROM CPAS_LOAD > WHERE (ie_infile, ie_seq_nbr) IN > (SELECT ie_infile, ie_seq_nbr FROM CPAS_DIFMS > WHERE ie_proc_cd='1')) coban > WHERE ie_proc_cd='1' > AND coban.ie_infile = cd.ie_infile and coban.ie_seq_nbr = cd.ie_seq_nbr > UNION ALL > SELECT goban.g_oac || goban.g_asn_oban OAC_OBAN, g_fund_code, > DECODE(d_doc_nbr, null, ' ', d_doc_nbr), > TO_CHAR(ie_dollar_amt, '$999,999.99'), > DECODE(ie_dollar_amt, null, ' ' , ie_dollar_amt), > DECODE(d_cost_cd, null, ' ' , d_cost_cd), > DECODE(d_coc, null, ' ', d_coc) > FROM > gafs_difms gd, > (SELECT g_oac, g_asn_oban,ie_infile, ie_seq_nbr FROM GAFS_LOAD > WHERE (ie_infile, ie_seq_nbr) IN > (SELECT ie_infile, ie_seq_nbr FROM GAFS_DIFMS > WHERE ie_proc_cd='1')) goban > WHERE ie_proc_cd='1' > AND goban.ie_infile = gd.ie_infile and goban.ie_seq_nbr = gd.ie_seq_nbr"; > if (param('sql')) { > $sql .= ' '.param('sql'); > } > my $sth; > eval { > $sth = $dbh->prepare($sql); > }; > if ($@) { > errman($@); > exit; > } > my $rv; > eval { > $rv = $sth->execute; > }; > if ($@) { > errman($@); > exit; > } > my (@row_ary, $ar); > eval { > $ar = $sth->fetchall_arrayref; > }; > if ($@) { > errman($@); > exit; > } > eval { > $sth->finish; > }; > if ($@) { > errman($@); > exit; > } > eval { > $dbh->disconnect; > }; > if ($@) { > errman($@); > exit; > } > print header( -type =>"text/html" ), > start_html( -title => "...", -bgcolor => "#FEF3DE", -font face => "tahoma", -font size => "1",), > start_table( > { -border => 0, > -cellspacing => 3, > -width => 700, > } ), > th( \%bgca, [EMAIL PROTECTED] ); > > foreach (@$ar) { > print start_Tr(), > td( \%bgca, > $_ > ), > end_Tr; > $NUM_OF_ROWS++; > } > print end_table; > my ($name, $value); > print end_html; > warn "error: $DBI::errstr\n" if $DBI::err; > print ("<p><font size='2'><b>","Query returned $NUM_OF_ROWS records" , "</font></b></p>"); > exit(0); > ================== > > -----Original Message----- > From: Wiggins d Anconia [mailto:[EMAIL PROTECTED] > Sent: Thursday, May 27, 2004 1:31 PM > To: MCMULLIN, NANCY; [EMAIL PROTECTED] > Subject: Re: displaying to_char formatting in Perl > > > > When attempting to display a formatted string in Perl using Oracle - > > > > SELECT > > TO_CHAR(dollar_amt, '$999,999.99') > > FROM > > table; > > > > It breaks the code. It does work as a straight SQL query outside of > Perl. Any ideas? > > > > "It breaks the code" is a rather vague statement. How does it break the > code? What is the error reported? Are you using DBI? > > http://danconia.org > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
