Skip to content

I
intranet-invoices
Commit 68a41fd3 authored by Project Open's avatar Project Open
Browse files
Options

- Fixed issue with dependency not found

parent 6fe1232c
Hide whitespace changes
Inline Side-by-side
Showing with 33 additions and 10 deletions
lib/dependency-tree.tcl
View file @ 68a41fd3
......@@ -165,11 +165,22 @@ while {[llength $list] > 0 && $cnt < 10} {
if {$id != $filter_invoice_id} {
incr predecessor_num
set url [export_vars -base $invoice_base_url {{invoice_id $id}}]
append predecessor_html "<tr>
<td><a href=$url>$name_hash($id)</a></td>
<td>$amount_hash($id)</td>
<td>[im_category_from_id $type_hash($id)]</td>
<td>[im_category_from_id $status_hash($id)]</td>
if {[info exists name_hash($id)]} {
set name $name_hash($id)
set amount $amount_hash($id)
set type [im_category_from_id $type_hash($id)]
set status [im_category_from_id $status_hash($id)]
} else {
set name "Unknown #$id"
set amount ""
set type ""
set status ""
}
append predecessor_html "<tr>
<td><a href=$url>$name</a></td>
<td>$amount</td>
<td>$type</td>
<td>$status</td>
</tr>\n
"
}
......@@ -206,11 +217,23 @@ while {[llength $list] > 0 && $cnt < 100} {
if {$id != $filter_invoice_id} {
incr successor_num
set url [export_vars -base $invoice_base_url {{invoice_id $id}}]
append successor_html "<tr>
<td><a href=$url>$name_hash($id)</a></td>
<td>$amount_hash($id)</td>
<td>[im_category_from_id $type_hash($id)]</td>
<td>[im_category_from_id $status_hash($id)]</td>
if {[info exists name_hash($id)]} {
set name $name_hash($id)
set amount $amount_hash($id)
set type [im_category_from_id $type_hash($id)]
set status [im_category_from_id $status_hash($id)]
} else {
set name "Unknown #$id"
set amount ""
set type ""
set status ""
}
append successor_html "<tr>
<td><a href=$url>$name</a></td>
<td>$amount</td>
<td>$type</td>
<td>$status</td>
</tr>\n
"
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment