1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/Bulk.html,v 1.1 2002-08-12 06:17:09 ivan Exp $
2 %# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com>
3 <& /Elements/Header, Title => "Bulk ticket update" &>
6 <& /Elements/ListActions, actions => \@results &>
9 <TABLE WIDTH=100% border=0 cellpadding=3 CELLSPACING=0>
12 %foreach my $col (@cols) {
13 % my $colalias = $col;
14 % $colalias =~ s/(Obj\-\>|)(Name|AsString)//;
16 <TH ><% $colalias %> </TH>
26 $session{'tickets'}->RedoSearch();
27 while (my $Ticket = $session{'tickets'}->Next) {
36 <TR bgcolor="<%$bgcolor%>">
37 <TD><input type=checkbox name="UpdateTicket<%$Ticket->Id%>" CHECKED></TD>
38 %# The ticket view is controlled by config.pm, WebOptions
39 %foreach my $col (@cols) {
42 <A HREF="<% $RT::WebPath%>/Ticket/Display.html?id=<%$Ticket->Id%>"><%$Ticket->Id()%></A>
45 <% eval "\$Ticket->$col()" %>
59 <& /Elements/TitleBoxStart, title => 'Update selected tickets' &>
64 <li> Make Owner <& /Elements/SelectOwner, Name => "Owner" &>
65 (<input type=checkbox name="ForceOwnerChange"> Force change)
66 <li> Add Requestor <INPUT Name="AddRequestor" SIZE=20>
67 <li> Remove Requestor <INPUT Name="DeleteRequestor" SIZE=20>
68 <li> Add Cc <INPUT Name="AddCc" SIZE=20>
69 <li> Remove Cc <INPUT Name="DeleteCc" SIZE=20>
70 <li> Add AdminCc <INPUT Name="AddAdminCc" SIZE=20>
71 <li> Remove AdminCc <INPUT Name="DeleteAdminCc" SIZE=20>
76 <li> Make subject <INPUT Name="Subject" SIZE=20>
77 <li> Make priority <INPUT Name="Priority" SIZE=4>
78 <li> Make queue <& /Elements/SelectQueue, Name => "Queue" &>
80 <li>Make Status <& /Elements/SelectStatus, Name => "Status" &>
84 <li> Make date Starts <& /Elements/SelectDate, Name => "Starts_Date", ShowTime => 0, Default => '' &>
85 <li> Make date Started <& /Elements/SelectDate, Name => "Started_Date", ShowTime => 0, Default => '' &>
86 <li> Make date Told <& /Elements/SelectDate, Name => "Told_Date", ShowTime => 0, Default => '' &>
87 <li> Make date Due <& /Elements/SelectDate, Name => "Due_Date", ShowTime => 0, Default => '' &>
88 <li> Make date Resolved <& /Elements/SelectDate, Name => "Resolved_Date", ShowTime => 0, Default => '' &>
91 % while ( my $KeywordSelect = $KeywordSelects->Next ) {
93 <li> Add <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "AddToKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &>
94 <li> Remove <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "DeleteFromKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &>
103 <& /Elements/TitleBoxEnd&>
104 <& /Elements/TitleBoxStart, title => 'Add comments or replies to selected tickets' &>
106 <tr><td align=right>Update Type:</td>
107 <td><select name="UpdateType">
108 <option value="private" >Comments (not sent to requestors)</option>
109 <option value="response" >Response to requestors</option>
112 <tr><td align=right>Subject:</td><td> <input name="UpdateSubject" size=60 value=""></td></tr>
113 <tr><td align=right>Attach:</td><td><input name="UpdateAttachment" type="file"></td></tr>
115 <& /Elements/MessageBox, Name=>"UpdateContent"&>
118 <& /Elements/TitleBoxEnd &>
123 <& /Elements/Submit &>
129 # Iterate through the ARGS hash and remove anything with a null value.
130 map ($ARGS{$_} =~ /^$/ && (delete $ARGS{$_}), keys %ARGS);
132 my ($bgcolor, @results);
133 my @cols = qw(id Status Priority Subject QueueObj->Name OwnerObj->Name RequestorsAsString DueAsString );
135 Abort("No search to operate on.") unless ($session{'tickets'});
138 my $do_comment_reply=0;
139 # Prepare for ticket updates
140 $ARGS{'UpdateContent'} =~ s/\r\n/\n/g;
141 chomp ($ARGS{'UpdateContent'}) ;
143 if ($ARGS{'UpdateContent'} &&
144 $ARGS{'UpdateContent'} ne '' &&
145 $ARGS{'UpdateContent'} ne "-- \n" .
146 $session{'CurrentUser'}->UserObj->Signature) {
150 my $KeywordSelects = new RT::KeywordSelects $session{'CurrentUser'};
151 foreach ( $session{'tickets'}->RestrictionValues('Queue') ) {
152 $KeywordSelects->LimitToQueue($_);
155 $KeywordSelects->IncludeGlobals;
158 #Iterate through each ticket we've been handed
160 while (my $Ticket = $session{'tickets'}->Next) {
161 $RT::Logger->debug( "Checking Ticket ".$Ticket->Id ."\n");
162 next unless ($ARGS{"UpdateTicket".$Ticket->Id});
163 $RT::Logger->debug ("Matched\n");
165 my @basicresults = ProcessTicketBasics(TicketObj => $Ticket, ARGSRef => \%ARGS);
166 my @dateresults = ProcessTicketDates(TicketObj => $Ticket, ARGSRef => \%ARGS);
167 my @watchresults = ProcessTicketWatchers(TicketObj => $Ticket, ARGSRef => \%ARGS);
168 my @selectresults = ProcessTicketObjectKeywords(TicketObj => $Ticket, ARGSRef => \%ARGS);
172 if ($do_comment_reply) {
173 ProcessUpdateMessage(TicketObj => $Ticket, ARGSRef => \%ARGS, Actions => \
176 my @tempresults = (@watchresults, @basicresults, @dateresults, @updateresults);
177 @tempresults = map { "Ticket ".$Ticket->Id. ": ".$_ } @tempresults;
180 #Update the keyword selects
182 $RT::Logger->debug(join("\n",@tempresults));
183 @results = (@results, @tempresults);