diff --git a/docs/upgrades/templates-7.4.0/CalendarEvent.tmpl b/docs/upgrades/templates-7.4.0/CalendarEvent.tmpl deleted file mode 100755 index 5cd695564..000000000 --- a/docs/upgrades/templates-7.4.0/CalendarEvent.tmpl +++ /dev/null @@ -1,219 +0,0 @@ -#CalendarEvent000000001 - - - - - - - - - - - - - -
- Day - Week - Month - Search - -
- Edit - • Delete - • Print -
-
-
<< Previous Event
-
Next Event >>
-
- Event Details -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
Event Title
- 		-
- -
-
-
Location
- 		-
- -
-
-
Description
- 		-
-
-
Scheduled
- 		-
- -
-
-
Related Material
-
-
-
-
-
Attachments
-
-  
-
-
-
-~~ - - diff --git a/docs/upgrades/templates-7.4.0/CalendarEventEdit.tmpl b/docs/upgrades/templates-7.4.0/CalendarEventEdit.tmpl deleted file mode 100755 index 6a6f6ac11..000000000 --- a/docs/upgrades/templates-7.4.0/CalendarEventEdit.tmpl +++ /dev/null @@ -1,177 +0,0 @@ -#CalendarEventEdit00001 - - - -

Errors!

- - - - - - - -
- Event - Recurrence - - -
- - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Event Title
Short Title
Location
Description
Start Date
End Date
Time
 
Related Links
Group to View this Event
Attachments for this Event
-
- - - - - - - - - - - - - - - - - - - - -~~~ - - - - - - - - - - - - - - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000016.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000016.tmpl deleted file mode 100644 index 18d584235..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000016.tmpl +++ /dev/null @@ -1,103 +0,0 @@ -#PBtmpl0000000000000016 - · - · -
-
- - - - - - - - - - - - - - - - - -
Transaction descriptionPriceStatusError
()

-
- -
- - - -
- -
    - -
    • -     -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ProductQuantityPriceAmountSales TaxEach
 
 Subtotal
Shipping
Sales Tax Rate 
Total Sales Tax 
Total
- -

- - \ No newline at end of file diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000017.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000017.tmpl deleted file mode 100644 index eeee8b9fc..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000017.tmpl +++ /dev/null @@ -1,17 +0,0 @@ -#PBtmpl0000000000000017 - -
- - - - - - - - -
- - - - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000026.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000026.tmpl deleted file mode 100644 index 171755f70..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000026.tmpl +++ /dev/null @@ -1,82 +0,0 @@ -#PBtmpl0000000000000026 - - - -

- - - -

- - - - - - -

- - - • - - - - - - - - • - - -

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@ - - by - - - - - - on @ -
- - - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000027.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000027.tmpl deleted file mode 100644 index 3ebdd576c..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000027.tmpl +++ /dev/null @@ -1,47 +0,0 @@ -#PBtmpl0000000000000027 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
has posted to one of your subscriptions
  
-

diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl deleted file mode 100644 index 97ff12d13..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl +++ /dev/null @@ -1,96 +0,0 @@ -#PBtmpl0000000000000029 - - - -

- - - -

- - -

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - -

- - - - -~~~ - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000054.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000054.tmpl deleted file mode 100644 index aff076cb0..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000054.tmpl +++ /dev/null @@ -1,41 +0,0 @@ -#PBtmpl0000000000000054 -
- - -

- - - -

- - - -

- - -
- - - - - - - - - - - -
- - -
- - -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000068.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000068.tmpl deleted file mode 100644 index 7326180f1..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000068.tmpl +++ /dev/null @@ -1,103 +0,0 @@ -#PBtmpl0000000000000068 - - -

 -

 -

 - - -

- -

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - -
-

- -
- - -~~~ - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000094.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000094.tmpl deleted file mode 100644 index 504374220..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000094.tmpl +++ /dev/null @@ -1,127 +0,0 @@ -#PBtmpl0000000000000094 -
- - -

- - - -

- - - -

- - - -
- - - - - - - - - - - - -
- - -
- - -
- -
- - - -
 
- - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000109.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000109.tmpl deleted file mode 100644 index 0cea0f7c5..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000109.tmpl +++ /dev/null @@ -1,129 +0,0 @@ -#PBtmpl0000000000000109 -
- - -

- - - - -

- - - -

- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000118.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000118.tmpl deleted file mode 100644 index 49b67f2e9..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000118.tmpl +++ /dev/null @@ -1,125 +0,0 @@ -#PBtmpl0000000000000118 -
- - -

- - - -

- - - -

- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000125.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000125.tmpl deleted file mode 100644 index 5fe0687ea..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000125.tmpl +++ /dev/null @@ -1,73 +0,0 @@ -#PBtmpl0000000000000125 - - - -

- - - -

- - - -

- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000131.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000131.tmpl deleted file mode 100644 index 3d3176d18..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000131.tmpl +++ /dev/null @@ -1,73 +0,0 @@ -#PBtmpl0000000000000131 -
- - -

- - - -

- - - -

- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000135.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000135.tmpl deleted file mode 100644 index 0fb32bd5a..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000135.tmpl +++ /dev/null @@ -1,74 +0,0 @@ -#PBtmpl0000000000000135 -
- - -

- - - - -

- - - -

- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - - -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
 
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000205.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000205.tmpl deleted file mode 100644 index ca34cd491..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000205.tmpl +++ /dev/null @@ -1,140 +0,0 @@ -#PBtmpl0000000000000205 -
- Return to Inbox - - - - - - - - - - - - - -
- : - - : -
- - -
 
- - - - - - - - - - - - - - - - - - - - - - - - - - -
:
:
:
:
- -
- - -
- -
    - -
    • -     -
- - - -~~~ - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000206.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000206.tmpl deleted file mode 100644 index b0ec8becd..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000206.tmpl +++ /dev/null @@ -1,118 +0,0 @@ -#PBtmpl0000000000000206 -
- - - - - - - - - - - - - - - - - class="alt"> - - - - - - - -
- - - - - -
«   »
-
- -
    - -
  • - -
- - - -~~~ - - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl000000000table54.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl000000000table54.tmpl deleted file mode 100644 index 86033768e..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl000000000table54.tmpl +++ /dev/null @@ -1,45 +0,0 @@ -#PBtmpl000000000table54 -
- - -

- - - -

- - - -

- - -
- - - - - - - - - - - -
- - - - - - -
- - -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table094.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table094.tmpl deleted file mode 100644 index a7e80c454..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table094.tmpl +++ /dev/null @@ -1,136 +0,0 @@ -#PBtmpl00000000table094 -
- - -

- - - - -

- - - -

- - - - - - - - - - - - - -
- -
- - - - - - - - - - - - -
- - -
- - -
- -
- -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table109.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table109.tmpl deleted file mode 100644 index 3b19bbee0..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table109.tmpl +++ /dev/null @@ -1,135 +0,0 @@ -#PBtmpl00000000table109 -
- - -

- - - -

- - - -

- - - - - - - - - - - -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- - - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table118.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table118.tmpl deleted file mode 100644 index 038a968b6..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table118.tmpl +++ /dev/null @@ -1,135 +0,0 @@ -#PBtmpl00000000table118 -
- - -

- - - - -

- - - -

- - - - - - - - - - - -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table125.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table125.tmpl deleted file mode 100644 index d20a7277c..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table125.tmpl +++ /dev/null @@ -1,80 +0,0 @@ -#PBtmpl00000000table125 -
- - -

- - - - -

- - - - - - - -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - -
- - -

- - - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table131.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table131.tmpl deleted file mode 100644 index 7c6f2b9f0..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table131.tmpl +++ /dev/null @@ -1,78 +0,0 @@ -#PBtmpl00000000table131 -
- - -

- - - -

- - - -

- - - - - - - -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000000table135.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000000table135.tmpl deleted file mode 100644 index d5aac76df..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000000table135.tmpl +++ /dev/null @@ -1,78 +0,0 @@ -#PBtmpl00000000table135 -
- - -

