IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2146 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-31 20:00:34 +00:00
parent cba354dec0
commit 311ae4724c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/quotes/gnc-prices.in
View File

@ -19,7 +19,7 @@ use gnucash;
# --------------------------------------------------
# @account_list = &account_flatlist ($account_group);
# This rouine accepts a pointer to a group, returns
# This routine accepts a pointer to a group, returns
# a flat list of all of the children in the group.
sub account_flatlist
@ -57,6 +57,7 @@ sub checkprice
my $dayte = $_[1];
my ($query, $datesecs, $earliest, $latest);
my ($splitlist, $i, $split, $action);
my $retn_value = 0;
$datesecs = gnucash::xaccScanDateS ($dayte);
$earliest = $datesecs - 16*3600; # subtract 16 hours
@ -68,17 +69,17 @@ sub checkprice
$i = 0;
$split = gnucash::IthSplit ($splitlist, $i);
while ($split)
while ($split && ($retn_value == 0))
{
$action = gnucash::xaccSplitGetAction ($split);
if ($action eq "Price") { return 1; }
if ($action eq "Price") { $retn_value = 1; }
$i++;
$split = gnucash::IthSplit ($splitlist, $i);
}
gnucash::xaccFreeQuery ($query);
return 0;
return $retn_value;
}
# --------------------------------------------------