allow changing template on system scrips, #18184
authorMark Wells <mark@freeside.biz>
Thu, 18 Jul 2013 18:51:21 +0000 (11:51 -0700)
committerMark Wells <mark@freeside.biz>
Thu, 18 Jul 2013 18:51:21 +0000 (11:51 -0700)
FS/FS/TicketSystem.pm
rt/share/html/Admin/Elements/EditScrip

index 96980e9..c1c69fa 100644 (file)
@@ -209,7 +209,7 @@ sub _upgrade_data {
   while (my $item = $search->Next) {
     my ($c, $a, $t) = map {lc $item->$_->Name} 
       ('ScripConditionObj', 'ScripActionObj', 'TemplateObj');
-    if ( exists $scrip{$c}{$a}{$t} and $item->Creator == 1 ) {
+    if ( exists $scrip{$c}{$a} and $item->Creator == 1 ) {
       warn "Deleting duplicate scrip $c $a [$t]\n";
       my ($val, $msg) = $item->Delete;
       warn "error deleting scrip: $msg\n" if !$val;
@@ -220,7 +220,7 @@ sub _upgrade_data {
       warn "error deleting scrip: $msg\n" if !$val;
     }
     else {
-      $scrip{$c}{$a}{$t} = $item->id;
+      $scrip{$c}{$a} = $item->id;
     }
   }
   my $Scrip = RT::Scrip->new($CurrentUser);
@@ -229,8 +229,8 @@ sub _upgrade_data {
     my ($c, $a, $t) = map lc,
       @{ $s }{'ScripCondition', 'ScripAction', 'Template'};
 
-    if ( exists($scrip{$c}{$a}{$t}) ) {
-      $Scrip->Load( $scrip{$c}{$a}{$t} );
+    if ( exists($scrip{$c}{$a}) ) {
+      $Scrip->Load( $scrip{$c}{$a} );
     } else { # need to create it
 
       if ( !exists($condition{$c}) ) {
index 05a33d4..bd1bde7 100755 (executable)
 &>
 
 <tr><td class="label"><&|/l&>Template</&>:</td><td class="value">\
-% if ( $immutable ) {
-<% $scrip->TemplateObj->Name %>
-<input type="hidden" name="Scrip-<%$id%>-Template" value="<% $scrip->TemplateObj->Id %>">
-% } else {
+%# immutable flag doesn't affect this
 <& /Admin/Elements/SelectTemplate,
     Name => "Scrip-$id-Template",
     Default => $ARGS{"Scrip-$id-Template"} || $scrip->TemplateObj->Id,
     Queue => $Queue,
 &>
-% }
 </td></tr>
 
 <tr><td class="label"><&|/l&>Stage</&>:</td><td class="value">\
+%# or this
 <& /Admin/Elements/SelectStage,
     Name => "Scrip-$id-Stage",
     Default => $ARGS{"Scrip-$id-Stage"} || $scrip->Stage,