IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-09-03 20:53:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2140 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2000-03-30 22:35:21 +00:00
parent a0c79dc561
commit 53b1e83885
3 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
doc/README
+1
View File
@@ -586,6 +586,7 @@ Henning Spruth <spruth@bigfoot.com> for German text & euro date rework
Robby Stephenson <parys@freewwweb.com> register patch
Herbert Thoma <tma@iis.fhg.de> gnome register patch
Diane Trout <detrout@earthlink.net> scheme qif import patch
Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices
Rob Walker <rob@valinux.com> guile and register patches
David Woodhouse <dwmw2@infradead.org> Great Britain translations
Ken Yamaguchi <gooch@ic.EECS.Berkeley.EDU> QIF import fixes; MYM import
doc/html/C/xacc-about.html
+4
View File
@@ -456,6 +456,10 @@
<dd>scheme qif import patch</dd>
<dt> <a href="mailto:rkw@dataplex.net"> Richard Wackerbarth</a></dt>
<dd>patch to gnc-prices</dd>
<dt> <a href="mailto:rob@valinux.com"> Rob Walker</a></dt>
<dd>guile and register patches</dd>
src/quotes/gnc-prices
+5 -4
View File
@@ -21,7 +21,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
@@ -59,6 +59,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
@@ -70,17 +71,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;
}
# --------------------------------------------------