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

added newsletter

Browse source
This commit is contained in:
Joeri de Bruin 2026-04-21 11:25:55 +02:00
parent 5fc1c6bdae
commit 63cb6c3723
8 changed files with 729 additions and 1101 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/Spectre/Admin.pm
View file

@ -155,6 +155,7 @@ sub loadSiteData {
}
else {
my $siteData = {};
print "Reading site configs. $url responded with: " . $response->content . "\n";
eval { $siteData = JSON::decode_json($response->content); };
if ($@) {
$self->error("Couldn't fetch Spectre configuration data for $key : $@");

5
lib/WebGUI/Asset/RichEdit.pm
View file

@ -19,7 +19,7 @@ use WebGUI::Asset;
use WebGUI::Form;
use WebGUI::Utility;
use WebGUI::International;
use JSON;
use JSON -convert_blessed_universally;
our @ISA = qw(WebGUI::Asset);
@ -664,9 +664,10 @@ EOHTML1
if ( $ask ) {
$config->{mode} = "none";
}
$self->session->log->debug("config: $config->{mode} ");
$out .= $self->getLoadPlugins;
$out .= "\ttinyMCE.init(" . JSON->new->pretty->encode( $config ) . " );\n";
$out .= "\ttinyMCE.init(" . JSON->new->allow_blessed->pretty->encode( $config ) . " );\n";
$out .= "</script>";
}

4
lib/WebGUI/Crud.pm
View file

@ -233,7 +233,7 @@ sub crud_createTable {
my $tableName = $class->crud_getTableName($session);
$class->crud_dropTable($session);
$db->write('create table '.$dbh->quote_identifier($tableName).' (
'.$dbh->quote_identifier($class->crud_getTableKey($session)).' CHAR(22) binary not null primary key,
'.$dbh->quote_identifier($class->crud_getTableKey($session)).' CHAR(22) binary not null default "" primary key,
sequenceNumber int not null default 1,
dateCreated datetime,
lastUpdated datetime
@ -468,7 +468,7 @@ sub crud_updateTable {
my $notNullClause = ($isKey || $defaultValue ne "") ? "not null" : "";
my $defaultClause = '';
if ($fieldType !~ /(?:text|blob)$/i) {
$defaultClause = "default ".$dbh->quote($defaultValue) if ($defaultValue ne "");
$defaultClause = "default ".$dbh->quote($defaultValue);
}
if (exists $tableFields{$property}) {
my $changed = 0;