From 537bd17224151ff314ba83e422fc920920e3e0f9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 27 Mar 2009 15:59:25 -0700
Subject: [PATCH] Install a default template for friend manager view.

---
 sbin/installFriendManager.pl                  |  56 +++++++++++++++++-
 .../root_import_account_friendmanager.wgpkg   | Bin 1464 -> 1425 bytes
 2 files changed, 53 insertions(+), 3 deletions(-)

diff --git a/sbin/installFriendManager.pl b/sbin/installFriendManager.pl
index d8c880b93..7fe2c77ac 100644
--- a/sbin/installFriendManager.pl
+++ b/sbin/installFriendManager.pl
@@ -89,15 +89,65 @@ sub finish {
     my $session = shift;
     
     ## If your script is adding or changing content you need these lines, otherwise leave them commented
-    #
-    # my $versionTag = WebGUI::VersionTag->getWorking($session);
-    # $versionTag->commit;
+    updateTemplates($session);
+    my $versionTag = WebGUI::VersionTag->getWorking($session);
+    $versionTag->commit;
     ##
     
     $session->var->end;
     $session->close;
 }
 
+#-------------------------------------------------
+sub updateTemplates {
+    my $session = shift;
+    my $packageDir = "packages";
+    return undef unless (-d $packageDir);
+    print "\tUpdating packages.\n";
+    opendir(DIR,$packageDir);
+    my @files = readdir(DIR);
+    closedir(DIR);
+    my $newFolder = undef;
+    foreach my $file (@files) {
+        next unless ($file =~ /\.wgpkg$/);
+        # Fix the filename to include a path
+        $file       =  $packageDir . "/" . $file;
+        addPackage( $session, $file );
+    }
+}
+
+sub addPackage {
+    my $session     = shift;
+    my $file        = shift;
+
+    # Make a storage location for the package
+    my $storage     = WebGUI::Storage->createTemp( $session );
+    $storage->addFileFromFilesystem( $file );
+
+    # Import the package into the import node
+    my $package = WebGUI::Asset->getImportNode($session)->importPackage( $storage );
+
+    # Make the package not a package anymore
+    $package->update({ isPackage => 0 });
+    
+    # Set the default flag for templates added
+    my $assetIds
+        = $package->getLineage( ['self','descendants'], {
+            includeOnlyClasses  => [ 'WebGUI::Asset::Template' ],
+        } );
+    for my $assetId ( @{ $assetIds } ) {
+        my $asset   = WebGUI::Asset->newByDynamicClass( $session, $assetId );
+        if ( !$asset ) {
+            print "Couldn't instantiate asset with ID '$assetId'. Please check package '$file' for corruption.\n";
+            next;
+        }
+        $asset->update( { isDefault => 1 } );
+    }
+
+    return;
+}
+
+
 __END__
 
 
