heitml Source Display

File: /usr/local/httpd/htdocs/mpdata/lib/mylib.hei


<def getCurrent;
        dbquery q>              
                select * from tblparliament where parliamentno=4                
                // SELECT * FROM p_parliaments ORDER BY p_no DESC
                <dbrow;
                        return q.parliamentno;
                dbempty;
                        return 0;
        /dbquery;
/def;

def iscommmember id;
        dbquery q>
                SELECT mpid from tblmpcommittee WHERE mpid=<? id;
                dbrow; return true;
                dbempty return false;
        /dbquery;
/def;

def print_parliament id;
        number = 0;
        dbquery q>
                SELECT parliamentname from tblparliament where parliamentno=<? id;
                dbrow;
                        number = integer(q.parliamentname);
                dbempty;
                        dbquery r>
                                SELECT parliamentname FROM tblparliament WHERE parliamentno=<? getCurrent();
                                dbrow;
                                        number = integer(r.parliamentname);
                        /dbquery;
        /dbquery;

        str = "" + number + "";
        ldigit = integer(substring(str, len(str) - 1));

        if number == 0;
                return "";
        elsif ldigit == 1 && number != 11;
                return "The " + number + "st Parliament";
        elsif ldigit == 2;
                return "The " + number + "nd Parliament";
        elsif ldigit == 3;
                return "The " + number + "rd Parliament";
        else;
                return "The " + number + "th Parliament";
        /if;
/def;

def print_number n ;
        number = 0;
        number=n;
        
        str = "" + number + "";
        ldigit = integer(substring(str, len(str) - 1));

        
if n < 20;
   if number==0;
        return "";
   elsif n==1;
         return number + "ST";
   elsif n==2;
         return number + "ND";
   elsif n==3;
         return number + "RD";
   else;
        return number + "TH";
   /if;
else;

if number == 0;
                return "";
        elsif ldigit == 1;
                return number + "ST";
        elsif ldigit == 2;
                return number + "ND";
        elsif ldigit == 3 ;
                return number + "RD";
        else;
                return number + "TH";
        /if;
/if;

/def;

def xx n;
    if n==1;
                return "                                                        ";
        else;
                return "                                                          ";
        /if;
/def;

def return_roman n ;
        number = 0;
        number=n;
        if number == 1;
                return "I";
        elsif number == 2;
                return "II";
        elsif number == 3;
                return "III";
        elsif number == 4;
                return "IV";
        elsif number == 5;
                return "V";
        elsif number == 6;
                return "VI";
        elsif number == 7;
                return "VII";
        elsif number == 8;
                return "VIII";
        elsif number == 9;
                return "IX";
        elsif number == 10;     
                return "X";
        else;
                return ">.";
        /if;
/def;


def drawdate name1 name2 d="";
        monarr = array(12);
        monarr[0] = "January";
        monarr[1] = "February";
        monarr[2] = "March";
        monarr[3] = "April";
        monarr[4] = "May";
        monarr[5] = "June";
        monarr[6] = "July";
        monarr[7] = "August";
        monarr[8] = "September";
        monarr[9] = "October";
        monarr[10] = "November";
        monarr[11] = "December";

        if d != "";
                arr = splitstring(default(d, ""), " ");
                if !isdecl(se.p);
                        se.p = emptytuple;
                /if;
                se.p.year = integer(default(arr[2]));
        else;
                arr = array(2);
                arr[0] = "1st";
                arr[1] = "January";
        /if>
        
        /*<fieldselect size=1 name="test1">
                <dbquery q>                                     
                        SELECT * FROM tbldistrict order by districtno
                        <dbrow>                                   
                                <option value=(q.districtno)>  <?q.districtname> </option>                                                                                      
                </dbquery>                                                  
        </fieldselect>*/
        
        
        <fieldselect name=(name1)>
                <option><? integer(substring(arr[0], 0, len(arr[0]) - 2))></option>
                <for i = 1 i &lt; 32 i = i + 1;
                        if i != integer(substring(arr[0], 0, len(arr[0]) - 2))>
                                <option><? i></option>
                        </if;
                /for>
        </fieldselect>

        <fieldselect name=(name2)>
                <option><? default(arr[1])></option>
                <forin i monarr;
                        if default(arr[1]) != monarr[i]>
                                <option><? monarr[i]></option>
                        </if;
                /forin>
        </fieldselect>