- - - -

- - - -

- - - - - - - -
- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- - 		- -
- - - - - - - - - - - - - -
- - -
- - -
- -
- -
- - -
- - diff --git a/docs/upgrades/templates-7.4.0/PBtmpl00000userInvite1.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl00000userInvite1.tmpl deleted file mode 100644 index 43852ba36..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl00000userInvite1.tmpl +++ /dev/null @@ -1,54 +0,0 @@ -#PBtmpl00000userInvite1 -#url:userinvitetemplate -#title:User Invite Template -#menuTitle:Default User Invite Template -#namespace:userInvite -#create -

- - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
- - - -
- - - -
- - - -
-   - - -
- diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0userInviteEmail.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0userInviteEmail.tmpl deleted file mode 100644 index 4a4712f5c..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmpl0userInviteEmail.tmpl +++ /dev/null @@ -1,9 +0,0 @@ -#PBtmpl0userInviteEmail -#url:userinviteemailtemplate -#title:Default User Invite Email Template -#menuTitle:Default User Invite Email Template -#namespace:userInvite/Email -#create - - - diff --git a/docs/upgrades/templates-7.4.0/PBtmplPrivateMessage01.tmpl b/docs/upgrades/templates-7.4.0/PBtmplPrivateMessage01.tmpl deleted file mode 100644 index 130bae2d1..000000000 --- a/docs/upgrades/templates-7.4.0/PBtmplPrivateMessage01.tmpl +++ /dev/null @@ -1,131 +0,0 @@ -#PBtmplPrivateMessage01 -#title:Default Send Private Message Template -#menuTitle:Default Send Private Message Template -#url:default-send-private-message-template -#namespace:Inbox/SendPrivateMessage -#create - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
:
:
:
:
- - -
- -
- - -
    - -
    • -     -
- - -~~~ - - diff --git a/docs/upgrades/templates-7.4.0/emsbadgeprint.tmpl b/docs/upgrades/templates-7.4.0/emsbadgeprint.tmpl deleted file mode 100644 index be638b350..000000000 --- a/docs/upgrades/templates-7.4.0/emsbadgeprint.tmpl +++ /dev/null @@ -1,15 +0,0 @@ -#emsbadgeprintout000000 -#url: ems-badge-print-out-template -#title: Badge Print -#namespace:emsbadgeprint -#create - - -
-
-
-
-
-
-
- diff --git a/docs/upgrades/templates-7.4.0/emsticketprint.tmpl b/docs/upgrades/templates-7.4.0/emsticketprint.tmpl deleted file mode 100644 index bee4a2553..000000000 --- a/docs/upgrades/templates-7.4.0/emsticketprint.tmpl +++ /dev/null @@ -1,16 +0,0 @@ -#emsticketprintout00000 -#url: ems-ticket-print-out-template -#title: Ticket Print -#namespace:emsticketprint -#create - -
-
:
-
-
^D(,); - ^D(,);
-
,
-
-
-
-
- diff --git a/docs/upgrades/templates-7.4.0/newsletter0000000000001.tmpl b/docs/upgrades/templates-7.4.0/newsletter0000000000001.tmpl deleted file mode 100644 index fbcee1fb9..000000000 --- a/docs/upgrades/templates-7.4.0/newsletter0000000000001.tmpl +++ /dev/null @@ -1,18 +0,0 @@ -#newsletter000000000001 -#url: newsletterdefaulttemplate -#title: Summary Newsletter (default) -#menuTitle: Summary Newsletter -#namespace:newsletter -#create - -

- - -

-
-

-

- - -

- diff --git a/docs/upgrades/templates-7.4.0/newslettercs000000001.tmpl b/docs/upgrades/templates-7.4.0/newslettercs000000001.tmpl deleted file mode 100644 index 8cf6419b1..000000000 --- a/docs/upgrades/templates-7.4.0/newslettercs000000001.tmpl +++ /dev/null @@ -1,67 +0,0 @@ -#newslettercs0000000001 -#url: newslettercstemplate -#title: Newsletter Manager (default) -#menuTitle: Newsletter Manager -#namespace:Collaboration -#create - - - -

- - - -

- - - - - - -

- - - | - - - ^International("my subscriptions","Asset_Newsletter"); - | - - -

- -

- - -


-

- - - - - -~~~ - diff --git a/docs/upgrades/templates-7.4.0/newslettersubscrip00001.tmpl b/docs/upgrades/templates-7.4.0/newslettersubscrip00001.tmpl deleted file mode 100644 index 90a62d772..000000000 --- a/docs/upgrades/templates-7.4.0/newslettersubscrip00001.tmpl +++ /dev/null @@ -1,22 +0,0 @@ -#newslettersubscrip0001 -#url: newslettermysubscriptionstemplate -#title: My Subscriptions (default) -#menuTitle: My Subscriptions -#namespace:newsletter/mysubscriptions -#create - -

^International("my subscriptions","Asset_Newsletter");

- - -

^International("newsletter categories","Asset_Newsletter");

- -


-

- -
- -

- - - - diff --git a/docs/upgrades/templates-7.4.0/wikibykeyword.tmpl b/docs/upgrades/templates-7.4.0/wikibykeyword.tmpl deleted file mode 100644 index 979f671ed..000000000 --- a/docs/upgrades/templates-7.4.0/wikibykeyword.tmpl +++ /dev/null @@ -1,15 +0,0 @@ -#WikiKeyword00000000001 -#url: wiki-master-by-keyword-template.tmpl -#title: Wiki Pages By Keyword (default) -#menuTitle: Wiki Pages By Keyword -#namespace:WikiMaster_byKeyword -#create - -

- -
    - -
    • -     -
- diff --git a/docs/upgrades/templates-7.4.0/wikifrontpage.tmpl b/docs/upgrades/templates-7.4.0/wikifrontpage.tmpl deleted file mode 100644 index 90eef51fd..000000000 --- a/docs/upgrades/templates-7.4.0/wikifrontpage.tmpl +++ /dev/null @@ -1,33 +0,0 @@ -#WikiFrontTmpl000000001 -

 -

 - - -

- -
- -
-

-
    -
  • - - - - () - -
    • -
-
-
-

-
    -
    2. -
- -
-
- -
- - diff --git a/docs/upgrades/templates-7.4.0/wikipage.tmpl b/docs/upgrades/templates-7.4.0/wikipage.tmpl deleted file mode 100644 index 9b0f70ef8..000000000 --- a/docs/upgrades/templates-7.4.0/wikipage.tmpl +++ /dev/null @@ -1,96 +0,0 @@ -#WikiPageTmpl0000000001 -

 -

- -
-
    -
    • -
    • -
-
-
- -

^International("keywords","Asset");:

-
-
- -
-
-
- -
| | |
-~~~ - - - - - - - - - - diff --git a/docs/upgrades/templates-7.4.0/wikipageedit.tmpl b/docs/upgrades/templates-7.4.0/wikipageedit.tmpl deleted file mode 100644 index 997184e1f..000000000 --- a/docs/upgrades/templates-7.4.0/wikipageedit.tmpl +++ /dev/null @@ -1,28 +0,0 @@ -#WikiPageEditTmpl000001 - - - - - - - - - - - - - - -
- - - - - - -~~~ - diff --git a/docs/upgrades/templates-7.4.12/MatrixDefaultCompare.tmpl b/docs/upgrades/templates-7.4.12/MatrixDefaultCompare.tmpl deleted file mode 100644 index 01c92b448..000000000 --- a/docs/upgrades/templates-7.4.12/MatrixDefaultCompare.tmpl +++ /dev/null @@ -1,87 +0,0 @@ -#matrixtmpl000000000002 -

Comparison

- - - - - - - -
    - - -You tried to compare too many listings. Please choose or less at a time. - - - -You must choose at least two products to compare. Less than two isn't much of a comparison. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - class="odd" - - class="even" - - > - - - - - - -
