… | … | ||
---|---|---|---|
63 | [1, $STH->{NUM_OF_FIELDS} ? $STH->fetchall_arrayref : undef, $rv] | 63 | [1, $STH->{NUM_OF_FIELDS} ? $STH->fetchall_arrayref : undef, $rv] |
64 | } | 64 | } |
65 | 65 | ||
66 | sub req_stattr { | 66 | sub req_stattr { |
67 | my (undef, $attr_name) = @{+shift}; | 67 | my (undef, $attr_name) = @{+shift}; |
68 | |||
69 | warn "$attr_name = $STH->{$attr_name}\n";#d# | ||
70 | 68 | ||
71 | [1, $STH->{$attr_name}] | 69 | [1, $STH->{$attr_name}] |
72 | } | 70 | } |
73 | 71 | ||
74 | sub req_begin_work { | 72 | sub req_begin_work { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |