Code Samples

Define_Type:'RedhatOrder'; local: 'which'='', 'subproc'='', 'clubId'=0, 'orderByMemberId'=0, 'PREVsomeExpireDate'='', 'chapMap'=(map), 'memberArrMap'=(array), 'orderArrMap'=(array); // orderByMemberId is for storing the member Id of the person makes an order, this is the memberId of the currently signed in user or the memberId that was passed as a form parameter, for example, creating a new club with an existing member as the queen // orders can only deal with one club at a time so a map contains properties for that club, an array of maps is used for members since some processing allows for multiple members // the clubId and queenMemberId for the club are not stored in the chapMap structure Define_Tag:'addclub',-Required='somePair',-Type='pair'; (self->'chapMap')->(insert:(#somePair->name)=(#somePair->value)); /Define_Tag; // this structure holds multiple members, each member is stored in a map Define_Tag:'addMember',-Required='memMap',-Type='map'; (self->'memberArrMap')->(insert:#memMap); /Define_Tag; // each order has multiple order (line) items, each orderitem has properties represented by a map Define_Tag:'addOrderItem',-Required='input',-Type='map'; local:'ordmap'=(map:'oitype'='','productId'=0,'memberId'=0,'productPrice'=0,'quantity'=0,'comments'=''); iterate:#input,(local:'thisone'); #ordmap->(insert:#thisone); /iterate; (self->'orderArrMap')->(insert:#ordMap); /Define_Tag; Define_Tag:'getChapArray'; local:'chapArray'=(array); iterate:(self->'chapMap'),(local:'thisPair'); if:((#thisPair->name) != 'clubId') || ((#thisPair->name) != 'queenMemberId'); #chapArray->(insert:#thisPair); /if; /iterate; return:#chapArray; /Define_Tag; Define_Tag:'hasclub'; local:'hasclub'=true; // clubId can be 0, that is for a new club where no ID has been assigned yet if:(((self->'chapMap')->size) == 0) || ((self->'clubId') === ''); #hasclub=false; /if; return:#hasclub; /Define_Tag; Define_Tag:'hasMember'; local:'hasMember'=true; if:((self->'memberArrMap')->size) == 0; #hasMember=false; else; iterate:(self->'memberArrMap'),(local:'thismap'); // memberId can be 0, that is for a new member where no ID has been assigned yet if:((#thismap->(Find:'memberId')) === '') || ((#thismap->(Find:'memberId')) == null); #hasMember=false; /if; /iterate; /if; return:#hasMember; /Define_Tag; Define_Tag:'hasOrder'; local:'hasOrder'=true; if:((self->'orderArrMap')->size) == 0; #hasOrder=false; else; iterate:(self->'orderArrMap'),(local:'thismap'); // every order item must have a product ID if:!(#thismap->(Find:'productId')); #hasOrder=false; /if; /iterate; /if; return:#hasOrder; /Define_Tag; Define_Tag:'setChapMapFromFields'; if:((self->'clubId') > 0); inline: -database=(global:'Cons_DB'), -sql='SELECT clubId,queenMemberId,someExpireDate,clubName,clubCity,clubState,clubCountry,isInternetOnly FROM clubs WHERE clubId=' + (self->'clubId'), -MaxRows=1; (self->'PREVsomeExpireDate')=(field:'someExpireDate'); (self->'chapMap')->(insert:'queenMemberId'=(field:'queenMemberId')); (self->'chapMap')->(insert:'clubName'=(field:'clubName')); (self->'chapMap')->(insert:'clubCity'=(field:'clubCity')); (self->'chapMap')->(insert:'clubState'=(field:'clubState')); (self->'chapMap')->(insert:'clubCountry'=(field:'clubCountry')); (self->'chapMap')->(insert:'isInternetOnly'=(field:'isInternetOnly')); /inline; /if; /Define_Tag; Define_Tag:'setChapMapForMember',-Required='memberId'; if:(#memberId > 0); inline: -database=(global:'Cons_DB'), -sql='SELECT c.clubId,c.queenMemberId,c.clubName,c.clubCity,c.clubState,c.clubCountry,c.isInternetOnly FROM members AS m LEFT JOIN clubs AS c USING (clubId) WHERE m.memberId=' + #memberId, -MaxRows=1; (self->'clubId')=(field:'clubId'); (self->'PREVsomeExpireDate')=(field:'someExpireDate'); (self->'chapMap')->(insert:'queenMemberId'=(field:'queenMemberId')); (self->'chapMap')->(insert:'clubName'=(field:'clubName')); (self->'chapMap')->(insert:'clubCity'=(field:'clubCity')); (self->'chapMap')->(insert:'clubState'=(field:'clubState')); (self->'chapMap')->(insert:'clubCountry'=(field:'clubCountry')); (self->'chapMap')->(insert:'isInternetOnly'=(field:'isInternetOnly')); /inline; /if; /Define_Tag; Define_Tag:'getclubLocation'; local:'Location'=''; if:(self->(hasclub)); if:((self->'chapMap')->(find:'isInternetOnly')) == 'yes'; #Location='Internet Only'; else; #Location->(Append:((self->'chapMap')->(find:'clubCity'))); if:((self->'chapMap')->(find:'clubState')) != ''; #Location->(Append:', '); #Location->(Append:((self->'chapMap')->(find:'clubState'))); else:((self->'chapMap')->(find:'clubCountry')) != ''; #Location->(Append:' '); #Location->(Append:((self->'chapMap')->(find:'clubCountry'))); /if; /if; /if; return:#Location; /Define_Tag; Define_Tag:'getShippingAddress',-Optional='lookup',-Description='These are the details of the member that placed the order, but can be changed to be anything'; local:'memmap'=(map); if:((self->'orderByMemberId') > 0) && ((local_defined:'lookup') || ((self->'memberArrMap')->size == 0)); inline: -database=(global:'Cons_DB'), -sql='SELECT address1,address2,city,country,firstName,lastName,state,zip FROM members WHERE memberId=' + (self->'orderByMemberId'), -MaxRows=1; if:(found_count) > 0; #memmap->(insert:'shipAddress1'=(field:'address1')); #memmap->(insert:'shipAddress2'=(field:'address2')); #memmap->(insert:'shipCity'=(field:'city')); #memmap->(insert:'shipCountry'=(field:'country')); #memmap->(insert:'shipName'=((field:'firstName') + ' ' + (field:'lastName'))); #memmap->(insert:'shipState'=(field:'state')); #memmap->(insert:'shipZip'=(field:'zip')); /if; /inline; else:((self->'memberArrMap')->size > 0); local:'firstmap'=(self->'memberArrMap')->(get:1); if:(#firstmap->type)=='map'; #memmap->(insert:'shipAddress1'=(#firstmap->(find:'address1'))); #memmap->(insert:'shipAddress2'=(#firstmap->(find:'address2'))); #memmap->(insert:'shipCity'=(#firstmap->(find:'city'))); #memmap->(insert:'shipCountry'=(#firstmap->(find:'country'))); #memmap->(insert:'shipName'=((#firstmap->(find:'firstname')) + ' ' + (#firstmap->(find:'lastname')))); #memmap->(insert:'shipState'=(#firstmap->(find:'state'))); #memmap->(insert:'shipZip'=(#firstmap->(find:'zip'))); /if; /if; Return:#memmap; /Define_Tag; Define_Tag:'getCCorderByDetails',-Description='These are the details of the member that placed the order'; local:'memmap'=(map); if:((self->'which') != 'clubAdd') && ((self->'orderByMemberId') > 0); iterate:(self->'orderByMemberId'),(local:'thismap'); if:(#thismap->type)=='map'; if:(#thismap->(Find:'memberId')) == (self->'orderByMemberId'); #memmap=#thismap; /if; /if; /iterate; if:(#memmap->size == 0); // if the orderByMemberId is not in the set to be added, then look it up inline: -database=(global:'Cons_DB'), -sql='SELECT address1,address2,city,country,firstName,lastName,state,zip FROM members WHERE memberId=' + (self->'orderByMemberId'), -MaxRows=1; if:(found_count) > 0; #memmap->(insert:'address1'=(field:'address1')); #memmap->(insert:'address2'=(field:'address2')); #memmap->(insert:'city'=(field:'city')); #memmap->(insert:'country'=(field:'country')); #memmap->(insert:'firstName'=(field:'firstName')); #memmap->(insert:'lastName'=(field:'lastName')); #memmap->(insert:'state'=(field:'state')); #memmap->(insert:'zip'=(field:'zip')); /if; /inline; /if; else; // get the first one, assume this is for the queen or a member adding themselves local:'firstmap'=(self->'memberArrMap')->(get:1); if:(#firstmap->type)=='map'; #memmap->(insert:'address1'=(#firstmap->(find:'address1'))); #memmap->(insert:'address2'=(#firstmap->(find:'address2'))); #memmap->(insert:'city'=(#firstmap->(find:'city'))); #memmap->(insert:'country'=(#firstmap->(find:'country'))); #memmap->(insert:'firstName'=(#firstmap->(find:'firstName'))); #memmap->(insert:'lastName'=(#firstmap->(find:'lastName'))); #memmap->(insert:'state'=(#firstmap->(find:'state'))); #memmap->(insert:'zip'=(#firstmap->(find:'zip'))); /if; /if; return:#memmap; /Define_Tag; Define_Tag:'validateUserNames'; // return nothing if no problems found, a message if there was. Need to check all members to be added local:'r'='','username'=0,'mid'=0,'thistest'=''; iterate:(self->'memberArrMap'),(local:'thismap'); #username = (#thismap->(Find:'username')); if:#username; if:(#thismap->(Find:'memberId')) == 0; #mid=0; else; #mid=(#thismap->(Find:'memberId')); /if; #thistest=(ValidateUserName:#mid,#username); if:#thistest; #r += (#username + '\r'); /if; /if; /iterate; if:#r != ''; if:(self->'memberArrMap')->size > 1; #r='ERROR: some of the user names chosen have been taken, please try again with a differents user names. This includes:' + #r; else; #r='ERROR: The user name ' + #r + ' is taken, please try again with a different user name.'; /if; /if; return:#r; /Define_Tag; Define_Tag:'getAmountDue'; // Calculate amountDue local:'amountDue'=0; iterate:(self->'orderArrMap'),(local:'thismap'); #amountDue += (integer:(#thismap->(Find:'productPrice')) * (#thismap->(Find:'quantity'))); /iterate; return:#amountDue; /Define_Tag; Define_Tag:'getRegCountPaid'; local:'c'=0; iterate:(self->'memberArrMap'),(local:'memmap'); if:#memmap->(find:'regtype') != 'non'; #c += 1; /if; /iterate; return:#c; /Define_Tag; Define_Tag:'getOICount'; local:'c'=0; iterate:(self->'orderArrMap'),(local:'prodmap'); if:#prodmap->(find:'oitype') != 'registration'; #c += 1; /if; /iterate; return:#c; /Define_Tag; Define_Tag:'isValid'; local:'iv'=true; if:((self->'chapMap')->type) != 'map'; #iv=1; else:(((self->'memberArrMap')->type) != 'array') || (((self->'memberArrMap')->size) == 0); #iv=2; else:(((self->'orderArrMap')->type) != 'array') || (((self->'orderArrMap')->size) == 0); #iv=3; /if; // make sure memberArrMap and orderArrMap contain an array of maps iterate:(self->'memberArrMap'),(local:'thismap'); if:(#thismap->type) != 'map'; #iv=4; /if; /iterate; iterate:(self->'orderArrMap'),(local:'thismap'); if:(#thismap->type) != 'map'; #iv=5; /if; /iterate; if:((self->'which') == 'clubAdd') || ((self->'which') == 'clubRenew'); if:((self->hasclub) == false) || ((self->(hasMember)) == false) || ((self->(hasOrder)) == false); #iv=6; /if; if:((self->'which') == 'clubRenew') && ((self->'clubId') == 0); #iv=7; /if; else:((self->'which') == 'memberAdd') || ((self->'which') == 'memberRenew'); if:((self->(hasMember)) == false) || ((self->(hasOrder)) == false); #iv=8; /if; if:((self->'which') == 'memberRenew') && (((self->'orderByMemberId') == 0) || ((self->'clubId') == 0)); #iv=9; /if; else:(self->'which') == 'order'; if:(self->(hasOrder)) == false; #iv=10; /if; /if; return:#iv; /Define_Tag; Define_Tag:'debug'; if:(global:'Cons_Debug') == true; local:'r'=''; #r->(Append:'which: ' + (self->'which')); #r->(Append:' \r'); #r->(Append:'subproc: ' + (self->'subproc')); #r->(Append:' \r'); #r->(Append:'clubId: ' + (self->'clubId')); #r->(Append:' \r'); #r->(Append:'orderByMemberId: ' + (self->'orderByMemberId')); #r->(Append:' \r'); #r->(Append:'PREVsomeExpireDate: ' + (self->'PREVsomeExpireDate')); #r->(Append:' \r'); #r->(Append:'\r_____clubs: chapMap _____\r'); #r->(Append:(self->'chapMap')); #r->(RemoveTrailing:','); #r->(Append:' \r'); #r->(Append:'\r_____Members: memberArrMap _____\r'); iterate:(self->'memberArrMap'),(local:'thisone'); #r->(Append:#thisone); #r->(Append:' \r'); /iterate; #r->(Append:'\r_____Order Items: orderArrMap _____\r'); iterate:(self->'orderArrMap'),(local:'thisone'); #r->(Append:#thisone); #r->(Append:' \r'); /iterate; #r=(String_Replace:-Find='),',-Replace='),\r\t',#r); return:#r; /if; /Define_Tag; /Define_Type;