From ded0451e9582df33cae6099a2fb72b4ea25076cf Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 15 Jul 2003 13:30:43 +0000 Subject: reverting to vendor branch rt 3.0.4, hopefully --- rt/webrt/Search/Bulk.html | 186 ------------------------------------ rt/webrt/Search/Listing.html | 134 -------------------------- rt/webrt/Search/PickRestriction | 112 ---------------------- rt/webrt/Search/RestrictSearch.html | 3 - rt/webrt/Search/TicketCell | 28 ------ 5 files changed, 463 deletions(-) delete mode 100755 rt/webrt/Search/Bulk.html delete mode 100755 rt/webrt/Search/Listing.html delete mode 100755 rt/webrt/Search/PickRestriction delete mode 100755 rt/webrt/Search/RestrictSearch.html delete mode 100644 rt/webrt/Search/TicketCell (limited to 'rt/webrt/Search') 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 -<& /Elements/Header, Title => "Bulk ticket update" &> -<& /Elements/Tabs &> - -<& /Elements/ListActions, actions => \@results &> - -
- - - -%foreach my $col (@cols) { -% my $colalias = $col; -% $colalias =~ s/(Obj\-\>|)(Name|AsString)//; - - -%} - - -<%PERL> - -my $i; - - - -$session{'tickets'}->RedoSearch(); -while (my $Ticket = $session{'tickets'}->Next) { - $i++; - if ($i % 2) { - $bgcolor = "#dddddd"; - } - else { - $bgcolor = "#ffffff"; - } - - - -%# The ticket view is controlled by config.pm, WebOptions -%foreach my $col (@cols) { - -%} - -%} - - - -
Update<% $colalias %> 
-% if ($col eq 'id') { -<%$Ticket->Id()%> -% } -%else { -<% eval "\$Ticket->$col()" %>  -%} -
- -
- - -<& /Elements/TitleBoxStart, title => 'Update selected tickets' &> - - - - - -
-
    -
  • Make Owner <& /Elements/SelectOwner, Name => "Owner" &> -( Force change) -
  • Add Requestor -
  • Remove Requestor -
  • Add Cc -
  • Remove Cc -
  • Add AdminCc -
  • Remove AdminCc -
-		 -
    -
  • Make subject -
  • Make priority -
  • Make queue <& /Elements/SelectQueue, Name => "Queue" &> - -
  • Make Status <& /Elements/SelectStatus, Name => "Status" &> - - - -
  • Make date Starts <& /Elements/SelectDate, Name => "Starts_Date", ShowTime => 0, Default => '' &> -
  • Make date Started <& /Elements/SelectDate, Name => "Started_Date", ShowTime => 0, Default => '' &> -
  • Make date Told <& /Elements/SelectDate, Name => "Told_Date", ShowTime => 0, Default => '' &> -
  • Make date Due <& /Elements/SelectDate, Name => "Due_Date", ShowTime => 0, Default => '' &> -
  • Make date Resolved <& /Elements/SelectDate, Name => "Resolved_Date", ShowTime => 0, Default => '' &> - - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - -
  • Add <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "AddToKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &> -
  • Remove <% $KeywordSelect->Name %> <& /Elements/SelectKeyword, Name => "DeleteFromKeywordSelect".$KeywordSelect->id, KeywordObj => $KeywordSelect->KeywordObj &> -% } - -
