diff options
Diffstat (limited to 'rt/webrt/Search')
| -rwxr-xr-x | rt/webrt/Search/Bulk.html | 186 | ||||
| -rwxr-xr-x | rt/webrt/Search/Listing.html | 134 | ||||
| -rwxr-xr-x | rt/webrt/Search/PickRestriction | 112 | ||||
| -rwxr-xr-x | rt/webrt/Search/RestrictSearch.html | 3 | ||||
| -rw-r--r-- | rt/webrt/Search/TicketCell | 28 |
5 files changed, 0 insertions, 463 deletions
diff --git a/rt/webrt/Search/Bulk.html b/rt/webrt/Search/Bulk.html deleted file mode 100755 index ac688d7cd..000000000 --- a/rt/webrt/Search/Bulk.html +++ /dev/null @@ -1,186 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/Bulk.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com> -<& /Elements/Header, Title => "Bulk ticket update" &> -<& /Elements/Tabs &> - -<& /Elements/ListActions, actions => \@results &> - -<FORM METHOD=POST> -<TABLE WIDTH=100% border=0 cellpadding=3 CELLSPACING=0> -<TR> -<TH>Update</TH> -%foreach my $col (@cols) { -% my $colalias = $col; -% $colalias =~ s/(Obj\-\>|)(Name|AsString)//; - -<TH ><% $colalias %> </TH> -%} -</TR> - -<%PERL> - -my $i; - - - -$session{'tickets'}->RedoSearch(); -while (my $Ticket = $session{'tickets'}->Next) { - $i++; - if ($i % 2) { - $bgcolor = "#dddddd"; - } - else { - $bgcolor = "#ffffff"; - } - </%PERL> -<TR bgcolor="<%$bgcolor%>"> -<TD><input type=checkbox name="UpdateTicket<%$Ticket->Id%>" CHECKED></TD> -%# The ticket view is controlled by config.pm, WebOptions -%foreach my $col (@cols) { -<TD> -% if ($col eq 'id') { -<A HREF="<% $RT::WebPath%>/Ticket/Display.html?id=<%$Ticket->Id%>"><%$Ticket->Id()%></A> -% } -%else { -<% eval "\$Ticket->$col()" %> -%} -</TD> -%} -</TR> -%} - - - -</TABLE> - -<HR> - - -<& /Elements/TitleBoxStart, title => 'Update selected tickets' &> -<TABLE> -<TR> -<TD VALIGN=TOP> -<UL> -<li> Make Owner <& /Elements/SelectOwner, Name => "Owner" &> -(<input type=checkbox name="ForceOwnerChange"> Force change) -<li> Add Requestor <INPUT Name="AddRequestor" SIZE=20> -<li> Remove Requestor <INPUT Name="DeleteRequestor" SIZE=20> -<li> Add Cc <INPUT Name="AddCc" SIZE=20> -<li> Remove Cc <INPUT Name="DeleteCc" SIZE=20> -<li> Add AdminCc <INPUT Name="AddAdminCc" SIZE=20> -<li> Remove AdminCc <INPUT Name="DeleteAdminCc" SIZE=20> -</UL> -</TD> -<TD VALIGN=TOP> -<UL> -<li> Make subject <INPUT Name="Subject" SIZE=20> -<li> Make priority <INPUT Name="Priority" SIZE=4> -<li> Make queue <& /Elements/SelectQueue, Name => "Queue" &> - -<li>Make Status <& /Elements/SelectStatus, Name => "Status" &> - - - -<li> Make date Starts <& /Elements/SelectDate, Name => "Starts_Date", ShowTime => 0, Default => '' &> -<li> Make date Started <& /Elements/SelectDate, Name => "Started_Date", ShowTime => 0, Default => '' &> -<li> Make date Told <& /Elements/SelectDate, Name => "Told_Date", ShowTime => 0, Default => '' &> -<li> Make date Due <& /Elements/SelectDate, Name => "Due_Date", ShowTime => 0, Default => '' &> -<li> Make date Resolved <& /Elements/SelectDate, Name => "Resolved_Date", ShowTime => 0, Default => '' &> - - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - -<li> Add <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "AddToKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &> -<li> Remove <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "DeleteFromKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &> -% } - -</UL> - - -</TD> -</TR> -</table> -<& /Elements/TitleBoxEnd&> -<& /Elements/TitleBoxStart, title => 'Add comments or replies to selected tickets' &> -<table> -<tr><td align=right>Update Type:</td> -<td><select name="UpdateType"> - <option value="private" >Comments (not sent to requestors)</option> -<option value="response" >Response to requestors</option> -</select> -</td></tr> -<tr><td align=right>Subject:</td><td> <input name="UpdateSubject" size=60 value=""></td></tr> - <tr><td align=right>Attach:</td><td><input name="UpdateAttachment" type="file"></td></tr> - <tr><td colspan="2"> - <& /Elements/MessageBox, Name=>"UpdateContent"&> - </td></tr> - </table> -<& /Elements/TitleBoxEnd &> - - - - -<& /Elements/Submit &> - - -</FORM> -<%INIT> - -# Iterate through the ARGS hash and remove anything with a null value. -map ($ARGS{$_} =~ /^$/ && (delete $ARGS{$_}), keys %ARGS); - -my ($bgcolor, @results); -my @cols = qw(id Status Priority Subject QueueObj->Name OwnerObj->Name RequestorsAsString DueAsString ); - -Abort("No search to operate on.") unless ($session{'tickets'}); - - -my $do_comment_reply=0; -# Prepare for ticket updates -$ARGS{'UpdateContent'} =~ s/\r\n/\n/g; -chomp ($ARGS{'UpdateContent'}) ; - -if ($ARGS{'UpdateContent'} && - $ARGS{'UpdateContent'} ne '' && - $ARGS{'UpdateContent'} ne "-- \n" . - $session{'CurrentUser'}->UserObj->Signature) { - $do_comment_reply=1; -} - -my $KeywordSelects = new RT::KeywordSelects $session{'CurrentUser'}; -foreach ( $session{'tickets'}->RestrictionValues('Queue') ) { - $KeywordSelects->LimitToQueue($_); -} - -$KeywordSelects->IncludeGlobals; - - -#Iterate through each ticket we've been handed - -while (my $Ticket = $session{'tickets'}->Next) { - $RT::Logger->debug( "Checking Ticket ".$Ticket->Id ."\n"); - next unless ($ARGS{"UpdateTicket".$Ticket->Id}); - $RT::Logger->debug ("Matched\n"); - #Update the basics. - my @basicresults = ProcessTicketBasics(TicketObj => $Ticket, ARGSRef => \%ARGS); - my @dateresults = ProcessTicketDates(TicketObj => $Ticket, ARGSRef => \%ARGS); - my @watchresults = ProcessTicketWatchers(TicketObj => $Ticket, ARGSRef => \%ARGS); - my @selectresults = ProcessTicketObjectKeywords(TicketObj => $Ticket, ARGSRef => \%ARGS); - - - my @updateresults; - if ($do_comment_reply) { - ProcessUpdateMessage(TicketObj => $Ticket, ARGSRef => \%ARGS, Actions => \ -@updateresults); - } - my @tempresults = (@watchresults, @basicresults, @dateresults, @updateresults); - @tempresults = map { "Ticket ".$Ticket->Id. ": ".$_ } @tempresults; - - - #Update the keyword selects - #Update the watchers - $RT::Logger->debug(join("\n",@tempresults)); - @results = (@results, @tempresults); -} - -</%INIT> diff --git a/rt/webrt/Search/Listing.html b/rt/webrt/Search/Listing.html deleted file mode 100755 index da927fec7..000000000 --- a/rt/webrt/Search/Listing.html +++ /dev/null @@ -1,134 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/Listing.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com> -<& /Elements/Header, Title => "Search", Refresh => $session{'tickets_refresh_interval'} &> -<& /Elements/Tabs, current_toptab => 'Search/Listing.html' &> - - -% unless ($ARGS{'Action'} eq 'Refine') { -<TABLE WIDTH=100% border=0 cellpadding=3 CELLSPACING=1> -<TR> -%foreach my $col (@{Config(\%ARGS, 'QueueListingCols')}) { -<TH> - -<%PERL> -my ($order); - my $attr = $col->{'TicketAttribute'}; - $attr =~ s/Obj->(Name|AsString|AgeAsString)//g; - if ($session{'tickets_sort_order'} =~ /^asc$/i) { - $order = 'DESC'; - } else { - $order = 'ASC'; - } -</%PERL> - -% if (grep (/^$attr$/i, $session{'tickets'}->SortFields)) { -<A -% if ($attr eq $session{'tickets_sort_by'}) { -class="currenttab" -% } -HREF="<% $RT::WebPath%>/Search/Listing.html?Bookmark=<%$session{'tickets'}->FreezeLimits()|u%>&TicketsSortBy=<%$attr%>&TicketsSortOrder=<%$order%>&RowsPerPage=<%$session{'tickets_rows_per_page'}%>"> -<%$col->{Header}%> -</A> -% } else { -<% $col->{Header} %> -% } -</TH> -%} -</TR> - -<%PERL> - -my $i; - -$session{'tickets'}->RedoSearch(); -while (my $Ticket = $session{'tickets'}->Next) { - $i++; - if ($i % 2) { - $bgcolor = "#dddddd"; - } - else { - $bgcolor = "#ffffff"; - } - </%PERL> -<TR bgcolor="<%$bgcolor%>" > -%# The ticket view is controlled by config.pm, WebOptions -%foreach my $col (@{Config(\%ARGS,'QueueListingCols')}) { -<TD><& TicketCell , Ticket=>$Ticket, Column=>$col &></TD> -%} -</TR> -%} - - - -</TABLE> - -<div align=center> -<font size=2> -<a href="Listing.html?GotoPage=1">First page</a> - -<a href="Listing.html?GotoPage=Prev"><Previous page</a> - -<a href="Listing.html?GotoPage=Next">Next page></a> -%# <form method=get action="Listing.html">Goto page <input name=GotoPage size=2></form> -</font> -</div> -% if ($session{'tickets'}->Count()) { -<div align=right> -<a href="Bulk.html">Update all these tickets at once</a> -</div> -% } -<HR> - -% } #endif {$ARGS{'Action'} eq 'Refine') -<TABLE WIDTH="100%"> -<TR> -<TD VALIGN="TOP"> -<& /Elements/TitleBoxStart, title => 'Search Criteria'&> - -<A HREF="<% $RT::WebPath%>/Search/Listing.html?ClearRestrictions=1">New search</a><br> -<A HREF="<% $RT::WebPath%>/Search/Listing.html?Bookmark=<%$session{'tickets'}->FreezeLimits()|u%>&TicketsSortBy=<%$session{'tickets_sort_by'}%>&TicketsSortOrder=<%$session{'tickets_sort_order'}%>&RowsPerPage=<%$session{'tickets_rows_per_page'}%>">Bookmarkable URL for this search</a> -<BR> -<BR> -% my %restrictions=$session{'tickets'}->DescribeRestrictions(); -% my %seen_restrictions=(); -% foreach $row (keys %restrictions){ -% my $tmp=$restrictions{"$row"}; -% if( ! defined( $seen_restrictions{"$tmp"} ) ){ -<%$restrictions{"$row"}%> <A HREF="<% $RT::WebPath%>/Search/Listing.html?DeleteRestriction=<%$row%>">[delete]</a><br> -% } else { -% $session{'tickets'}->DeleteRestriction($row); -<b>Deleted Duplicate Restriction <i><%$tmp%></i></b><br> -% } -% $seen_restrictions{"$tmp"}++; -%} -<& /Elements/TitleBoxEnd&> -</TD> -<TD> - -<& PickRestriction &> - -</TD> -</TR> -</TABLE> - -<%INIT> - -my $bgcolor; -require RT::Interface::Web; - -$session{'i'}++; -if ($session{'tickets'}) { - if ( ($ARGS{'ClearRestrictions'}) || - ($ARGS{'NewSearch'}) ) { - $session{'tickets'}->ClearRestrictions; - } - - if ($ARGS{'DeleteRestriction'}) { - $session{'tickets'}->DeleteRestriction($ARGS{'DeleteRestriction'}); - } -} -&ProcessSearchQuery(ARGS=>\%ARGS); - -my $row; - -</%INIT> diff --git a/rt/webrt/Search/PickRestriction b/rt/webrt/Search/PickRestriction deleted file mode 100755 index 82f576c1f..000000000 --- a/rt/webrt/Search/PickRestriction +++ /dev/null @@ -1,112 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/PickRestriction,v 1.1 2002-08-12 06:17:09 ivan Exp $ -<FORM ACTION="Listing.html" METHOD="GET"> -<INPUT TYPE=HIDDEN NAME="Bookmark" VALUE="<% $session{'tickets'}->FreezeLimits()|u %>"> -<& /Elements/TitleBoxStart, title => 'Refine Search'&> -<INPUT TYPE=HIDDEN NAME="CompileRestriction" VALUE=1> - -<ul> -<li>Owner is <& /Elements/SelectBoolean, Name => "OwnerOp", - TrueVal=> '=', - FalseVal => '!=' -&> -<& /Elements/SelectOwner, Name => "ValueOfOwner" &> - -<li> -Requestor email address -<& /Elements/SelectMatch, Name => "RequestorOp" &> -<INPUT Name="ValueOfRequestor" SIZE=20> - -<li> -Subject <& /Elements/SelectMatch, Name => "SubjectOp" &> -<INPUT Name="ValueOfSubject" SIZE=20> - -<li>Queue <& /Elements/SelectBoolean, Name => "QueueOp" , - True => "is", - False => "isn't", - TrueVal=> '=', - FalseVal => '!=' &> -<& /Elements/SelectQueue, Name => "ValueOfQueue" &> - - -<li>Priority <& /Elements/SelectEqualityOperator, Name => "PriorityOp" &> - -<INPUT Name="ValueOfPriority" SIZE=5> - - -<li> -<& /Elements/SelectDateType, Name => 'DateType' &> -<& /Elements/SelectDateRelation, Name=>"DateOp" &> -<& /Elements/SelectDate, Name => "ValueOfDate", ShowTime => 0, Default => '' &> - -<li>Ticket content -<& /Elements/SelectBoolean, Name => "ContentOp", - True => "matches", - False => "does not match", - TrueVal => 'LIKE', - FalseVal => 'NOT LIKE' -&> -<Input Name="ValueOfContent" Size=20> - -<li>Status -<& /Elements/SelectBoolean, Name => "StatusOp", - True => "is", - False => "isn't", - TrueVal=> '=', - FalseVal => '!=' -&> -<& /Elements/SelectStatus, Name => "ValueOfStatus" &> - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - -<li><% $KeywordSelect->Name %> - <& /Elements/SelectBoolean, Name => "KeywordSelectOp". $KeywordSelect->id, - True => "is", False => "isn't", - TrueVal=> '=', FalseVal => '!=' &> - -<& /Elements/SelectKeyword, Name => "KeywordSelect".$KeywordSelect->id, - KeywordObj => $KeywordSelect->KeywordObj - &> -% } - -</UL> - -<& /Elements/TitleBoxEnd &> - -<& /Elements/TitleBoxStart, title => 'Ordering and sorting'&> - -<UL> - -<li>Results per page <& /Elements/SelectResultsPerPage, Name => "RowsPerPage", - Default => $session{'tickets_rows_per_page'} || '50' -&> - -<li>Sort results by <& /Elements/SelectTicketSortBy, Name => "TicketsSortBy", - Default => $session{'tickets_sort_by'} -&> -<& /Elements/SelectSortOrder, Name => 'TicketsSortOrder', Default => $session{'tickets_sort_order'} &> - -<li> <& /Elements/Refresh, Name => 'RefreshSearchInterval' , Default => $session{'tickets_refresh_interval'} &> - - -</UL> - - -</DIV> - - - -<& /Elements/TitleBoxEnd &> - -<& /Elements/Submit, Label => 'Show Results', AlternateLabel => 'Refine', Name => 'Action'&> - -</FORM> - - - <%INIT> - my $KeywordSelects = new RT::KeywordSelects $session{'CurrentUser'}; - foreach ( $session{'tickets'}->RestrictionValues('Queue') ) { - $KeywordSelects->LimitToQueue($_); - } - - $KeywordSelects->IncludeGlobals; -</%INIT> diff --git a/rt/webrt/Search/RestrictSearch.html b/rt/webrt/Search/RestrictSearch.html deleted file mode 100755 index 977308e3b..000000000 --- a/rt/webrt/Search/RestrictSearch.html +++ /dev/null @@ -1,3 +0,0 @@ -<& /Elements/Header, Title=>"Compile Restrictions" &> -<& /Elements/Tabs &> -<& PickRestriction &> diff --git a/rt/webrt/Search/TicketCell b/rt/webrt/Search/TicketCell deleted file mode 100644 index aaded88e9..000000000 --- a/rt/webrt/Search/TicketCell +++ /dev/null @@ -1,28 +0,0 @@ -%#$Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/TicketCell,v 1.1 2002-08-12 06:17:09 ivan Exp $ -<% $link |n%><%$Column->{Constant} || eval("\$Ticket->$Column->{TicketAttribute}") || "-" %><% $endlink|n %> -<%INIT> - -my $link = ""; -my $endlink = ""; -if ($Column->{TicketLink}) { - $link = "<A HREF=\""; - if ($Column->{TicketLink} == 1 ) { - $link .= "../Ticket/Display.html?"; - } - else { - $link .= $Column->{TicketLink}; - } - - $link .= "id=".$Ticket->Id . $Column->{ExtraLinks}; - - if ($session{NewWindowOption}) { - $link .= "TARGET=\"TicketDisplay".$session{AlwaysNewWindowOption} && (time() . rand(1024))."\" "; - } - $link .= "\">"; - $endlink = "</a>"; -} -</%INIT> -<%ARGS> -$Ticket => undef -$Column => undef -</%ARGS> |