[rt-devel] Feature: red-colored errors in the result-list for 2.0.15

[Warnke Andreas]

Hello,

The following code is quite ugly - but the result is wonderful:
The list of results now is sorted: Errors apper first and in red,
Feedback for the expected behavior is listed later in black.

Best Regards
Andi

--
Andreas Warnke
3SOFT GmbH, Frauenweiherst. 14, 91058 Erlangen
Tel.: +49-9131-7701-274 mailto:Andreas.Warnke at 3SOFT.de
Fax: +49-9131-7701-333 http://www.3SOFT.de


Just exchange the file webrt/Elements/ListActions with:

% if (@actions ) {
<& /Elements/TitleBoxStart, title => 'Results' &>
<UL>
%# ----------------------------------------
%# modified by andreas.warnke @3soft.de
%# ----------------------------------------
% foreach my $action (@BadNews) {
<LI> <FONT COLOR="red"><B><%$action%></B></FONT> </LI>
% }
% foreach my $action (@Unclassified) {
<LI><FONT COLOR="blue"><%$action%></FONT></LI>
% }
% foreach my $action (@GoodNews) {
<LI><%$action%></LI>
% }
%# ----------------------------------------
</UL>
<& /Elements/TitleBoxEnd &>
<BR>
% }
<%INIT>
# ----------------------------------------
# added by andreas.warnke @3soft.de
# ----------------------------------------
my (@GoodNews, at BadNews, at Unclassified);
foreach $_ (@actions) {
    next unless ($_);
    if ( 
        #### BAD NEWS ####
        m/^ACEs can only be / ||
        m/^ACE could not be / ||
	m/^ACE not found/ ||
	m/^Can't/ ||
	m/^Condition not found/ ||
	m/^Could not/ || #TESTED 
	m/^Couldn't / ||
	m/^Deleting this object could/ ||
	m/^Deleting this object would/ ||
	m/^Either/ ||
	m/^Email address in use/ ||
	m/^Error in/ ||
	m/^Error:/ ||
	m/^Group already has member/ || #TESTED
	m/^Group has no / ||
	m/^Input error/ ||
	m/^Invalid/ ||
	m/^Keyword could not/ ||
	m/^Keyword not found/ ||
	m/^Link not found/ ||
	m/^Link already exists/ ||
	m/^Link could not be/ ||
	m/^Member not deleted/ ||
	m/^Merge failed/ || #TESTED
	m/^Must specify/ ||
	m/Name in use$/ || #TESTED
	m/^New ticket doesn't exist/ ||
	m/^No correspondence attached/ ||
	m/^No description for/ ||
	m/^No group specified/ ||
	m/^No keyword defined/ ||
	m/^No password set/ ||
	m/^No permission to/ ||
	m/^No transaction type/ ||
	m/^No user or email address specified/ ||
	m/^Not a watcher for this/ ||
	m/^Notification could not/ ||
	m/^Parent must be specified/ ||
	m/^Password: Password too short/ || #TESTED
	m/^Passwords did not/ || #TESTED
    	m/^No permission to/ ||
        m/^Permission Denied/ || #TESTED
        m/Permission Denied$/ || #TESTED
	m/^Permssion Denied/ ||
	m/^Queue could not/ || 
	m/^Sender's email address was not found/ ||
	m/^System Error/ ||
	m/^System error/ ||
	m/^Template not found/ ||
	m/The attachment was oversized and therefore
(dropped|truncated)\.$/ || #TESTED
	m/^That is the same value/ ||
	m/^That is already/ ||
	m/^Queue: That queue does not exist/ || #TESTED
	m/^That user already/ ||
	m/^That user does not/ ||
	m/^That user is already/ ||
	m/^That user may not/ ||
	m/^That's not a / ||
	m/^This transaction appears to/ ||
	m/^This appears to be a duplicate / || #TESTED
	m/^Transactions are immutable/ ||
	#m/^Trying to delete:/ || #TESTED
	m/^Unimplemented/ ||
	m/^Unknown ContentEncoding/ ||
	m/^Update type was neither/ ||
	m/^User not found/ ||
	m/^Watcher could not be/ ||
	m/^You already own/ ||
	m/^You can only/ ||
	m/^You may not/ 
	#### BAD NEWS ####
    ){
	push @BadNews, $_;
    }	
    elsif (
        #### GOOD NEWS ####
	# These rules may be a bit more sloppy since the BadNews
	# are already tested.
	#
	m/added$/ || #TESTED
	m/added.$/ || #TESTED
	m/Added$/ ||
	m/changed from .* to / || #TESTED
	m/^Correspondence sent/ || #TESTED
	m/changed$/ || 
	m/Changed$/ ||
	m/created$/ || #TESTED
	m/Created$/ || #TESTED
	m/deleted$/ ||
	m/deleted.$/ || #TESTED
	m/Deleted$/ ||
	m/^Interest noted/ || #TESTED
	m/^Link created / || #TESTED
	m/^Link deleted / || #TESTED
	m/loaded$/ ||
	m/Loaded$/ ||
	m/^Merge Successful/ || #TESTED
	m/recorded\.$/ || #TESTED
	m/^Revoked/ || #TESTED
	m/^Granted / || #TESTED
	m/^Status: Ticket killed/ || #TESTED
	m/^Template parsed/ ||
	m/^The comment has been recorded/ || #TESTED
	m/The new value has been set\.$/ || #TESTED
	m/^Ticket [0-9]* created / || #TESTED
	m/^Transaction .* purged/ ||
	m/updated$/ ||
	m/Updated$/ ||
	m/^User notified/ 
	#### GOOD NEWS #### 
    ){
	push @GoodNews, $_;
    }
    else {
        #### OTHER NEWS ####
	push @Unclassified, $_;
    }
}
# ----------------------------------------
</%INIT>
<%ARGS>
@actions => undef
</%ARGS>