Product
Last Updated
- - -
- -
- - - - -
-~~~ - - - - - - - - - diff --git a/docs/upgrades/templates-7.4.12/MatrixDefaultDetailedListing.tmpl b/docs/upgrades/templates-7.4.12/MatrixDefaultDetailedListing.tmpl deleted file mode 100644 index d07c863a4..000000000 --- a/docs/upgrades/templates-7.4.12/MatrixDefaultDetailedListing.tmpl +++ /dev/null @@ -1,109 +0,0 @@ -#matrixtmpl000000000003 -

- - - - - - - - - -
- - - - - - - - - -
Web Site
Version Number
Manufacturer
Last Updated
Clicks
Views
Compares
ScreenshotScreenshot
- 		  - - Description
-

- - - Contact Maintainer
- -
Message sent.
- - - 		  - -
- -

- - - - - - -
- Features - - - - class="odd" class="even"> - - - - - - - - -
  
- -

-

- Benefits - - - - class="odd" class="even"> - - - - - - - - -
  
-
- -

- - - - -

Edit this listing.
- - - - Approve this listing.
- - Delete this listing.
- - -~~~ - - - - - - - - - diff --git a/docs/upgrades/templates-7.4.12/MatrixDefaultSearch.tmpl b/docs/upgrades/templates-7.4.12/MatrixDefaultSearch.tmpl deleted file mode 100644 index 90c509a4a..000000000 --- a/docs/upgrades/templates-7.4.12/MatrixDefaultSearch.tmpl +++ /dev/null @@ -1,109 +0,0 @@ -#matrixtmpl000000000005 -

Search The Matrix

- - -

Your search returned no results. Try specifying a few less criteria.

- - - -

- Your search returned too many results. Either select up to products from the list below, or specify more critera. -

- - - - - - -
- - - - - - - - - -
- Features - - - - class="odd" class="even"> - - - - - - - -
 
- 		- Benefits - - - - class="odd" class="even"> - - - - - - - -
 
-
- - - - - - -
-~~~ - - - - - - - - - diff --git a/docs/upgrades/templates-7.4.15/CalendarEvent000000001.tmpl b/docs/upgrades/templates-7.4.15/CalendarEvent000000001.tmpl deleted file mode 100644 index f4be4e66b..000000000 --- a/docs/upgrades/templates-7.4.15/CalendarEvent000000001.tmpl +++ /dev/null @@ -1,223 +0,0 @@ -#CalendarEvent000000001 -#title: Default Calendar Event -#url: default-calendar-event -#menutitle: -#namespace: Calendar/Event - - - - - - - - - - - - - -
- Day - Week - Month - Search - -
- Edit - • Delete - • Print -
-
- - -
- Event Details -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
Event Title
- 		-
- -
-
-
Location
- 		-
- -
-
-
Description
- 		-
-
-
Scheduled
- 		-
- -
-
-
Related Material
-
-
-
-
-
Attachments
-
-  
-
-
-
-~~~ - - diff --git a/docs/upgrades/templates-7.4.20/CalendarEventEdit.tmpl b/docs/upgrades/templates-7.4.20/CalendarEventEdit.tmpl deleted file mode 100644 index 45441746b..000000000 --- a/docs/upgrades/templates-7.4.20/CalendarEventEdit.tmpl +++ /dev/null @@ -1,166 +0,0 @@ -#CalendarEventEdit00001 - - - -

Errors!

-
    - -
    • -     -
- - - - - - -
- Event - Recurrence - - -
- - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Event Title
Short Title
Location
Description
Start Date
End Date
Time
 
Related Links
Group to View this Event
Attachments for this Event
-
- - - - - - - - - - - - - - - - - - - - -~~~ - - - - - diff --git a/docs/upgrades/templates-7.4.3/WeatherDataTmpl0000001.tmpl b/docs/upgrades/templates-7.4.3/WeatherDataTmpl0000001.tmpl deleted file mode 100644 index 137cd8ae5..000000000 --- a/docs/upgrades/templates-7.4.3/WeatherDataTmpl0000001.tmpl +++ /dev/null @@ -1,77 +0,0 @@ -#WeatherDataTmpl0000001 - - - -

- - - -

- - - -

- - - - - - - - - - - - - - -
<tmpl_var iconAlt> -
-
 
- -
- X -
-
-
-
°F
-

- - - - - -~~~ - - - - - \ No newline at end of file diff --git a/docs/upgrades/templates-7.4.6/calendarmonth.tmpl b/docs/upgrades/templates-7.4.6/calendarmonth.tmpl deleted file mode 100644 index f03973f22..000000000 --- a/docs/upgrades/templates-7.4.6/calendarmonth.tmpl +++ /dev/null @@ -1,101 +0,0 @@ - -

- - - -

- - - - - - - - - - - - - - - - - - - -
- ^International(defaultView value day,Asset_Calendar); - ^International(defaultView value wiki,Asset_Calendar); - ^International(defaultView value month,Asset_Calendar); - ^International(searchButtonLabel,Asset_Calendar); - - -
^International(add event,Asset_Calendar); • ^International(print,Asset_Calendar); • ^International(iCal,Asset_Calendar); -
-
-
- « • - - - - • - -» -
-
-
- -
-
- - - - - - - - - - - - -
- - - - - - - - - - - -
-
- -
-
-
    - -

    • -     -
-
-
- - - - diff --git a/docs/upgrades/templates-7.4.6/inbox.tmpl b/docs/upgrades/templates-7.4.6/inbox.tmpl deleted file mode 100644 index 2e56c16d8..000000000 --- a/docs/upgrades/templates-7.4.6/inbox.tmpl +++ /dev/null @@ -1,120 +0,0 @@ -#PBtmpl0000000000000206 -
- - - - - - - - - - - - - - - - - class="alt"> - - - - - - - -
- - - - - -
« - »
-
- -
    - -
  • - -
- - -~~~ - - - diff --git a/docs/upgrades/templates-7.4.6/sqlreport.tmpl b/docs/upgrades/templates-7.4.6/sqlreport.tmpl deleted file mode 100644 index 325f9f4e4..000000000 --- a/docs/upgrades/templates-7.4.6/sqlreport.tmpl +++ /dev/null @@ -1,161 +0,0 @@ -#PBtmpl0000000000000059 - - - -

- - - -

- - - - -

- - - - Download this data - - - -

    - -
    • -     -
- - - - - - - - - - - - - - - - - - - - - -
- - - - - -
  - - - - - - - - - - - - - - - - - - - -
- - - - - -
  - - - - - - - - - - - - - - - - - - - -
- - - - - -
  - - - - - - - - - - - - - - - - - - - -
- - - - - -
  - - - - - - - - - - - - - -
-
-
-
-
-
-
-
-
- - - - - diff --git a/docs/upgrades/templates-7.4.7/CalendarEvent.tmpl b/docs/upgrades/templates-7.4.7/CalendarEvent.tmpl deleted file mode 100755 index 9fecef9ea..000000000 --- a/docs/upgrades/templates-7.4.7/CalendarEvent.tmpl +++ /dev/null @@ -1,219 +0,0 @@ -#CalendarEvent000000001 - - - - - - - - - - - - - -
- Day - Week - Month - Search - -
- Edit - • Delete - • Print -
-
- - -
- Event Details -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
Event Title
- 		-
- -
-
-
Location
- 		-
- -
-
-
Description
- 		-
-
-
Scheduled
- 		-
- -
-
-
Related Material
-
-
-
-
-
Attachments
-
-  
-
-
-
-~~ - - diff --git a/docs/upgrades/templates-7.4.8/CalendarEvent.tmpl b/docs/upgrades/templates-7.4.8/CalendarEvent.tmpl deleted file mode 100755 index aad071d44..000000000 --- a/docs/upgrades/templates-7.4.8/CalendarEvent.tmpl +++ /dev/null @@ -1,219 +0,0 @@ -#CalendarEvent000000001 - - - - - - - - - - - - - -
- Day - Week - Month - Search - -
- Edit - • Delete - • Print -
-
- - -
- Event Details -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
Event Title
- 		-
- -
-
-
Location
- 		-
- -
-
-
Description
- 		-
-
-
Scheduled
- 		-
- -
-
-
Related Material
-
-
-
-
-
Attachments
-
-  
-
-
-
-~~~ - - diff --git a/docs/upgrades/templates-7.4.9/MatrixDefaultCompare.tmpl b/docs/upgrades/templates-7.4.9/MatrixDefaultCompare.tmpl deleted file mode 100644 index 5c9fb0266..000000000 --- a/docs/upgrades/templates-7.4.9/MatrixDefaultCompare.tmpl +++ /dev/null @@ -1,80 +0,0 @@ -#matrixtmpl000000000002 -

