reverting to vendor branch rt 3.0.4, hopefully

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 %>&nbsp;</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()" %>&nbsp;
-%}
-</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>
-&nbsp;&nbsp;
-<a href="Listing.html?GotoPage=Prev">&lt;Previous page</a>
-&nbsp;&nbsp;
-<a href="Listing.html?GotoPage=Next">Next page&gt;</a>
-%#&nbsp;&nbsp;<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>