What's the best version of SQL-Ledger to use?

bradymiller wrote on Thursday, April 12, 2007:

hey,

Just trying to get an idea of what range of versions of sql-ledger are stable with OpenEMR, since it seems like a new SQL-ledger version gets released every day(slightly exaggerating), and I’m unable to find a changelog anywhere. I’ve currently got SQL-Ledger 2.6.3, which seems to play nicely with openemr 2.8.2 on initial testing. The sql-ledger upgrade process is very easy, but since there’s no changelog, would be nice for people to know which version are “safe”.

If people could post versions of sql-ledger their using, and whether it worked well or if any issues, I’d be glad to summarize the info on the wiki.

-brady

sunsetsystems wrote on Friday, April 13, 2007:

Last one I installed was 2.6.something, I forget offhand which one, but have not had problems with anything in the 2.6 series.

2.8.0 was released on March 29, and it would be interesting to know if that is compatible.  I did have to make a new version of ws_server.pl when they went from 2.4.x to 2.6.x.

Rod
www.sunsetsystems.com

tekknogenius wrote on Thursday, April 19, 2007:

I made changes to the ws_server26.pl to make it compatible with sql-ledger 2.8.1. It seems to work, but I still have to test more. If you want the changed version I’ll post it.

tekknogenius wrote on Thursday, April 19, 2007:

diff ws_server_28.pl ws_server_26.pl
14c14
< use lib qw (/usr/local/sql-ledger);

> use lib qw (/var/www/sql-ledger);
82c82
<       use lib ‘/usr/lib/perl5/site_perl/5.8.8’;

>       use lib ‘/usr/lib/perl5/site_perl/5.8.3’;
90,94c90
<       $form->{name} = “”;
<       $form->{db} = “customer”;
<       $form->{contact} = “”;
<       $form->{firstname} = $$post_hash{‘firstname’};
<       $form->{lastname} =  $$post_hash{‘lastname’};

>       $form->{name} = substr($$post_hash{‘firstname’} . " " . $$post_hash{‘lastname’}, 0, 64);
96d91
<       $form->{cashdiscount} = “”;
98d92
<       $form->{discountterms} = “”;
101d94
<       $form->{threshold} = “0”;
112,126d104
<
<       # find the address if it exists and add to form
<       my $trans_id = 0;
<       my $dbh = $form->dbconnect($myconfig);
<       my $query = qq|SELECT id FROM address WHERE trans_id = ?|;
<       my $eth = $dbh->prepare($query) || die “Failed to prepare address query”;
<       $eth->execute($$post_hash{‘foreign_id’}) || die “Failed to execute address query”;
<       ($trans_id) = $eth->fetchrow_array;
<       $eth->finish;
<
<       $form->{addressid} = “”;
<       if ($trans_id) {
<               $form->{addressid} = $trans_id;
<       }
<
148c126
<       CT::save(’’, %$myconfig, %$form);

>       CT::save_customer(’’, %$myconfig, %$form);
277c255
<                               ‘Medical Services’, ‘0.0’);

>                               ‘Medical Services’, ‘’);