From 9d99c7e71d6144c59f68211df0ef01e72126591c Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sat, 19 Apr 2008 18:25:42 +0000 Subject: [PATCH] registrant management is mostly working --- .../packages-7.5.3/root_import_ems.wgpkg | Bin 7491 -> 8391 bytes docs/upgrades/upgrade_7.5.2-7.5.3.pl | 10 +- .../Asset/Wobject/EventManagementSystem.pm | 1965 +++-------------- lib/WebGUI/Form/CheckList.pm | 2 - lib/WebGUI/Shop/TransactionItem.pm | 1 - .../English/Asset_EventManagementSystem.pm | 74 +- 6 files changed, 363 insertions(+), 1689 deletions(-) diff --git a/docs/upgrades/packages-7.5.3/root_import_ems.wgpkg b/docs/upgrades/packages-7.5.3/root_import_ems.wgpkg index 0ec8beaebd2b7ea7fa7739971755010cbf65638c..98ba8f9b9be4cda50faddd5507cf6c72dd1e234a 100644 GIT binary patch literal 8391 zcmV;&AUNM2iwFP!000001MOXTchktS=kNO|bTjWhJBP$uHev$rBq0o8fB?ztp39MK zITo=cBgqLF4&VL#s(O{=HP{)3NjN07daJIk?yg;>d&~c+R4O}LTlenK-)-@?Qroj6p*1xoT&=)bn zr+;A+uEa?gx#!-BQ+IyC7ztg>w^T}d57y? z+g5*VFK$KtAn`+nHNP^4T{k!%xvYNRNvc`lu2biTfvSb|k6*ccG2x%R=J!7y*X#R) z?Rx#^u=(C=;ltCg*Y+aQD$yi%^zzg^mec>q_XI`kn4Q{XYf#wH*uLe*7YAT`1&?#T_r>?(WX+?$%Dtf++H6 z&BNe{+5pvB<-z7ot+u;urUi;|TNet^7AYmu7kcM`>BkFN(e)sCt$MQHNZfNtEkFMH zChm6QZnOJa?Zff&cl+;Oo&5R6bmGUS*D(g>8CgBV*Z}*zLDy}13DDo`i9^7u!E;rZ zvQGy;7H5Oo9CM^(5VXC${b0jhgn=7*f!esQ4|usWsq+VG#RicdBsA3NYMl=~Z9Y2bbOgnz&w8Gx7AE@??q>=E5ejCt&J31ovD+b_d1_VOjUV;&z z?rivRM8~Qh0PgG!d)ZcKBBw!5pOvAla_x%y_+%^Hj4JH~d3 zhAk2<;>UZ<$SLdfGDH`9Zq(}1=IVq|Uz|x7-t|=&wNJU|DIQa?9}I?xLy{oQrUbGn zPR0OY628g$bXM}2roQtc<6$||IvzHmy+XmI+Z$2`85$HYO~#1mwoE|dXv0OL@F4M% zIn2chK$`G_bDE9aLi9m*l{%3{?H4{@9HQ=?7)tMO+TTJHwQ*8@?_Rp%F-D=vzwSRf zIVlYjzgJ@7FF}4fdHEJn{dKW340v^%;;QqBD$|)jdlV9udm0X-mghWjtRBqsHC3IO zJPG^shknx4!+yFRx;-Ol!qmI+!5t(e>X=JX^%-3*g#286UBY{w23GKt%TChu_+*U5 z4BDRCi=8W|E4d_2hMkTRdC4#eytdPc0Q}X})jNP8x5<9|97;XaA>pHct+4?Oi-n$I z!4SRafR2^Iss>H9E=68Ez+UjqK*WqIgU{00udk2ZJwH8pHNM#?G#z~xDAsF56Gx|D zsA3`(D3S`1*TU9`3n@fGgW~qyiW1bZzosjSQ;)iJNW0|}dZEw`6xN&q^GX2Oqc81Y z#C!mK_UP(=HS9ONh`xdoq(7{Z;HpMvLSG?Mwz!KALpMOB>-|gD?-5yu$~`affI<4= z;Z~6!Sx!A}7yeM|@|h8(zR@Z%kNIZkMc1bZm7Pf5<8*T<@j*O(#0AEg7R5XJ;@l2MAR+$ z0oL!?*~=H`hbxH?Qs{l99MWb(bVUM0!X#A#KI;a_8lb432V9!MmRjA zO6HuJu#OVf(^j&Wn?(MYU3K=H>ZG?6;!&30M&lq@eZL5F;;%X^1HpsbC~6gLdS_vkFqjw6cZDD`of-u^J1=rraW~5 zXIXF9H5{07CZpuv`j939&JCh3MxsZxJGIb@!&m6#G^0q8ZO>CDwYUhG8$Aqzj!%3< z>hkjgKkzBIJ9A3I#u*stJ6E>*R^oiGhya#SJw^0YD8u zf#s<~jU^bk#>$!l4$tf1QD(u#!7zEbskuHf>f)1qPJEVUeNHA-3W}~9ACMYS%byZF zeX=R=vWH=Fm?RJd#!8CK;q^4owIU91U%65HKy?`gtsa;F@OeTW6=z<27BZ;Cr0d5e znkz0>K4SAY&^O391mMP$>tHza32VW8yb~}ZKW$oTWW%CuQ-_T2DFF0<%uq}iYIj!* zK$A;%wU%A!k-SfCK$a>d49Mm4P0E5K#lO&A6MIj9DtO4&bq=Q7!IYcpm`$M?n$vtL zF1hff~;F=^;dsE?J?WZaFRUoDr|ctaZ8;&MeU;Eu(^GN#@q>bczA9kkUWa(RZ&Hr+8Q{e zn@yq;**AjrVHcK|VmoXNNlh;YIqI>}zF0`Qg;i48rNJK zrUO<}4se*mpO}o0$&&6-K$6i7u+d1kaS67c(}5eHlWiUr>cSMx)8EA4S#^TZk3yvY zy%K9R(W6m%Nd8RHgeL1!3_6gENU>m)7Q`242Z=K}iyV`q$(S88+_$V)I~FVwyg+#S z=zWx;QKfw8KtDH1nbAm;&@AN$J+V<2rc>n060C>4RIJbW=!P@hW;H!Igzqu+{9{r1>Nv@d{fIXhz9z$!xZ#x5ozuC$DC;JsCrvZF>?=i9=6W zyTG82zQs$kkycYXw(aLLkC*CQq$1AS|_8m(-YQzt9VbQrO&uY&laFdDSgIx9L%Cef)|7E0hp=`mdbXyOT{MC5~yuf5=t~N zyV*A6KV8`_If`W|kkdM2a}(0A`X{Bc)s7D{Ds90Pjp3cqztR>iS!*i@PUxf3g02QF zqf^m(MY+``=#OUDN>eqdX`s}NCb6?%)uup(bu;GlbYFvNQ*qO?tJlQ5Zm3=}lK)hZ zG-AOnCm_P|E2W~;-$Xb?p8Rk$vs|j(KW(v;ALa(tI7-j!5d7F%LDw|ap<&CvyS(Fz` zY{ENHbi63axSvN7WxQI~?QDGSogn({3ZkT`h~fRyB2Q!ZyX}cD%Kb?hW64EKn+}8& z?4 zJexeerq-{nJt|7-k#NLaqQp)XHG@VhE(znad&|*%KS{GDonW|{vHMNXr`?I~Y!LX{ zitl3t3{nl;lI+eqZywRzfOZSAI}3do=^ba_awPXGC-IF4?mVsK%k2rDT3Nep1OAjb zqjSdgOVmE9k`93-X9|kQGIs0H0k_7Sb$a!*n`ufHGuR7q;R=TA$TmL272>F2P>)2R^o8++wfD9iYc0W7gkW;^1qNB&S z)icfxLPUf{y&C0&<-k!GmH;R<u%3K59&_O>m(0*aEn;y(mKomEiwYA$qNMb!f@b(6cNLo6Y+6CE1)Z3K8REv zliC`y7X0)DdA9=9R-7|qMmY7*h%@w$Y8S%+12tMFBq}&O;w(xb8F4Lm&~dYZMR$Zx z1iP>i1{Gl%1tNmAHLrbBV&a+(AzO1eMcZp9a7b|vi9x1+x3h)S0w ze7?pO(hFI%L3D761c?7gI-?nMtLEbz(*#<~EHH^&WB9CPW-Z8(u8T*`IEPV`N@b!L zL;S{5GZnNJ@RcO_I0a`N|L?2E+7UT7K9RC)I}05*lJvkNZI2;U*{emTskj{zM_nIt z4eM`Q*K2{e5^;;cZj-io#Q8|us2b?L z?I7fH7W-;kzp>v9n8C5DfH)Bu{a z(qFWY8#e6Ar~(pSZ2raYE))=xRCD986lXNYB@!Pm4Df)xdcnCa;8th_E9Tsko`jOb%5 zD^wr>txzu@l*z;;2tzeH#F5GbFzC1g($H9;1{n#TYiCtBqjfPkO^=yq9R>Z#rf7S4%df@|R+rF$)Ao^#R=L;3#5$BcDJN@&j40lPbh)K}Lc~EYc z)mCK3G<{9XZF?pYw3_NHE^sD4W~!Y7kwnlbA`F?b2(Fr{6B6AbV=DaFC{&fZvQom% zmjZVx41}p!)8bYh>{_{aS*nj1yiCGhg_L@oGIgkLX5L*Saymego(qxi5MHkrDu3U9 z#X=X$Ap0`s#wkN<;3exFmIaF+5rL}shXv1%sf!jrDpbWHCr*A;T{Qow>VQ&* zQyjIhEF;#IQhXsVfftwcC#0q2rL>Z!r4xjuw*1r)DAj$Ley#WYV8MOUx`=#TW%F?z z>5<(f4JPPAlf$xx(koxqpO!EowZ-J$MUJq3b6=1jG$X$H|y; zgcyWUIxCOSpOQY6&iJ6c4r@#p)#+YLjGC_Req2X-p`=@PHY=6EM=g6dk+aK->eazV zCk}f^*ZLhUC0#ne4UC!8t9BF3AyN7TGsLSa-HC zQAf}4J61{BXl881h$5~#RjSK}A#=0q{qWCqv9{}x+xCZ0tEU#RL1=DX_{o%7llzd= zLo1@lr?$Ph;~EOeKyQ@G_B`_B@?EBzMk1*f8O;7;&2!Syb=9NNl(85O5-dBxeW^AnU&^9W0qPRTiG!u3`h!2J-TgH11 zwl*r&s`ZwT^m`7hHwVPs@ai~t3O^(9h6an@CBsHMa9e^A#w#7l%+pG?+Q2{4yAN6~ ze|A6ge+u_^j(@9GfAM~Ky7A`amFZ;MyAKxjW`mu|&gO&7Ei+>3%?4v$N%CbcClKxmxLHgBr3NO1R6gQ5|UXF zHzqkal}n51%z4S>a9KAamBgF8t?XnJ-&itkT*~SBQL+v1e3r;2R3i>0<-lY-l6Wm= z)fig3z3F;Zf|qo8PaqHLoYPhh=6Nc+AC!sIl73QZVmwdRL$_z788P)1m4TaZLgTBy zUzB%49~NJdd&6`>o7Ym7s`OsQi{|f>kegX(lWUt;I?9yIs#5yE<;au0RuEC(m^wbQ z`cIu>UmEVjLo7PnN$<)eE>0A5f*Qz@g{$nXyR zZVfU{=pu6;j!x_NPE1i4T{Q`B0&NV5A?F&~xFL z5T)HbWv(%Lk1w{+S}%OOv4!>p`>s1?PyIz!+L_>(!&19h+1)g#{-zDJ+8CBMVCtef z1Lhd>D`DtwXu#wvk6?%KO(*JMVqW&MR#2)ef-^!i-|2D|upZxycT6DO16#cf*+SxgI{^#@l z&dFB1VcGlOb;>?y5z^I{#fvQQ>erb5ud^_;PHy*bwzy^ezj_BqjL^**MU!Kw`TRk(iOVFL%wCx`P~&* zRu0us;Mm2ZA>zKtzOG&qoPE);xU#1hIq*(^0}5OkZRS{*=|Q6}ogi(3RRpdg697Xg zGIuk1P1m&uL`)cq`}rPTMuRaX7_Q*3uj#xdm{GPRVHz`x#%Sb=TJuaY<4z49X%&5( zB6Xh4$b4`l%$h)S?BD~Ujalp_T=C9w;+PjF<}59YMtZ9$`>qhGi7@H!mzYc#@o8&` z(8*~ll6nJ*c#wH>sc23F_>I^}a2=)WBGy4l&pDWgKB!bc`kiLjHWe~dgTQ?c~7B*oy`O4qBiGyUCY3L^J+)SC#ForNA zX(le^d7L*dO-*tY%jB`Dxo5j4u&6s%vD=I?A z1mfRhU)MGprqv+&`kG3sxfb8{D>;{+Q9T(W)DTB^OG(*yYpR&wH1}^ofm3FJv2W^; zLT&XSA?=j=>K(=lwJlmNUK9iV1lKp7qjhuSMr4+5!UVZ|vXqF{srMIJfTY4H$qS3! zsQ3k)Zjycjq=oX_X3LFm`)`0G@MbsKGTKR?17AFc*_IBttku$}z`xjHX*t5**kTF) zcSqc5G(9M$oMQX0h%225jyWurTRRoYB=Xl;EGhCL=1{bShm>k_flbr3gU(6Q(_~Vq&Bc_KxK^`6^?ip9f=D_ zB(2B?-z_;h^49F%4>n;8+^}N57GnQ4*Yr&0?xSFTc-61H{4m%$e9`(j`Ss$r!Ye@f&i=dH_^;RT(_p9lJlVW@30dqx*FW0mo>*=z zkS<5se<5}uLHP# z#ZCN6lLR3PC|QN2$5sl~T*F54=ei%Xy^lzQz*Z?Sya+x|vl1!iuNK}Q?+H5=wHP%% z;*A3v2=#`>CMB&=si~}7TN3YfwDk!7=DSXX{^ek8_K+mOddkt?GEN@p&Dv08W=mx< zhD~K0ph-LDwzHI*)d?Rv)sBPhgc( z7pV45#qL2O&}JZrJ%kT|BH%qDPfg0kM$7vPdSby%@^j`Vkt>FXu!^JtP~Ko8ayEr( zZRhxiBDsKazQ{4fCn2&MHAjfui zQ&?k5C`UHuEDCn>FgkYw|4(d~5c9fmH?-)F*Bk>Dt1{9ZT5*C&ZY3U!#)+LIBckje zskG&z7DL4Aj2qd4feA>H4QPpuMZ@HMu`b4PkG`=k<~3asQXBKvWcQi^!5sRR>Skrz zpm#y~mtffItx@s<{H!d&mG;5b)`QB9l`CQ)qC}aodO&ik!N^Qf#ru~Jnw`_iyXy}> z4};4enr}XSe{yDV8%viefROFYT}#h+=R|uO9QM~e#u)i;>o(;-yj(0N|G_2LsoVzY zkmJ>j?o}%9leq6E-LXTWTBkF%^d5SkAM>{~q3%~y^iTHxy*{|QZg;}ae{tD8dg@+1 zZ&rRfdt;9E$?~7bM*p`L0L3(JUjnSoEdfeM|2h%S0)W`pI~j24GN8ct5`{o904Fh# z(nsBrghc5r%7{4;Q9$q_Y|SU-jp^qUS6%X$-U_0F1H=GNh9Zc4oa_a;l(wBMe{ZMd zZ)kBxO2#*q0_}Ck3(7_qG@pcCVTod)WrO}gvG9!Z2>wO!#6m6{55io6;l=}VU;bSL z!|mGc?uI4ME>JKOST!h_NitmbYrAhZemmcP75sAS4#Hnw{czB<_>fzX47WBdQTa|X d{EArgJ5cU0aEF0A3@il${}0%+7wrJR005Z}i@E>+ literal 7491 zcmV-J9lYWniwFP!000001MOXTcN535=kNO|<~r{_$;Z~>JqW`+wlTp3Fkq9sB+BKC zq>(jPnh~>L91h?8{i=GM8Lf`wONgBlBu#JC)z#Itbxrl&^8f1f`rgjYy?gYzD?aO+ z+xPA{`mcU(W20W**xT9I+S$A3Y;0`oZrpQFb@_j3oVXD{d!NJuKk1Df5Y@Wfv86mY z%+GvIsQNV(0cIdx|GQD&uD*}MV4)zQ_uXx*H$F$L|K|42c5eN*_I5!Az~=J*mbL!X z<%7P65kCI|n{Xvg!pObwR-A_O+wbfAXc&bX$kANRbDX&ZP~Kl?!^ zyy8ylrXao!!eQ(ey9=)ZFM1n$(Mcx{i1#Up+^3$~Id?CL4c$2Q64_|`L$7{$51>~Vs+^=7&wjnQFr%kYpF5AjFsbSo!gP4jIqvwPbYs&D8YkC%@7x<;i4srF1Kf6|c9WQQ2{xI=FhPAjdM?E*V7`d!|;7O`k;jS}$#6Z=?`o}Nbftc{mUh9Xq zCymAdVY|`zIc&Z6+W7J$?03A#v`RFI9ltm;kLC1#@;yNjd!{J9^oK9Q#P9lTS50Td zn(4p`QbV|zUWo)#ric}H2-5#(lOWT@ng54?e{;`5xF0_c+m{MCV{ymJc>n(1{rfw6 zn-)ZoM{6DikJSd)*sOoQy|=k}f7eV46yvrp6{0OtN~SOL-uI>-FK9>C!{n9f$$}$s zFC?|R{pEGs>&3lR@7K)_C(qs;ynlK6$7|DxAD>;v7?@{d^$=qN9Q21hx8)^3f4?u7 zfK`L%sxW192R|0P!EKFUDLDk~?(TlSWiP_ejl4i@+*gOZT$TI^X z0$F5*7~+?Id|3p){o48{?pyI>kx~G9oN)f{?C#X}a_9f{_HO;|{J#xanfLtvmd^OY z7uT)FTkYdu@P9vDZeG29_u)8xWAVB%XMC;Yb}qb1EA{EXs&u@roAwi%Mb3TlPdd{T zmuHT<-|;^>e4ajRt~l4JU%{alRAP6~TzTZ||FcqYNS{fl$hnGemU)p=sXS^%%>Ya+ z)0|pgv~%q)BEMrb7||qkx_%TVxpw@_X@~uE5UBReq?z!Deh1J(IyxrtD+b_d1_VOj zeuN-E-P!PiMaQZi0PgIk{d_Alk<+3I&VJu_)Id0bF1-YpXra=+>+~Y83lP2o46=xx zdxJ;+ISCRk3Rqll`(;_U&a%n7_gCdv|n@af8QSqLgcqv zVK5Q|Su`31S-1!glJL?S4S^^b4S*=S$@u%Vw2xIZe`Vf{Z1r_N5PoK8Yh+&1+Ax4fz z4=t)Ja!`-exQT;`Dzgr{UlYjPuSwh+oEr=aKB)H&m#CwNT7elScEhx9OTh6I`+_)-8R1;1o{;#AC0)bA(0*YDtA zE!R3uTd*CW;G^45se>E^2$&{gM08stput$c<`o_!esZi-tN>(rKe(XT*eygKbW$jO zC~80VnQe=@`(h})zi4*}MbO4c?Y;Za6^}6rRsQAR>FH@TP5ge9`C}E@%jt_Z(5bJ> z-8A6UamuUCXR1s)l6DC68}}?sqqgTfbgUlC^L167nmi5%^g(~w>fs<;58a-VEN|*v z`8b=CDs{{ynfi<_7bj! z!0R~O2*6)mUA+Ssa+@5)&tOth9TGkU*BTqJZ&>IlmkiOH4rp_iRyAm}Gz>HIhyf(H@T*@F4_6xWF zMwFnA{WDv!OFJf}ZXL2MIi-Fmbo0`>Q({R4Aba$qlSX_B(|3;!-k0g1P6RQ3ADxwV9HQ9fKR;jPGV6yO;XT-(_DGLvpWeo-X|~wXN}~t#H$Wz$MQt6 zdW6~2ZWrQ@v!({7PUIgtQJhC~fqhX0Rg_EWF*BsnYL)rUxIW~9j)Nk+ieGsVHh`xo zC5sB|00}iVjvwG`j6I_K$aA20<7n%Li4%6^2^Xu02s+mr3&kJKFS{Ur_| z^&3Cm7}y`f7z-0<@TIw;(ECO31Nzxah)D^F#60fO(`SS#+RvuOPrRawE`H{>XcU3 zO5!9gIdUx(O?`PFfK*FM0%Q_m-$AdNu%-tPL&GDgWcbvCb(FZCwvy$-B#LZy)!BD8 zR-J!4r4qJIDJxpxkZE7G!cSNjDPGBu@jweqr8W6*t%S$5MPIf2>;OJhdaC)Cp z@v9cuf&3>9(@CWFI)C!chG{j3KCq|Zyj*CZDNk|Wyyy+Df&)j&WR(0&a{zQQV|1x3;;`<~*|;vi&c^e7CvKFJZ8!_N==#3y;`L+U~3Qh(S&#hxGf}#T&qSwYRR03LoI%=@cz^dI(=A(8Z3e`h*fxd@XSb(IFY2pGO8z%rR~24 zWLw!H6E34Dm-# z2Dq=>sB@^g41;zbLIC7Ep^pll7oUd=YB}loah2wZ!uk=XSr!XLE6%z*J^7$rZ zL6VVQXs?OACqNZ4Wc#`RQ-LuR<~n9msD_4{Pldd&L0;#1d;vVI&rLv^APKHXI<+?y zj>%-9w8jY|sw#7iq`3F*n)zFN94t%e?YwYhqp6VI3{`V*Z5SN=68b)U;|Ag&uta#s zdYb#?xC_n~um${2tb-J=E@BRpP)|T5^Z+2qzDb-uZ-t%f<9>M+3Mc6!FT;*k6{pns z6Vxs%37gwTXw02JhDY2)0?ngb*$`DE*Ve!(%V-i+$-5AAj(YHelsjQNB_p{U%!L`8XMc&o^X3F&AB9N)b|toIqDN!&kn)+N2~F137<3>7k#flx zEl4iT4-)5W76l=9IbY_*gBe^G-Hii~Y4|ujn@ME zj%6M->W4b8i0=yhh!i-1S5S)Uc$;aQB8E z^x>U?Z6W9R*Xo8bzD$;@3){ zDUe~Ej0HR0*I?RI()8@+H8HOnn%9ixKUF1-Sg|W8i17SMttj)Eh>*n7ACG6&OLg$2 zt(Nk`!l0UbmDNp<&Umf#oI*Y)DWyElf^<^uYotn=4^|_nX3<9({5y5@*5cDRK=|g` zC@&X>p57^=9A73+lW{?1vnr#!u@HX^eQceepwuKPhJ{g@|d_fzYD-ha1+DD|psCcnkJ7>WHrTEY5xrfu_4( zqy9q--zPQ(^|gXo-o(S`*oX$rz|*~bG~1q_EDAe1yl;Apc`4nZ$0|DYbG9? z?zW~lg>5ZA#+46vy%DToUy~hWS0J+*-R3Ke$^Z4ZK)$@a2^mRwu=$5f;{fB%b z6a%i0W8)caQN$tuGIE62{Tz%#LH%}#zCFgRo^oyuO5uU_0vA><*}8NYX@**SU7@Jz zV{_TY10LO2erD*Gs9#&~O-vKw8*8QGY&30+Lg-$>LuO^EQv{cH^x374xC!v-59T~rn6aH@#Bsmh1C zDzPORmC~uSkOBs^KPzO=B;vH)_Tspq1GLIv24bp1?Rj}A$W%ktM@FA2T@Ix1z}PE? zRehBZ)URR#sXhHix`OTl@!|0++~mZEh(#)D5Y0pfeQ`752#6@t_k$jq&R7k0)=EzK ze@L_~OB9q#|Eg|wOY5d0+pJglCdI0)H4%K4ia|d|DJb)Tq}M=TAU8sGdWJcUnIv6% z$#p1rE+;9#qGbCM;Z}TL=2yaAef!oIv8ZfW!u&P1kY3884XT4vCP4g$G8oOETQwgS zm?qF-W`Ri*8Y5;cH)}zTbX+`i#s!R`R2mb-7~)?%HB&)r0bf;;k5h6g_x<%3dux&D`5D_oy3VSWa04+`;1;c>^S%I>A-LC%8;}$j3H( z#6BLJbl63_CPx#GpzKRGasG;t=xI8~Eo`a6rb5(!q^L~Pum3SmqPeY-rAin;rF*4F zu|!OwkYXpZTf#^H1=^5J40Sx5i_lf`>4Yw7W(Zw2UM8W7Aq1h1q-I%R!PG2!y(Mav zqunMoiy`A|4Ey}lER>GX#LQ(yS~luXe(Q(^H>G6RdO9I<#S9&brpqK_9zmPQz^OII zCV71Vd5eY%rf$*cEfKdE>^5neN1Ttejj4go+b*trrja*Muyk>65Sa+PD1sQ#4hMrY z;IxZKlfbDlaF668(l=yj+&UaYc!`lCpf!Ldt@IadWM&Nq@>T(yu1 zha{8}&@5Es4%<=ktL~Y5r2WHv)5P;|TOIRP(jwF!TdX5_&oraR;6hRWhXt-QTnBA^ zmE(uwbKGU3!Pm7Gf)xdcnCa;8th_FKxpZP?7}3XAQK&=;TB%XORVH&UK{%>8AdXBX zfI;6oAPbFk)gY(gbM3qdXS6M*VCk_FqUF07kz|eK9U71H)LFDqois<~%n?E|d_V0T z?z&|6gnFv?f`xOEm=IccM9Egmx#yfT1UCbSdQ=}oM6i~XR@Y0yqu_NcFFuR*Zi~!G z0D*3@WUed%GAiPGZ^xX~P4DzCtMa-_W<^YTJkEo1!<@1rH>K%oVrJQMnI6?tXLW(| z=&?}k9EucvP8rvbDTm*xsX8IeEb^5io{g@ma#vPD*7*|9PKALmHEUAZ`re+E3756{ zh{4OH+f_(uG$>Pt`eo+bLn5a`B`$?da1JK{YNZxxdyVYac-O%tOj0E=^}?l zT%nB;7oSwyaSWERg3DQbx|&RZwaD;H8UHegrcg~9)?infI4Ds65wurhCL7l%0V4i& z2Q^u+_z`hY75`zui(~4d#g7V8vB-&2990+1KdNF-iaEtm8_P0cZ7IbU@)CG)O@BjD zSYApiX<9ZxSZ2#l9f1h9rE+&1U5>_EWN_5|0l$6?kL9 zs6ppqV$5^{_frMwg_2&w*{;`zpS14XLe4HPYHSQYIdRxWvefTzDCyE6PGHQWv0*pS z5)!3fFwy%4m}XK0=OXgFK=<2BMnXyVNrMC^^)Gq}Qh&frV>MC0I9nF{1{fN1R%jy6 z?s(y_SczGk;krXVrGl=03Z2FoI-i|_g9bOe1lFA$Ow`dc{EkhMHkuh*F>VnzoDHhW z%#fwo${_rsBG$GNxg9@+Sv|9eO+s_)(od$;n%sw^9$FDaKAXGSd#<6N9Q4MxY|o=e zF5l(4X(p0-k-_X=);uRIUDqA>{p$i5SxDQ=BF)CT1Bxg7)2B7w04j~r|gHCvX-*CV-*~>GJ&y^>TpMEw=EmtTBhgf2>4&T@5KRxz1 z1X|eGu=iCnnHd`u9@<7FPZWnIaWmo9gZf~EvSqzxU~AhR!+y(vmA60cg;yuR6T}&b z_aj*HE;%;hq1zUMFkYxoW0_Wp)u!*6-aJtGwe|igJv)7U@cc*5{ULd~_38PCE7Qri zHxDfAy#jmnz3uO}cg%>H_X>=8A;@3-)c``H(*NT9Km2|3_VWL4Y;J9D7V`gZ@80GA zzsvu>+;{w(o?gFry0tazA6)N-NAKUg{yF-TOn=8uO+-ypBAqbfD|!cjIOcT1@{v&| z={2)yvZ+Gl&gD;=BThq%B@&feDGE&_3#sXB3LKN3oXVxoHlFUJ%nX+gbW&-=Dc;LY zhw+W21BY0Uogbz9@GfS#TZL*QBV|IUOiUCbcUGIFWnG+Z=_Po{n)nzRxz2iR^)PPQ3SZ&5kG2`4nZ`utOwKQy!WGub~(C$xDjbFE4+X5x7M zIw`?fh&S23NvNb;-E6F-FIBlxQt)bn8>ryD3HK6sK?O}^+PCeHm_@oXgT`%U&E{&z zTISa^J6M2b0Ye;rLIMUVUO(%FL-IXjbGsJ0;zMIXU-$2Ct_zRYh|bjN&ykZr$W%C` zY)YAu?~`V(!`tMW9Oh2FxTM^R3Izls{i&3q3(v(UJ@*-hk+Hn|X&yg; zMlSLvQGJmUEpzLK9t-~io%xn&-f*cUnC18G?`&-CSvKhG%YScbmKQ9sS@BW7$-|ieeJusat-!z{`%iqB?e;elCd)o3}uhZMRmHmI~7VZCd zCH6+a{=c(zXaBzq0{A<>|93Mw+CGkc-D>acoj&{H*eOgA$HH6>8hzOmZ4n#yBIqgMK?_d!Ra_>$R&4~cN z5kCozql{m~Vx;t(uQSmXm5fNgRgE4lIemJIcGIFAD7=Dq8SAFK`IB)!PsTdN>s`h= zPJ^x-LN|Z!C!^oOCOju!`I|q%NT#`lZt~X8j2jJO2se@z;xe(%MfcLwG|Th2*Tj~< zh~wUW`+{E|${S%ehvMHo(HUo(P$!Fdjhu1w2vJmAUK5Caoqu86Y?xMq=;LcDtrl8* z+b;!Oeopsfj8a1q-7Tesr`Zo&k)e6p5^)|odbT7YCObW#)+hf(n>Lfs_$4oVB-;(cV-kSgW`)xP_ zw=6gJLj2$6Xr0O3eHFN7+5w2 N{vQfdE+YV>007dqlC%H- diff --git a/docs/upgrades/upgrade_7.5.2-7.5.3.pl b/docs/upgrades/upgrade_7.5.2-7.5.3.pl index 6708baa7c..1519c3fc0 100644 --- a/docs/upgrades/upgrade_7.5.2-7.5.3.pl +++ b/docs/upgrades/upgrade_7.5.2-7.5.3.pl @@ -73,16 +73,17 @@ sub upgradeEMS { $db->write("alter table EventManagementSystem add column templateId varchar(22) binary not null default '2rC4ErZ3c77OJzJm7O5s3w'"); $db->write("alter table EventManagementSystem add column badgeBuilderTemplateId varchar(22) binary not null default 'BMybD3cEnmXVk2wQ_qEsRQ'"); $db->write("alter table EventManagementSystem add column lookupRegistrantTemplateId varchar(22) binary not null default 'OOyMH33plAy6oCj_QWrxtg'"); + $db->write("alter table EventManagementSystem add column printBadgeTemplateId varchar(22) binary not null default 'PsFn7dJt4wMwBa8hiE3hOA'"); + $db->write("alter table EventManagementSystem add column printTicketTemplateId varchar(22) binary not null default 'yBwydfooiLvhEFawJb0VTQ'"); $db->write("alter table EventManagementSystem add column badgeInstructions mediumtext"); $db->write("alter table EventManagementSystem add column ribbonInstructions mediumtext"); $db->write("alter table EventManagementSystem add column ticketInstructions mediumtext"); $db->write("alter table EventManagementSystem add column tokenInstructions mediumtext"); $db->write("alter table EventManagementSystem add column registrationStaffGroupId varchar(22) binary not null"); - $db->write("alter table EventManagementSystem_metaData rename EMSEventMetaData"); $db->write("alter table EventManagementSystem_metaField rename EMSEventMetaField"); $db->write("alter table EMSEventMetaField drop column autoSearch"); $db->write("alter table EMSEventMetaField drop column name"); - + print "\t\tCreating new tables.\n" unless ($quiet); $db->write("create table EMSRegistrant ( badgeId varchar(22) binary not null primary key, @@ -148,6 +149,7 @@ sub upgradeEMS { location varchar(100), relatedBadgeGroups mediumtext, relatedRibbons mediumtext, + eventMetaData mediumtext, primary key (assetId, revisionDate) )"); $db->write("create table EMSToken ( @@ -164,6 +166,10 @@ sub upgradeEMS { primary key (assetId, revisionDate) )"); $session->config->addToArray("workflowActivities/None","WebGUI::Workflow::Activity::ExpireEmsCartItems"); + + print "\t\tMigrating old EMS data.\n" unless ($quiet); + #$db->write("alter table EventManagementSystem_metaData rename EMSEventMetaData"); + } #------------------------------------------------- diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm index 9bbef979d..764cc0b68 100644 --- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm +++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm @@ -75,6 +75,22 @@ sub definition { hoverHelp => $i18n->get('lookup registrant template help'), namespace => 'EMS/LookupRegistrant', }, + printBadgeTemplateId => { + fieldType => 'template', + defaultValue => 'PsFn7dJt4wMwBa8hiE3hOA', + tab => 'display', + label => $i18n->get('print badge template'), + hoverHelp => $i18n->get('print badge template help'), + namespace => 'EMS/PrintBadge', + }, + printTicketTemplateId => { + fieldType => 'template', + defaultValue => 'yBwydfooiLvhEFawJb0VTQ', + tab => 'display', + label => $i18n->get('print ticket template'), + hoverHelp => $i18n->get('print ticket template help'), + namespace => 'EMS/PrintTicket', + }, badgeInstructions => { fieldType => 'HTMLArea', defaultValue => $i18n->get('default badge instructions'), @@ -180,6 +196,23 @@ sub getEventMetaFields { #------------------------------------------------------------------- +=head2 getRegistrant ( badgeId ) + +Returns a hash reference containing the properties of a registrant. + +=head3 badgeId + +The unique id of the registrant you're looking for. + +=cut + +sub getRegistrant { + my ($self, $badgeId) = @_; + return $self->session->db->quickHashRef("select * from EMSRegistrant where badgeId=?",[$badgeId]); +} + +#------------------------------------------------------------------- + =head2 getRibbons () Returns an array reference of ribbon objects. @@ -595,6 +628,27 @@ sub www_editEventMetaFieldSave { return $self->www_manageEventMetaFields(); } +#------------------------------------------------------------------- + +=head2 www_editRegistrantSave ( ) + +=cut + +sub www_editRegistrantSave { + my $self = shift; + return $self->session->privilege->insufficient unless ($self->isRegistrationStaff); + my $form = $self->session->form; + my %badgeInfo = (badgeId=>$form->get('badgeId')); + foreach my $field (qw(name address1 address2 address3 city state organization notes)) { + $badgeInfo{$field} = $form->get($field, "text"); + } + $badgeInfo{'phoneNumber'} = $form->get('phoneNumber', 'phone'); + $badgeInfo{'email'} = $form->get('email', 'email'); + $badgeInfo{'country'} = $form->get('country', 'country'); + $badgeInfo{'zipcode'} = $form->get('zipcode', 'zipcode'); + $self->session->db->setRow('EMSRegistrant','badgeId', \%badgeInfo); + return $self->www_manageRegistrant; +} #------------------------------------------------------------------- @@ -650,7 +704,7 @@ sub www_getRegistrantAsJson { my $badgeId = $self->session->form->get('badgeId'); # get badge info - my $badgeInfo = $session->db->quickHashRef("select * from EMSRegistrant where badgeId=?",[$badgeId]); + my $badgeInfo = $self->getRegistrant($badgeId); return "{}" unless (exists $badgeInfo->{badgeAssetId}); my $badge = WebGUI::Asset::Sku::EMSBadge->new($session, $badgeInfo->{badgeAssetId}); $badgeInfo->{title} = $badge->getTitle; @@ -806,7 +860,7 @@ sub www_getRegistrantsAsJson { $badgeInfo->{title} = $badge->getTitle; $badgeInfo->{sku} = $badge->get('sku'); $badgeInfo->{assetId} = $badge->getId; - $badgeInfo->{manageUrl} = $self->getUrl('func=manageRegistrant'); + $badgeInfo->{manageUrl} = $self->getUrl('func=manageRegistrant;badgeId='.$badgeInfo->{badgeId}); $badgeInfo->{buildBadgeUrl} = $self->getUrl('func=buildBadge;badgeId='.$badgeInfo->{badgeId}); push(@records, $badgeInfo); } @@ -1123,6 +1177,172 @@ sub www_manageEventMetaFields { #------------------------------------------------------------------- +=head2 www_manageRegistrant () + +Displays an admin interface for managing a registrant. + +=cut + +sub www_manageRegistrant { + my $self = shift; + my $session = $self->session; + + # check privs + return $session->privilege->insufficient unless ($self->isRegistrationStaff); + + # setup + my $badgeId = $self->session->form->get('badgeId'); + my $db = $session->db; + my $i18n = WebGUI::International->new($session, "Asset_EventManagementSystem"); + + # build form + my $registrant = $self->getRegistrant($badgeId); + my $f = WebGUI::HTMLForm->new($session, action=>$self->getUrl); + $f->submit; + $f->hidden(name=>"func", value=>"editRegistrantSave"); + $f->hidden(name=>'badgeId', value=>$badgeId); + $f->text( + name => 'name', + label => $i18n->get('name','Shop'), + defaultValue => $registrant->{name}, + ); + $f->text( + name => 'organization', + label => $i18n->get('organization'), + defaultValue => $registrant->{organization}, + ); + $f->text( + name => 'address1', + label => $i18n->get('address','Shop'), + defaultValue => $registrant->{address1}, + ); + $f->text( + name => 'address2', + defaultValue => $registrant->{address2}, + ); + $f->text( + name => 'address3', + defaultValue => $registrant->{address3}, + ); + $f->text( + name => 'city', + label => $i18n->get('city','Shop'), + defaultValue => $registrant->{city}, + ); + $f->text( + name => 'state', + label => $i18n->get('state','Shop'), + defaultValue => $registrant->{state}, + ); + $f->zipcode( + name => 'zipcode', + label => $i18n->get('code','Shop'), + defaultValue => $registrant->{zipcode}, + ); + $f->country( + name => 'country', + label => $i18n->get('country','Shop'), + defaultValue => $registrant->{country}, + ); + $f->phone( + name => 'phoneNumber', + label => $i18n->get('phone number','Shop'), + defaultValue => $registrant->{phoneNumber}, + ); + $f->email( + name => 'email', + label => $i18n->get('email address'), + defaultValue => $registrant->{email} + ); + $f->textarea( + name => 'notes', + label => $i18n->get('notes'), + defaultValue => $registrant->{notes} + ); + $f->submit; + + # build html + my $output = q| +
+ +
+
+
+ |.$f->print.q| +
+
+ |; + + if ($registrant->{hasCheckedIn}) { + $output .= q||.$i18n->get('checked in').q||; + } + else { + $output .= q||.$i18n->get('not checked in').q||; + } + + # badge management + my $badge = WebGUI::Asset::Sku::EMSBadge->new($session, $registrant->{badgeAssetId}); + $output .= q|