</def;

def chk_email email_adrs="";
        if isempty(email_adrs);
                return "Please provide the email address";
        /if;
        arr=splitstring(email_adrs,"@");
        n=len(arr);
        if n==2; // OK, so far...
                if !contains(arr[n-1],".");
                        return "Missing domain name[no period(.) after @]";
                else;
                        return null;
                /if;
        elsif n==1;// missing '@'
                return "Bad email address:[Missing  @]";        
        else;// too many '@'
                return "Bad email address:[Too many  @s]";
        /if;
/def;

def fdate d m y;
        str = "" + d + "";
        ldigit = integer(substring(str, len(str) - 1));

        if ldigit == 1;
                return d + "st " + m + " " + y;
        elsif ldigit == 2;
                return d + "nd " + m + " " + y;
        elsif ldigit == 3;
                return d + "rd " + m + " " + y;
        else;
                return d + "th " + m + " " + y;
        /if;
/def;

def upload_me dff;

        if dff.ufile.contents == "";
                return "Failed to upload file " + dff.ufile.filename + ".";
        else;
                dbupdate>
                         <dbquery q> select max(mpno)rid from tblmpname
                    <dbrow>                
                     INsERT INTO tblmpname(mpno,constituencyno,surname,othernames,
                                         sex,dob,title,profession,email,qualification,employment,
                                         maritalstatus,interest,phototype,photoref,conference,physicaladdress,postaladdress,mobile,landline,photo)
                                         values( <? integer(q.rid) + 1 >,<? se.p.temp.Ccode >,<? se.p.temp.surname "Q">, 
                                         <? se.p.temp.othernames "Q">, <? se.p.temp.sex>,to_date(<? se.p.temp.dob "Q">,'dd/mm/yyyy'),
                                         <? se.p.temp.title "Q">, <? se.p.temp.profession "Q">,// <? se.p.temp.businessadd "Q">,
                                         <? se.p.temp.email "Q">,<? se.p.temp.qualification "Q">,// <? se.p.temp.homeadd "Q">,
                                         <? se.p.temp.employment "Q">,<? se.p.temp.maritalstatus>,<? se.p.temp.interest "Q">,
                                         <? dff.ufile["Content-Type"] "Q">,
                                         <? dff.ufile.filename "Q">,<? se.p.temp.conference "Q">,<? se.p.temp.physicaladd "Q">,<? se.p.temp.postaladd "Q">,<? se.p.temp.mobile "Q">,<? se.p.temp.landline "Q">) ,<? dff.ufile.contents "Qh"> )
                                         
                </dbquery>                      
                        /*      (id, photo, surname, othernames, title, 
                                profession, birthdate, buss_add, home_add, sex, 
                                email, qualification, emp_rec, marital_status, special_ints, 
                                content_type) 
                        VALUES 
                                (p_members_seq.nextval, <? dff.ufile.contents "Qh">, <? se.p.temp.sname "Q">, <? se.p.temp.onames "Q">, <? se.p.temp.title "Q">, 
                                <? se.p.temp.profession "Q">, <? fdate(se.p.temp.date_day, se.p.temp.date_month, se.p.temp.date_year) "Q">, <? se.p.temp.buss_add "Q">, <? se.p.temp.home_add "Q">, <? se.p.temp.sex "Q">, 
                                <? se.p.temp.email "Q">, <? se.p.temp.qualification "Q">, <? se.p.temp.emp_rec "Q">, <? se.p.temp.marital_status "Q">, <? se.p.temp.special_ints "Q">, 
                                <? dff.ufile["Content-Type"] "Q">)*/
                </dbupdate;
                /*dbupdate>
                        INSERT INTO p_termsofservices 
                                (id, member_id, const_id, start_date, p_id) 
                        VALUES (p_termsofservices_seq.nextval, p_members_seq.currval, <? se.p.temp.const>, <? fdate(se.p.temp.serv_day, se.p.temp.serv_month, se.p.temp.serv_year) "Q">, <? se.p.temp.pal>)
                </dbupdate;*/
                t = "MP's name:  (" + se.p.temp.surname + "  -  " + se.p.temp.othernames + ") added successfully";
                TuDelField(se.p.temp);
                 return t;
                // return null;
        /if;
