update not updating??

[prev] [thread] [next] [Date index for 2004/08/30]

--Apple-Mail-4--378962362
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	format=flowed

Since using CDBI several months ago I have not been able to get the 
update side of it to work. I have gotten around it, but it is just no 
fun to do it the old way. Anyone have any tips?

@claim_list = (1,2,3,4)

  foreach my $job (@claim_list) {
     print "Job is $job<br>";							## prints fine
         my $fileObject = Table::Files->retrieve($job);		## no errors on 
the page
         print Dumper(\$fileObject);						## see below for output
         my $fileName = $fileObject->file;				
         print $fileName, "<br>";						# gets me the filename just like 
usual
         $fileObject->typist_id($user_id);    				# doesn't do a thing
         $fileObject->status(2);    						# doesn't do a thing!
         $fileObject->set(status=>"2");					# doesn't do a thing!! 
(method 2 per beginners guide)
  }



Data::Dumper shows me:

$VAR1 = \bless( {  'id' => '1'  }, 'Table::Files' );


I am using CDBI in tons of pages and it works just fine for getting the 
data out, just not updating. And I can connect to the database and 
update using DBI, so it is not a permissions issue. I am not even 
getting an error anywhere. I just can't figure it out. I am using MySQL 
on a FreeBSD box, running perl 5.8.0.

-Michael Jensen
--Apple-Mail-4--378962362
Content-Transfer-Encoding: 7bit
Content-Type: text/enriched;
	charset=US-ASCII

Since using CDBI several months ago I have not been able to get the
update side of it to work. I have gotten around it, but it is just no
fun to do it the old way. Anyone have any tips?


@claim_list = (1,2,3,4)


 foreach my $job (@claim_list) {

    print "Job is $job<<br>";							## prints fine

        my $fileObject = Table::Files->retrieve($job);		## no errors
on the page

        print Dumper(\$fileObject);						## see below for output

        my $fileName = $fileObject->file;				

        print $fileName, "<<br>";						# gets me the filename just
like usual

        $fileObject->typist_id($user_id);    				# doesn't do a thing

        $fileObject->status(2);    						# doesn't do a thing!

        $fileObject->set(status=>"2");					# doesn't do a thing!!
(method 2 per beginners guide)

 }




Data::Dumper shows me:


<fontfamily><param>Verdana</param><color><param>2F2F,2F2F,2F2F</param><x-tad-smaller>$VAR1
= \bless( {  'id' => '1'  }, 'Table::Files' );</x-tad-smaller></color></fontfamily>



I am using CDBI in tons of pages and it works just fine for getting
the data out, just not updating. And I can connect to the database and
update using DBI, so it is not a permissions issue. I am not even
getting an error anywhere. I just can't figure it out. I am using
MySQL on a FreeBSD box, running perl 5.8.0.


-Michael Jensen
--Apple-Mail-4--378962362--