|.$badge->getTitle.q|
+ |.$i18n->get('print').q| + • |.$i18n->get('refund').q| + • |; + if ($registrant->{hasCheckedIn}) { + $output .= q||.$i18n->get('mark as not checked in').q||; + } + else { + $output .= q||.$i18n->get('mark as checked in').q||; + } + $output .= q| + • |.$i18n->get('add more items').q| +


|; + + # ticket management + my $existingTickets = $db->read("select ticketAssetId from EMSRegistrantTicket where badgeId=? and purchaseComplete=1",[$badgeId]); + while (my ($id) = $existingTickets->array) { + my $ticket = WebGUI::Asset::Sku::EMSTicket->new($session, $id); + $output .= q|

|.$ticket->getTitle.q|
+ |.$i18n->get('print').q| + • |.$i18n->get('refund').q| +


|; + } + + # ribbon management + my $existingRibbons = $db->read("select ribbonAssetId from EMSRegistrantRibbon where badgeId=?",[$badgeId]); + while (my ($id) = $existingRibbons->array) { + my $ribbon = WebGUI::Asset::Sku::EMSRibbon->new($session, $id); + $output .= q|

|.$ribbon->getTitle.q|
+ |.$i18n->get('refund').q| +


|; + } + + # token management + my $existingTokens = $db->read("select tokenAssetId,quantity from EMSRegistrantToken where badgeId=?",[$badgeId]); + while (my ($id, $quantity) = $existingTokens->array) { + my $token = WebGUI::Asset::Sku::EMSToken->new($session, $id); + $output .= q|

