oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

merged from HEAD

Browse source
This commit is contained in:
David Delikat 2009-03-25 14:45:27 +00:00
commit daf279f8d2
39 changed files with 1332 additions and 139 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
docs/upgrades/packages-7.7.1/image3.wgpkg Normal file
View file

Binary file not shown.

BIN
docs/upgrades/packages-7.7.1/root_import_auth_webgui_create_default-webgui-welcome-message-template.wgpkg Normal file
View file

Binary file not shown.

BIN
docs/upgrades/packages-7.7.1/root_import_survey_default-questions.wgpkg Normal file
View file

Binary file not shown.

BIN
docs/upgrades/packages-7.7.1/templates_thingy-default.wgpkg Normal file
View file

Binary file not shown.

2
docs/upgrades/upgrade_7.6.14-7.7.0.pl
View file

@ -123,7 +123,7 @@ sub installAssetHistory {
print "\tAdding Asset History content handler... \n" unless $quiet;
##Content Handler
my $contentHandlers = $session->config->get('contentHandlers');
if (! isIn('WebGUI::Content::Handler', @{ $contentHandlers }) ) {
if (! isIn('WebGUI::Content::AssetHistory', @{ $contentHandlers }) ) {
my @newHandlers = ();
foreach my $handler (@{ $contentHandlers }) {
push @newHandlers, $handler;

45
docs/upgrades/upgrade_7.7.0-7.7.1.pl
View file

@ -32,9 +32,54 @@ my $session = start(); # this line required
# upgrade functions go here
adSkuInstall($session);
addWelcomeMessageTemplateToSettings( $session );
addStatisticsCacheTimeoutToMatrix( $session );
# image mods
addImageAnnotation($session);
# rss mods
addRssLimit($session);
finish($session); # this line required
sub addWelcomeMessageTemplateToSettings {
my $session = shift;
print "\tAdding welcome message template to settings \n" unless $quiet;
$session->db->write("insert into settings values ('webguiWelcomeMessageTemplate', 'PBtmpl0000000000000015');");
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addRssLimit {
my $session = shift;
print "\tAdding rssLimit to RSSCapable table, if needed... \n" unless $quiet;
my $sth = $session->db->read('describe RSSCapable rssCableRssLimit');
if (! defined $sth->hashRef) {
$session->db->write("alter table RSSCapable add column rssCableRssLimit integer");
}
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addImageAnnotation {
my $session = shift;
print "\tAdding annotations to ImageAsset table, if needed... \n" unless $quiet;
my $sth = $session->db->read('describe ImageAsset annotations');
if (! defined $sth->hashRef) {
$session->db->write("alter table ImageAsset add column annotations mediumtext");
}
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addStatisticsCacheTimeoutToMatrix{
my $session = shift;
print "\tAdding statisticsCacheTimeout setting to Matrix table... \n" unless $quiet;
$session->db->write("alter table Matrix add statisticsCacheTimeout int(11) not null default 3600");
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
# Describe what our function does