diff options
Diffstat (limited to 'rt/webrt/Search/Bulk.html')
| -rwxr-xr-x | rt/webrt/Search/Bulk.html | 186 |
1 files changed, 0 insertions, 186 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> |