Fix transaction visibility without add permission

This commit is contained in:
Saku Laesvuori 2026-01-25 22:43:42 +02:00
parent ef936a0733
commit ab1e176010

View File

@ -6,82 +6,82 @@ $if elem AddPermission perms
data-toggle="modal" data-target="#addmodal" title="Lisää uusi tapahtuma kirjanpitoon."> data-toggle="modal" data-target="#addmodal" title="Lisää uusi tapahtuma kirjanpitoon.">
Kirjaa tapahtuma Kirjaa tapahtuma
<ol .transactionsreport .list-unstyled> <ol .transactionsreport .list-unstyled>
$forall torig <- items $forall torig <- items
<li .transaction ##{transactionFrag torig}> <li .transaction ##{transactionFrag torig}>
<div .title title="#{showTransaction torig}"> <div .title title="#{showTransaction torig}">
$with (payee, note) <- payeeAndNoteFromDescription' $ tdescription torig $with (payee, note) <- payeeAndNoteFromDescription' $ tdescription torig
<details .elided-text .transaction-metarow> <details .elided-text .transaction-metarow>
<summary>
<time .date datetime="#{show (tdate torig)}" nowrap>
#{show (tdate torig)}
<div .status>
$case tstatus torig
$of Unmarked
<div .status-unmarked title="Tarkistamaton" aria-label="Tarkistamaton">
$of Pending
<div .status-pending title="Kesken" aria-label="Kesken">
$of Cleared
<div .status-cleared title="Tarkistettu" aria-label="Tarkistettu">
$if not $ T.null $ tcode torig
<div .transaction-code>
<a href=@?{addCodeQuery $ tcode torig} .filter>
(#{tcode torig})
$if not $ T.null $ T.strip payee
<span .transaction-payee>
<a href=@?{addPayeeQuery payee} .filter>
#{payee}
$if not $ T.null $ T.strip note
<details .transaction-note .elided-text>
<summary> <summary>
<time .date datetime="#{show (tdate torig)}" nowrap> #{note}
#{show (tdate torig)}
<div .status>
$case tstatus torig
$of Unmarked
<div .status-unmarked title="Tarkistamaton" aria-label="Tarkistamaton">
$of Pending
<div .status-pending title="Kesken" aria-label="Kesken">
$of Cleared
<div .status-cleared title="Tarkistettu" aria-label="Tarkistettu">
$if not $ T.null $ tcode torig
<div .transaction-code>
<a href=@?{addCodeQuery $ tcode torig} .filter>
(#{tcode torig})
$if not $ T.null $ T.strip payee
<span .transaction-payee>
<a href=@?{addPayeeQuery payee} .filter>
#{payee}
$if not $ T.null $ T.strip note
<details .transaction-note .elided-text>
<summary>
#{note}
$if null $ filter isVisibleTag $ ttags torig $if null $ filter isVisibleTag $ ttags torig
$else $else
<ul .tags> <ul .tags>
$forall (tagName, tagValue) <- filter isVisibleTag $ ttags torig $forall (tagName, tagValue) <- filter isVisibleTag $ ttags torig
<li .tag title="#{mconcat [tagName, ": ", tagValue]}"> <li .tag title="#{mconcat [tagName, ": ", tagValue]}">
<div .tag-name> <div .tag-name>
<a href=@?{addTagQuery tagName tagValue} .filter> <a href=@?{addTagQuery tagName tagValue} .filter>
#{tagName} #{tagName}
$if not $ T.null $ T.strip tagValue $if not $ T.null $ T.strip tagValue
<div .tag-value> <div .tag-value>
$if isAbsoluteURI tagValue $if isAbsoluteURI tagValue
<a href="#{tagValue}">#{tagValue} <a href="#{tagValue}">#{tagValue}
$elseif tagName == "tosite" $elseif tagName == "tosite"
<a href="@{documentRoute tagValue}">#{tagValue} <a href="@{documentRoute tagValue}">#{tagValue}
$else $else
#{tagValue} #{tagValue}
<ul .postings> <ul .postings>
$forall Posting { paccount = acc, pamount = amt, pbalanceassertion = passert, ptags = tags } <- tpostings torig $forall Posting { paccount = acc, pamount = amt, pbalanceassertion = passert, ptags = tags } <- tpostings torig
<li .posting> <li .posting>
<div .posting-row> <div .posting-row>
<div .account> <div .account>
<a href="@?{acctlink acc}##{tindex torig}" title="#{acc}"> <a href="@?{acctlink acc}##{tindex torig}" title="#{acc}">
#{elideAccountName 40 acc} #{elideAccountName 40 acc}
<div .amount style="text-align:right;"> <div .amount style="text-align:right;">
<span .posted-amount> <span .posted-amount>
^{mixedAmountAsHtml amt} ^{mixedAmountAsHtml amt}
$maybe BalanceAssertion { baamount = assertAmt } <- passert $maybe BalanceAssertion { baamount = assertAmt } <- passert
<span .balance-assertion> <span .balance-assertion>
jälkeen ^{mixedAmountAsHtml $ mixedAmount assertAmt} jälkeen ^{mixedAmountAsHtml $ mixedAmount assertAmt}
$if null $ filter (isPostingTag acc) $ filter isVisibleTag tags $if null $ filter (isPostingTag acc) $ filter isVisibleTag tags
$else $else
<ul .tags> <ul .tags>
$forall (tagName, tagValue) <- filter (isPostingTag acc) $ filter isVisibleTag tags $forall (tagName, tagValue) <- filter (isPostingTag acc) $ filter isVisibleTag tags
<li .tag title="#{mconcat [tagName, ": ", tagValue]}"> <li .tag title="#{mconcat [tagName, ": ", tagValue]}">
<div .tag-name> <div .tag-name>
<a href=@?{addTagQuery tagName tagValue} .filter> <a href=@?{addTagQuery tagName tagValue} .filter>
#{tagName} #{tagName}
$if not $ T.null $ T.strip tagValue $if not $ T.null $ T.strip tagValue
<div .tag-value> <div .tag-value>
$if isAbsoluteURI tagValue $if isAbsoluteURI tagValue
<a href="#{tagValue}">#{tagValue} <a href="#{tagValue}">#{tagValue}
$elseif tagName == "tosite" $elseif tagName == "tosite"
<a href="@{documentRoute tagValue}">#{tagValue} <a href="@{documentRoute tagValue}">#{tagValue}
$else $else
#{tagValue} #{tagValue}
$if elem AddPermission perms $if elem AddPermission perms
^{addModal AddR j today} ^{addModal AddR j today}