[Bps-public-commit] r20141 - RT-BugTracker/html/Dist/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Tue Nov 24 12:57:09 2009
New Revision: 20141

Added:
   RT-BugTracker/html/Dist/Elements/EditSubjectTag

Log:
* subject tag editor

Added: RT-BugTracker/html/Dist/Elements/EditSubjectTag
==============================================================================
--- (empty file)
+++ RT-BugTracker/html/Dist/Elements/EditSubjectTag	Tue Nov 24 12:57:09 2009
@@ -0,0 +1,24 @@
+<% loc('Subject tag in addition to default') %>
+(<% loc('be reasonable') %>):
+<input size="120" name="Queue-<% $Queue->id %>-SubjectTag" value="<% $value || '' %>" /><br />
+<%ARGS>
+$Queue => undef
+</%ARGS>
+<%INIT>
+my $value = $Queue->SubjectTag;
+</%INIT>
+
+<%METHOD Process>
+<%ARGS>
+$Queue => undef
+</%ARGS>
+<%INIT>
+return () unless exists $ARGS{'Queue-'. $Queue->id .'-SubjectTag'};
+my $value = $ARGS{'Queue-'. $Queue->id .'-SubjectTag'};
+
+return () if ($Queue->SubjectTag || '') eq ($value || '');
+
+my ($status, $msg) = $Queue->SetSubjectTag( $value );
+return $msg;
+</%INIT>
+</%METHOD>