#!/usr/bin/perl -w package lst_appl; use lib qw(/usr/home/vietphon/usr/local/lib/site_perl); use _app; my $app = _app->new(); my $cgi = $app->{cgi}; my %ref; if($cgi->param('q')) { my (@posi,@educ,@spec,@work); $ref{url} = $cgi->url(-relative=>1); $ref{posi} = \@posi; $ref{educ} = \@educ; $ref{spec} = \@spec; $ref{work} = \@work; $app->LoadLst('posi',\@posi); $app->LoadLst('educ',\@educ); $app->LoadLst('spec',\@spec); $app->LoadLst('work',\@work); $app->WriteTmpl('qry_appl.tmpl',\%ref); } else { my $sql = ""; $tmp = $cgi->param('posi') || 0; if($tmp > 0) { $sql = $app->Add2Str($sql,"(appl.posi='$tmp')"," AND "); } $tmp = $cgi->param('spec') || 0; if($tmp > 0) { $sql = $app->Add2Str($sql,"(appl.spec=$tmp)"," AND "); } $tmp = $cgi->param('sex') || 2; if($tmp < 2) { $sql = $app->Add2Str($sql,"(appl.sex=$tmp)"," AND "); } $tmp = $cgi->param('work') || 0; if($tmp > 0) { $sql = $app->Add2Str($sql,"(appl.work=$tmp)"," AND "); } $tmp = $cgi->param('sala') || 0; if($tmp == 1) { $sql = $app->Add2Str($sql,"(appl.sala < 1000000) AND (appl.curr='VND')"," AND "); } elsif($tmp == 2) { $sql = $app->Add2Str($sql,"(appl.sala < 100) AND (appl.curr='USD')"," AND "); } elsif($tmp == 3) { $sql = $app->Add2Str($sql,"(appl.sala BETWEEN 1000000 AND 2000000) AND (appl.curr='VND')"," AND "); } elsif($tmp == 4) { $sql = $app->Add2Str($sql,"(appl.sala BETWEEN 100 AND 200) AND (appl.curr='USD')"," AND "); } elsif($tmp == 5) { $sql = $app->Add2Str($sql,"(appl.sala BETWEEN 2000000 AND 4000000) AND (appl.curr='VND')"," AND "); } elsif($tmp == 6) { $sql = $app->Add2Str($sql,"(appl.sala BETWEEN 200 AND 400) AND (appl.curr='USD')"," AND "); } elsif($tmp == 7) { $sql = $app->Add2Str($sql,"(appl.sala > 4000000) AND (appl.curr='VND')"," AND "); } elsif($tmp == 8) { $sql = $app->Add2Str($sql,"(appl.sala > 400) AND (appl.curr='USD')"," AND "); } $tmp = $cgi->param('expe') || 0; if($tmp > 0) { $sql = $app->Add2Str($sql,"(appl.expe >= $tmp)"," AND "); } $tmp = $cgi->param('days') || 0; if($tmp == 1) { $sql = $app->Add2Str($sql,"(appl.rdtm >= SUBDATE(CURDATE(),INTERVAL 10 DAY))"," AND "); } elsif($tmp == 2) { $sql = $app->Add2Str($sql,"(appl.rdtm >= SUBDATE(CURDATE(),INTERVAL 20 DAY))"," AND "); } elsif($tmp == 3) { $sql = $app->Add2Str($sql,"(appl.rdtm >= SUBDATE(CURDATE(),INTERVAL 30 DAY))"," AND "); } elsif($tmp == 4) { $sql = $app->Add2Str($sql,"(appl.rdtm >= SUBDATE(CURDATE(),INTERVAL 60 DAY))"," AND "); } elsif($tmp == 5) { $sql = $app->Add2Str($sql,"(appl.rdtm >= SUBDATE(CURDATE(),INTERVAL 90 DAY))"," AND "); } elsif($tmp == 6) { $sql = $app->Add2Str($sql,"(appl.rdtm < SUBDATE(CURDATE(),INTERVAL 90 DAY))"," AND "); } $sql = $app->Add2Str(qq(SELECT appl.id,appl.code,appl.bday,appl.sex,educ.name as educ, spec.name as spec,posi.name as posi,appl.sala,appl.curr FROM (appl LEFT JOIN educ ON appl.educ=educ.id) LEFT JOIN spec ON appl.spec=spec.id LEFT JOIN posi on appl.posi=posi.id ),$sql," WHERE "); my $sth = $app->{dbh}->prepare($sql); $sth->execute(); my @rows; my $idx = 0; while(my $row = $sth->fetchrow_hashref()) { push @rows,{ bkgr=>$app->{bkgr}[$idx], id=>$row->{id}, code=>$row->{code}, bday=>$app->Dtm2Str($row->{bday}), educ=>$row->{educ}, spec=>$row->{spec}, posi=>$row->{posi}, sala=>"$row->{sala} $row->{curr}", }; $idx++; $idx %= 2; } $sth->finish(); $ref{rows} = \@rows; $app->WriteTmpl('lst_appl.tmpl',\%ref); }
Sitemap
Viec Lam Quan 5 Collections

Benefits of Using Ready Made Website Templates in Home Page Design. When you use a website templates you can either picture your business inside that template or you move on to looking at the next template.