Comparison

- - - - - - - -
    - - -You tried to compare too many listings. Please choose or less at a time. - - - -You must choose at least two products to compare. Less than two isn't much of a comparison. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - class="odd" - - class="even" - - > - - - - - - -
Product
Last Updated
- - -
- -
- - - - -
-~~~ - - diff --git a/docs/upgrades/templates-7.4.9/MatrixDefaultDetailedListing.tmpl b/docs/upgrades/templates-7.4.9/MatrixDefaultDetailedListing.tmpl deleted file mode 100644 index 48f5272ef..000000000 --- a/docs/upgrades/templates-7.4.9/MatrixDefaultDetailedListing.tmpl +++ /dev/null @@ -1,103 +0,0 @@ -#matrixtmpl000000000003 -

- - - - - - - - - -
- - - - - - - - - -
Web Site
Version Number
Manufacturer
Last Updated
Clicks
Views
Compares
ScreenshotScreenshot
- 		  - - Description
-

- - - Contact Maintainer
- -
Message sent.
- - - 		  - -
- -

- - - - - - -
- Features - - - - class="odd" class="even"> - - - - - - - - -
  
- -

-

- Benefits - - - - class="odd" class="even"> - - - - - - - - -
  
-
- -

- - - - -

Edit this listing.
- - - - Approve this listing.
- - Delete this listing.
- - - -~~~ - - diff --git a/docs/upgrades/templates-7.4.9/MatrixDefaultSearch.tmpl b/docs/upgrades/templates-7.4.9/MatrixDefaultSearch.tmpl deleted file mode 100644 index 3d6d9de06..000000000 --- a/docs/upgrades/templates-7.4.9/MatrixDefaultSearch.tmpl +++ /dev/null @@ -1,102 +0,0 @@ -#matrixtmpl000000000005 -

Search The Matrix

- - -

Your search returned no results. Try specifying a few less criteria.

- - - -

- Your search returned too many results. Either select up to products from the list below, or specify more critera. -

- - - - - - -
- - - - - - - - - -
- Features - - - - class="odd" class="even"> - - - - - - - -
 
- 		- Benefits - - - - class="odd" class="even"> - - - - - - - -
 
-
- - - - - - -
-~~~ - - diff --git a/docs/upgrades/templates-7.4.9/wikipage.tmpl b/docs/upgrades/templates-7.4.9/wikipage.tmpl deleted file mode 100644 index 508ef416a..000000000 --- a/docs/upgrades/templates-7.4.9/wikipage.tmpl +++ /dev/null @@ -1,94 +0,0 @@ -#WikiPageTmpl0000000001 -

 -

- -
-
    -
    • -
    • -
-
-
- -

^International("keywords","Asset");:

-
- -
-
- -
| | |
-~~~ - - - - - - - - - - diff --git a/docs/upgrades/upgrade_7.3.22-7.4.0.pl b/docs/upgrades/upgrade_7.3.22-7.4.0.pl deleted file mode 100644 index a7636b719..000000000 --- a/docs/upgrades/upgrade_7.3.22-7.4.0.pl +++ /dev/null @@ -1,610 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2007 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Workflow; -use WebGUI::Storage; -use WebGUI::Asset; - -my $toVersion = "7.4.0"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -addRealtimeWorkflow($session); -addKeywordTagging($session); -addGroupingsIndexOnUserId($session); -fixProfileDataWithoutFields($session); -buildNewUserProfileTable($session); -addAttachmentsToEvents($session); -addMetaDataPostsToCS($session); -addUserInvitations($session); -addPrivateMessaging($session); -addNewsletter($session); -addHttpProxyUrlPatternFilter($session); -addCanStartThreadToCS($session); -addPostCaptchaToCS($session); -addFieldsToDatabaseLinks($session); -addWikiAttachments($session); -addAdminConsoleGroupSettings($session); -updateCommerce($session); -updateProfileDateFormats($session); -addEmsBadgePrinting($session); - -finish($session); # this line required - -#------------------------------------------------- -sub addEmsBadgePrinting { - my $session = shift; - print "\tAdding badge printing support to EMS.\n" unless $quiet; - $session->db->write("alter table EventManagementSystem add column badgePrinterTemplateId varchar(22) binary not null default 'emsbadgeprintout000000'"); - $session->db->write("alter table EventManagementSystem add column ticketPrinterTemplateId varchar(22) binary not null default 'emsticketprintout00000'"); -} - -#------------------------------------------------- -# Add the default admin console group settings -sub addAdminConsoleGroupSettings { - my $session = shift; - print "\tAdding default admin console group settings... " unless $quiet; - - my %groupDefaults = ( - groupIdAdminActiveSessions => 3, - groupIdAdminAdSpace => 3, - groupIdAdminCache => 3, - groupIdAdminCommerce => 3, - groupIdAdminCron => 3, - groupIdAdminDatabaseLink => 3, - groupIdAdminGraphics => 3, - groupIdAdminGroup => 3, - groupIdAdminGroupAdmin => 11, - groupIdAdminHelp => 7, - groupIdAdminLDAPLink => 3, - groupIdAdminLoginHistory => 3, - groupIdAdminProductManager => 14, - groupIdAdminProfileSettings => 3, - groupIdAdminReplacements => 3, - groupIdAdminSpectre => 3, - groupIdAdminStatistics => 3, - groupIdAdminSubscription => 3, - groupIdAdminTransactionLog => 3, - groupIdAdminUser => 3, - groupIdAdminUserAdd => 11, - groupIdAdminVersionTag => 12, - groupIdAdminWorkflow => 'pbgroup000000000000015', - groupIdAdminWorkflowRun => 3, - ); - - for my $setting (keys %groupDefaults) { - $session->setting->add($setting, $groupDefaults{$setting}); - } - - print "DONE!\n" unless $quiet; -} - -#------------------------------------------------- - -sub addWikiAttachments { - my $session = shift; - print "\tAdding support for attachments to wikis.\n" unless ($quiet); - my $db = $session->db; - $db->write("alter table WikiMaster add column allowAttachments int not null default 0"); - my $sth = $db->read("select storageId from WikiPage"); - while (my ($id) = $sth->array) { - my $storage = WebGUI::Storage->get($session, $id); - if (defined $storage) { - $storage->delete; - } - } - $db->write("alter table WikiPage drop column storageId"); - my $root = WebGUI::Asset->getRoot($session); - $root->addChild({title=>"Tempspace", url=>"tempspace", className=>"WebGUI::Asset::Wobject::Folder"}, "tempspace0000000000000"); - $db->write("update asset set isSystem=1 where assetId=?", ["tempspace0000000000000"]); -} - -#------------------------------------------------- - -sub addFieldsToDatabaseLinks { - my $session = shift; - print "\tAdding new fields to Database Links...\n" unless ($quiet); - print "\t\tAdding allowMacroAccess setting to Database Links...\n" unless ($quiet); - $session->db->write("ALTER TABLE databaseLink add column allowMacroAccess integer NOT NULL default 0"); - - print "\t\tAdding additionalParameters setting to Database Links..." unless ($quiet); - $session->db->write("ALTER TABLE databaseLink add column additionalParameters VARCHAR(255) NOT NULL default ''"); - - print "OK\n"; - return; -} -#------------------------------------------------- - -sub addPostCaptchaToCS { - my $session = shift; - print "\tAdding useCaptcha setting to Collaboration Systems..." unless ($quiet); - - $session->db->write("ALTER TABLE Collaboration add column useCaptcha integer NOT NULL default 0"); - - print "OK\n"; - return; -} -#------------------------------------------------- - -sub addCanStartThreadToCS { - my $session = shift; - - print "\tAdding canStartThreadGroupId setting to Collaboration Systems.\n" unless ($quiet); - - # add the columns required - $session->db->write("ALTER TABLE Collaboration add column canStartThreadGroupId varchar(22) NOT NULL default 2 AFTER postGroupId"); - $session->db->write("ALTER TABLE Collaboration add column threadApprovalWorkflow varchar(22) NOT NULL default 'pbworkflow000000000003' AFTER approvalWorkflow"); - - # set defaults for existing records - $session->db->write('UPDATE Collaboration SET canStartThreadGroupId = postGroupId'); - $session->db->write('UPDATE Collaboration SET threadApprovalWorkflow = approvalWorkflow'); - - # add it to the config file - my $workflowActivities = $session->config->get('workflowActivities'); - if(!scalar - grep {$_ eq 'WebGUI::Workflow::Activity::NotifyAdminsWithOpenVersionTags'} @{$workflowActivities->{None}} - ) { - push @{ $workflowActivities->{None} }, 'WebGUI::Workflow::Activity::NotifyAdminsWithOpenVersionTags'; - $session->config->set('workflowActivities',$workflowActivities); - } - - return; -} - -#------------------------------------------------- -sub addKeywordTagging { - my $session = shift; - print "\tAdding a keyword tagging system.\n" unless ($quiet); - $session->db->write("create table assetKeyword ( - keyword varchar(64) not null, - assetId varchar(22) binary not null, - primary key (keyword, assetId), - index keyword (keyword), - index assetId (assetId) - )"); - $session->db->write("alter table WikiMaster add column byKeywordTemplateId varchar(22) binary - not null default 'WikiKeyword00000000001'"); -} - -#------------------------------------------------- -sub addNewsletter { - my $session = shift; - print "\tAdding a newsletter management system.\n" unless ($quiet); - $session->config->addToArray("assets","WebGUI::Asset::Wobject::Collaboration::Newsletter"); - my $db = $session->db; - $db->write("create table Newsletter ( - assetId varchar(22) binary not null, - revisionDate bigint not null, - newsletterTemplateId varchar(22) binary not null default 'newsletter000000000001', - mySubscriptionsTemplateId varchar(22) binary not null default 'newslettersubscrip0001', - newsletterHeader mediumtext, - newsletterFooter mediumtext, - newsletterCategories text, - primary key (assetId, revisionDate) - )"); - $db->write("create table Newsletter_subscriptions ( - assetId varchar(22) binary not null, - userId varchar(22) binary not null, - subscriptions text, - lastTimeSent bigint not null default 0, - primary key (assetId, userId) - )"); - $db->write("alter table Newsletter_subscriptions add index lastTimeSent_assetId_userId - (lastTimeSent,assetId,userId)"); - my $workflow = WebGUI::Workflow->new($session, "pbworkflow000000000002"); - my $activity = $workflow->addActivity("WebGUI::Workflow::Activity::SendNewsletters","newslettersendactivity"); - $activity->set("title","Send Newsletters For Newsletter Assets"); -} - -#------------------------------------------------- -sub addRealtimeWorkflow { - my $session = shift; - print "\tAdding realtime workflow option.\n" unless ($quiet); - my $db = $session->db; - $db->write("alter table Workflow add column mode varchar(20) not null default 'parallel'"); - my $sth = $db->read("select workflowId, isSerial from Workflow where isSerial=1 or isSingleton=1"); - while (my ($id, $serial) = $sth->array) { - my $mode = "singleton"; - $mode = "serial" if ($serial); - $db->write("update Workflow set mode=? where workflowId=?",[$mode, $id]); - } - $db->write("alter table Workflow drop column isSingleton"); - $db->write("alter table Workflow drop column isSerial"); - my $workflow = WebGUI::Workflow->create($session, { - enabled => 1, - title => "Commit Content Immediately", - description => "Will commit the content as soon as save is pressed rather than waiting for Spectre to pick it up and run it in the background.", - mode => "realtime", - type => "WebGUI::VersionTag", - },"realtimeworkflow-00001"); - my $activity = $workflow->addActivity("WebGUI::Workflow::Activity::CommitVersionTag", "pb-commitimmediately01"); - $activity->set("title", "Commit Version Tag"); - $session->setting->add("autoRequestCommit",0); - $session->setting->add("skipCommitComments",0); -} - -#---------------------------------------------------------------------------- - -sub addGroupingsIndexOnUserId { - my $session = shift; - my $db = $session->db; - print qq{\tAdding index on `userId` column in `groupings` table for performance... } unless $quiet; - - # See if we even NEED to add this index, if we don't it just takes up - # disk/memory space. - my %createTable - = $db->quickHash( - "SHOW CREATE TABLE `groupings`" - ); - - if ($createTable{'Create Table'} =~ /KEY\s+`[^`]+`\s+[(]`userId`[)]/) { - print " Skipped!\n", - "\t\tAn index already exists on the `userId` column in the `groupings` table\n" - unless $quiet; - } - else { - print "\n\t\tThis may take a while... " unless $quiet; - $db->write("ALTER TABLE `groupings` ADD INDEX `userId` (`userId`)"); - print "DONE!\n" unless $quiet; - } -} - -#---------------------------------------------------------------------------- - -sub fixProfileDataWithoutFields { - my $session = shift; - my $db = $session->db; - - use WebGUI::ProfileField; - - print "\tFixing profile data without entries in userProfileField table..." unless $quiet; - - for my $fieldName (qw{ firstDayOfWeek language timeZone uiLevel }) { - next if WebGUI::ProfileField->new($session, $fieldName); - $db->write( - q{INSERT INTO userProfileField (fieldName, label, visible, fieldType, protected, editable) - VALUES (?,?,0,"ReadOnly",1,0)}, - [$fieldName, $fieldName] - ); - } - - print "OK!\n" unless $quiet; -} - - -#---------------------------------------------------------------------------- - -sub addMetaDataPostsToCS { - my $session = shift; - my $db = $session->db; - - print "\tAdding feature to CS to enable meta data in posts... " unless $quiet; - $db->write("alter table Collaboration add column enablePostMetaData int(11) not null default 0"); - print "OK!\n" unless $quiet; -} - - -#---------------------------------------------------------------------------- - -sub addUserInvitations { - my $session = shift; - my $db = $session->db; - - print "\tAdding the ability for users's to invite others to the site... " unless $quiet; - ##Add settings - $session->setting->add('userInvitationsEnabled', 0); - $session->setting->add('userInvitationsEmailExists', 'This email address exists in our system. This means that your friend is already a member of the site. The invitation will not be sent.'); - $session->setting->add('userInvitationsEmailTemplateId', 'PBtmpl0userInviteEmail'); - - ##Create table for tracking invitations - $session->db->write(<db; - print "\tBuilding new user profile table. This may take a while...\n" unless $quiet; - - use WebGUI::ProfileField; - use List::Util qw( first ); - - print "\t\tCreating structure..." unless $quiet; - # Create a new temporary table - $db->write(q{ - CREATE TABLE tmp_userProfileData ( - userId VARCHAR(22) BINARY NOT NULL, - PRIMARY KEY (userId) - ) - }); - - # Loop through the current fields and add them to the new table - my @profileFields; - my $sth = $db->read(q{SELECT fieldName, fieldType FROM userProfileField}); - while (my %fieldData = $sth->hash) { - push @profileFields, $fieldData{fieldName}; - my $fieldType = 'WebGUI::Form::'.ucfirst $fieldData{fieldType}; - my $fieldName = $db->dbh->quote_identifier($fieldData{fieldName}); - eval "use $fieldType;"; - my $dataType = $fieldType->new($session)->get("dbDataType"); - - $db->write( - "ALTER TABLE tmp_userProfileData ADD COLUMN ($fieldName $dataType)" - ); - } - print " OK!\n" unless $quiet; - - # Find fields that were not in the userProfileField database. - print "\t\tLooking for profile fields not defined in User Profiling... \n" unless $quiet; - my @dataFields = $db->buildArray("SELECT fieldName FROM userProfileData GROUP BY fieldName"); - for my $dataField (@dataFields) { - if (!first { $_ eq $dataField } @profileFields) { - print "\t\t\tCreating invisible, read-only profile field '$dataField'\n" unless $quiet; - - my $fieldType = 'WebGUI::Form::ReadOnly'; - my $fieldName = $db->dbh->quote_identifier($dataField); - eval "use $fieldType;"; - my $dataType = $fieldType->new($session)->get("dbDataType"); - - $db->write( - "ALTER TABLE tmp_userProfileData ADD COLUMN ($fieldName $dataType)" - ); - - # Create the profile field - WebGUI::ProfileField->create($session, $dataField, { - label => $dataField, - fieldType => "ReadOnly", - visible => 0, - protected => 1, - }); - } - } - print "\t\t... Done!\n"; - - print "\t\tMigrating data to temporary table... " unless $quiet; - # Loop over the old table and put them in the new table - $sth = $db->read(q{SELECT userId FROM users}); - while (my $user = $sth->hashRef) { - # Get all of this user's profile data - my %profile - = $db->buildHash( - "SELECT fieldName, fieldData FROM userProfileData WHERE userId=?", - [$user->{userId}] - ); - - # Write to the temp table - my $sql - = q{INSERT INTO tmp_userProfileData } - . q{(} . join(", ", "userId", map { $db->dbh->quote_identifier($_) } keys %profile) . q{)} - . q{ VALUES (} . join(", ", "?", ("?")x values %profile) . q{)} - ; - $db->write($sql, [$user->{userId},values %profile]); - } - $sth->finish; - print "OK!\n" unless $quiet; - - # Delete the old table - print "\t\tExchanging old data with new... "; - $db->write("drop table userProfileData"); - - # Rename the new table - $db->write("rename table tmp_userProfileData to userProfileData"); - print "OK!\n" unless $quiet; - - print "\t\t... Done!\n" unless $quiet; -} - - - -#---------------------------------------------------------------------------- - -sub addAttachmentsToEvents { - my $session = shift; - print "\tAdding an storageId column to the Event table..." unless $quiet; - $session->db->write( - "ALTER TABLE Event ADD COLUMN storageId VARCHAR(22) not null" - ); - print "OK!\n" unless $quiet; -} - -#------------------------------------------------- -sub addPrivateMessaging { - my $session = shift; - print "\tAdding private messaging...." unless ($quiet); - $session->setting->add("viewInboxTemplateId","PBtmpl0000000000000206"); - $session->setting->add("viewInboxMessageTemplateId","PBtmpl0000000000000205"); - $session->setting->add("sendPrivateMessageTemplateId","PBtmplPrivateMessage01"); - $session->db->write("alter table inbox add sentBy varchar(22) not null default 3"); - - my %data = ( - label=>q|WebGUI::International::get("allow private messages label","WebGUI")|, - editable=>1, - visible=>1, - required=>0, - showAtRegistration=>0, - requiredForPasswordRecovery=>0, - fieldType=>"yesNo", - protected=>1, - ); - WebGUI::ProfileField->create($session,"allowPrivateMessages", \%data, 4); - #Allow private messages for everyone initially - $session->db->write("update userProfileData set allowPrivateMessages=1"); - print "OK!\n" unless $quiet; -} - -#------------------------------------------------- -sub addHttpProxyUrlPatternFilter { - my $session = shift; - print "\tAdding HttpProxy Url Pattern Filter..." unless ($quiet); - $session->db->write("alter table HttpProxy add urlPatternFilter mediumtext default NULL"); - print "OK!\n" unless ($quiet); -} - -#------------------------------------------------- -sub updateCommerce { - my $session = shift; - print "\tUpdating Commerce...." unless ($quiet); - $session->db->write("delete from settings where name='commerceTransactionErrorTemplateId'"); - - #Remove Transaction Error Template - my @templates = $session->db->buildArray("select distinct assetId from template where namespace='Commerce/TransactionError'"); - foreach my $templateId (@templates) { - my $template = WebGUI::Asset->newByDynamicClass($session,$templateId); - $template->purge; - } - - #Add the Check payment gateway to the config file - my $paymentPlugins = $session->config->get('paymentPlugins'); - push(@{$paymentPlugins},'Check'); - $session->config->set('paymentPlugins',$paymentPlugins); - - #Enable the check payment gateway if cash is enabled - my ($cashEnabled) = $session->db->quickArray("select fieldValue from commerceSettings where namespace='Cash' and fieldName='enabled'"); - if($cashEnabled) { - my $sth = $session->db->read("select * from commerceSettings where namespace='Cash'"); - while (my $hash = $sth->hashRef) { - my $array = [$hash->{fieldName},$hash->{fieldValue},'Check',$hash->{type}]; - $session->db->write("insert into commerceSettings values (?,?,?,?)",$array); - } - } - - print "OK!\n" unless $quiet; -} - -#------------------------------------------------- -sub updateProfileDateFormats { - my $session = shift; - my $db = $session->db; - print "\tUpdating Date Formats in User Profile...." unless ($quiet); - - my ($dateFormat) = $db->quickArray("select possibleValues from userProfileField where fieldName='dateFormat'"); - - if($dateFormat) { - #Replace first character with new string - my $newFormats = q|{ -'%d-%m-%y'=>WebGUI::DateTime::epochToHuman("","%d-%m-%y"), -'%d.%m.%y'=>WebGUI::DateTime::epochToHuman("","%d.%m.%y"),|; - - $dateFormat = $newFormats.substr($dateFormat,1,length($dateFormat)); - $db->write("update userProfileField set possibleValues=? where fieldName='dateFormat'",[$dateFormat]); - } - - print "OK!\n" unless $quiet; -} -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.0-7.4.1.pl b/docs/upgrades/upgrade_7.4.0-7.4.1.pl deleted file mode 100644 index 04fc4a233..000000000 --- a/docs/upgrades/upgrade_7.4.0-7.4.1.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.1"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.1-7.4.2.pl b/docs/upgrades/upgrade_7.4.1-7.4.2.pl deleted file mode 100644 index 6c6e78661..000000000 --- a/docs/upgrades/upgrade_7.4.1-7.4.2.pl +++ /dev/null @@ -1,130 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.2"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -increaseGroupNameSize($session); - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - -sub increaseGroupNameSize { - my $session = shift; - print "\tIncreasing size of group name field.\n" unless $quiet; - $session->db->write("alter table groups modify groupName varchar(100)"); -} - diff --git a/docs/upgrades/upgrade_7.4.10-7.4.11.pl b/docs/upgrades/upgrade_7.4.10-7.4.11.pl deleted file mode 100644 index fe98a1af1..000000000 --- a/docs/upgrades/upgrade_7.4.10-7.4.11.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.11"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.11-7.4.12.pl b/docs/upgrades/upgrade_7.4.11-7.4.12.pl deleted file mode 100644 index 21420dd5d..000000000 --- a/docs/upgrades/upgrade_7.4.11-7.4.12.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.12"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.12-7.4.13.pl b/docs/upgrades/upgrade_7.4.12-7.4.13.pl deleted file mode 100644 index e6efb4ace..000000000 --- a/docs/upgrades/upgrade_7.4.12-7.4.13.pl +++ /dev/null @@ -1,141 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Asset; - - -my $toVersion = '7.4.13'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -scrubOldEventsCalendarTemplates($session); -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - -#------------------------------------------------- -sub scrubOldEventsCalendarTemplates { - my $session = shift; - print "\tRemoving old Events Calendar Templates.\n" unless ($quiet); - # and here's our code - foreach my $templateId (qw/PBtmpl0000000000000086 PBtmpl0000000000000105/) { - my $asset = WebGUI::Asset->new($session, $templateId); - printf("\t\tFetching old EventsCalendar template ID:%s.\n", $templateId) unless ($quiet); - next unless defined $asset; - my $deleted = $asset->purge(); - printf("\t\tDeleted old EventsCalendar template ID:%s.\n", $templateId) if ($deleted and not $quiet); - } - -} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.13-7.4.14.pl b/docs/upgrades/upgrade_7.4.13-7.4.14.pl deleted file mode 100644 index ae916c766..000000000 --- a/docs/upgrades/upgrade_7.4.13-7.4.14.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.14'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.14-7.4.15.pl b/docs/upgrades/upgrade_7.4.14-7.4.15.pl deleted file mode 100644 index 27c3bb806..000000000 --- a/docs/upgrades/upgrade_7.4.14-7.4.15.pl +++ /dev/null @@ -1,143 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.15'; -my $quiet; # this line required - - -my $session = start(); # this line required - -removeOrphanGroupings($session); -changeDefaultTimeZone($session); -# upgrade functions go here - -finish($session); # this line required - -#------------------------------------------------- -sub changeDefaultTimeZone { - my $session = shift; - print "\tChanging Default Event Timezone.\n" unless ($quiet); - $session->db->write("alter table Event alter timeZone set default 'America/Chicago'"); - my $visitor = WebGUI::User->new($session, 1); - my $defaultTimeZone = $visitor->profileField('timeZone'); - $session->db->write("update Event set timeZone=? where timeZone='UTC'", [$defaultTimeZone]); -} - -#------------------------------------------------- -sub removeOrphanGroupings { - my $session = shift; - print "\tCleaning up stale groupings.\n" unless ($quiet); - $session->db->write("delete from groupGroupings where groupId not in (select distinct groupId from groups)"); -} - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.15-7.4.16.pl b/docs/upgrades/upgrade_7.4.15-7.4.16.pl deleted file mode 100644 index e433563df..000000000 --- a/docs/upgrades/upgrade_7.4.15-7.4.16.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.16'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.16-7.4.17.pl b/docs/upgrades/upgrade_7.4.16-7.4.17.pl deleted file mode 100644 index a0cb0d3a0..000000000 --- a/docs/upgrades/upgrade_7.4.16-7.4.17.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.17'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.17-7.4.18.pl b/docs/upgrades/upgrade_7.4.17-7.4.18.pl deleted file mode 100644 index a163abac0..000000000 --- a/docs/upgrades/upgrade_7.4.17-7.4.18.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.18'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.18-7.4.19.pl b/docs/upgrades/upgrade_7.4.18-7.4.19.pl deleted file mode 100644 index 7185f2dcb..000000000 --- a/docs/upgrades/upgrade_7.4.18-7.4.19.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.19'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.19-7.4.20.pl b/docs/upgrades/upgrade_7.4.19-7.4.20.pl deleted file mode 100644 index 5df21ba4f..000000000 --- a/docs/upgrades/upgrade_7.4.19-7.4.20.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.20'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.2-7.4.3.pl b/docs/upgrades/upgrade_7.4.2-7.4.3.pl deleted file mode 100644 index 52b55d594..000000000 --- a/docs/upgrades/upgrade_7.4.2-7.4.3.pl +++ /dev/null @@ -1,179 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Workflow::Cron; -use WebGUI::Asset; -use WebGUI::Utility; - -my $toVersion = "7.4.3"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -reserializePollGraphConfigs($session); -fixCsMailWorkflow($session); - -finish($session); # this line required - - -#------------------------------------------------- -sub fixCsMailWorkflow { - my $session = shift; - print "\tFixing CS Mail workflows and crons.\n" unless ($quiet); - # get valid crons - my $collaborations = $session->db->read("select assetId from asset where className like 'WebGUI::Asset::Wobject::Collaboration%'"); - my @cronIds = (); - while (my ($id) = $collaborations->array) { - my $cs = WebGUI::Asset->newByDynamicClass($session, $id); - if (defined $cs) { - push(@cronIds, $cs->get("getMailCronId")); - } - } - # delete invalid crons - for my $task (@{WebGUI::Workflow::Cron->getAllTasks($session)}) { - next unless ($task->get("className") =~ m/WebGUI::Asset::Wobject::Collaboration/); - unless (isIn($task->getId, @cronIds)) { - $task->delete; - } - } -} - -#------------------------------------------------- -sub reserializePollGraphConfigs { - my $session = shift; - print "\tRe-serializing Poll Graph configuration... " unless ($quiet); - - use Storable; - $Storable::canonical = 1; - use JSON; - - my $sth = $session->db->read( - "SELECT assetId, revisionDate, graphConfiguration FROM Poll" - ); - - while (my %data = $sth->hash) { - next unless $data{graphConfiguration}; - my ($assetId, $revisionDate, $graphConfiguration) - = @data{'assetId', 'revisionDate', 'graphConfiguration'}; - - my $thawed = eval { Storable::thaw($graphConfiguration) }; - if ($@) { - print "\n\t!!! Could not fix graph configuration for assetId '$assetId' revisionDate '$revisionDate' !!!"; - next; - } - - $graphConfiguration = objToJson( $thawed ); - - $session->db->write( - "UPDATE Poll SET graphConfiguration=? WHERE assetId=? AND revisionDate=?", - [$graphConfiguration, $assetId, $revisionDate], - ); - } - - print "OK!\n" unless $quiet; -} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.20-7.4.21.pl b/docs/upgrades/upgrade_7.4.20-7.4.21.pl deleted file mode 100644 index e4ee35e62..000000000 --- a/docs/upgrades/upgrade_7.4.20-7.4.21.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = '7.4.21'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):\s*(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.3-7.4.4.pl b/docs/upgrades/upgrade_7.4.3-7.4.4.pl deleted file mode 100644 index d9d9bba7e..000000000 --- a/docs/upgrades/upgrade_7.4.3-7.4.4.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.4"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.4-7.4.5.pl b/docs/upgrades/upgrade_7.4.4-7.4.5.pl deleted file mode 100644 index 4b96b4ad6..000000000 --- a/docs/upgrades/upgrade_7.4.4-7.4.5.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.5"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.5-7.4.6.pl b/docs/upgrades/upgrade_7.4.5-7.4.6.pl deleted file mode 100644 index a4f7fcf83..000000000 --- a/docs/upgrades/upgrade_7.4.5-7.4.6.pl +++ /dev/null @@ -1,145 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.6"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -fixUserTriggers($session); -recalculateThreadRatings($session); - -finish($session); # this line required - - -#--------------------------------------------------- -sub fixUserTriggers($session) { - my $session = shift; - $session->setting->add("runOnAdminCreateUser",""); - $session->setting->add("runOnAdminUpdateUser",""); -} - -#---------------------------------------------------------------------------- -# Have Threads recalculate their own ratings -sub recalculateThreadRatings { - my $session = shift; - print "\tRecalculating Thread ratings. This may take a while... " unless ($quiet); - - my $root = WebGUI::Asset->getRoot($session); - my $threadIds - = $root->getLineage(["descendants"], { - includeOnlyClasses => ["WebGUI::Asset::Post::Thread"] - }); - - for my $threadId (@$threadIds) { - WebGUI::Asset->newByDynamicClass($session, $threadId)->updateThreadRating; - } - - print "OK!\n" unless $quiet; -} - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.6-7.4.7.pl b/docs/upgrades/upgrade_7.4.6-7.4.7.pl deleted file mode 100644 index 04e0963db..000000000 --- a/docs/upgrades/upgrade_7.4.6-7.4.7.pl +++ /dev/null @@ -1,125 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.7"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.7-7.4.8.pl b/docs/upgrades/upgrade_7.4.7-7.4.8.pl deleted file mode 100644 index 1e4e30907..000000000 --- a/docs/upgrades/upgrade_7.4.7-7.4.8.pl +++ /dev/null @@ -1,133 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.8"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -addEventTimeZone($session); - -finish($session); # this line required - - -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} - -#------------------------------------------------- -sub addEventTimeZone { - my $session = shift; - print "\tAdding timeZone to Events.\n" unless $quiet; - $session->db->write("alter table Event add column timeZone varchar(255) binary default 'UTC'"); -} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.8-7.4.9.pl b/docs/upgrades/upgrade_7.4.8-7.4.9.pl deleted file mode 100644 index fba9fabbe..000000000 --- a/docs/upgrades/upgrade_7.4.8-7.4.9.pl +++ /dev/null @@ -1,169 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::ProfileField; - -my $toVersion = "7.4.9"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -removeOrphanedGroupings($session); # upgrade functions go here -fixDashboardContentPositions($session); -fixPosts($session); - -finish($session); # this line required - - - -#------------------------------------------------- -sub removeOrphanedGroupings { - my $session = shift; - print "\tCleaning up stale groupings.\n" unless ($quiet); - $session->db->write("delete from groupGroupings where inGroup not in (select distinct groupId from groups)"); - $session->db->write("delete from groupings where groupId not in (select distinct groupId from groups)"); -} - - -#------------------------------------------------- -sub fixPosts { - my $session = shift; - my $db = $session->db; - print "\tRemoving unneeded fields from Posts.\n" unless ($quiet); - $db->write("alter table Post drop column dateSubmitted"); - $db->write("alter table Post drop column dateUpdated"); - $db->write("update Collaboration set sortBy='assetData.revisionDate' where sortBy='dateUpdated'"); - $db->write("update Collaboration set sortBy='creationDate' where sortBy='dateSubmitted'"); -} - -#------------------------------------------------- -sub fixDashboardContentPositions { - my $session = shift; - my $db = $session->db; - print "\tFixing broken dashboard content positions.\n" unless ($quiet); - foreach my $dashboardId ($db->quickArray("select assetId from asset where className='WebGUI::Asset::Wobject::Dashboard'")) { - my $newContentPositionId = "contentPositions".$dashboardId; - $newContentPositionId =~ s/-/_/g; - my $newField = WebGUI::ProfileField->create($session, $newContentPositionId, { - label=>'\'Dashboard User Preference - Content Positions\'', - visible=>0, - protected=>1, - editable=>0, - required=>0, - fieldType=>'textarea' - }); - my $oldContentPositionId = $dashboardId."contentPositions"; - my $userPositioning = $db->read("select userId, " . $db->dbh->quote_identifier($oldContentPositionId) . " from userProfileData"); - while (my ($userId, $positions) = $userPositioning->array) { - $db->write("update userProfileData set $newContentPositionId = ? where userId=?", [$positions, $userId]); - } - my $oldField = WebGUI::ProfileField->new($session, $oldContentPositionId); - if (defined $oldField) { - $oldField->delete; - } - } -} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.4.9-7.4.10.pl b/docs/upgrades/upgrade_7.4.9-7.4.10.pl deleted file mode 100644 index 18b88fd1f..000000000 --- a/docs/upgrades/upgrade_7.4.9-7.4.10.pl +++ /dev/null @@ -1,128 +0,0 @@ -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2006 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use lib "../../lib"; -use strict; -use Getopt::Long; -use WebGUI::Session; - - -my $toVersion = "7.4.10"; # make this match what version you're going to -my $quiet; # this line required - - -my $session = start(); # this line required - -fixPost($session); - -finish($session); # this line required - - -#------------------------------------------------- -sub fixPost { - my $session = shift; - print "\tFixing post problems from previous release.\n" unless ($quiet); - my $db = $session->db; - $db->write("delete from userSessionScratch where value='dateSubmitted'"); - $db->write("delete from userSessionScratch where value='dateUpdated'"); - $db->write("alter table Collaboration change sortBy sortBy varchar(35) not null default 'assetData.revisionDate'"); -} - - - -# ---- DO NOT EDIT BELOW THIS LINE ---- - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open("../..",$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); - updateTemplates($session); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "templates-".$toVersion); - print "\tUpdating templates.\n" unless ($quiet); - opendir(DIR,"templates-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $importNode = WebGUI::Asset->getImportNode($session); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.tmpl$/); - open(FILE,""WebGUI::Asset::Template"); - while (my $line = ) { - if ($first) { - $line =~ m/^\#(.*)$/; - $properties{id} = $1; - $first = 0; - } elsif ($line =~ m/^\#create$/) { - $create = 1; - } elsif ($line =~ m/^\#(.*):(.*)$/) { - $properties{$1} = $2; - } elsif ($line =~ m/^~~~$/) { - $head = 1; - } elsif ($head) { - $properties{headBlock} .= $line; - } else { - $properties{template} .= $line; - } - } - close(FILE); - if ($create) { - $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); - my $template = $newFolder->addChild(\%properties, $properties{id}); - } else { - my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); - if (defined $template) { - my $newRevision = $template->addRevision(\%properties); - } - } - } -} - -#------------------------------------------------- -sub createNewTemplatesFolder { - my $importNode = shift; - my $newFolder = $importNode->addChild({ - className=>"WebGUI::Asset::Wobject::Folder", - title => $toVersion." New Templates", - menuTitle => $toVersion." New Templates", - url=> $toVersion."_new_templates", - groupIdView=>"12" - }); - return $newFolder; -} - - - diff --git a/docs/upgrades/upgrade_7.5.0-7.5.1.pl b/docs/upgrades/upgrade_7.5.0-7.5.1.pl new file mode 100644 index 000000000..0d47257e5 --- /dev/null +++ b/docs/upgrades/upgrade_7.5.0-7.5.1.pl @@ -0,0 +1,98 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2008 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use lib "../../lib"; +use strict; +use Getopt::Long; +use WebGUI::Session; +use WebGUI::Storage; +use WebGUI::Asset; + + +my $toVersion = "0.0.0"; # make this match what version you're going to +my $quiet; # this line required + + +my $session = start(); # this line required + +# upgrade functions go here + +finish($session); # this line required + + +##------------------------------------------------- +#sub exampleFunction { +# my $session = shift; +# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); +# # and here's our code +#} + + +# --------------- DO NOT EDIT BELOW THIS LINE -------------------------------- + +#---------------------------------------------------------------------------- +# Add a package to the import node +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 }); +} + +#------------------------------------------------- +sub start { + my $configFile; + $|=1; #disable output buffering + GetOptions( + 'configFile=s'=>\$configFile, + 'quiet'=>\$quiet + ); + my $session = WebGUI::Session->open("../..",$configFile); + $session->user({userId=>3}); + my $versionTag = WebGUI::VersionTag->getWorking($session); + $versionTag->set({name=>"Upgrade to ".$toVersion}); + $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); + updateTemplates($session); + return $session; +} + +#------------------------------------------------- +sub finish { + my $session = shift; + my $versionTag = WebGUI::VersionTag->getWorking($session); + $versionTag->commit; + $session->close(); +} + +#------------------------------------------------- +sub updateTemplates { + my $session = shift; + return undef unless (-d "packages-".$toVersion); + print "\tUpdating packages.\n" unless ($quiet); + opendir(DIR,"packages-".$toVersion); + 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 = "packages-" . $toVersion . "/" . $file; + addPackage( $session, $file ); + } +} +