795d88e7e5
Conflicts: docs/upgrades/upgrade_7.9.13-7.10.0.pl lib/WebGUI.pm lib/WebGUI/Asset/Template/TemplateToolkit.pm lib/WebGUI/Asset/Wobject/AssetReport.pm lib/WebGUI/Asset/Wobject/Thingy.pm lib/WebGUI/Form/Captcha.pm lib/WebGUI/Macro/AdminBar.pm lib/WebGUI/Shop/Cart.pm lib/WebGUI/Shop/PayDriver.pm lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm lib/WebGUI/Shop/PayDriver/PayPal/PayPalStd.pm lib/WebGUI/Shop/Transaction.pm lib/WebGUI/Workflow/Instance.pm lib/WebGUI/Workflow/Spectre.pm lib/WebGUI/i18n/English/PayDriver.pm t/Asset/Asset.t t/Asset/AssetExportHtml.t t/Asset/AssetLineage.t t/Asset/Wobject/Thingy.t
20 lines
618 B
Perl
20 lines
618 B
Perl
|
|
use WebGUI::Upgrade::Script;
|
|
|
|
start_step "Rename Account Macro template variables";
|
|
|
|
my $sth = session->db->read( q|SELECT assetId, revisionDate FROM template where namespace="Macro/a_account"| );
|
|
ASSET: while ( my ($assetId, $revisionDate) = $sth->array ) {
|
|
my $asset = eval { WebGUI::Asset->newById( session, $assetId, $revisionDate ); };
|
|
next ASSET if Exception::Class->caught;
|
|
my $template = $asset->get('template');
|
|
$template =~ s/account\.url/account_url/msg;
|
|
$template =~ s/account\.text/account_text/msg;
|
|
$asset->update({
|
|
template => $template,
|
|
});
|
|
}
|
|
|
|
|
|
done;
|
|
|