sybperl-l Archive

From: Daz <dazol at patriot dot net>
Subject: Re: update question
Date: Aug 17 1999 8:33PM

If this is not the correct list to post this to, my apologies.  Which
list would be better?  Im not asking for a fix(example code), just a
'why' this is happening.  Even a flame would be appreciated at this
point (Im going crazy not being able to figure this out)
David

Daz wrote:
> 
> New to the list so please bear with me :)
> Also new to perl, so more 'bearing' please ;)
> 
> I am trying to write a CGI script that will call a certain row from
> MSSQL 6.5, save the results into one variable, take the cgi input as the
> second variable concatonate the two, then update the previously called
> row with the new information (making sure to keep the original
> information).  the newest problem (Ive solved most, I think) is this
> error:
> 
> Server message:
> Message number: 105, Severity 15, State 1, Line 1
> Server 'SERVERNAME'
> Message String: Unclosed quote before the character string 'how'.
> 
> Server Message:
> Message number: 170, Severity 15, State 1, Line 1
> Server 'SERVERNAME'
> Message String: Line 1: Incorrect syntax near 'how'.
> 
> The only text this particular column has is the word 'how'.
> Here is the code I am using(I know its goulish, but Ive only been using
> perl for a month or so)
> 
> #!/usr/bin/sybperl
> BEGIN {
>         $ENV{SYBASE} = '/home/opt/sybase';
> }
> use CGI;
> use Sybase::CTlib;
> use CGI qw (:standard);
> my $query= new CGI;
> print $query->header;
> print $query->start_html(-title =>"Update a Ticket",
>                           -bgcolor => '#FFFFFF');
> print qq[
Upate a ticket
];
> print $query->startform;
> print qq[
Put in some garbage
];
> print $query->textfield( -name => 'test' );
> print $query->submit;
> print $query->endform;
> 
> #attempt the sql part
> $dbh = new Sybase::CTlib ('username', 'password', 'DATABASE');
> if ($query->param('test')) {
>    $dbh->ct_sql("use DATABASE");
>    $test = $query->param('test');
> 
>  my  $cmd1 = qq[SELECT resolution FROM calls WHERE callnumber = 30000];
>    my @rows = $dbh->ct_sql($cmd1);
>    my $thisrow;
>    foreach $thisrow (@rows) {
>         my $test2 = ${$thisrow}[0];
>         print qq[
$test2
];
>         my $test3=("$test2" . "$test");
>     $cmd = qq[UPDATE calls SET resolution = "$test3" where CALLNUMBER =
> 30000];
> $dbh->ct_sql("use DATABASE");
> $dbh->ct_sql($cmd);
> 
> print qq[
$test3
];
> }
> }
> print $query->end_html;
> 
> Any suggestions would be most appreciated.
> David