- - -
-<& /Elements/TitleBoxEnd&> -<& /Elements/TitleBoxStart, title => 'Add comments or replies to selected tickets' &> - - - - - - -
Update Type: -
Subject:
Attach:
- <& /Elements/MessageBox, Name=>"UpdateContent"&> -
-<& /Elements/TitleBoxEnd &> - - - - -<& /Elements/Submit &> - - -
-<%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); -} - - 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 -<& /Elements/Header, Title => "Search", Refresh => $session{'tickets_refresh_interval'} &> -<& /Elements/Tabs, current_toptab => 'Search/Listing.html' &> - - -% unless ($ARGS{'Action'} eq 'Refine') { - - -%foreach my $col (@{Config(\%ARGS, 'QueueListingCols')}) { - -%} - - -<%PERL> - -my $i; - -$session{'tickets'}->RedoSearch(); -while (my $Ticket = $session{'tickets'}->Next) { - $i++; - if ($i % 2) { - $bgcolor = "#dddddd"; - } - else { - $bgcolor = "#ffffff"; - } - - -%# The ticket view is controlled by config.pm, WebOptions -%foreach my $col (@{Config(\%ARGS,'QueueListingCols')}) { - -%} - -%} - - - -
- -<%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'; - } - - -% if (grep (/^$attr$/i, $session{'tickets'}->SortFields)) { - -<%$col->{Header}%> - -% } else { -<% $col->{Header} %> -% } -
<& TicketCell , Ticket=>$Ticket, Column=>$col &>
- -
- -First page -   -<Previous page -   -Next page> -%#  
Goto page
- -
-% if ($session{'tickets'}->Count()) { -
-Update all these tickets at once -
-% } -
- -% } #endif {$ARGS{'Action'} eq 'Refine') - - - - - -
-<& /Elements/TitleBoxStart, title => 'Search Criteria'&> - -New search
-Bookmarkable URL for this search -
-
-% my %restrictions=$session{'tickets'}->DescribeRestrictions(); -% my %seen_restrictions=(); -% foreach $row (keys %restrictions){ -% my $tmp=$restrictions{"$row"}; -% if( ! defined( $seen_restrictions{"$tmp"} ) ){ -<%$restrictions{"$row"}%> [delete]
-% } else { -% $session{'tickets'}->DeleteRestriction($row); -Deleted Duplicate Restriction <%$tmp%>
-% } -% $seen_restrictions{"$tmp"}++; -%} -<& /Elements/TitleBoxEnd&> -		 - -<& PickRestriction &> - -
- -<%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; - - 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 $ -
- -<& /Elements/TitleBoxStart, title => 'Refine Search'&> - - -
    -
  • Owner is <& /Elements/SelectBoolean, Name => "OwnerOp", - TrueVal=> '=', - FalseVal => '!=' -&> -<& /Elements/SelectOwner, Name => "ValueOfOwner" &> - -
  • -Requestor email address -<& /Elements/SelectMatch, Name => "RequestorOp" &> - - -
  • -Subject <& /Elements/SelectMatch, Name => "SubjectOp" &> - - -
  • Queue <& /Elements/SelectBoolean, Name => "QueueOp" , - True => "is", - False => "isn't", - TrueVal=> '=', - FalseVal => '!=' &> -<& /Elements/SelectQueue, Name => "ValueOfQueue" &> - - -
  • Priority <& /Elements/SelectEqualityOperator, Name => "PriorityOp" &> - - - - -
  • -<& /Elements/SelectDateType, Name => 'DateType' &> -<& /Elements/SelectDateRelation, Name=>"DateOp" &> -<& /Elements/SelectDate, Name => "ValueOfDate", ShowTime => 0, Default => '' &> - -
  • Ticket content -<& /Elements/SelectBoolean, Name => "ContentOp", - True => "matches", - False => "does not match", - TrueVal => 'LIKE', - FalseVal => 'NOT LIKE' -&> - - -
  • Status -<& /Elements/SelectBoolean, Name => "StatusOp", - True => "is", - False => "isn't", - TrueVal=> '=', - FalseVal => '!=' -&> -<& /Elements/SelectStatus, Name => "ValueOfStatus" &> - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - -
  • <% $KeywordSelect->Name %> - <& /Elements/SelectBoolean, Name => "KeywordSelectOp". $KeywordSelect->id, - True => "is", False => "isn't", - TrueVal=> '=', FalseVal => '!=' &> - -<& /Elements/SelectKeyword, Name => "KeywordSelect".$KeywordSelect->id, - KeywordObj => $KeywordSelect->KeywordObj - &> -% } - -
- -<& /Elements/TitleBoxEnd &> - -<& /Elements/TitleBoxStart, title => 'Ordering and sorting'&> - -
    - -
  • Results per page <& /Elements/SelectResultsPerPage, Name => "RowsPerPage", - Default => $session{'tickets_rows_per_page'} || '50' -&> - -
  • Sort results by <& /Elements/SelectTicketSortBy, Name => "TicketsSortBy", - Default => $session{'tickets_sort_by'} -&> -<& /Elements/SelectSortOrder, Name => 'TicketsSortOrder', Default => $session{'tickets_sort_order'} &> - -
  • <& /Elements/Refresh, Name => 'RefreshSearchInterval' , Default => $session{'tickets_refresh_interval'} &> - - -
- - - - - - -<& /Elements/TitleBoxEnd &> - -<& /Elements/Submit, Label => 'Show Results', AlternateLabel => 'Refine', Name => 'Action'&> - -
- - - <%INIT> - my $KeywordSelects = new RT::KeywordSelects $session{'CurrentUser'}; - foreach ( $session{'tickets'}->RestrictionValues('Queue') ) { - $KeywordSelects->LimitToQueue($_); - } - - $KeywordSelects->IncludeGlobals; - 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 = "{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 = ""; -} - -<%ARGS> -$Ticket => undef -$Column => undef - -- cgit v1.2.1