Diff for web-apps/finance-manager/index.fcgi between version 1.3 and 1.4
| version 1.3, 2004/04/04 17:44:28 |
version 1.4, 2004/04/09 09:18:15 |
|
|
| # 08/02/2004 - created |
# 08/02/2004 - created |
| # |
# |
| |
|
| # $Platon: scripts/perl/finance-manager/index.fcgi,v 1.1 2004/02/11 10:52:52 rajo Exp $ |
# $Platon: web-apps/finance-manager/index.fcgi,v 1.3 2004/04/04 17:44:28 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 166 sub NewSource($;) |
|
| Line 166 sub NewSource($;) |
|
| query => $ref_query, |
query => $ref_query, |
| sources => $source->list(), |
sources => $source->list(), |
| }; |
}; |
| |
$ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0; |
| $source->new_source($ref_query); |
$source->new_source($ref_query); |
| |
|
| $ref_query->{action} = "sources"; |
$ref_query->{action} = "sources"; |
| Line 191 sub EditSource($;) |
|
| Line 192 sub EditSource($;) |
|
| query => $ref_query, |
query => $ref_query, |
| sources => $source->list(), |
sources => $source->list(), |
| }; |
}; |
| |
$ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0; |
| |
$source->update_source($ref_query); |
| |
|
| $ref_query->{action} = "sources"; |
$ref_query->{action} = "sources"; |
| } |
} |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to