From f7ebd6189a9f665711e3e1068d7418c88cd62db5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 4 Mar 2009 18:11:57 +0000
Subject: [PATCH] Beginnings of an edit form for the Story.

---
 .../root_import_storymanager.wgpkg            | Bin 0 -> 768 bytes
 .../root_import_storymanager_editstory.wgpkg  | Bin 0 -> 918 bytes
 lib/WebGUI/Asset/Story.pm                     |  64 ++++++++++++++++--
 lib/WebGUI/Asset/Wobject/StoryArchive.pm      |   4 +-
 4 files changed, 60 insertions(+), 8 deletions(-)
 create mode 100644 docs/upgrades/packages-7.7.0/root_import_storymanager.wgpkg
 create mode 100644 docs/upgrades/packages-7.7.0/root_import_storymanager_editstory.wgpkg

diff --git a/docs/upgrades/packages-7.7.0/root_import_storymanager.wgpkg b/docs/upgrades/packages-7.7.0/root_import_storymanager.wgpkg
new file mode 100644
index 0000000000000000000000000000000000000000..7590d20490517484f85d0cd2edc7acb1f78ff98c
GIT binary patch
literal 768
zcmV+b1ONOViwFP!00000|Ls*<PunmQ&NIKF%JT+E+qATAg~7@;pi|35n)cu(htxE&
zE!&}F6aRg-)70h?u?LVq!VgXAb9^q}_Z?^3d;JvzK|hK-Pd$TPV4h*O>v^rs3cN53
zqfXTBN8P|{h00$&)REU;g^-A=(hx)O0-Ey`0=Q^4o92R`YEnPn$<mwzq5X}*?Q22F
zi&n3q_cY%+%M<*!drBPl`R_!%w$}<?w2Fpcuf_j%L%uh*{dY?Zp)VxmC<VVYZ2kKE
z$!sxB8E}a~=w0KcJrgWghRPY1nQ`|+-}q}=%mGPA_DX%i?^r{Iggm%qlq>7V#3MzP
zZO*9)lvOZR%rh(&kl3>XRu`BgbY+4D)*wnknZS?3(G>xHrpEOsc~}VCN{+^Wk{L=L
zA4EccTpzlktMOHOy8I?bw~3H_UZgXc+Uy0-OmI%A+`+l-ZAYV6=7=aHx%CvvbjlO8
zrBNA8_pJ$wF-{U7#^L~p#e`EyWyva7oUU)Mz$(qYzN}_A2U^Ig$zI@irJNS*C^<-Q
zWewXlsgPv`GsqQ<64u>L_N4l+=hLp96AzOGa4gSwcF1WyK^#aG*zrj~#2hn;sp;o2
z!}|+F(kJDC39QxUoBa3gBU^c_bR<qtUV(A}^RH(|!{JD?HXL5i`8CAq<&b6??2Wp#
z_>O6UudtGprXXy0df{$&5ITs<jh?5P#Mbdc7T1WLW2l7Kw+X}&vlA*+f*94^`wlQU
zkiyPOLwr30g^{F>n3}yCcLt0wr}$6Rcqfc(ax8w(cv+*`2)b!}Fz62kQNQif#z6~;
zk}vfHJ_U}FBZ`+bLoRC1tEj(gYXuVXlF3OO$*Du4w3gy(%s&UyA{=+-mp?Bri_Z7+
z(aHwFVp<9bx#`G>pvP>Ku?3ogR77N1bqhHjrq>!N_j<yjx}4Cw;ZA!FAZ7-lZeY*Q
yWd}*WIrGOjCQ_%G{@);~FQcz-<h!lAH}>uLDCYx#4+P#f0{;LG4Azza4gdh~k$g4)

literal 0
HcmV?d00001

diff --git a/docs/upgrades/packages-7.7.0/root_import_storymanager_editstory.wgpkg b/docs/upgrades/packages-7.7.0/root_import_storymanager_editstory.wgpkg
new file mode 100644
index 0000000000000000000000000000000000000000..96fc86fd3b669b35c51a3b6569af01adbccfb0d4
GIT binary patch
literal 918
zcmV;H18MvpiwFP!00000|Ls;=PunmQ?lZq4%JW2%Ug+9&NM*pv28@js#KttaiJN$J
z>|i@BVdB5<*h!mEE}Jxp_E1aU%E#yS`JC@$v$Fc-I8Lk8tW@;A)iAr;fZbXwr{cP9
zv)*jfS}mtyxvo=dRxD6i{Ys=l0z&gRC2aDzzeHjo9~bN7V4391{>0V)No1mSi~r61
z_vTN@*)s(S*0=I^f9U-iwOV88{h<zO6${W@{aV%gZ>~P{=kV}r1Dep5iVGBA+v-@~
zzP~a@vEVTlieRZv%{6_~6BsG%@1*+Fc5QQ63n-Fm?>goJq&=g<5=s|h=rU#O+i^0Y
zM26TebQzwV6Xx@oG3pconKB+ra^D=EF)W7Ak_W!gsTVr<S_#z0$RD8Kz9Nzmt6XWX
zu5P~mya}TVeoTAmN$u>sUjJNJN(42=1?Q?tBAr`RBb7#o0a~JpeWJ`kp+jV!_&#RK
znGks*xZ)~}GZacm27)K?fxidFj8>ztrf?L~IdI)E!PJNFEf2t!Z!c}_|5OKbX>VV$
zF2w<6{&rV^(vK+;)|iWEKorH>-D)m`Yj?yNC@i$LPo~BQ8eyvMn;p(&j9AI0()RYj
zFx)YsOx2Pqr5IxJC`O`VjkpTmKv>;sZg;-_r5l-yUdYoZ1>%2!j41bzBAl%ry9rKb
zT=;VJo@5e5NTjQG6p|pM@TdMIsXK+g4^5pFes$hgQ2s^h5f)-W)KJiU!J`u-Fw5Gr
z)VaEFa@w?u5$c!`Iv=EkMbov%D9Q-n9FN`)4?3NmCZtYhFz@ucjQK7^ELhNOiRCoi
z9&w*Q>=^^PwfdIZcD5R&_)G^GPSNCI8LBAa$$96D;EZ=$g@{P4fJQWnwM6rBLgHht
zz;9N~%RCohmJBpSJnB|Yg2WKBjbfNG)AA%R^n6Nga=%WyT?7>)0fcYtJ_25+(;pli
z-iMONL+(xHFy5I<MDF4-O6a|}H3KV$-}r2|TkUqURV(2u@RUes>D@U+KlBK|{K%Uu
z%B09ghJ1El=paL*gffFF0dn;+7*4eEqAoD=L>en|sAq5~9)*H@wDo3Dc%gQt?W-?p
zNE>JU*Zk^ZX|xe}no5{1%g<*rngdlH?@$qDxIa`A=9}P8Fu?0U2j$_7`K&(<K21KT
s-nB1POC-U72e$t3xZSvYj_;bajWq&m1l9<w5qKJb-{jAH<^U1^0I$i+ga7~l

literal 0
HcmV?d00001

diff --git a/lib/WebGUI/Asset/Story.pm b/lib/WebGUI/Asset/Story.pm
index 8e3f3d786..ad43dffa6 100644
--- a/lib/WebGUI/Asset/Story.pm
+++ b/lib/WebGUI/Asset/Story.pm
@@ -180,6 +180,46 @@ sub exportAssetData {
 
 #-------------------------------------------------------------------
 
+=head2 getEditForm (  )
+
+Returns a tempalted form for adding or editing Stories.
+
+=cut
+
+sub getEditForm {
+    my $self    = shift;
+    my $session = $self->session;
+    my $i18n    = WebGUI::International->new($session, 'Asset_Story');
+    my $form    = $session->form;
+    my $archive = $self->getParent->getParent();
+    my $isNew   = $self->getId eq 'new';
+    my $url     = $isNew ? $archive->getUrl : $self->getUrl;
+    my $title   = $self->getTitle;
+    my $var     = {
+        formHeader    => WebGUI::Form::formHeader($session, {action => $url})
+                       . WebGUI::Form::hidden($session, { name => 'func', value => $url })
+                       . WebGUI::Form::hidden($session, { name => 'proceed', value => 'showConfirmation' }),
+        formFooter    => WebGUI::Form::formFooter($session),
+        formTitle     => $i18n->get('editing','Asset_WikiPage').' '.$title,
+        titleForm     => WebGUI::Form::text($session, { name => 'title',    value => $self->get('title')    } ),
+        subTitleForm  => WebGUI::Form::text($session, { name => 'subtitle', value => $self->get('subtitle') } ),
+        bylineForm    => WebGUI::Form::text($session, { name => 'byline',   value => $self->get('byline')   } ),
+        locationForm  => WebGUI::Form::text($session, { name => 'location', value => $self->get('location') } ),
+        keywordsForm  => WebGUI::Form::text($session, { name => 'keywords', value => WebGUI::Keyword->new($session)->getKeywordsForAsset({ asset => $self })} ),
+        summaryForm    => WebGUI::Form::textarea($session, { name => 'summary',    value => $self->get('summary')    } ),
+        highlightsForm => WebGUI::Form::textarea($session, { name => 'highlights', value => $self->get('highlights') } ),
+        storyForm      => WebGUI::Form::HTMLArea($session, { name => 'story',      value => $self->get('story'), richEditId => $archive->get('richEditorId')}),
+    };
+    if ($isNew) {
+        $var->{formHeader} .= WebGUI::Form::hidden($session, { name => 'assetId',   value => 'new' })
+                           .  WebGUI::Form::hidden($session, { name => 'className', value => $form->process('class', 'className') });
+    }
+    return $self->processTemplate($var, $archive->getValue('editStoryTemplateId'));
+
+}
+
+#-------------------------------------------------------------------
+
 =head2 getPhotoData (  )
 
 Returns the photo hash formatted as perl data.  See also L<setPhotoData>.
@@ -440,12 +480,24 @@ the module.
 =cut
 
 sub www_edit {
-   my $self = shift;
-   my $session = $self->session;
-   return $session->privilege->insufficient() unless $self->canEdit;
-   return $session->privilege->locked() unless $self->canEditIfLocked;
-   my $i18n = WebGUI::International->new($session, 'Asset_NewAsset');
-   return $self->getAdminConsole->render($self->getEditForm->print, $i18n->get('edit asset'));
+    my $self = shift;
+    my $session = $self->session;
+    return $session->privilege->insufficient() unless $self->canEdit;
+    return $session->privilege->locked() unless $self->canEditIfLocked;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_showConfirmation ( )
+
+Shows a confirmation message letting the user know their page has been submitted.
+
+=cut
+
+sub www_showConfirmation {
+    my $self = shift;
+    my $i18n = WebGUI::International->new($self->session, "Asset_Story");
+    return $self->getWiki->processStyle('<p>'.$i18n->get("page received").'</p><p><a href="'.$self->getWiki->getUrl.'">'.$i18n->get("493","WebGUI").'</a></p>');
 }
 
 
diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
index 5f758d9f0..ed7f49628 100644
--- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm
+++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
@@ -128,7 +128,7 @@ sub definition {
             hoverHelp    => $i18n->get('edit story template help'),
             filter       => 'fixId',
             namespace    => 'Story/Edit',
-            defaultValue => '',
+            defaultValue => 'E3tzZjzhmYoNlAyP2VW33Q',
         },
         archiveAfter => {
             tab          => 'display',  
@@ -277,7 +277,7 @@ Add template variables to the existing template variables.
 
 =head3 $var
 
-A
+Template variables will be added onto this hash ref.
 
 =cut