|.$token->getTitle.q| (|.$quantity.q|)
+ |.$i18n->get('refund').q| +


|; + } + + $output .= q| +
+
+
+
+
+ |; + + # render + $session->style->setLink($session->url->extras('/yui/build/reset-fonts-grids/reset-fonts-grids.css'), {rel=>"stylesheet", type=>"text/css"}); + return $self->processStyle($output); +} + +#------------------------------------------------------------------- + =head2 www_moveEventMetaFieldDown ( ) Method to move an event down one position in display order @@ -1151,6 +1371,49 @@ sub www_moveEventMetaFieldUp { return $self->www_manageEventMetaFields; } +#------------------------------------------------------------------- + +=head2 www_printBadge ( ) + +Prints a badge using a template. + +=cut + +sub www_printBadge { + my $self = shift; + my $session = $self->session; + return $session->privilege->insufficient unless ($self->isRegistrationStaff); + my $form = $session->form; + my $registrant = $self->getRegistrant($form->get('badgeId')); + my $badge = WebGUI::Asset::Sku::EMSBadge->new($session, $registrant->{badgeAssetId}); + $registrant->{badgeTitle} = $badge->getTitle; + return $self->processTemplate($registrant,$self->get('printBadgeTemplateId')); +} + +#------------------------------------------------------------------- + +=head2 www_printTicket ( ) + +Prints a ticket using a template. + +=cut + +sub www_printTicket { + my $self = shift; + my $session = $self->session; + return $session->privilege->insufficient unless ($self->isRegistrationStaff); + my $form = $session->form; + my $registrant = $self->getRegistrant($form->get('badgeId')); + my $ticket = WebGUI::Asset::Sku::EMSTicket->new($session, $form->get('ticketAssetId')); + $registrant->{ticketTitle} = $ticket->getTitle; + $registrant->{ticketStart} = $ticket->get('startDate'); + $registrant->{ticketDuration} = $ticket->get('duration'); + $registrant->{ticketLocation} = $ticket->get('location'); + $registrant->{ticketEventNumber} = $ticket->get('eventNumber'); + return $self->processTemplate($registrant,$self->get('printTicketTemplateId')); +} + + #------------------------------------------------------------------- =head2 www_removeItemFromBadge () @@ -1171,7 +1434,24 @@ sub www_removeItemFromBadge { } +#------------------------------------------------------------------- +=head2 www_toggleRegistrantCheckedIn () + +Toggles the registrant checked in flag. + +=cut + +sub www_toggleRegistrantCheckedIn { + my $self = shift; + return $self->session->privilege->insfufficient() unless ($self->isRegistrationStaff); + my $db = $self->session->db; + my $badgeId = $self->session->form->param('badgeId'); + my $flag = $db->quickScalar("select hasCheckedIn from EMSRegistrant where badgeId=?",[$badgeId]); + $flag = ($flag == 1) ? 0 : 1; + $db->write("update EMSRegistrant set hasCheckedIn=? where badgeId=?",[$flag, $badgeId]); + return $self->www_manageRegistrant; +} @@ -2544,1686 +2824,5 @@ sub www_doImportEvents { return $self->_acWrapper("$time_block
    $html