/def;

def update_me dff;

        if se.p.temp.newphoto == "t" && dff.ufile.contents == "";
                return "Failed to upload file " + dff.ufile.filename + ".";
        /if;

        dbupdate>
                UPDATE tblmpname SET 
                        surname = <? se.p.temp.surname "Q">, 
                        othernames = <? se.p.temp.othernames "Q">, 
                        title = <? se.p.temp.title "Q">, 
                        profession = <? se.p.temp.profession "Q">,
                        dob=to_date(<? se.p.temp.dob "Q">,'dd/mm/yyyy'),
                        // birthdate = <? fdate(se.p.temp.date_day, se.p.temp.date_month, se.p.temp.date_year) "Q">, 
                        // businessadd = <? se.p.temp.businessadd "Q">, 
                        physicaladdress = <? se.p.temp.physicaladd "Q">, 
                        postaladdress = <? se.p.temp.postaladd "Q">,
                        mobile = <? se.p.temp.mobile "Q">,
                        landline = <? se.p.temp.landline "Q">,
                        // homeadd = <? se.p.temp.homeadd "Q">,
                        sex = <? se.p.temp.sex>, 
                        email = <? se.p.temp.email "Q">, 
                        qualification = <? se.p.temp.qualification "Q">, 
                        employment = <? se.p.temp.employment "Q">, 
                        conference = <? se.p.temp.conference "Q">, 
                        maritalstatus = <? se.p.temp.maritalstatus>, 
                        interest = <? se.p.temp.interest "Q"> 
                WHERE mpno=<? se.p.temp.id;
        /dbupdate;
        if se.p.temp.newphoto == "t";                   // new photo uploaded
                dbupdate>
                        UPDATE tblmpname SET 
                                /* photo = <? dff.ufile.contents "Qh">, */
                                phototype = <? dff.ufile["Content-Type"] "Q">,
                                photoref = <? dff.ufile.filename "Q">, photo=<? dff.ufile.contents "Qh">
                        WHERE mpno=<? se.p.temp.id;
                /dbupdate;
        /if;
        t = "MP (" + se.p.temp.surname + " -  " + se.p.temp.othernames + ") saved successfully";
        TuDelField(se.p.temp);
        return t;

/def;

def getdist id;
        dbquery q>
                SELECT name FROM p_districts WHERE id=<? id;
                dbrow; return q.name;
                dbempty; return "";
        /dbquery;
/def;



def existscomm;
        dbquery q>
                SELECT committeeno from tblcommittee
                <dbrow; return true;
                dbempty return false;
        /dbquery;
/def;

def ismemberofcomm m c;
        dbquery q>
                SELECT id FROM p_committee_members WHERE mp_id=<? m> AND comm_id=<? c;
                dbrow; return true;
                dbempty; return false;
        /dbquery;
/def;

def getint d;
        monarr = array(12);
        monarr[0] = "January";
        monarr[1] = "February";
        monarr[2] = "March";
        monarr[3] = "April";
        monarr[4] = "May";
        monarr[5] = "June";
        monarr[6] = "July";
        monarr[7] = "August";
        monarr[8] = "September";
        monarr[9] = "October";
        monarr[10] = "November";
        monarr[11] = "December";

        arr = splitstring(d, " ");
        if len(arr[2]) == 2;
                arr[2] = "20" + arr[2];
        /if;
        forin i monarr;
                if monarr[i] == arr[1];
                        if i &lt 10;
                                j = "0" + i;
                        else;
                                j = i;
                        /if;
                        return integer(arr[2] + j + arr[0]);
                /if;
        /forin;
        return 0;
/def;

def isgerater d1 d2; return getint(d1);
        if getint(d1) &ge; getint(d2);
                return true;
        else;
                return false;
        /if;
/def;

def drawimg>
        <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
                <tr>
                        <td width="50%" valign="top"><img border="0" src="images/top.gif" height="78"></td>
                        <td width="50%" valign="top" bgcolor="#E0DFBC" align="right"><img src="images/weavflag.gif" height="65"></td>
                </tr>
        </table>
</def>