DMOW / Eludia-10.02.24.8da5295 / Eludia-10.02.24.8da5295 / Eludia / Content / Tie / IdsList.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

              
package Eludia::Tie::IdsList;
################################################################################
sub TIESCALAR {
        my ($class, $options) = @_;
        bless $options, $class;
         
}
################################################################################
sub _sql {
        my ($self) = @_;
         
        return $self -> {sql_interpolated} if $self -> {sql_interpolated};
         
        $self -> {sql_interpolated} = $self -> {sql};
         
        $self -> {sql_interpolated} =~ s{\?}{\%s}g;
         
        $self -> {sql_interpolated} = sprintf ($self -> {sql_interpolated}, map {$self -> {db} -> quote ($_)} @{$self -> {params}});
         
        return $self -> {sql_interpolated};
}
################################################################################
sub _check {
        my ($self) = @_;
        return if $self -> {body};           
        $self -> {body} = '-1';
        my $sql;
                                         
        if ($self -> {sql_translator_ref}) {
                $sql = $self -> {sql_translator_ref} ($self -> {sql});
        } else {
                $sql = $self -> {sql};
        }
        my $st = $self -> {db} -> prepare_cached ($sql, {}, 3);
         
        $st -> execute (@{$self -> {params}});
         
        while (my @a = $st -> fetchrow_array) {
                foreach my $id (@a) {
                        $self -> {body} .= ",$id" if $id
                }
        }
        $st -> finish;
}
################################################################################
sub FETCH {
        my ($self) = @_;
         
        $self -> _check;
        return $self -> {body};
}
################################################################################
sub STORE {}
################################################################################
sub UNTIE {}
################################################################################
sub DESTROY {}
1;