", $i18n->get('import events')); } -#------------------------------------------------------------------- - -=head2 www_managePurchases ( ) - -Method to display list of purchases. Event admins can see everyone's purchases. - -=cut - -sub www_managePurchases { - my $self = shift; - return $self->session->privilege->insufficient() unless $self->canView; - return $self->session->privilege->insufficient if $self->session->var->get('userId') eq '1'; - my $isAdmin = $self->canEdit; - return $self->www_viewPurchase unless $isAdmin; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $whereClause = ($isAdmin)?'':" and (t.userId='".$self->session->user->userId."' or b.userId='".$self->session->user->userId."' or b.createdByUserId='".$self->session->user->userId."') and e.endDate > '".$self->session->datetime->time()."'"; - my $sql = "select distinct(t.transactionId) as purchaseId, t.initDate as initDate from transaction as t, EventManagementSystem_purchases as p, EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_products as e where p.transactionId=t.transactionId and b.badgeId=r.badgeId and t.status='Completed' and p.purchaseId=r.purchaseId and r.productId=e.productId and r.assetId=? $whereClause order by t.initDate"; - my $sth = $self->session->db->read($sql,[$self->getId]); - my @purchasesLoop; - while (my $purchase = $sth->hashRef) { - $purchase->{datePurchasedHuman} = $self->session->datetime->epochToHuman($purchase->{initDate}); - $purchase->{purchaseUrl} = $self->getUrl("func=viewPurchase;tid=".$purchase->{purchaseId}); - - push(@purchasesLoop,$purchase); - } - my %var; - $var{managePurchasesTitle} = $i18n->get('manage purchases'); - $var{'purchaseId.label'} = $i18n->echo('Purchase Id'); - $var{'datePurchasedHuman.label'} = $i18n->echo('Purchase Date'); - $sth->finish; - $var{'purchasesLoop'} = \@purchasesLoop; - - return $self->processStyle($self->processTemplate(\%var,$self->getValue("managePurchasesTemplateId"))); -} - -#------------------------------------------------------------------- - -=head2 www_viewPurchase ( ) - -Method to display a purchase. From this screen, admins can -return the whole purchase, return a whole badge (registration, -a.k.a itinerary for a single person), or return a single event -from an itinerary. The purchaser can just add events to -individual registrations that have at least one event that -hasn't occurred yet. - -=cut - -sub www_viewPurchase { - my $self = shift; - return $self->session->privilege->insufficient() unless $self->canView; - my $returnWoStyle = shift; - my $badgeId = shift || $self->session->form->process('badgeId'); - my $tid = $self->session->form->process('tid'); - my %var; - if ($badgeId) { - my %var = $self->session->db->quickHash("select * from EventManagementSystem_badges where badgeId=?",[$badgeId]); - my $isAdmin = $self->canEdit; - my ($userId) = $self->session->db->quickArray("select userId from transaction where transactionId=?",[$tid]); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my @purchasesLoop; - $var{registrantView} = 1; - $var{canReturnTransaction} = 0; - my $filter = ($isAdmin)?'':' and r.returned=0 '; - my $sql2 = "select r.registrationId, p.title, p.description, p.price, p.templateId, p.sku, r.returned, e.approved, e.maximumAttendees, e.startDate, e.endDate, b.userId, b.createdByUserId, e.productId from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_products as e, EventManagementSystem_purchases as z, products as p, transaction where p.productId = r.productId and p.productId = e.productId and r.badgeId=b.badgeId and r.purchaseId=z.purchaseId and r.badgeId=? and transaction.transactionId=z.transactionId and transaction.status='Completed' $filter group by r.registrationId order by e.startDate"; - my $sth2 = $self->session->db->read($sql2,[$badgeId]); - my $purchase = {}; - $purchase->{regLoop} = []; - $purchase->{canReturnItinerary} = 0; - while (my $reg = $sth2->hashRef) { - $reg->{startDateHuman} = $self->session->datetime->epochToHuman($reg->{'startDate'}); - $reg->{endDateHuman} = $self->session->datetime->epochToHuman($reg->{'endDate'}); - $purchase->{canEdit} = 1 if ($isAdmin || ($userId eq $self->session->var->get('userId')) || ($reg->{userId} eq $self->session->var->get('userId')) || ($reg->{createdByUserId} eq $self->session->var->get('userId'))); - my ($isMainEvent) = $self->session->db->quickArray("select productId from EventManagementSystem_products where productId = ? and (prerequisiteId is NULL or prerequisiteId = '')",[$reg->{productId}]); - $purchase->{purchaseEventId} = $reg->{productId} if ($isMainEvent && $reg->{'returned'} eq '0'); - push(@{$purchase->{regLoop}},$reg); - } - push(@purchasesLoop,$purchase); - - if ($self->canEdit) { #Build list of badges made that weren't actually purchased and provide an interface for attaching them to purchases - my @incompleteTransactions; - - # All transactionIds associated with this person (badge) - my $transactionIds = $self->session->db->buildHashRef("select distinct(c.transactionId) from EventManagementSystem_registrations a - join products b on a.productId=b.productId - left join EventManagementSystem_purchases d on a.purchaseId=d.purchaseId - left join transaction c on d.transactionId=c.transactionId where c.transactionId is not NULL and a.badgeId=?",[$badgeId]); - - # All purchaseIds associated with this person (badge) - my @purchaseIds = $self->session->db->buildArray("select distinct(a.purchaseId) from EventManagementSystem_registrations a - join products b on a.productId=b.productId - left join EventManagementSystem_purchases d on a.purchaseId=d.purchaseId - left join transaction c on d.transactionId=c.transactionId where c.transactionId is null and a.badgeId=?",[$badgeId]); - - - foreach my $purchaseId (@purchaseIds) { - my %data; - my $loop = $self->session->db->buildArrayRefOfHashRefs("select a.registrationid, b.title, a.returned, c.transactionId, c.status as transactionStatus, b.sku - from EventManagementSystem_registrations a join products b on a.productId=b.productId - left join EventManagementSystem_purchases d on a.purchaseId=d.purchaseId - left join transaction c on d.transactionId=c.transactionId where (a.badgeId is NULL or c.transactionId is NULL or d.purchaseId is NULL) - and a.badgeId=? and a.purchaseId=?",[$badgeId, $purchaseId]); - - - $data{'purchaseId'} = $purchaseId; - $data{'form.transactionSelect'} = ($purchaseId) ? WebGUI::Form::SelectBox($self->session, {name=>"transactionId", options=>$transactionIds}) : ""; - $data{'form.header'} = WebGUI::Form::formHeader($self->session, {action=>$self->getUrl("func=linkTransactionToPurchase")}). - WebGUI::Form::hidden($self->session, {name=>"purchaseId", value=>$purchaseId}). - WebGUI::Form::hidden($self->session, {name=>"badgeId", value=>$badgeId}); - $data{'form.footer'} = WebGUI::Form::formFooter($self->session); - $data{'form.submit'} = ($purchaseId) ? WebGUI::Form::Submit($self->session, {value=>"Assign Selected Transaction to this Purchase"}) : "Purchase Id is Null and cannot be linked to any transactions!"; - $data{'unpurchased_loop'} = $loop; - $data{'deleteRegistration.url'} = $self->getUrl("func=deleteRegistrationsByPurchaseId;pid=".$purchaseId).";bid=".$badgeId; - $data{'deleteRegistration.label'} = "Delete ALL Registrations associated with this PurchaseId PERMANENTLY"; - $data{'canDeleteRegistration'} = ($purchaseId); - - push(@incompleteTransactions,\%data); - } - - $var{'badgeId'} = $badgeId; - $var{'incompleteTransactions_loop'} = \@incompleteTransactions; - $var{'hasIncompleteTransactions'} = scalar(@incompleteTransactions); - } - - $var{viewPurchaseTitle} = $i18n->get('view purchase'); - $var{canReturn} = $isAdmin; - $var{transactionId} = $tid; - $var{appUrl} = $self->getUrl; - $var{purchasesLoop} = \@purchasesLoop; - return $self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId")) if $returnWoStyle; - return $self->processStyle($self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId"))); - } elsif($tid) { - my $showAll = $self->session->form->get('showAll'); - my $isAdmin = $self->canEdit; - my ($userId) = $self->session->db->quickArray("select userId from transaction where transactionId=?",[$tid]); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $filter = ($isAdmin)?'':' and r.returned=0 '; - my $sql = "select distinct(r.purchaseId), b.* from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_purchases as t, transaction where r.badgeId=b.badgeId and r.purchaseId=t.purchaseId and transaction.transactionId=t.transactionId and t.transactionId=? and transaction.status='Completed' $filter order by b.lastName"; - $sql = "select distinct(r.purchaseId) from EventManagementSystem_registrations as r, EventManagementSystem_purchases as t, transaction where r.purchaseId=t.purchaseId and transaction.transactionId=t.transactionId and t.transactionId=? and transaction.status='Completed' $filter order by b.lastName" if $showAll; - my $sth = $self->session->db->read($sql,[$tid]); - my @purchasesLoop; - $var{canReturnTransaction} = 0; - while (my $purchase = $sth->hashRef) { - $badgeId = $purchase->{badgeId}; - my $pid = $purchase->{purchaseId}; - my $sql2 = "select r.registrationId, p.title, p.description, p.price, p.templateId, p.sku, r.returned, e.approved, e.maximumAttendees, e.startDate, e.endDate, b.userId, b.createdByUserId, e.productId from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_products as e, EventManagementSystem_purchases as z, products as p, transaction where p.productId = r.productId and p.productId = e.productId and r.badgeId=b.badgeId and r.purchaseId=z.purchaseId and r.badgeId=? and r.purchaseId=? $filter and transaction.transactionId=z.transactionId and transaction.status='Completed' group by r.registrationId order by b.lastName"; - $sql2 = "select r.registrationId, p.title, p.description, p.price, p.templateId, r.returned, e.approved, e.maximumAttendees, e.startDate, e.endDate, e.productId from EventManagementSystem_registrations as r, EventManagementSystem_products as e, EventManagementSystem_purchases as z, products as p, transaction where p.productId = r.productId and p.productId = e.productId and r.purchaseId=z.purchaseId and and r.purchaseId=? $filter and transaction.transactionId=z.transactionId and transaction.status='Completed' group by r.registrationId" if $showAll; - my $sth2 = $self->session->db->read($sql2,[$badgeId,$pid]); - $purchase->{regLoop} = []; - $purchase->{canReturnItinerary} = 0; - while (my $reg = $sth2->hashRef) { - $reg->{startDateHuman} = $self->session->datetime->epochToHuman($reg->{'startDate'}); - $reg->{endDateHuman} = $self->session->datetime->epochToHuman($reg->{'endDate'}); - $purchase->{canReturnItinerary} = 1 unless $reg->{'returned'}; - $purchase->{canEdit} = 1 if ($isAdmin || ($userId eq $self->session->var->get('userId')) || ($reg->{userId} eq $self->session->var->get('userId')) || ($reg->{createdByUserId} eq $self->session->var->get('userId'))); - my ($isMainEvent) = $self->session->db->quickArray("select productId from EventManagementSystem_products where productId = ? and (prerequisiteId is NULL or prerequisiteId = '')",[$reg->{productId}]); - $purchase->{purchaseEventId} = $reg->{productId} if ($isMainEvent && $reg->{'returned'} eq '0'); - push(@{$purchase->{regLoop}},$reg); - } - $var{canReturnTransaction} = 1 if $purchase->{canReturnItinerary}; - push(@purchasesLoop,$purchase); - } - - $var{viewPurchaseTitle} = $i18n->get('view purchase'); - $var{canReturn} = $isAdmin; - $var{transactionId} = $tid; - $var{appUrl} = $self->getUrl; - $sth->finish; - $var{purchasesLoop} = \@purchasesLoop; - return $self->processStyle($self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId"))); - } else { - my $isAdmin = $self->canEdit; - my $filter = ($isAdmin)?'':' and r.returned=0 '; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $sql = "select distinct(r.purchaseId), b.* from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_purchases as t, transaction where r.badgeId=b.badgeId and r.purchaseId=t.purchaseId and transaction.transactionId=t.transactionId and transaction.status='Completed' and (b.userId=? or transaction.userId=? or b.createdByUserId=?) $filter order by b.lastName"; - my $userId = $self->session->form->get('userId') || $self->session->var->get('userId'); - my $sth = $self->session->db->read($sql,[$userId,$userId,$userId]); - my @purchasesLoop; - $var{canReturnTransaction} = 0; - while (my $purchase = $sth->hashRef) { - $badgeId = $purchase->{badgeId}; - my $pid = $purchase->{purchaseId}; - my $sql2 = "select r.registrationId, p.title, p.description, p.price, p.templateId, r.returned, e.approved, e.maximumAttendees, e.startDate, e.endDate, b.userId, b.createdByUserId, e.productId from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_products as e, EventManagementSystem_purchases as z, products as p, transaction where p.productId = r.productId and p.productId = e.productId and r.badgeId=b.badgeId and r.purchaseId=z.purchaseId and r.badgeId=? and r.purchaseId=? and transaction.transactionId=z.transactionId and transaction.status='Completed' $filter group by r.registrationId order by b.lastName"; - my $sth2 = $self->session->db->read($sql2,[$badgeId,$pid]); - $purchase->{regLoop} = []; - $purchase->{canReturnItinerary} = 0; - while (my $reg = $sth2->hashRef) { - $reg->{startDateHuman} = $self->session->datetime->epochToHuman($reg->{'startDate'}); - $reg->{endDateHuman} = $self->session->datetime->epochToHuman($reg->{'endDate'}); - $purchase->{canReturnItinerary} = 1 unless $reg->{'returned'}; - $purchase->{canEdit} = 1 if ($isAdmin || ($userId eq $self->session->var->get('userId')) || ($reg->{userId} eq $self->session->var->get('userId')) || ($reg->{createdByUserId} eq $self->session->var->get('userId'))); - my ($isMainEvent) = $self->session->db->quickArray("select productId from EventManagementSystem_products where productId = ? and (prerequisiteId is NULL or prerequisiteId = '')",[$reg->{productId}]); - $purchase->{purchaseEventId} = $reg->{productId} if ($isMainEvent && $reg->{'returned'} eq '0'); - push(@{$purchase->{regLoop}},$reg); - } - $var{canReturnTransaction} = 1 if $purchase->{canReturnItinerary}; - push(@purchasesLoop,$purchase); - } - - $var{viewPurchaseTitle} = $i18n->get('view purchase'); - $var{canReturn} = $isAdmin; - $var{transactionId} = $tid; - $var{appUrl} = $self->getUrl; - $sth->finish; - $var{purchasesLoop} = \@purchasesLoop; - return $self->processStyle($self->processTemplate(\%var,$self->getValue("viewPurchaseTemplateId"))); - } -} - -#------------------------------------------------------------------- - -=head2 www_deleteRegistrationsByPurchaseId - -Method to delete all entries in EMS_registrations associated with a particular purchaseId - -RLJ -- This method is a stop gap to allow GAMA to clean up bad data introduced by early bugs in the system - -=cut - -sub www_deleteRegistrationsByPurchaseId { - my $self = shift; - my $purchaseId = $self->session->form->get("pid"); - my $badgeId = $self->session->form->get("bid"); - - return $self->session->privilege->insufficient unless ($self->canEdit); - - $self->session->db->write("delete from EventManagementSystem_registrations where purchaseId=?",[$purchaseId]); - - return $self->www_viewPurchase(undef, $badgeId); -} - -#------------------------------------------------------------------- - -=head2 www_linkTransactionToPurchase - -Method to create entry in EMS_purchases based on user selected transactionId for a purchaseId - -RLJ -- This method is a stop gap to allow GAMA to clean up bad data introduced by early bugs in the system - -=cut - -sub www_linkTransactionToPurchase { - my $self = shift; - my $transactionId = $self->session->form->process("transactionId", "selectBox"); - my $purchaseId = $self->session->form->get("purchaseId"); - my $badgeId = $self->session->form->get("badgeId"); - - return $self->session->privilege->insufficent unless ($self->canEdit); - - $self->session->db->setRow("EventManagementSystem_purchases", "purchaseId", - { purchaseId => "new", - transactionId => $transactionId, - }, $purchaseId); - - return $self->www_viewPurchase(undef, $badgeId); - -} - -#------------------------------------------------------------------- - -=head2 www_addEventsToBadge ( ) - -Method to go into badge-addition mode. - -=cut - -sub www_addEventsToBadge { - my $self = shift; - my $isAdmin = $self->canEdit; - my $bid = $self->session->form->process('bid') || 'none'; - my $eventId = $self->session->form->process('eventId'); - unless ($bid eq 'none') { - my ($userId,$createdByUserId) = $self->session->db->quickArray("select userId, createdByUserId from EventManagementSystem_badges where badgeId=?",[$bid]); - unless($isAdmin || $userId eq $self->session->user->userId || $createdByUserId eq $self->session->user->userId) { - return $self->session->privilege->insufficient(); - } - $self->session->scratch->set('EMS_add_purchase_badgeId',$bid); - my @pastEvents = $self->session->db->buildArray("select r.productId from EventManagementSystem_registrations as r, EventManagementSystem_purchases as p, transaction as t where r.returned=0 and r.badgeId=? and t.transactionId=p.transactionId and t.status='Completed' and p.purchaseId=r.purchaseId group by productId",[$bid]); - $self->session->scratch->set('EMS_add_purchase_events',join("\n",@pastEvents)); - my $purchaseId = $self->session->form->process('purchaseId'); - if ($purchaseId ne "") { - # if we're loading a badge that's in the cart, put its stuff in the scratch cart along with the already-purchased events for this badgeId. - $self->session->scratch->set("currentPurchase",$purchaseId); - my ($badgeId) - = $self->session->db->quickArray( - "SELECT badgeId FROM EventManagementSystem_sessionPurchaseRef WHERE sessionId=? AND purchaseId=?", - [$self->session->getId,$purchaseId] - ); - my $theseRegs = $self->session->db->buildArrayRefOfHashRefs("select r.*, p.price, q.prerequisiteId from EventManagementSystem_registrations as r, EventManagementSystem_products as q, products as p where p.productId=r.productId and q.productId=r.productId and r.returned=0 and r.badgeId=?",[$badgeId]); - foreach (@$theseRegs) { - push(@pastEvents,$_->{productId}) unless isIn($_->{productId},@pastEvents); - $eventId = $_->{productId} unless $_->{prerequisiteId}; - } - $self->removePurchaseFromCart($purchaseId); - # Remove from the sessionPurchaseRef, it will be added again when - # the user is finished and clicks "Add to cart" again - $self->session->db->write( - "DELETE FROM EventManagementSystem_sessionPurchaseRef WHERE sessionId=? AND purchaseId=? AND badgeId=?", - [$self->session->getId, $purchaseId, $badgeId] - ); - } else { - # gotta use the existing purchaseId, b/c we're loading a completed purchase. - my ($purchaseId) = $self->session->db->quickArray("select purchaseId from EventManagementSystem_registrations where badgeId=? and productId=? and purchaseId != '' and returned=0 and purchaseId is not null limit 1",[$bid,$eventId]); - $self->session->scratch->set("currentPurchase",$purchaseId); - $self->session->db->write( - "REPLACE INTO EventManagementSystem_sessionPurchaseRef (sessionId, purchaseId, badgeId) VALUES (?,?,?)", - [$self->session->getId, $purchaseId, $bid] - ); - } - $self->session->scratch->set('EMS_scratch_cart',join("\n",@pastEvents)); - $self->session->scratch->set('currentMainEvent',$eventId); - $self->session->scratch->set('currentBadgeId',$bid); - return $self->www_search(); - } else { - my $purchaseId = $self->session->form->process('purchaseId'); - if ($purchaseId ne "") { - $self->removePurchaseFromCart($purchaseId); - $self->session->db->write( - "DELETE FROM EventManagementSystem_sessionPurchaseRef WHERE purchaseId=?", - [$purchaseId] - ); - } - } - return $self->www_resetScratchCart(); -} - -#------------------------------------------------------------------- - -=head2 removePurchaseFromCart ( ) - -Method to remove some items from the cart - -=cut - -sub removePurchaseFromCart { - my $self = shift; - my $purchaseId = shift; - my @eventsToSubtract = $self->session->db->buildArray("select r.productId from EventManagementSystem_registrations as r where r.purchaseId=? and r.returned=0",[$purchaseId]); - my $shoppingCart = WebGUI::Commerce::ShoppingCart->new($self->session); - my ($items, $nothing) = $shoppingCart->getItems; - foreach my $event (@eventsToSubtract) { - foreach my $item (@$items) { - if ($item->{item}->{_event}->{productId} eq $event) { - $shoppingCart->setQuantity($event,'Event',($item->{quantity} - 1)); - } - } - } -} -#------------------------------------------------------------------- - -=head2 www_returnItem ( ) - -Method to set some registrations as returned. - -=cut - -sub www_returnItem { - my $self = shift; - my $isAdmin = $self->canEdit; - my $rid = $self->session->form->process('rid'); - my $tid = $self->session->form->process('tid'); - my $pid = $self->session->form->process('pid'); - my @regs; - if ($pid) { - @regs = $self->session->db->buildArray("select registrationId from EventManagementSystem_registrations where purchaseId=?",[$pid]); - } elsif ($tid) { - @regs = $self->session->db->buildArray("select registrationId from EventManagementSystem_purchases as t,EventManagementSystem_registrations as r where r.purchaseId=t.purchaseId and t.transactionId=?",[$tid]); - } elsif ($rid) { - @regs = ($rid); - } - foreach (@regs) { - $self->session->db->write("update EventManagementSystem_registrations set returned=1 where registrationId=?",[$_]); - } - return $self->www_editBadge; -} - - -#------------------------------------------------------------------- - -=head2 www_moveEventDown ( ) - -Method to move an event down one position in display order - -=cut - -sub www_moveEventDown { - my $self = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - $self->moveCollateralDown('EventManagementSystem_products', 'productId', $self->session->form->get("pid")); - return $self->www_search; -} - -#------------------------------------------------------------------- - -=head2 www_moveEventUp ( ) - -Method to move an event up one position in display order - -=cut - -sub www_moveEventUp { - my $self = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - $self->moveCollateralUp('EventManagementSystem_products', 'productId', $self->session->form->get("pid")); - return $self->www_search; -} - -#------------------------------------------------------------------- -sub saveRegistration { - my $self = shift; - my $eventsInCart = $self->getEventsInScratchCart; - my $purchaseId = $self->session->id->generate; - my $badgeId = $self->session->scratch->get('currentBadgeId'); - - my $theirUserId; - my $shoppingCart = WebGUI::Commerce::ShoppingCart->new($self->session); - - my @addingToPurchase = split("\n",$self->session->scratch->get('EMS_add_purchase_events')); - # @addingToPurchase = () if ($self->session->scratch->get('EMS_add_purchase_badgeId') && !($self->session->scratch->get('EMS_add_purchase_badgeId') eq $badgeId)); - my @badgeEvents = $self->session->db->quickArray("select distinct(e.productId) from EventManagementSystem_registrations as r, EventManagementSystem_badges as b, EventManagementSystem_products as e, EventManagementSystem_purchases as z, products as p, transaction where p.productId = r.productId and p.productId = e.productId and r.badgeId=b.badgeId and r.badgeId=? and r.purchaseId !='' and r.purchaseId=z.purchaseId and r.returned=0 and z.transactionId=transaction.transactionId and r.purchaseId is not null and transaction.status='Completed' ",[$badgeId]); - my $addedAny = 0; - foreach my $eventId (@$eventsInCart) { - next if isIn($eventId,@addingToPurchase); - next if isIn($eventId,@badgeEvents); - my $registrationId = $self->setCollateral("EventManagementSystem_registrations", "registrationId",{ - assetId => $self->getId, - registrationId => "new", - purchaseId => $purchaseId, - productId => $eventId, - badgeId => $badgeId, - },0,0); - $shoppingCart->add($eventId, 'Event'); - $addedAny = 1; - } - #Our item plug-in needs to be able to associate these records with the result of the payment attempt - $self->session->db->write( - "INSERT INTO EventManagementSystem_sessionPurchaseRef (sessionId, purchaseId, badgeId) VALUES (?,?,?)", - [$self->session->getId, $purchaseId, $badgeId] - ); - $self->emptyScratchCart; - $self->session->scratch->delete('EMS_add_purchase_badgeId'); - $self->session->scratch->delete('EMS_add_purchase_events'); - $self->session->scratch->delete('currentBadgeId'); - $self->session->scratch->delete('currentMainEvent'); - $self->session->scratch->delete('currentPurchase'); - -# if ($self->session->form->get('checkoutNow')) { -# srand; -# $self->session->http->setRedirect($self->getUrl("op=viewCart;something=".rand(44345552))); -# } -# return 1 if $self->session->form->get('checkoutNow'); - return $self->www_view; -} - -#------------------------------------------------------------------- -sub www_resetScratchCart { - my $self = shift; - $self->emptyScratchCart; - $self->session->scratch->delete('EMS_add_purchase_badgeId'); - $self->session->scratch->delete('EMS_add_purchase_events'); - $self->session->scratch->delete('currentMainEvent'); - $self->session->scratch->delete('currentBadgeId'); - $self->session->db->write( - "DELETE FROM EventManagementSystem_sessionPurchaseRef WHERE purchaseId=?", - [$self->session->scratch->get('currentPurchase')] - ); - $self->session->scratch->delete('currentPurchase'); - return $self->www_view; -} - -#------------------------------------------------------------------- -sub www_saveRegistrantInfo { - my $self = shift; - my ($myBadgeId) = $self->session->db->quickArray("select badgeId from EventManagementSystem_badges where userId=?",[$self->session->var->get('userId')]); - $myBadgeId ||= "new"; # if there is no badge for this user yet, have setCollateral create one, assuming thisIsI. - my $theirBadgeId = $self->session->form->get('badgeId') || "new"; - # ^ if this is "new", the person is not currently logged in, so they - # get a new badgeId no matter what. If someone wants to add registrations - # to an existing badge, they need to log in first. - my $thisIsI = $theirBadgeId eq 'thisIsI'; - my $badgeId = $thisIsI ? $myBadgeId : $theirBadgeId; - my $userId = $thisIsI ? $self->session->var->get('userId') : ''; - my $firstName = $self->session->form->get("firstName", "text"); - my $lastName = $self->session->form->get("lastName", "text"); - my $address = $self->session->form->get("address", "text"); - my $city = $self->session->form->get("city", "text"); - my $state = $self->session->form->get("state", "text"); - my $zipCode = $self->session->form->get("zipCode", "text"); - my $country = $self->session->form->get("country", "selectBox"); - my $phoneNumber = $self->session->form->get("phone", "phone"); - my $email = $self->session->form->get("email", "email"); - my $addingNew = ($badgeId eq 'new') ? 1 : 0; - - # Check required fields - my @error_loop; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $requiredFieldRef = { 'first name' => $firstName, 'last name' => $lastName, 'email address' => $email }; - - foreach my $requiredField (keys %{$requiredFieldRef} ) { - my $fieldValue = $requiredFieldRef->{$requiredField}; - - # generate i18n error message for a null field that tells the user which field is null using the i18n label for that field - if ($fieldValue eq "") { - push(@error_loop, { - error => sprintf($i18n->get('null field error'), lc($i18n->get($requiredField))), - }); - } - } - return $self->processStyle($self->processTemplate($self->getRegistrationInfo(\@error_loop),$self->getValue("checkoutTemplateId"))) - if ( scalar(@error_loop) > 0 ); - - my $details = { - badgeId => $badgeId, # if this is "new", setCollateral will return the new one. - assetId => $self->getId, - firstName => $firstName, - lastName => $lastName, - address => $address, - city => $city, - state => $state, - zipCode => $zipCode, - country => $country, - phone => $phoneNumber, - email => $email - }; - $details->{userId} = $userId if ($userId && $userId ne '1'); - $details->{createdByUserId} = $self->session->var->get('userId') if ($addingNew && $userId ne '1'); - $badgeId = $self->setCollateral("EventManagementSystem_badges", "badgeId",$details,0,0); - - my ($theirUserId) = $self->session->db->quickArray("select userId from EventManagementSystem_badges where badgeId=?",[$badgeId]); - $userId = $theirUserId unless $thisIsI; - if ($userId && $userId ne '1') { - my $u = WebGUI::User->new($self->session,$userId); - $u->profileField('firstName',$firstName) if ($firstName ne ""); - $u->profileField('lastName',$lastName) if ($lastName ne ""); - $u->profileField('homeAddress',$address) if ($address ne ""); - $u->profileField('homeCity',$city) if ($city ne ""); - $u->profileField('homeState',$state) if ($state ne ""); - $u->profileField('homeZip',$zipCode) if ($zipCode ne ""); - $u->profileField('homeCountry',$country) if ($country ne ""); - $u->profileField('homePhone',$phoneNumber) if ($phoneNumber ne ""); - $u->profileField('email',$email) if ($email ne ""); - } - - $self->session->scratch->set('currentBadgeId',$badgeId); - my $nameOfEventAdded = $self->getEventName($self->session->scratch->get('currentMainEvent')); - return $self->www_view(); -} - - -#------------------------------------------------------------------- -sub www_search { - my $self = shift; - return $self->session->privilege->noAccess() unless $self->canView; - my %var; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - $var{badgeSelected} = $self->session->scratch->get('currentMainEvent'); - $var{resetScratchCartUrl} = $self->getUrl("func=resetScratchCart"); - my $masterEventId = $var{badgeSelected}; - my $badgeHolderId = $self->session->scratch->get("currentBadgeId"); # primary key to EMS_badges containing all the attendees info - - if ($masterEventId && !$badgeHolderId) { - # something is wrong; they must have skipped the badge choice step. - return $self->www_editRegistrantInfo(); - } - - $self->addCartVars(\%var); - - # Get the current sort order and persist it until the user changes it - my $sortKey = $self->session->form->get("sortKey") || $self->session->scratch->get("EMS_sortKey") || "sequenceNumber"; - $self->session->scratch->set("EMS_sortKey", $sortKey); - - # Parse our sort key into some mysql friendly lingo - my ($orderBy, $direction) = split('_',$sortKey); - - # Build our sort list - my %sortSelect; - tie %sortSelect, 'Tie::IxHash'; - - %sortSelect = ( - 'sequenceNumber' => $i18n->echo('Default'), - 'title' => $i18n->echo('Alphabetical A to Z'), - 'title_desc' => $i18n->echo('Alphabetical Z to A'), - 'startDate' => $i18n->echo('Earliest Start Times to Latest'), - 'startDate_desc' => $i18n->echo('Latest Start Times to Earliest'), - 'endDate' => $i18n->echo('Earliest End Times to Latest'), - 'endDate_desc' => $i18n->echo('Latest End Times to Earliest'), - 'price' => $i18n->echo('Lowest Price to Highest'), - 'price_desc' => $i18n->echo('Highest Price to Lowest'), - ); - - $var{'sortForm.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl()}). - WebGUI::Form::hidden($self->session,{name=>"func", value=>"search"}). - WebGUI::Form::hidden($self->session,{name=>"searchKeywords", value=>$self->session->form->get("searchKeywords")}); - #WebGUI::Form::hidden($self->session,{name=>"pn", value=>$self->session->form->get("pn")}). - - for (0..25) { - if ($self->session->form->get("cfilter_s".$_) ne "") { - $var{'sortForm.header'} .= WebGUI::Form::hidden($self->session,{name=>"cfilter_s".$_, value=>$self->session->form->get("cfilter_s".$_)}). - WebGUI::Form::hidden($self->session,{name=>"cfilter_c".$_, value=>$self->session->form->get("cfilter_c".$_)}). - WebGUI::Form::hidden($self->session,{name=>"cfilter_t".$_, value=>$self->session->form->get("cfilter_t".$_)}); - } - } - $var{'sortForm.header'} .= WebGUI::Form::hidden($self->session,{name=>"advSearch", value=>1}); - $var{'sortForm.selectBox'} = WebGUI::Form::selectBox($self->session,{name=>'sortKey', options=>\%sortSelect, value => $sortKey}); - $var{'sortForm.selectBox.label'} = $i18n->echo('Sort By'); - $var{'sortForm.submit'} = WebGUI::Form::submit($self->session,{value=>$i18n->echo('Sort')}); - $var{'sortForm.footer'} = WebGUI::Form::formFooter($self->session); - - # Get all the attendees details - $var{badgeHolderInfo_loop} = $self->session->db->buildArrayRefOfHashRefs("select * from EventManagementSystem_badges where badgeId=?",[$badgeHolderId]); - - # Get all the events they have in the badge so far - my $eventsInBadge = $self->getEventsInScratchCart; - - # Get all the info about these events and set the template vars - my @selectedEvents_loop; - my @pastEvents = $self->session->db->buildArray("select r.productId from EventManagementSystem_registrations as r, EventManagementSystem_purchases as p, transaction as t where r.returned=0 and r.badgeId=? and t.transactionId=p.transactionId and t.status='Completed' and p.purchaseId=r.purchaseId group by productId",[$badgeHolderId]); - foreach my $eventId (@$eventsInBadge) { - if ($eventId eq $masterEventId) { - $var{'mainEventTitle'} = $self->getEventName($eventId); - next; - } - my $eventData = $self->session->db->quickHashRef("select p.productId, p.title, p.description, p.price, p.weight, p.sku, p.skuTemplate, e.startDate, e.endDate, e.maximumAttendees, e.approved - from products as p, EventManagementSystem_products as e where p.productId = e.productId and p.productId=?",[$eventId]); - $eventData->{'startDateHuman'} = $self->session->datetime->epochToHuman($eventData->{'startDate'}); - $eventData->{'endDateHuman'} = $self->session->datetime->epochToHuman($eventData->{'endDate'}); - $eventData->{'removeEventFromBadge.url'} = $self->getUrl("func=removeFromScratchCart;pid=".$eventData->{'productId'}. - ";searchKeywords=".$self->session->form->get("searchKeywords"). - ";pn=".$self->session->form->get("pn")) unless isIn($eventData->{'productId'},@pastEvents); - push(@selectedEvents_loop, $eventData); - } - $var{'eventsInBadge_loop'} = \@selectedEvents_loop; - #these allow us to show a specific page of subevents after an add to scratch cart - my $eventAdded = shift; - my $cfilter_t0 = shift; - my $cfilter_s0 = shift; - my $cfilter_c0 = shift; - my $pn; - my $subSearchFlag; - my $showAllFlag; - my $addToBadgeMessage; - if ($eventAdded) { - #$showAllFlag = 1; - $addToBadgeMessage = sprintf $i18n->get('add to badge message'), $eventAdded; - } - if ($var{badgeSelected}) { - # always filter by a main event if we have one selected. - $cfilter_t0 = $self->session->scratch->get('currentMainEvent'); - $subSearchFlag = 1; - $cfilter_s0 = "requirement"; - $cfilter_c0 = "eq"; - $pn = 1 || $self->session->form->get("pn"); - } - - my $keywords = $self->session->form->process("searchKeywords",'text'); - my @keys; - my $joins; - my $selects; - my @joined; - - - - my $language = $i18n->getLanguage(undef,"languageAbbreviation"); - $var{'calendarJS'} = ''; - - push(@keys,$keywords) if $keywords; - unless ($keywords =~ /^".*"$/) { - foreach (split(" ",$keywords)) { - push(@keys,$_) unless $keywords eq $_; - } - } else { - $keywords =~ s/"//g; - @keys = ($keywords); - } - my $searchPhrases; - if (scalar(@keys)) { - my $count = 0; - foreach my $word (@keys) { - if ($count) { - if ($word =~ m/^\d+$/) { # searching for a bunch of skus, so let's do an or instead - $searchPhrases .= ' or '; - } - else { - $searchPhrases .= ' and '; - } - } - my $val = $self->session->db->quote('%'.$word.'%'); - $searchPhrases .= "(p.title like $val or p.description like $val or p.sku like $val)"; - $count++; - } - } - my $basicSearch = $searchPhrases; - my %reqHash; - my $seatsAvailable = 'none'; - my $seatsCompare; - if ($self->session->form->get("advSearch") || $self->session->form->get("subSearch") || $subSearchFlag) { - my $fields = $self->_getFieldHash(); - my $count = 0; - if ($basicSearch ne "") { - $count = 1; - } - for (my $cfilter = 0; $cfilter < 50; $cfilter++) { - my $value; - my $fieldId; - my $compare; - - # filter 0 is reserved for passing a search filter via the url - # or as parameters to this method call. All user selectable filters - # begin with number 1, i.e., cfilter_t1, cfilter_s1, cfilter_c1 - # - if ($cfilter_t0 && $cfilter_s0 && $cfilter_c0 && $pn) { # a filter was passed as params to the method call - if ($cfilter == 0) { #don't want to overwrite the user filters - $value = $cfilter_t0; - $fieldId = $cfilter_s0; - $compare = $cfilter_c0; - } - } - - $value = $self->session->form->get("cfilter_t".$cfilter) unless ($value); - $fieldId = $self->session->form->get("cfilter_s".$cfilter) unless ($fieldId); - if ($fieldId eq 'requirement') { - $reqHash{$value} = 1 if $value; - } - if ($fieldId eq 'seatsAvailable') { - $seatsAvailable = $value if ($value || $value eq '0'); - $seatsCompare = $self->session->form->get("cfilter_c".$cfilter); - } - # temporary - next if ($fieldId eq 'seatsAvailable' || $fieldId eq 'requirement'); - # end temporary - next unless (($value || $value =~ /^0/) && defined $fields->{$fieldId}); - $compare = $self->session->form->get("cfilter_c".$cfilter) unless ($compare); - #Format Value with Operator - $value =~ s/%//g; - my $field = $fields->{$fieldId}; - if ($field->{type} =~ /^date/i) { - $value = $self->session->datetime->setToEpoch($value); - } else { - $value = lc($value); - } - my $compareType = $field->{compare}; - if($compare eq "eq") { - $value = "=".$self->session->db->quote($value); - } elsif($compare eq "ne"){ - $value = "<>".$self->session->db->quote($value); - } elsif($compare eq "notlike") { - $value = "not like ".$self->session->db->quote("%".$value."%"); - } elsif($compare eq "starts") { - $value = "like ".$self->session->db->quote($value."%"); - } elsif($compare eq "ends") { - $value = "like ".$self->session->db->quote("%".$value); - } elsif($compare eq "gt") { - $value = "> ".$value; - } elsif($compare eq "lt") { - $value = "< ".$value; - } elsif($compare eq "lte") { - $value = "<= ".$value; - } elsif($compare eq "gte") { - $value = ">= ".$value; - } elsif($compare eq "like") { - $value = " like ".$self->session->db->quote("%".$value."%"); - } - $searchPhrases .= " and " if($count); - $count++; - my $isMeta = $field->{metadata}; - my $phrase; - if ($isMeta) { - unless(WebGUI::Utility::isIn($fieldId,@joined)) { - $joins .= " left join EMSEventMetaData joinedField$count on e.productId=joinedField$count.productId and joinedField$count.fieldId='$fieldId'"; - push(@joined,$fieldId); - } - $phrase = " joinedField".$count.".fieldData "; - $searchPhrases .= " ".$phrase." ".$value; - } else { - $phrase = $field->{tableName}.'.'.$field->{columnName}; - if ($compareType ne 'numeric') { - $searchPhrases .= " lower(".$phrase.") ".$value; - } else { - $searchPhrases .= " ".$phrase." ".$value; - } - } - } - } - $searchPhrases &&= " and ( ".$searchPhrases." )"; - # Get the products available for sale for this page - my $approvalPhrase = ($self->canApproveEvents)?' ':' and approved=1'; - my $sql = "select p.productId, p.title, p.description, p.price, p.templateId, p.weight, p.sku, p.skuTemplate, e.approved, e.maximumAttendees, e.startDate, e.endDate, e.prerequisiteId $selects - from products as p, EventManagementSystem_products as e - $joins - where - p.productId = e.productId $approvalPhrase - and e.assetId =".$self->session->db->quote($self->get("assetId")).$searchPhrases. " order by $orderBy $direction"; - $var{'basicSearch.formHeader'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl("func=search;advSearch=0",method=>'GET')}). - WebGUI::Form::hidden($self->session,{name=>"subSearch", value => $self->session->form->get("subSearch")}). - WebGUI::Form::hidden($self->session,{name => "cfilter_s0", value => "requirement"}). - WebGUI::Form::hidden($self->session,{name => "cfilter_c0", value => "eq"}). - WebGUI::Form::hidden($self->session,{name => "cfilter_t0", value => ($self->session->form->get("cfilter_t0") || $cfilter_t0)}); - $var{'advSearch.formHeader'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl("func=search;advSearch=1"),method=>'GET'}). - WebGUI::Form::hidden($self->session,{name => "cfilter_s0", value => "requirement"}). - WebGUI::Form::hidden($self->session,{name => "cfilter_c0", value => "eq"}). - WebGUI::Form::hidden($self->session,{name => "cfilter_t0", value => ($self->session->form->get("cfilter_t0") || $cfilter_t0)}); - $var{isAdvSearch} = $self->session->form->get('advSearch'); - $var{'search.formFooter'} = WebGUI::Form::formFooter($self->session); - $var{'search.formSubmit'} = WebGUI::Form::submit($self->session, {name=>"filter",value=>$i18n->get('filter')}); - my $searchUrl = $self->getUrl("a=1"); #a=1 is a hack to get the ? appended to the url in the right place. This param/value does nothing. - my $formVars = $self->session->form->paramsHashRef(); - my @paramsUsed; - foreach ($self->session->form->param) { - $searchUrl .= ';'.$_.'='.$formVars->{$_} if (($_ ne 'pn') && ($formVars->{$_} || $formVars->{$_} eq '0') && !isIn(@paramsUsed, $_) && $_ ne "a"); - push (@paramsUsed, $_); - } - my $p = WebGUI::Paginator->new($self->session,$searchUrl,$self->get("paginateAfter")); - my (@results, $sth, $data); - $sth = $self->session->db->read($sql); - while ($data = $sth->hashRef) { - my $shouldPush = 1; - my $eventId = $data->{productId}; - my $requiredList = - ($data->{prerequisiteId}) - ?$self->getAllPossibleRequiredEvents($data->{prerequisiteId}) - :[]; - if ($seatsAvailable ne 'none') { - my ($numberRegistered) = $self->session->db->quickArray("select count(*) from EventManagementSystem_registrations as r, EventManagementSystem_purchases as p, transaction as t where t.transactionId=p.transactionId and t.status='Completed' and r.purchaseId = p.purchaseId and r.returned=0 and r.productId=".$self->session->db->quote($eventId)); - if($seatsCompare eq "eq") { - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered == $seatsAvailable); - } elsif($seatsCompare eq "ne"){ - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered != $seatsAvailable); - } elsif($seatsCompare eq "gt") { - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered > $seatsAvailable); - } elsif($seatsCompare eq "lt") { - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered < $seatsAvailable); - } elsif($seatsCompare eq "lte") { - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered <= $seatsAvailable); - } elsif($seatsCompare eq "gte") { - $shouldPush = 0 unless ($data->{'maximumAttendees'} - $numberRegistered >= $seatsAvailable); - } - } - foreach (keys %reqHash) { - $shouldPush = 0 unless isIn($_,@{$requiredList}); - } - push(@results,$data) if $shouldPush; - } - $sth->finish; - my $maxResultsForInitialDisplay = 500; - my $numSearchResults = scalar(@results); - @results = () unless ( ($numSearchResults <= $maxResultsForInitialDisplay) || ($self->session->form->get("advSearch") || $self->session->form->get("searchKeywords") || $showAllFlag)); - $p->setDataByArrayRef(\@results); - my $eventData = $p->getPageData($pn); - my @events; - foreach my $event (@$eventData) { - my %eventFields; - - $eventFields{'title'} = $event->{'title'}; - $eventFields{'description'} = $event->{'description'}; - $eventFields{'price'} = '$'.$event->{'price'}; - $eventFields{'sku'} = $event->{'sku'}; - $eventFields{'skuTemplate'} = $event->{'skuTemplate'}; - $eventFields{'weight'} = $event->{'weight'}; - my ($numberRegistered) = $self->session->db->quickArray("select count(*) from EventManagementSystem_registrations as r, EventManagementSystem_purchases as p, transaction as t where t.transactionId=p.transactionId and t.status='Completed' and r.purchaseId = p.purchaseId and r.returned=0 and r.productId=".$self->session->db->quote($event->{'productId'})); - $eventFields{'numberRegistered'} = $numberRegistered; - $eventFields{'maximumAttendees'} = $event->{'maximumAttendees'}; - $eventFields{'seatsRemaining'} = $event->{'maximumAttendees'} - $numberRegistered; - $eventFields{'startDate.human'} = $self->session->datetime->epochToHuman($event->{'startDate'}); - $eventFields{'startDate'} = $event->{'startDate'}; - $eventFields{'endDate.human'} = $self->session->datetime->epochToHuman($event->{'endDate'}); - $eventFields{'endDate'} = $event->{'endDate'}; - $eventFields{'productId'} = $event->{'productId'}; - $eventFields{'eventIsFull'} = ($eventFields{'seatsRemaining'} <= 0); - $eventFields{'eventIsApproved'} = ($event->{'approved'} eq "1"); - $eventFields{'eventIsPending'} = ($event->{'approved'} eq "-1"); - $eventFields{'eventIsCanceled'} = ($event->{'approved'} eq "-2"); - $eventFields{'eventIsDenied'} = ($event->{'approved'} eq "0"); - $eventFields{'eventState.label'} = $self->getEventStateLabel($event->{approved}); - $eventFields{'manageToolbar'} = $self->session->icon->delete('func=deleteEvent;pid='.$event->{productId}, $self->get('url'), - $i18n->get('confirm delete event')). - $self->session->icon->edit('func=editEvent;pid='.$event->{productId}, $self->get('url')). - $self->session->icon->moveUp('func=moveEventUp;pid='.$event->{productId}, $self->get('url')). - $self->session->icon->moveDown('func=moveEventDown;pid='.$event->{productId}, $self->get('url')); - - if ($eventFields{'eventIsFull'}) { - $eventFields{'purchase.label'} = $i18n->get('sold out'); - } - else { - $eventFields{'purchase.label'} = $i18n->get('add to cart'); - } - my $masterEventId = $cfilter_t0 || $self->session->form->get("cfilter_t0"); - $eventFields{'purchase.url'} = -$self->getUrl('func=addToScratchCart;pid='.$event->{'productId'}.";mid=".$masterEventId.";pn=".$self->session->form->get("pn").";searchKeywords=".$self->session->form->get("searchKeywords")); - %eventFields = ('event' => $self->processTemplate(\%eventFields, $event->{'templateId'}), %eventFields) if ($self->{_calledFromView} && $self->session->form->process('func') eq 'view'); - push (@events, \%eventFields); - } - - $var{'events_loop'} = \@events; - $p->setAlphabeticalKey('title'); - $var{'paginateBar'} = $p->getBarTraditional; - $p->appendTemplateVars(\%var); - $var{'manageEvents.url'} = $self->getUrl('func=search'); - $var{'manageEvents.label'} = $i18n->get('manage events'); - $var{'managePurchases.url'} = $self->getUrl('func=managePurchases') if $self->session->var->get('userId') ne '1'; - $var{'managePurchases.label'} = $i18n->get('manage purchases'); - $var{'noSearchDialog'} = ($self->session->form->get('hide') eq "1") ? 1 : 0; - $var{'addEvent.url'} = $self->getUrl('func=editEvent;pid=new'); - $var{'addEvent.label'} = $i18n->get('add event'); - $var{'canManageEvents'} = $self->canEdit(); - my $message; - $subSearchFlag = $self->session->form->get("subSearch") || ($self->session->form->get("func")); - my $advSearchFlag = $self->session->form->get("advSearch"); - my $basicSearchFlag = $self->session->form->get("searchKeywords"); - my $paginationFlag = $self->session->form->get("pn") || $pn; - my $hasSearchedFlag = ($self->session->form->get("filter")); - - #Determine type of search results we're displaying - if ($subSearchFlag && ($numSearchResults <= $maxResultsForInitialDisplay || $paginationFlag || $hasSearchedFlag)) { - if ($self->canEdit) { #Admin manage sub events small resultset - $message = $i18n->get('Admin manage sub events small resultset'); - } else { #User sub events small resultset - $message = $i18n->get("User sub events small resultset"); - } - } elsif ($subSearchFlag && $numSearchResults > $maxResultsForInitialDisplay && !$paginationFlag) { - if ($self->canEdit) { #Admin manage sub events large resultset - $message = $i18n->get('Admin manage sub events large resultset'); - } else { #User sub events large resultset - $message = $i18n->get('User sub events large resultset'); - } - } elsif ($numSearchResults <= $maxResultsForInitialDisplay || $paginationFlag || $hasSearchedFlag) { - $message = $i18n->get('option to narrow'); - } elsif ($numSearchResults > $maxResultsForInitialDisplay && !$paginationFlag) { - $message = $i18n->get('forced narrowing'); - } - - my $somethingInScratch = scalar(@{$self->getEventsInScratchCart}); - $var{'message'} = $message; - $var{'numberOfSearchResults'} = $numSearchResults; - $var{'continue.url'} = $self->getUrl('func=addToCart;pid=_noid_') if $somethingInScratch; - $var{'checkoutNow.url'} = $self->getUrl('func=addToCart;pid=_noid_;checkoutNow=1') if $somethingInScratch; - $var{'continue.label'} = $i18n->get("continue") if $somethingInScratch; - $var{'name.label'} = $i18n->get("event"); - $var{'starts.label'} = $i18n->get("starts"); - $var{'ends.label'} = $i18n->get("ends"); - $var{'price.label'} = $i18n->get("price"); - $var{'seats.label'} = $i18n->get("seats available"); - $var{'addToBadgeMessage'} = $addToBadgeMessage; - $var{'manageRegistrants'} = $self->getUrl("func=searchBadges"); - $var{'emptyCart.url'} = $self->getUrl("func=emptyCart"); - $var{'checkout.url'} = $self->getUrl("func=checkout"); - - - $self->buildMenu(\%var); - $var{'ems.wobject.dir'} = $self->session->url->extras("wobject/EventManagementSystem"); - - return $self->processStyle($self->processTemplate(\%var,$self->getValue("searchTemplateId"))); -} - - - - -#------------------------------------------------------------------- -sub viewOLD { - my $self = shift; - my %var; - return $self->session->privilege->noAccess() unless $self->canView; - # If we're at the view method there is no reason we should have anything in our scratch cart - # so let's empty it to prevent strange and awful things from happening -# unless ($self->session->scratch->get('EMS_add_purchase_badgeId')) { -# $self->emptyScratchCart; -# $self->session->scratch->delete('EMS_add_purchase_events'); -# } - - $self->addCartVars(\%var); - - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - # Get the products available for sale for this page - my $sql = "select p.productId, p.title, p.description, p.price, p.weight, p.sku, p.skuTemplate, p.templateId, e.approved, e.maximumAttendees - from products as p, EventManagementSystem_products as e - where - p.productId = e.productId and approved=1 - and e.assetId =".$self->session->db->quote($self->get("assetId"))." - and (e.prerequisiteId is NULL or e.prerequisiteId = '') order by sequenceNumber"; - - my $p = WebGUI::Paginator->new($self->session,$self->getUrl,$self->get("paginateAfter")); - $p->setDataByQuery($sql); - my $eventData = $p->getPageData; - my @events; - - #We are getting each events information, passing it to the *events* template and processing it - #The html returned from each events template is returned to the Event Manager Display Template for arranging - #how the events are displayed in relation to one another. - foreach my $event (@$eventData) { - my %eventFields; - - $eventFields{'title'} = $event->{'title'}; - $eventFields{'title.url'} = $self->getUrl('func=search;cfilter_s0=requirement;cfilter_c0=eq;subSearch=1;cfilter_t0='.$event->{'productId'}); - $eventFields{'description'} = $event->{'description'}; - $eventFields{'price'} = '$'.$event->{'price'}; - $eventFields{'sku'} = $event->{'sku'}; - $eventFields{'skuTemplate'} = $event->{'skuTemplate'}; - $eventFields{'weight'} = $event->{'weight'}; - my ($numberRegistered) = $self->session->db->quickArray("select count(*) from EventManagementSystem_registrations as r, EventManagementSystem_purchases as p, transaction as t where t.transactionId=p.transactionId and t.status='Completed' and r.purchaseId = p.purchaseId and returned=0 and r.productId=".$self->session->db->quote($event->{'productId'})); - $eventFields{'numberRegistered'} = $numberRegistered; - $eventFields{'maximumAttendees'} = $event->{'maximumAttendees'}; - $eventFields{'seatsRemaining'} = $event->{'maximumAttendees'} - $numberRegistered; - $eventFields{'eventIsFull'} = ($eventFields{'seatsRemaining'} <= 0); - $eventFields{'canManageEvents'} = $self->canApproveEvents; - $eventFields{'eventIsApproved'} = $event->{'approved'}; - - if ($eventFields{'eventIsFull'}) { - $eventFields{'purchase.label'} = $i18n->get('sold out'); - } - else { - $eventFields{'purchase.label'} = $i18n->get('add to cart'); - } - $eventFields{'purchase.url'} = $self->getUrl('func=addToScratchCart;mid='.$event->{'productId'}.';pid='.$event->{'productId'}); - $eventFields{'purchase.message'} = $i18n->get('see available subevents'); - $eventFields{'purchase.wantToSearch.url'} = $self->getUrl('func=search;cfilter_s0=requirement;cfilter_c0=eq;subSearch=1;cfilter_t0='.$event->{productId}); - $eventFields{'purchase.wantToContinue.url'} = $self->getUrl('func=addToCart;pid='.$event->{productId}); - - push (@events, {'event' => $self->processTemplate(\%eventFields, $event->{'templateId'}) }); - } - $var{'checkout.url'} = $self->getUrl('func=checkout'); - $var{'checkout.label'} = $i18n->get('checkout'); - $var{'events_loop'} = \@events; - $var{'paginateBar'} = $p->getBarTraditional; - $var{'manageEvents.url'} = $self->getUrl('func=search'); - $var{'manageEvents.label'} = $i18n->get('manage events'); - $var{'managePurchases.url'} = $self->getUrl('func=managePurchases'); - $var{'managePurchases.label'} = $i18n->get('manage purchases'); - $var{'canManageEvents'} = $self->canApproveEvents; - $var{'manageRegistrants.url'} = $self->getUrl("func=searchBadges"); - $var{'emptyCart.url'} = $self->getUrl("func=emptyCart"); - - - $p->appendTemplateVars(\%var); - -# my $templateId = $self->get("displayTemplateId"); - - return $self->processTemplate(\%var, undef, $self->{_viewTemplate}); -} - -#------------------------------------------------------------------- - -sub www_searchBadges { - my $self = shift; - my $session = $self->session; - my $db = $session->db; - my $query = $session->form->param("query"); - my $searchForm = WebGUI::Form::formHeader($session, {action=>$self->getUrl}) - .WebGUI::Form::hidden($session, {name=>"func", value=>"searchBadges"}) - .WebGUI::Form::text($session, {name=>"query", value=>$query, extras=>q|title="First Name, Last Name, Badge ID, or Email Address"|}) - .WebGUI::Form::submit($session, {value=>"Search"}) - .WebGUI::Form::formFooter($session); - my $results = ""; - if ($query ne "") { - $session->style->setRawHeadTags(q| - - |); - $results = "

