projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
quotations, RT#16996
[freeside.git]
/
FS
/
FS
/
TicketSystem.pm
diff --git
a/FS/FS/TicketSystem.pm
b/FS/FS/TicketSystem.pm
index
aae44f3
..
c1553f1
100644
(file)
--- a/
FS/FS/TicketSystem.pm
+++ b/
FS/FS/TicketSystem.pm
@@
-136,7
+136,8
@@
sub _upgrade_data {
# Load from RT data file
our (@Groups, @Users, @ACL, @Queues, @ScripActions, @ScripConditions,
# Load from RT data file
our (@Groups, @Users, @ACL, @Queues, @ScripActions, @ScripConditions,
- @Templates, @CustomFields, @Scrips, @Attributes, @Initial, @Final);
+ @Templates, @CustomFields, @Scrips, @Attributes, @Initial, @Final,
+ %Delete_Scrips);
my $datafile = '%%%RT_PATH%%%/etc/initialdata';
eval { require $datafile };
if ( $@ ) {
my $datafile = '%%%RT_PATH%%%/etc/initialdata';
eval { require $datafile };
if ( $@ ) {
@@
-211,6
+212,11
@@
sub _upgrade_data {
my ($val, $msg) = $item->Delete;
warn "error deleting scrip: $msg\n" if !$val;
}
my ($val, $msg) = $item->Delete;
warn "error deleting scrip: $msg\n" if !$val;
}
+ elsif ( exists $Delete_Scrips{$c}{$a}{$t} and $item->Creator == 1 ) {
+ warn "Deleting obsolete scrip $c $a [$t]\n";
+ my ($val, $msg) = $item->Delete;
+ warn "error deleting scrip: $msg\n" if !$val;
+ }
else {
$scrip{$c}{$a}{$t} = $item->id;
}
else {
$scrip{$c}{$a}{$t} = $item->id;
}