diff --git a/sbin/packages/root_import_account_friendmanager.wgpkg b/sbin/packages/root_import_account_friendmanager.wgpkg
index 7e2e57a433742971201b5f3f6779b3dd60d79c01..3ae43b1abf21e2da27a819b7bedd4560b8efd901 100644
GIT binary patch
literal 1425
zcmV;C1#bEuiwFP!00000|Ls_9Q`<%m=5v0<jq|0QDM+$~<vNrZ7eXN~lmwHcEiH4F
z4*Nj9Q|?Z7+)Vy^_fE3zY-0xpm}zFv2U%$EcK7z>*+*<`JpASReiUtQZ0O%+Xnunb
zeo=M#8$l2>8}%><qHqHRfnWDG5Nvt)E0+oja4qI3W!KB?<&p@wT&xcVmpPpIU9t54
zBr;wH^Y`L~A8cJo&hG3kXm6HzzbXG=6g1}YA4YX31Bm9sUk{c4t%rC0J}i8G0!>(x
ziVNH)HPl9b{r!`9l?k2^p(v61ty!j5#)4o)l3yqKZLLu=i?txdQa%5aaRJhf*~9WQ
zt;En}%IL3Uc`v1MKoYx`k@0)V5<WIceJhX?#xqG5)$uVS;tX2yD4BPJd{P1*5}b5#
z-)yYy=*~t1K`wteul@5}%jFN=B&S|4r)lC{a;9W)-yBl56-)W!vkIHs2SHL$A=M-$
zZ~~&vYe-Ep0`C-<^<d+9ZTFnrXwceAFa!hlQsQAL37D4Gl))Vjy-HL%aX$t#+@}mf
zju#D9qV){I8D%VJrjQh|6IFZ2T+x*3^6{!CK$9x2ZrHBy2p8Il=zT@A#w1VQOtKuE
zMW*hcxeA6?J-IgSpjqct@?6Bkq_}vry6>pDD5k1*tX?!zp0|zj=9u*QRd>*!#XNm;
z(+8nm;j^v|-6Jz=isnF1O=$ZFqt6ItE*EX|RF9v8JVRg5Q%SIh2k4TEAuLF!%u+mQ
zBg&wM&59k*sD>^(XBH?-Bb8Xt4AsZemcPH<_|t#EJF*^ssK0w-*XANMm?1b<9vy1P
z@^BpUoGI^8P{NWSW`Ksm8&NX0`=~smNkZ5>NKttrxZ*k<^P;}sd3KaMPpC4Y&}vg;
z2uCY1aVMc86a$1x=q2c(O^pbf00>1xC|G)ta-Jch&^&6Gkr`&yHX}O5Ljrqt%#INj
z#RmO$7Xk;%^)|24XZ`})yVftt21HPGCej1JhbLGNR`~9~vd%?0E^71C!8hDtN+7IW
zb2{ya3B-HS`|a$g-R@`rY`449V9d^oy#Z$ZWy9t*Pv|9uF`@@iP;az?R@4fc)}o>+
zEvy}wtiCR?irzt1(W1pNS6XURMphG*I)fUq3u9ISdCHEt0!L!3C|{_JAz^uUJwNoM
z%!|Q=Gnm37cT$=<Kc)Ycj)eZU^(Dgs2I8vlw%do@*RK|jPUR~eUrz%)Gq<VSCzm)+
ziy8>5H8ar51UV^aHS3N`f{dtyu<TC@-Q+0>8}*s!p5XYpswc<9fRB&Z0YE_!4#zr!
zLV|LRi#T-3?w!fAXEIq86k)NLWa{JwI|}zp=(yUv`Vel57Z>4p`yd*eiR0ka+rIUP
z%F~I2&NT;i8p51&8b6m6LFE`ubW`mZD)qJCKvJOrOZW1|n;?35e1u1D&$3VZ7axy4
zjxRbj&DXv>`SMM4a9R7_5A!cv0voINe?4k0@c(+V`N;pjDWPj_T9^Nq6WL;#)0E%g
zx4{h7xg=sqt5tAvYZ76>LjuwGT_hz$cTV@LXogxi5nVwoG_V4r-^1~Mbm@@rynyIN
z(|3Sro`3{(Yt-<l=`bh}=Hyq+4Gbt$x2B`-HtZlF1%aQA!<}q*YDH>dhtz<e0;<t;
zCYSsRWoZtdDmz~0FcNpt-0<Cb3oc^Mypn~y=e;Wu106ZwsZLXsZ2fJ!Hr<$>&8k_!
zFusLHEE-sYIy72tR+rCzH~8z0`9`?ivZseyzIn{UJT**sMF~cZo(CP|x<@-{Ho!fi
zfYPOD@qZ2{R`)sTX9F}d>fao)X7^`t7QK}0wDCvezuY_SI!q)Jlo>{Psz0=*{k1%V
f@c-32@q{(U%H#6K2s}pMJBYx4-tTp{02%-QLod0N

literal 1464
zcmV;p1xNZHiwFP!00000|Ls^?Q`<Nc=DEK@lfLZEEclWTL&`D}ZY8CqbQ9XWu-j2=
zkq8{gmE?qMhyT7uvSTX=NePsh?hJl#j3u2Toy+%qW@GK?FV}U0U~_Fv|JG~f*Q>!V
zDlT`;^SpZ1cQ-c!e+_w_>%$K$dHO4r3Jcg;$YaW`7yC;k5pwacJ{(-;aOQW()E{Zc
z?An{XXD?iD<4SV&=<R~_dY<>Y@?Q%)e<uI6z~5X$5Y4B*o+|$vPrvo=;o<8GXu^tA
zT;Lw5pa%Nu?_bQTMDT<NMTyjJ%``nT6a*_0?Tz)@idQj{^+1fJI=o4^fYGK|!_qh|
zhM~)pv0q8jZcJsLMCDpWMxQ8)_{bP_%K<rNJdt$X93L?v&Y>k+ky%qM*N__}@G-$r
z2lvdv%8u@A)EDIP*Ne(Ohk9K8<cw45bW<8f&Lw9`X7}|0WgDTCKffxl$$k(d1`|?^
zV*)22>Y{?wI3e&(fm;U_UQ~83*qshbe-VaY;BHJDEF}Tg@|rTZ<AGBQ<(v3E4ins?
z3`36R9Tr2YIfOIHP|!pnDMBl%<snl=W2(!?DV_jLin!WgyTU`9S<9mL4a*vn9DOs%
zvTSCVdW7X77*6qI`*?(9oma_I5fYQ)?6I`{NXuC<6}3~^MN{Q@-#D+2NVivX2lcj?
zqi=TlAk<6ttgA!!$kd#yInYZJ+8)B_D+12tqJds&`iaOZbc<d}f<@Rzms|{BLPTW}
z<8cE~20d(M>^R0WblC+fo8B~1js^9a`qJKV4>qfRx^H+>`r+^X#}DP)RKx}|1n0`3
z0}WXY4nv+Y<y;C%STw*4&`>x-N=D^6DvxOt5jG1_RGta0xQ@r{P*3nQX+?(-Rc5GG
zT2o{IN6RsBC!#|X0)$HFCFr4bjR@-i2w6iYnEE;9JVC~wdDJi?6U>TbX6O_T2&~yL
zD~4EP3-sGv2pmk;%bdcV`3rpSmiwZtPXtxxB0ds)aE1k8+1@Q!*15>(qB1KTT%#Q(
z0;05QPNz3w0`ZA-U!S)cjiv^`Mx!$c#x!5-_c7}gWMg5xCYyIWqL&nC#1N5R-SUE3
z)elOKimEvCc4V^pF3T$V2w6q*9`ju3QDf4wM5WH4M(oU4=>zhVoN@&l39+Jlt~LgQ
zrJdFGp_wwxhzlpc!b6)WO`W&tzxhULp2ffk7C?y0!rN#Zciz37KRT6fd3Zeu^b~JX
zc|b048qd{$A@n>!#^?5Su)PiP-KrBohEzgS4kmT(-H|3}9~@p6<z&US&qpnG1W1rY
z!#XO1I)Z8rvoJLC=ABBjV-i`^6JenkC+h4DKMMD9<oI~ieLwcDUN@_q!@YxOeB!?m
zNweG$mF=;F#x>`iJ?A8RwkU$aF_P%6(lJWvTfu>xLjUF4ORFEe;N-N0hrgXCHwT};
zw7!f!H!E7M-M+Yem>OKvzTZdrXL|x4%k;k=)aUfSUk{%3|HCr6+NxFcf6mAyrdeG%
z{cSJ<*FWaB!4%fnB4R<W6?k%Q5mBOt1flU>L^(t^+xz9vl(euSx<p!NWCcaPkHbFc
z&;j9T2GP~JYa!FD0P+0NsnJmrGRPt3Y)@+g0}92hZrQt!I*3Rn;3ssrlk85sNG<G;
z>JyY<HJWg8uD?(cr|_w=<0O_Mv6&|S?zC&`9$KV4^HLS^iFdC^2y*0z$2v_#vKPpW
zYHf3?oHQ#pCTA;WEKwK_(Gl|wR*(+Wt$Mk!CH!v(e?^*~4$nfG2R=1Icu55YR+#Ta
z<os=Y{CbaEkB9q*<Zwj7S}SZ%N%^~pT(@X5PWre@6ezkl&i>6|HGq*c1=U-1_yDS(
z4$u_Ue>i6K&bBxYP9$qr{|MZZ{nJjb%vd5QGlI0Ozq2OowK#<E@72fYgw<H(dG>Pz
So+I#oh`@g)uNhYW8UO&mZ_JGV