You searched for: $query

"; - my $wildQuery = '%'.$query.'%'; - my $badges = $db->read("select badgeId, lastName, firstName, city, state, email from EventManagementSystem_badges - where assetId=? and (lastName like ? or firstName like ? or email like ? or badgeId like ?) - order by lastName, firstName", [$self->getId, $wildQuery, $wildQuery, $wildQuery, $wildQuery]); - $results .= q||; - while (my ($badgeId, $last, $first, $city, $state, $email) = $badges->array) { - # Get the transaction that processed this badge - my $events = $db->read(q|select b.productId, c.sku, c.title, c.price, g.gateway, - from_unixtime(d.startDate,"%a %M:%i"), from_unixtime(d.endDate,"%a %H:%i") - from EventManagementSystem_registrations b left join products c on c.productId=b.productId - left join EventManagementSystem_products d ON d.productId=b.productId - left join EventManagementSystem_purchases f ON b.purchaseId=f.purchaseId - left join transaction g ON f.transactionId=g.transactionId and g.status="Completed" - where b.assetId=? and b.returned='0' and b.badgeId=? and g.gateway IS NOT NULL - order by d.startDate,d.endDate,c.title|,[$self->getId, $badgeId]); - - # Make sure the transation is complete before we display this badge - next unless $events->rows; - - $results .= q||; - $results .= qq| - |; - $results .= q||; - while (my ($productId, $sku, $title, $price, $gateway, $start, $end) = $events->array) { - $results .= qq| - |; - } - $results .= q||; - $results .= q||; - } - $results .= q|
NameLocationEmailBadge ID
$last, $first$city, $state$email$badgeId
$sku : $title$start - $end($gateway) $price
|.$searchForm; - } - return $self->processStyle("

Search Badges

".$searchForm.$results); -} - -#------------------------------------------------------------------- - -=head2 www_managePrereqSets ( ) - -Method to display the prereq set management console. - -=cut - -sub www_managePrereqSets { - my $self = shift; - - return $self->session->privilege->insufficient unless ($self->canEdit); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - - my $output; - my $sth = $self->session->db->read("select prerequisiteId, name from EventManagementSystem_prerequisites order by name"); - - if ($sth->rows) { - - while (my %row = $sth->hash) { - $output .= "
"; - $output .= $self->session->icon->delete('func=deletePrereqSet;psid='.$row{prerequisiteId}, $self->get('url'), - $i18n->get('confirm delete prerequisite set')). - $self->session->icon->edit('func=editPrereqSet;psid='.$row{prerequisiteId}, $self->get('url')). - " ".$row{name}."
"; - } - } else { - $output .= $i18n->get('no sets to display'); - } - $self->getAdminConsole->addSubmenuItem($self->getUrl('func=editPrereqSet;psid=new'), $i18n->get('add prerequisite set')); - - return $self->_acWrapper($output, $i18n->get("manage prerequisite sets")); -} - - -#------------------------------------------------------------------- -sub www_editPrereqSet { - my $self = shift; - my $psid = shift || $self->session->form->process("psid") || 'new'; - my $error = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $f = WebGUI::HTMLForm->new($self->session, ( - action => $self->getUrl("func=editPrereqSetSave;psid=".$psid) - )); - my $data = {}; - if ($error) { - # load submitted data. - $data = { - name => $self->session->form->process("name"), - requiredEvents => $self->session->form->process("requiredEvents",'selectList'), - }; - $f->readOnly( - -name => 'error', - -label => $i18n->get('error'), - -value => ''.$error.'', - ); - } elsif ($psid eq 'new') { - $data->{name} = $i18n->get('type name here'); - $data->{operator} = 'or'; - } else { - $data = $self->session->db->quickHashRef("select * from EventManagementSystem_prerequisites where prerequisiteId=?",[$psid]); - } - $f->text( - -name => "name", - -label => $i18n->get('prereq set name field label'), - -hoverHelp => $i18n->get('prereq set name field description'), - -extras=>(($data->{name} eq $i18n->get('type name here'))?' style="color:#bbbbbb" ':'').' onblur="if(!this.value){this.value=\''.$i18n->get('type name here').'\';this.style.color=\'#bbbbbb\';}" onfocus="if(this.value == \''.$i18n->get('type name here').'\'){this.value=\'\';this.style.color=\'\';}"', - -value => $data->{name}, - ); - $f->radioList( - -name=>"operator", - -vertical=>1, - -label=>$i18n->get('operator type'), - -hoverHelp => $i18n->get('operator type description'), - -options=>{ - 'or'=>$i18n->get('any'), - 'and'=>$i18n->get('all'), - }, - -value=>$data->{operator} - ); - my $conditionalWhere = ""; - if ($self->get("globalPrerequisites") == 0) { - $conditionalWhere = "and e.assetId=".$self->session->db->quote($self->getId); - } - $f->checkList( - -name=>"requiredEvents", - -vertical=>1, - -label=>$i18n->get('events required by this prerequisite set'), - -hoverHelp => $i18n->get('events required by description'), - -options=>$self->session->db->buildHashRef("select p.productId, p.title - from products as p, EventManagementSystem_products as e - where - p.productId = e.productId - $conditionalWhere - and (e.prerequisiteId is NULL or e.prerequisiteId = '')"), - -value=>$self->session->db->buildArrayRef("select requiredProductId from EventManagementSystem_prerequisiteEvents where prerequisiteId=?",[$psid]) - ); - $f->submit; - return $self->_acWrapper($f->print, $i18n->get("edit prerequisite set")); -} - -#------------------------------------------------------------------- -sub www_editPrereqSetSave { - my $self = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $error = ''; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - foreach ('name') { - if ($self->session->form->get($_) eq "" || - $self->session->form->get($_) eq $i18n->get('type name here')) { - $error .= sprintf($i18n->get('null field error'),$_)."
"; - } - } - return $self->www_editPrereqSet(undef,$error) if $error; - my $psid = $self->session->form->process('psid'); - $psid = $self->setCollateral("EventManagementSystem_prerequisites", "prerequisiteId",{ - prerequisiteId=>$psid, - assetId=>$self->getId, - name => $self->session->form->process("name"), - operator => $self->session->form->process("operator",'radioList') - },0,0); - $self->session->db->write("delete from EventManagementSystem_prerequisiteEvents where prerequisiteId=?",[$psid]); - my @newRequiredEvents = $self->session->form->process('requiredEvents','checkList'); - foreach (@newRequiredEvents) { - $self->session->db->write("insert into EventManagementSystem_prerequisiteEvents values (?,?)",[$psid,$_]); - } - - # Rebuild the EMS Cache - WebGUI::Workflow::Instance->create($self->session, { - workflowId=>'EMSworkflow00000000001', - className=>"none", - priority=>1 - }); - - return $self->www_managePrereqSets(); -} - -sub getPrintingVariables { - my $self = shift; - my $registrationId = shift; - my %event = $self->session->db->quickHash( - "select * from products a - join EventManagementSystem_products b on a.productId=b.productId - join EventManagementSystem_registrations c on b.productId=c.productId - join EventManagementSystem_badges d on c.badgeId=d.badgeId - join EventManagementSystem_purchases f on c.purchaseId=f.purchaseId - join transaction g on f.transactionId=g.transactionId - where c.registrationId=?", - [$registrationId]); - $event{emsTitle} = $self->getTitle; - my %meta = $self->session->db->buildHash( - "select name,fieldData from EMSEventMetaData a - join EMSEventMetaField b on a.fieldId=b.fieldId - where productId=?", - [$event{productId}]); - my %var = (%meta, %event); - return \%var; -} - -sub www_printBadge { - my $self = shift; - my $var = $self->getPrintingVariables($self->session->form->param("registrationId")); - return $self->processTemplate($var,$self->get("badgePrinterTemplateId")); -} - -sub www_printTicket { - my $self = shift; - my $var = $self->getPrintingVariables($self->session->form->param("registrationId")); - return $self->processTemplate($var,$self->get("ticketPrinterTemplateId")); -} - -#------------------------------------------------------------------- -sub www_editBadge { - my $self = shift; - my $badgeId = shift || $self->session->form->process("badgeId") || 'new'; - my $error = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $f = WebGUI::HTMLForm->new($self->session, action => $self->getUrl("func=editBadgeSave;badgeId=".$badgeId)); - my $data = {}; - if ($error) { - # load submitted data. - $data = { - userId => $self->session->var->get('userId'), - firstName => $self->session->form->get("firstName", "text"), - lastName => $self->session->form->get("lastName", "text"), - 'address' => $self->session->form->get("address", "text"), - city => $self->session->form->get("city", "text"), - state => $self->session->form->get("state", "text"), - zipCode => $self->session->form->get("zipCode", "text"), - country => $self->session->form->get("country", "selectBox"), - phoneNumber => $self->session->form->get("phone", "phone"), - email => $self->session->form->get("email", "email") - }; - $f->readOnly( - -name => 'error', - -label => $i18n->get('error'), - -value => ''.$error.'', - ); - } elsif ($badgeId eq 'new') { - # - } else { - $data = $self->session->db->quickHashRef("select * from EventManagementSystem_badges where badgeId=?",[$badgeId]); - } - $f->readOnly( - name=>'nullBadge', - label=>$i18n->get('badge id'), - value=>$badgeId - ); - my $u; - my $username; - if ($data->{userId}) { - $u = WebGUI::User->new($self->session,$data->{userId}); - $username = $u->username; - } - $f->user( - name=>'userId', - label=>$i18n->get('associated user'), - hoverHelp=>$i18n->get('associated user description'), - value=>$data->{userId}, - subtext=>' -' - ); - if ($data->{userId} ne 'new' && $data->{createdByUserId} && $data->{createdByUserId} ne '1') { - $f->user( - name=>'createdByUserId', - label=>$i18n->get('created by'), - hoverHelp=>$i18n->get('created by description'), - readOnly=>1, - value=>$data->{createdByUserId} - ); - } - $f->text( - name=>'firstName', - label=>$i18n->get("first name"), - value=>$data->{firstName} - ); - $f->text( - name=>'lastName', - label=>$i18n->get("last name"), - value=>$data->{lastName} - ); - $f->text( - name=>'address', - label=>$i18n->get("address"), - value=>$data->{address} - ); - $f->text( - name=>'city', - label=>$i18n->get("city"), - value=>$data->{city} - ); - $f->text( - name=>'state', - label=>$i18n->get("state"), - value=>$data->{state} - ); - $f->text( - name=>'zipCode', - label=>$i18n->get("zip code"), - value=>$data->{zipCode} - ); - $f->country( - name=>'country', - label=>$i18n->get("country"), - value=>$data->{country} || 'United States' - ); - $f->phone( - name=>'phone', - label=>$i18n->get("phone number"), - value=>$data->{phone} - ); - $f->email( - name=>'email', - label=>$i18n->get("email address"), - value=>$data->{email} - ); - $f->submit; - my $tickets = q||; - my $events = $self->session->db->read(q|select b.productId, c.sku, c.title, c.price, g.gateway, - from_unixtime(d.startDate), from_unixtime(d.endDate), d.prerequisiteId, b.registrationId, - f.transactionId - from EventManagementSystem_registrations b left join products c on c.productId=b.productId - left join EventManagementSystem_products d ON d.productId=b.productId - left join EventManagementSystem_purchases f ON b.purchaseId=f.purchaseId - left join transaction g ON f.transactionId=g.transactionId - where b.assetId = ? and b.returned='0' and b.badgeId=? - order by d.startDate,d.endDate,c.title|,[$self->getId, $badgeId]); - my $ticker = 1; - while (my ($productId, $sku, $title, $price, $gateway, $start, $end, $prereq, $registrationId, $transactionId) = $events->array) { - my $isMaster = ($prereq eq ""); - my $class = ($ticker) ? q|oddEvent| : q|evenEvent|; - $class = "masterEvent" if $isMaster; - $tickets .= qq| - - |; - if ($isMaster) { - $tickets .= qq| - - - |; - } - else { - $tickets .= qq| - - |; - } - $tickets .= qq| - - |; - $ticker = ($ticker == 1) ? 0 : 1; - } - $tickets .= q|
$sku : $title$start - $end($gateway) $price
- - -
- -
- -
- - -
|; - $self->session->style->setRawHeadTags(q| - - |); - return $self->processStyle("

Edit Badge

".$f->print.$tickets); -} - -#------------------------------------------------------------------- -sub www_editBadgeSave { - my $self = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $error = ''; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - foreach ('firstName','lastName','email') { - if ($self->session->form->get($_) eq "") { - $error .= sprintf($i18n->get('null field error'),$_)."
"; - } - } - return $self->www_editBadge(undef,$error) if $error; - my $badgeId = $self->session->form->process('badgeId'); - my $userId = $self->session->form->get("userId", "user"); - my $firstName = $self->session->form->get("firstName", "text"); - my $lastName = $self->session->form->get("lastName", "text"); - my $address = $self->session->form->get("address", "text"); - my $city = $self->session->form->get("city", "text"); - my $state = $self->session->form->get("state", "text"); - my $zipCode = $self->session->form->get("zipCode", "text"); - my $country = $self->session->form->get("country", "selectBox"); - my $phoneNumber = $self->session->form->get("phone", "phone"); - my $email = $self->session->form->get("email", "email"); - $userId = '' if $userId eq '1'; - my $addingNew = ($userId eq 'new') ? 1 : 0; - my $details = { - badgeId => $badgeId, # if this is "new", setCollateral will return the new one. - assetId => $self->getId, - firstName => $firstName, - lastName => $lastName, - 'address' => $address, - city => $city, - state => $state, - zipCode => $zipCode, - country => $country, - phone => $phoneNumber, - email => $email - }; - $details->{userId} = $userId; - $details->{createdByUserId} = $self->session->var->get('userId') if ($addingNew && $userId); - $badgeId = $self->setCollateral("EventManagementSystem_badges", "badgeId",$details,0,0); - if ($userId) { - my $u; - if ($addingNew) { - $u = WebGUI::User->new($self->session,'new'); - my $uid = lc($firstName).".".lc($lastName); - $uid =~ s/\s//g; # fix potential space problems in UID. - my ($uidIsTaken) = $self->session->db->quickArray("select count(userId) from users where username=?",[$uid]); - while($uidIsTaken) { - if($uid =~ /(.*)(\d+$)/){ - $uid = $1.($2+1); - } else { - $uid .= "1"; - } - ($uidIsTaken) = $self->session->db->quickArray("select count(userId) from users where username=?",[$uid]); - } - $u->username($uid); - $u->authMethod("WebGUI"); - my $auth = WebGUI::Auth::WebGUI->new($self->session,"WebGUI",$u->userId); - my $authprops = {}; - $authprops->{changePassword} = 1; - $authprops->{changeUsername} = 0; - my $len = $self->session->setting->get("webguiPasswordLength") || 6; - my $password = ""; - srand(); - for(my $i = 0; $i < $len; $i++) { - $password .= chr(ord('A') + randint(32)); - } - $authprops->{identifier} = Digest::MD5::md5_base64($password); - $auth->saveParams($u->userId,"WebGUI",$authprops); - $self->setCollateral("EventManagementSystem_badges", "badgeId",{badgeId=>$badgeId,userId=>$u->userId},0,0); - } else { - $u = WebGUI::User->new($self->session,$userId); - } - if (ref($u) eq 'WebGUI::User') { - $u->profileField('firstName',$firstName) if ($firstName ne ""); - $u->profileField('lastName',$lastName) if ($lastName ne ""); - $u->profileField('homeAddress',$address) if ($address ne ""); - $u->profileField('homeCity',$city) if ($city ne ""); - $u->profileField('homeState',$state) if ($state ne ""); - $u->profileField('homeZip',$zipCode) if ($zipCode ne ""); - $u->profileField('homeCountry',$country) if ($country ne ""); - $u->profileField('homePhone',$phoneNumber) if ($phoneNumber ne ""); - $u->profileField('email',$email) if ($email ne ""); - } - } - return $self->www_searchBadges(); -} - - - -#------------------------------------------------------------------- - -=head2 www_manageDiscountPasses ( ) - -Method to display the discount pass management console. - -=cut - -sub www_manageDiscountPasses { - my $self = shift; - - return $self->session->privilege->insufficient unless ($self->canEdit); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - - my $output; - my $sth = $self->session->db->read("select * from EventManagementSystem_discountPasses order by name"); - - if ($sth->rows) { - while (my $data = $sth->hashRef) { - $output .= "
"; - # $output .= $self->session->icon->delete('func=deleteDiscountPass;psid='.$data->{passId}, $self->get('url')); - $output .= $self->session->icon->edit('func=editDiscountPass;passId='.$data->{passId}, $self->get('url')). - "  ".$data->{name}."  (".$data->{type}." ".$data->{amount}." )
"; - } - } - $self->getAdminConsole->addSubmenuItem($self->getUrl('func=editDiscountPass;passId=new'), $i18n->get('add discount pass')); - return $self->_acWrapper($output, $i18n->get("manage discount passes")); -} - - -#------------------------------------------------------------------- -sub www_editDiscountPass { - my $self = shift; - my $passId = shift || $self->session->form->process("passId") || 'new'; - my $error = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - my $f = WebGUI::HTMLForm->new($self->session, ( - action => $self->getUrl("func=editDiscountPassSave;passId=".$passId) - )); - my $data = {}; - if ($error) { - # load submitted data. - $data = { - name => $self->session->var->get('name'), - type => $self->session->form->get("type", "radioList"), - amount => $self->session->form->get("amount", "text") - }; - $f->readOnly( - -name => 'error', - -label => $i18n->get('error'), - -value => ''.$error.'', - ); - } elsif ($passId eq 'new') { - # - } else { - $data = $self->session->db->quickHashRef("select * from EventManagementSystem_discountPasses where passId=?",[$passId]); - } - $f->readOnly( - name=>'nullPass', - label=>$i18n->get('discount pass id'), - hoverHelp=>$i18n->get('discount pass id description'), - value=>$passId - ); - $f->text( - name=>'name', - label=>$i18n->get("pass name"), - hoverHelp=>$i18n->get("pass name description"), - value=>$data->{name} - ); - $f->radioList( - name=>'type', - options=>{ - percentOff => $i18n->get("percent off"), - newPrice => $i18n->get("new price"), - amountOff => $i18n->get("amount off") - }, - label=>$i18n->get("discount pass type"), - hoverHelp=>$i18n->get("discount pass type description"), - value=>$data->{type} || 'newPrice' - ); - $f->float( - name=>'amount', - label=>$i18n->get("discount amount"), - hoverHelp=>$i18n->get("discount amount description"), - value=>$data->{amount} || '0.00' - ); - $f->submit; - return $self->_acWrapper($f->print, $i18n->get("edit discount pass")); -} - -#------------------------------------------------------------------- -sub www_editDiscountPassSave { - my $self = shift; - return $self->session->privilege->insufficient unless ($self->canEdit); - my $error = ''; - my $i18n = WebGUI::International->new($self->session,'Asset_EventManagementSystem'); - foreach ('name','type') { - if ($self->session->form->get($_) eq "") { - $error .= sprintf($i18n->get('null field error'),$_)."
"; - } - } - return $self->www_editDiscountPass(undef,$error) if $error; - my $passId = $self->session->form->process('passId'); - my $type = $self->session->form->get("type", "radioList"); - my $name = $self->session->form->get("name", "text"); - my $amount = $self->session->form->get("amount", "float"); - my $details = { - passId => $passId, # if this is "new", setCollateral will return the new one. - type => $type, - amount => $amount, - name => $name - }; - $passId = $self->setCollateral("EventManagementSystem_discountPasses", "passId",$details,0,0); - return $self->www_manageDiscountPasses(); -} - - -#------------------------------------------------------------------- - -=head2 www_view ( ) - -Returns the view() method of the asset object if the requestor canView. - -=cut - -sub www_view { - my $self = shift; - return $self->www_search() if $self->session->scratch->get('currentMainEvent'); - $self->{_calledFromView} = 1; - my $check = $self->checkView; - return $check if (defined $check); - $self->session->http->setLastModified($self->get("revisionDate")); - $self->session->http->sendHeader; - $self->prepareView; - my $style = $self->processStyle("~~~"); - my ($head, $foot) = split("~~~",$style); - $self->session->output->print($head, 1); - $self->session->output->print($self->view); - $self->session->output->print($foot, 1); - return "chunked"; -} - - 1; diff --git a/lib/WebGUI/Form/CheckList.pm b/lib/WebGUI/Form/CheckList.pm index d6bd41838..62ba6001f 100644 --- a/lib/WebGUI/Form/CheckList.pm +++ b/lib/WebGUI/Form/CheckList.pm @@ -146,8 +146,6 @@ sub toHtml { } my $i=0; my $options = $self->getOptions; - $self->session->errorHandler->warn(JSON->new->encode($options)); - foreach my $key (keys %{$options}) { $i++; my @values = $self->getDefaultValue; diff --git a/lib/WebGUI/Shop/TransactionItem.pm b/lib/WebGUI/Shop/TransactionItem.pm index 6bc14d2a9..81b6e8c44 100644 --- a/lib/WebGUI/Shop/TransactionItem.pm +++ b/lib/WebGUI/Shop/TransactionItem.pm @@ -223,7 +223,6 @@ sub update { $newProperties->{ configuredTitle } = $sku->getConfiguredTitle; $newProperties->{ isRecurring } = $sku->isRecurring; $newProperties->{ recurInterval } = $sku->getRecurInterval if $sku->isRecurring; - my $address = $item->getShippingAddress; $newProperties->{ shippingAddressId } = $address->getId; $newProperties->{ shippingAddressName } = $address->get('name'); diff --git a/lib/WebGUI/i18n/English/Asset_EventManagementSystem.pm b/lib/WebGUI/i18n/English/Asset_EventManagementSystem.pm index b5c93b4e6..258412000 100644 --- a/lib/WebGUI/i18n/English/Asset_EventManagementSystem.pm +++ b/lib/WebGUI/i18n/English/Asset_EventManagementSystem.pm @@ -213,7 +213,7 @@ our $I18N = { }, 'lookup registrant template' => { - message => q|Lookup Registrant|, + message => q|Lookup Registrant Template|, lastUpdated => 0, context => q|a property label|, }, @@ -224,6 +224,30 @@ our $I18N = { context => q|help for a property label|, }, + 'print badge template' => { + message => q|Print Badge Template|, + lastUpdated => 0, + context => q|a property label|, + }, + + 'print badge template help' => { + message => q|Which template would you like to use for printing badges?|, + lastUpdated => 0, + context => q|help for a property label|, + }, + + 'print ticket template' => { + message => q|Print Ticket Template|, + lastUpdated => 0, + context => q|a property label|, + }, + + 'print ticket template help' => { + message => q|Which template would you like to use for printing tickets?|, + lastUpdated => 0, + context => q|help for a property label|, + }, + 'badge builder template' => { message => q|Badge Builder Template|, lastUpdated => 0, @@ -314,6 +338,54 @@ our $I18N = { context => q|a property label|, }, + 'print' => { + message => q|Print|, + lastUpdated => 0, + context => q|a link label|, + }, + + 'checked in' => { + message => q|Checked In|, + lastUpdated => 0, + context => q|used in registration management to alert staff whether user has already picked up badge|, + }, + + 'not checked in' => { + message => q|Not Checked In|, + lastUpdated => 0, + context => q|used in registration management to alert staff whether user has already picked up badge|, + }, + + 'mark as not checked in' => { + message => q|Mark As Not Checked In|, + lastUpdated => 0, + context => q|a link label|, + }, + + 'mark as checked in' => { + message => q|Mark As Checked In|, + lastUpdated => 0, + context => q|a link label|, + }, + + 'refund' => { + message => q|Refund|, + lastUpdated => 0, + context => q|a link label|, + }, + + 'add more items' => { + message => q|Add More Items|, + lastUpdated => 0, + context => q|a link label|, + }, + + 'notes' => { + message => q|Notes|, + lastUpdated => 0, + context => q|a property label for registrant notes|, + }, + 'ribbon instructions help' => { message => q|Give the user some help on what to do with a ribbon.|, lastUpdated => 0,