[Rt-commit] rt branch, 4.4/queue-include-article, updated. rt-4.4.2-60-g94acd17

Craig Kaiser craig at bestpractical.com
Tue Jan 2 17:16:53 EST 2018


The branch, 4.4/queue-include-article has been updated
       via  94acd171de899771aa7e76c102780a99aad2d423 (commit)
      from  06593b6a36ac87daf02b1ecae65a397a35576302 (commit)

Summary of changes:
 share/html/Admin/Queues/Modify.html | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 94acd171de899771aa7e76c102780a99aad2d423
Author: Craig Kaiser <craig at bestpractical.com>
Date:   Tue Jan 2 17:15:35 2018 -0500

    Change input method for Article, to drop down box
    
    Change the input option from an input box to a drop down box, to make an
    incorrect article name not a problem.

diff --git a/share/html/Admin/Queues/Modify.html b/share/html/Admin/Queues/Modify.html
index e59884b..c26c74b 100644
--- a/share/html/Admin/Queues/Modify.html
+++ b/share/html/Admin/Queues/Modify.html
@@ -80,8 +80,13 @@
 % }
 </td></tr>
 
-<tr><td align="right"><&|/l&>Include Article</&>:</td>
-  <td colspan="3"><input name="ArticleIncluded" value="<% $ARGS{'ArticleIncluded'} || ($Create ? "" : $QueueObj->ArticleIncluded || '' ) %>" size="20"/></td>
+<td><&|/l&>Include Article:</&></td>
+<td><select name="ArticleIncluded">
+    <option value="<% $ARGS{'ArticleInclduded'} || ($Create ? "" : $QueueObj->ArticleIncluded || '') %>"><% $ARGS{'ArticleIncluded'} || ($QueueObj->ArticleIncluded || '-') %></option>
+% while (my $article = $hotlist->Next) {
+<option value="<% $article->Name %>"><% $article->Name %></option>
+% }
+</select>
 </tr>
 
 <tr><td align="right"><&|/l&>Subject Tag</&>:</td>
@@ -176,6 +181,10 @@ my ($title, @results, @no_redirect_results, $Disabled, $EnabledChecked);
 my $QueueObj = RT::Queue->new( $session{'CurrentUser'} );
 $QueueObj->Load( $id ) if !$id || $id eq 'new';
 
+my $hotlist = RT::Articles->new( $session{'CurrentUser'});
+$hotlist->LimitHotlistClasses;
+$hotlist->LimitAppliedClasses ( Queue => $QueueObj );
+
 $EnabledChecked = 'checked="checked"';
 
 unless ($Create) {

-----------------------------------------------------------------------


More information about the rt-commit mailing list