c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

done cleaning

Browse Source
This commit is contained in:
mynah
2020-01-20 18:19:38 -06:00
parent 7dfd107c04
commit f16d579996
19 changed files with 165 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Dojo/Model/Vdgproc.pm
View File

@@ -36,14 +36,9 @@ sub event{
return $r;
}
sub spay {
sub spay{
my ($c,$class,$id) = @_;
return _read ($data_path->child("spay/qIdStore.q")->slurp,$id)->[0];
}
sub store_id {
my ($c,$class,$id) = @_;
my $r = _read ($data_path->child("store/qEstore.q")->slurp,$id)->[0];
my $r = shift @{ _read ($data_path->child("spay/qIdStore.q")->slurp,$id)};
$r->{fecha} = mtxt( $r->{dini},$r->{mini},$r->{dfin},$r->{mfin});
return $r;
}