X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fwebrt%2FAdmin%2FKeywordSelects%2Findex.html;fp=rt%2Fwebrt%2FAdmin%2FKeywordSelects%2Findex.html;h=0000000000000000000000000000000000000000;hp=ba3da9f0cf98ffbe9a1d4021b9c07e018494889e;hb=ded0451e9582df33cae6099a2fb72b4ea25076cf;hpb=0ebeec96313dd7edfca340f01f8fbbbac1f4aa1d diff --git a/rt/webrt/Admin/KeywordSelects/index.html b/rt/webrt/Admin/KeywordSelects/index.html deleted file mode 100644 index ba3da9f0c..000000000 --- a/rt/webrt/Admin/KeywordSelects/index.html +++ /dev/null @@ -1,137 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin KeywordSelects' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/KeywordSelects/' &> - -A KeywordSelect is a link between a Keyword and a object -(currently just Tickets), titled by the Name field of the Keyword such that: -
- Create KeywordSelect- - -<%INIT> - - -my $KeywordSelect = new RT::KeywordSelect($session{CurrentUser}); - -my($title, $submit); - -if ( $Create ) { - $title = "Create a new KeywordSelect"; - $submit = "Create"; - $id = "new"; -} else { - if ( $id eq 'new' ) { - $id = $KeywordSelect->Create ( - Parent => $Parent, - ObjectType => $ObjectType, - ObjectField => $ObjectField, - ObjectValue => $ObjectValue, - Single => $Single, - Generations => $Generations, - ) or Abort "can't create KeywordSelect"; - } else { - $KeywordSelect->Load($id) || Abort("Can't load keyword id $id"); - #false laziness - $KeywordSelect->SetParent($Parent) if defined($Parent); - $KeywordSelect->SetObjectType($ObjectType) if defined($ObjectType); - $KeywordSelect->SetObjectField($ObjectField) if defined($ObjectField); - $KeywordSelect->SetObjectValue($ObjectValue) if defined($ObjectValue); - $KeywordSelect->SetSingle($Single) if defined($SingleMagic); - $KeywordSelect->SetGenerations($Generations) if defined($Generations); - } - $title = "Modify the KeywordSelect ". $KeywordSelect->KeywordObj->Name. ""; - $submit = "Modify"; - -} - - my $parents = new RT::Keywords($session{CurrentUser}); - $parents->UnLimit; - my $parent; - -my $queues = new RT::Queues($session{CurrentUser}); -$queues->UnLimit; - -my %queues; -my $queue; -$queues{$queue->id} = $queue->Name while $queue = $queues->Next; - -%INIT> - -<%ARGS> -$id => undef -$Create => undef -$Parent => undef -$ObjectType => undef -$ObjectField => undef -$ObjectValue => undef -$Single => undef -$SingleMagic => undef -$Generations => undef -%ARGS> - - - <& /Admin/Elements/ModifyKeywordSelect, 'Create'=>'1' &> - |
-
-
- Modify KeywordSelect- - <& /Admin/Elements/SelectModifyKeywordSelect &> - |
-
-
-