|
version 1.9, 2002/01/13 00:32:12
|
version 1.10, 2005/07/05 23:58:10
|
|
Line 325 sub checktable # ΕΣΜΙ $param='delete' ΥΔ
|
Line 325 sub checktable # ΕΣΜΙ $param='delete' ΥΔ
|
| { |
{ |
| my ($TabName,$param) = @_; |
my ($TabName,$param) = @_; |
| my ($ans); |
my ($ans); |
| if (scalar(grep(/^$TabName$/i, &tablelist))) { |
if (scalar(grep(/\`$TabName$\`/i, &tablelist))) { |
| return 1 unless $param; |
return 1 unless $param; |
| if ($param =~ /delete/) {$ans='y';} |
if ($param =~ /delete/) {$ans='y';} |
| else { |
else { |
|
Line 350 sub checktable # ΕΣΜΙ $param='delete' ΥΔ
|
Line 350 sub checktable # ΕΣΜΙ $param='delete' ΥΔ
|
| |
|
| sub tablelist |
sub tablelist |
| { |
{ |
| $qbase->func( '_ListTables' ); |
return $qbase->func('_ListTables'); |
| } |
} |
| |
|
| sub in2out |
sub in2out |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dbchgk.pm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc