From 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 12 Aug 2002 06:17:10 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'. --- rt/webrt/Ticket/Elements/AddWatchers | 54 ---------- rt/webrt/Ticket/Elements/EditBasics | 62 ----------- rt/webrt/Ticket/Elements/EditDates | 46 -------- rt/webrt/Ticket/Elements/EditKeywordSelects | 45 -------- rt/webrt/Ticket/Elements/EditLinks | 109 ------------------- rt/webrt/Ticket/Elements/EditPeople | 37 ------- rt/webrt/Ticket/Elements/EditWatchers | 46 -------- rt/webrt/Ticket/Elements/ShowBasics | 29 ----- rt/webrt/Ticket/Elements/ShowDates | 54 ---------- rt/webrt/Ticket/Elements/ShowDependencies | 18 ---- rt/webrt/Ticket/Elements/ShowHistory | 43 -------- rt/webrt/Ticket/Elements/ShowKeywordSelects | 26 ----- rt/webrt/Ticket/Elements/ShowLinks | 61 ----------- rt/webrt/Ticket/Elements/ShowMemberOf | 12 --- rt/webrt/Ticket/Elements/ShowMembers | 22 ---- rt/webrt/Ticket/Elements/ShowPeople | 12 --- rt/webrt/Ticket/Elements/ShowReferences | 27 ----- rt/webrt/Ticket/Elements/ShowRequestor | 35 ------ rt/webrt/Ticket/Elements/ShowSummary | 61 ----------- rt/webrt/Ticket/Elements/ShowTransaction | 162 ---------------------------- rt/webrt/Ticket/Elements/Tabs | 126 ---------------------- rt/webrt/Ticket/Elements/ToolBar | 3 - 22 files changed, 1090 deletions(-) delete mode 100755 rt/webrt/Ticket/Elements/AddWatchers delete mode 100755 rt/webrt/Ticket/Elements/EditBasics delete mode 100755 rt/webrt/Ticket/Elements/EditDates delete mode 100644 rt/webrt/Ticket/Elements/EditKeywordSelects delete mode 100755 rt/webrt/Ticket/Elements/EditLinks delete mode 100755 rt/webrt/Ticket/Elements/EditPeople delete mode 100755 rt/webrt/Ticket/Elements/EditWatchers delete mode 100755 rt/webrt/Ticket/Elements/ShowBasics delete mode 100755 rt/webrt/Ticket/Elements/ShowDates delete mode 100755 rt/webrt/Ticket/Elements/ShowDependencies delete mode 100755 rt/webrt/Ticket/Elements/ShowHistory delete mode 100644 rt/webrt/Ticket/Elements/ShowKeywordSelects delete mode 100755 rt/webrt/Ticket/Elements/ShowLinks delete mode 100755 rt/webrt/Ticket/Elements/ShowMemberOf delete mode 100755 rt/webrt/Ticket/Elements/ShowMembers delete mode 100755 rt/webrt/Ticket/Elements/ShowPeople delete mode 100755 rt/webrt/Ticket/Elements/ShowReferences delete mode 100644 rt/webrt/Ticket/Elements/ShowRequestor delete mode 100755 rt/webrt/Ticket/Elements/ShowSummary delete mode 100755 rt/webrt/Ticket/Elements/ShowTransaction delete mode 100755 rt/webrt/Ticket/Elements/Tabs delete mode 100755 rt/webrt/Ticket/Elements/ToolBar (limited to 'rt/webrt/Ticket/Elements') diff --git a/rt/webrt/Ticket/Elements/AddWatchers b/rt/webrt/Ticket/Elements/AddWatchers deleted file mode 100755 index 053cff122..000000000 --- a/rt/webrt/Ticket/Elements/AddWatchers +++ /dev/null @@ -1,54 +0,0 @@ -
-<%$msg%>
- -Add new watchers:
- - -% if ($Users) { - -% while (my $u = $Users->Next ) { - -% } -% } - - - - - -
-Type - -Username -
<&/Elements/SelectWatcherType, Name => "WatcherTypeUser".$u->Id &><%$u->Name%> (<%$u->RealName%>)
-Type - -Email -
-<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail1" &> - - -
-<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail2" &> - - -
-<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail3" &> - - -
- -<%INIT> -my ($msg, $Users); -if ($UserString) { - $Users = new RT::Users($session{'CurrentUser'}); - $Users->Limit(FIELD => $UserField, - VALUE => $UserString, - OPERATOR => $UserOp); - } - - -<%ARGS> -$UserField => 'Name' -$UserOp => '=' -$UserString => undef - diff --git a/rt/webrt/Ticket/Elements/EditBasics b/rt/webrt/Ticket/Elements/EditBasics deleted file mode 100755 index 12142879e..000000000 --- a/rt/webrt/Ticket/Elements/EditBasics +++ /dev/null @@ -1,62 +0,0 @@ - - - - - - - - - - - - -
- Subject
- -
-<& /Elements/ShadedBox, - title => 'Status', - content => $SelectStatus -&> - - -<& /Elements/ShadedBox, - title => 'Time Worked', - content => "TimeWorked."\" SIZE=5>" -&> - - -<& /Elements/ShadedBox, - title => 'Time Left', - content => "TimeLeft."\" SIZE=5>" -&> - -<& /Elements/ShadedBox, - title => 'Priority', - content => "Priority."\" SIZE=3>" -&> - - -<& /Elements/ShadedBox, - title => 'Final Priority', - content => "FinalPriority."\" SIZE=3>" -&> - - - -<& /Elements/ShadedBox, - title => 'Queue', - content => "$SelectQueue" - &> -
- -<%INIT> -#It's hard to do this inline, so we'll preload the html of the selectstatus in here. -my $SelectStatus = $m->scomp("/Elements/SelectStatus", Name => 'Status', Default=> $TicketObj->Status); -my $SelectQueue = $m->scomp("/Elements/SelectQueue", Name => 'Queue', Default =>$TicketObj->QueueObj->Id); - - -<%ARGS> - -$TicketObj => undef - diff --git a/rt/webrt/Ticket/Elements/EditDates b/rt/webrt/Ticket/Elements/EditDates deleted file mode 100755 index f04130bde..000000000 --- a/rt/webrt/Ticket/Elements/EditDates +++ /dev/null @@ -1,46 +0,0 @@ - - - - - - - - - - - - - - - - - - - -
-Starts: - -<& /Elements/SelectDate, menu_prefix => 'Starts', current => 0 &> - (<% $TicketObj->StartsObj->AsString %>) -
-Started: - -<& /Elements/SelectDate, menu_prefix => 'Started', current => 0 &> (<%$TicketObj->StartedObj->AsString %>) - - - -
-Last Contact: - -<& /Elements/SelectDate, menu_prefix => 'Told', current => 0 &> (<% $TicketObj->ToldObj->AsString %>) - -
-Due: - - -<& /Elements/SelectDate, menu_prefix => 'Due', current => 0 &> (<% $TicketObj->DueObj->AsString %>) -
-<%ARGS> -$TicketObj => undef - - diff --git a/rt/webrt/Ticket/Elements/EditKeywordSelects b/rt/webrt/Ticket/Elements/EditKeywordSelects deleted file mode 100644 index 34ade9f25..000000000 --- a/rt/webrt/Ticket/Elements/EditKeywordSelects +++ /dev/null @@ -1,45 +0,0 @@ - - - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { -% my $CurrentKeywords = $TicketObj->KeywordsObj($KeywordSelect->id); -% my $Descendents = $KeywordSelect->KeywordObj->Descendents; - -% } - - -
- <% $KeywordSelect->Name %> -
- - -
- - -<%INIT> -my $KeywordSelects = $TicketObj->QueueObj->KeywordSelects; - - -<%ARGS> -$TicketObj => undef - - diff --git a/rt/webrt/Ticket/Elements/EditLinks b/rt/webrt/Ticket/Elements/EditLinks deleted file mode 100755 index b0296fce1..000000000 --- a/rt/webrt/Ticket/Elements/EditLinks +++ /dev/null @@ -1,109 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Elements/Attic/EditLinks,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - - - - - - - -
-

New Relationships

-Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.
- - - - - - - - -
Merge into: (only one ticket)
Depends on:
Depended on by:
Parents:
Children:
Refers to:
Referred to by:
-		 -

Current Relationships

-(Check boxes to delete)
- -Depends on:
-
    -% while (my $link = $Ticket->DependsOn->Next) { -% my $member = $link->TargetObj; -
  • - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -
- -Depended on by:
-
    -% while (my $link = $Ticket->DependedOnBy->Next) { -% my $member = $link->BaseObj; -
  • - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -
- -Parents:
-
    -% while (my $link = $Ticket->MemberOf->Next) { -% my $member = $link->TargetObj; -
  • - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -
- -Children:
-
    -% while (my $link = $Ticket->Members->Next) { -
  • - -% my $member = $link->BaseObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -
- - -Refers to:
-
    -% while (my $link = $Ticket->RefersTo->Next) { -
  • - -% if ($link->TargetIsLocal) { -% my $member = $link->TargetObj; - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$link->Target%> -% } -%} -
- -Referred to by:
-
    -% while (my $link = $Ticket->ReferredToBy->Next) { -
  • - -% if ($link->BaseIsLocal) { -% my $member = $link->BaseObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$link->Base%> -%} -% } -
- - -
- - - -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/EditPeople b/rt/webrt/Ticket/Elements/EditPeople deleted file mode 100755 index 4f69af970..000000000 --- a/rt/webrt/Ticket/Elements/EditPeople +++ /dev/null @@ -1,37 +0,0 @@ - - - - - -
- -

New watchers

-Find people whose
-<& /Elements/SelectUsers &> - - -<& AddWatchers, Ticket => $Ticket, UserString => $UserString, - UserOp => $UserOp, UserField => $UserField &> -		 -

Owner

-Owner: <& /Elements/SelectOwner, Name => 'Owner', QueueObj => $Ticket->QueueObj, TicketObj => $Ticket, Default => $Ticket->OwnerObj->Id &> -

Current watchers

-(Check box to delete)
- -Requestors: -<& EditWatchers, TicketObj => $Ticket, Type => 'requestors' &> - -Cc: -<& EditWatchers, TicketObj => $Ticket, Type => 'cc' &> - -Administrative Cc: -<& EditWatchers, TicketObj => $Ticket, Type => 'admincc' &> - -
- -<%ARGS> -$UserField => undef -$UserOp => undef -$UserString => undef -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/EditWatchers b/rt/webrt/Ticket/Elements/EditWatchers deleted file mode 100755 index 00185e8f9..000000000 --- a/rt/webrt/Ticket/Elements/EditWatchers +++ /dev/null @@ -1,46 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Elements/Attic/EditWatchers,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - -
    - -%# Print out a placeholder if there are none. -%if ($watchers->Count == 0 ) { -
  • none -% } - - -%while (my $watcher=$watchers->Next) { -
  • - -%#If there's a principal backing this user, lets give a link to their -%# account -%if ($watcher->IsUser) { - -<%$watcher->OwnerObj->RealName%>: -%} else { -Email address: -%} -<%$watcher->Email%> -%} -
-<%INIT> -my ($watchers, $watcher, $set); -if ($Type =~ /^request/i) { - $watchers = $TicketObj->Requestors; - } -elsif ($Type =~ /^admin/i) { - $watchers = $TicketObj->AdminCc; - } -elsif ($Type =~ /^cc/i) { - $watchers = $TicketObj->Cc; - } -else { $watchers = $TicketObj->Watchers; - } - -<%ARGS> -$TicketObj => undef -$Type => undef - - - - diff --git a/rt/webrt/Ticket/Elements/ShowBasics b/rt/webrt/Ticket/Elements/ShowBasics deleted file mode 100755 index 97c84c9d0..000000000 --- a/rt/webrt/Ticket/Elements/ShowBasics +++ /dev/null @@ -1,29 +0,0 @@ - - - - - - - - - - -
- <& /Elements/ShadedBox, title => 'Id' , content => $Ticket->Id &> - <& /Elements/ShadedBox, title => 'Status' , content => $Ticket->Status &> - - <& /Elements/ShadedBox, title => 'Worked' , content => $TimeWorked ." min" &> - - <& /Elements/ShadedBox, title => 'Priority', content=> $Ticket->Priority."/".$Ticket->FinalPriority &> - - <& /Elements/ShadedBox, title => 'Queue', content=> $Ticket->QueueObj->Name &> -
-<%INIT> -my $TimeWorked = $Ticket->TimeWorked; -if ($Ticket->TimeLeft > 0 ) { - $TimeWorked = $Ticket->TimeWorked."/".$Ticket->TimeLeft; -} - -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowDates b/rt/webrt/Ticket/Elements/ShowDates deleted file mode 100755 index e17e31355..000000000 --- a/rt/webrt/Ticket/Elements/ShowDates +++ /dev/null @@ -1,54 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -
-Created: - -<% $Ticket->CreatedObj->AsString %> -
-Starts: - -<% $Ticket->StartsObj->AsString %>
-
-Started: - -<% $Ticket->StartedObj->AsString %> -
-Last Contact: - -<% $Ticket->ToldObj->AsString %> -
-Due: -<% $Ticket->DueObj->AsString %> -
-Updated: - - -<% $Ticket->LastUpdated ? ($Ticket->LastUpdatedAsString ." by ".$Ticket->LastUpdatedByObj->Name) : "Never" | h %> -
-<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowDependencies b/rt/webrt/Ticket/Elements/ShowDependencies deleted file mode 100755 index 488652f83..000000000 --- a/rt/webrt/Ticket/Elements/ShowDependencies +++ /dev/null @@ -1,18 +0,0 @@ -Depends on:
-% while (my $Link = $Ticket->DependsOn->Next) { -% my $member = $Link->TargetObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -
-% } -Depended on by:
-% while (my $Link = $Ticket->DependedOnBy->Next) { -% my $member = $Link->TargetObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -
-% } - -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowHistory b/rt/webrt/Ticket/Elements/ShowHistory deleted file mode 100755 index 155eaaabd..000000000 --- a/rt/webrt/Ticket/Elements/ShowHistory +++ /dev/null @@ -1,43 +0,0 @@ - - - - - -
-% if ($ShowTitle) { -History -% } - Display mode: -% if ($ShowHeaders == $Ticket->Id) { -[Brief headers] -[Full headers] -% } else { -[Brief headers] -[Full headers] -% } - -
- - -% while (my $Transaction = $Transactions->Next) { -% $i++; -% if ($Transactions->IsLast) { - -% } - <& ShowTransaction, Ticket => $Ticket, Transaction => $Transaction, ShowHeaders => $ShowHeaders, Collapsed => $Collapsed, RowNum => $i &> -% } -
-<%INIT> - -my $Transactions = $Ticket->Transactions; -my $i; - - - -<%ARGS> -$URIFile => 'Display.html' -$Ticket => undef -$ShowHeaders => undef -$Collapsed => undef -$ShowTitle => 1 - diff --git a/rt/webrt/Ticket/Elements/ShowKeywordSelects b/rt/webrt/Ticket/Elements/ShowKeywordSelects deleted file mode 100644 index 4f8a1786b..000000000 --- a/rt/webrt/Ticket/Elements/ShowKeywordSelects +++ /dev/null @@ -1,26 +0,0 @@ - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - - - - -% } -
- <% $KeywordSelect->Name %>
- 		-
    -% my $Keywords = $Ticket->KeywordsObj($KeywordSelect->Id); -% while (my $Keyword = $Keywords->Next) { -
  • <% $Keyword->KeywordObj->RelativePath($KeywordSelect->KeywordObj) |n %>
    • - -% } -
-
- -<%INIT> -my $KeywordSelects = $Ticket->QueueObj->KeywordSelects; - - -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowLinks b/rt/webrt/Ticket/Elements/ShowLinks deleted file mode 100755 index 49795959e..000000000 --- a/rt/webrt/Ticket/Elements/ShowLinks +++ /dev/null @@ -1,61 +0,0 @@ -Depends on:
-
    -% while (my $Link = $Ticket->DependsOn->Next) { -% my $member = $Link->TargetObj; -
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -
- -Depended on by:
-
    -% while (my $Link = $Ticket->DependedOnBy->Next) { -% my $member = $Link->BaseObj; -
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -
-Parents:
-
    -% while (my $Link = $Ticket->MemberOf->Next) { -% my $member = $Link->TargetObj; -
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -
- -Children:
-<& /Ticket/Elements/ShowMembers, Ticket => $Ticket &> -
-Refers to:
-
    -% while (my $Link = $Ticket->RefersTo->Next) { -
  • -% if ($Link->TargetIsLocal) { -% my $member = $Link->TargetObj; - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$Link->Target%> -% } -%} -
- -Referred to by:
-
    -% while (my $Link = $Ticket->ReferredToBy->Next) { -
  • -% if ($Link->BaseIsLocal) { -% my $member = $Link->BaseObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$Link->Base%> -%} -% } -
- -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowMemberOf b/rt/webrt/Ticket/Elements/ShowMemberOf deleted file mode 100755 index df5dc92b0..000000000 --- a/rt/webrt/Ticket/Elements/ShowMemberOf +++ /dev/null @@ -1,12 +0,0 @@ -
    -% my $memberof = $Ticket->MemberOf; -% while (my $member_of = $memberof->Next) { -
  • <%$member_of->Id%>: <%$member_of->Subject%> [<%$member_of->Status%>] -% } -
- -<%INIT> - -<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowMembers b/rt/webrt/Ticket/Elements/ShowMembers deleted file mode 100755 index 0a6f12377..000000000 --- a/rt/webrt/Ticket/Elements/ShowMembers +++ /dev/null @@ -1,22 +0,0 @@ -% if ($members->Count) { -
    -% while (my $link = $members->Next) { -% my $member= $link->BaseObj; -
  • <%$member->Id%>: <%$member->Subject%> [<%$member->Status%>]
    -% if ($depth < 8) { -<&/Ticket/Elements/ShowMembers, Ticket => $member, depth => ($depth+1) &> -% } -% } -
-% } - -<%INIT> - -my $members = $Ticket->Members; - - - -<%ARGS> -$Ticket => undef -$depth => 1 - diff --git a/rt/webrt/Ticket/Elements/ShowPeople b/rt/webrt/Ticket/Elements/ShowPeople deleted file mode 100755 index ff35f484d..000000000 --- a/rt/webrt/Ticket/Elements/ShowPeople +++ /dev/null @@ -1,12 +0,0 @@ -Owner
- <%$Ticket->OwnerObj->Name%>
-Requestors
- <%$Ticket->RequestorsAsString%>
-Cc
- <%$Ticket->CcAsString%>
-AdminCc
- <%$Ticket->AdminCcAsString%> -<%ARGS> -$Ticket => undef - - diff --git a/rt/webrt/Ticket/Elements/ShowReferences b/rt/webrt/Ticket/Elements/ShowReferences deleted file mode 100755 index 37e2fdece..000000000 --- a/rt/webrt/Ticket/Elements/ShowReferences +++ /dev/null @@ -1,27 +0,0 @@ -
    -% while (my $Link = $Ticket->RefersTo->Next) { -
  • -% if ($Link->TargetIsLocal) { -% my $member = $Link->TargetObj; - -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$Link->Target%> -% } -%} - - - -% while (my $Link = $Ticket->ReferredToBy->Next) { -
  • -% if ($Link->BaseIsLocal) { -% my $member = $Link->BaseObj; -<%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    -% } else { -<%$Link->Base%> -%} -% } -
-<%ARGS> -$Ticket => undef - diff --git a/rt/webrt/Ticket/Elements/ShowRequestor b/rt/webrt/Ticket/Elements/ShowRequestor deleted file mode 100644 index fcbe71df1..000000000 --- a/rt/webrt/Ticket/Elements/ShowRequestor +++ /dev/null @@ -1,35 +0,0 @@ -<%PERL> -my $people = $Ticket->Requestors; -while (my $requestor=$people->Next) { -if (($requestor->Owner ) && (my $user=$requestor->OwnerObj)) { -my $name=$user->RealName || $user->EmailAddress; -my $tickets = new RT::Tickets($session{'CurrentUser'}); -$tickets->LimitRequestor(VALUE => $user->EmailAddress); -$tickets->LimitStatus( VALUE => 'open'); -$tickets->LimitStatus( VALUE => 'new'); -$tickets->RowsPerPage(25); -$tickets->OrderBy(FIELD => 'Priority', - ORDER => 'DESC'); - - -% unless ($user->Privileged) { -<& /Elements/TitleBoxStart, - title => "id."\">More about $name" &> - -Comments about this user:
-<% ($user->Comments || "No comment entered about this user") %>
- -This user's 25 highest priority tickets:
-
    -%while (my $w=$tickets->Next) { -
  • <%$w->Id%>: <%$w->Subject%> (<%$w->Status%>) -%} -
-<& /Elements/TitleBoxEnd &> - -% } -% } -%} -<%ARGS> -$Ticket=>undef - diff --git a/rt/webrt/Ticket/Elements/ShowSummary b/rt/webrt/Ticket/Elements/ShowSummary deleted file mode 100755 index b80ceb4fd..000000000 --- a/rt/webrt/Ticket/Elements/ShowSummary +++ /dev/null @@ -1,61 +0,0 @@ - - - -
- - -
- <& /Elements/TitleBoxStart, title => 'The Basics', - title_href =>"$RT::WebPath/Ticket/Modify.html?id=".$Ticket->Id, - title_class=> 'inverse', - color => "#993333" &> - <& /Ticket/Elements/ShowBasics, Ticket => $Ticket &> - <& /Elements/TitleBoxEnd &> - -
- - <& /Elements/TitleBoxStart, - title_href =>"$RT::WebPath/Ticket/Modify.html?id=".$Ticket->Id, - title_class=> 'inverse', - title => "Keyword Selections", color => "#993300" - &> - <& /Ticket/Elements/ShowKeywordSelects, Ticket => $Ticket &> - <& /Elements/TitleBoxEnd &> - - - -
- <& /Elements/TitleBoxStart, title => 'Relationships', - title_href => "$RT::WebPath/Ticket/ModifyLinks.html?id=".$Ticket->Id, - title_class=> 'inverse', - titleright => '', color=> "#336633" &> - <& /Ticket/Elements/ShowLinks, Ticket => $Ticket &> - <& /Elements/TitleBoxEnd &> - 		- - <& /Elements/TitleBoxStart, title => "Dates", - title_href =>"$RT::WebPath/Ticket/ModifyDates.html?id=".$Ticket->Id, - title_class=> 'inverse', - color => "#663366" &> - <& /Ticket/Elements/ShowDates, Ticket => $Ticket &> - <& /Elements/TitleBoxEnd &> -
- <& /Elements/TitleBoxStart, title => 'People', - title_href =>"$RT::WebPath/Ticket/ModifyPeople.html?id=".$Ticket->Id, - title_class=> 'inverse', - color => "#333399" &> - <& /Ticket/Elements/ShowPeople, Ticket => $Ticket &> - <& /Elements/TitleBoxEnd &> -
- - <& /Ticket/Elements/ShowRequestor, Ticket => $Ticket &> - - -
-<%ARGS> -$Ticket => undef - - - - - diff --git a/rt/webrt/Ticket/Elements/ShowTransaction b/rt/webrt/Ticket/Elements/ShowTransaction deleted file mode 100755 index a0da008b3..000000000 --- a/rt/webrt/Ticket/Elements/ShowTransaction +++ /dev/null @@ -1,162 +0,0 @@ - -   -   -<% $transdate|n %>  -<%$Transaction->CreatorObj->Name%> - <%$TicketString%> <%$Transaction->BriefDescription%> - - -<%$TimeTaken%>  -<%$titlebar_commands|n%> - -<%PERL> - -unless ($Collapsed) { - $attachments->GotoFirstItem; - while (my $message=$attachments->Next) { - #we don't want to show any empty transactions, unless they have kids - next unless (length $message->Content || $message->Children->Count); - my ($headers, $content); - - - - -<%PERL> - if ($message->Parent == 0) { - if ($ShowHeaders == $Ticket->Id) { - $headers = $message->Headers; - } else { - $headers = $message->NiceHeaders; - } - chomp $headers; - $headers .= "\n\n" if ($headers); - } - # 13456 is a random # of about the biggest size we want to see inline text - my $MAX_INLINE_BODY = 13456; - if ($message->ContentType =~ m{^(text/plain|message|text$)}i && - length($message->Content)< $MAX_INLINE_BODY ) { - - $content = $message->Content; - - my $wrapper = new Text::Wrapper (columns=>85); - $content = $wrapper->wrap($content); - $content =~ s/&/&/g; - $content =~ s//>/g; - $content =~ s!((?:http|https|ftp|mailto):\S*?)([\s"']|>|\.[\n])!$1$2!g; - - - } - else { - $content = " "; - } - - - -    -    - - 
-<%$headers%><%$content|n%>
-
- - - -% if ($message->Parent == 0 ) { -
-% } -<%PERL> -my $size = length($message->Content()); - -if ($size) { - if ($size > 1024) { - $size = int($size/102.4)/10 . "k"; - } - else { - $size = $size ."b"; - } - -Download <%$message->Filename|| '(untitled)'%> <% $size %> -% } - - -% } -% } - - - -<%ARGS> -$Ticket => undef -$Transaction => undef -$ShowHeaders => undef -$Collapsed => undef -$ShowTitleBarCommands => 1 -$RowNum => 1 - - -<%INIT> - - -my ($TimeTaken, $TicketString, $bgcolor, $rowbgcolor); - -my $transdate = $Transaction->CreatedAsString(); -$transdate =~ s/\s/ /g; - -if ($RowNum % 2) { - $rowbgcolor="#cccccc"; -} else { - $rowbgcolor="#ffffff"; -} - -if ($Transaction->Type =~ /^(Create|Correspond|Comment$)/) { - if ($Transaction->IsInbound) { - $bgcolor="#336699"; - } - else { - $bgcolor="#339999"; - } -} elsif (($Transaction->Field =~ /^Owner$/) or - ($Transaction->Type =~ /^(AddWatcher|DelWatcher)$/)) { - $bgcolor="#333399"; - -} elsif ($Transaction->Type =~ /^(AddLink|DeleteLink)$/) { - $bgcolor="#336633"; -} elsif ($Transaction->Type =~ /^(Status|Set|Keyword|Told)$/) { - if ($Transaction->Field =~ /^(Told|Starts|Started|Due)$/) { - $bgcolor="#663366"; - } - else { - $bgcolor="#993333"; - } -} -else { - $bgcolor="#cccccc"; -} - -if ($Ticket->Id != $Transaction->Ticket) { - $TicketString = "Ticket ".$Transaction->Ticket .": "; -} - -if ($Transaction->TimeTaken > 0) { - $TimeTaken = $Transaction->TimeTaken." min" -} -my $attachments = $Transaction->Attachments; - -my $titlebar_commands=' '; - -# If the transaction has anything attached to it at all -if ($Transaction->Message->First && $ShowTitleBarCommands) { - if ($Transaction->TicketObj->CurrentUserHasRight('ReplyToTicket')) { - $titlebar_commands .= - "[Ticket . "&QuoteTransaction=".$Transaction->Id. - "&Action=Respond\">Reply] "; - } - if ($Transaction->TicketObj->CurrentUserHasRight('CommentOnTicket')) { - $titlebar_commands .= - "[Ticket. - "&QuoteTransaction=".$Transaction->Id. - "&Action=Comment\">Comment]"; - } -} - - diff --git a/rt/webrt/Ticket/Elements/Tabs b/rt/webrt/Ticket/Elements/Tabs deleted file mode 100755 index 8cce197de..000000000 --- a/rt/webrt/Ticket/Elements/Tabs +++ /dev/null @@ -1,126 +0,0 @@ -<& /Elements/Tabs, tabs => $tabs, actions => $actions, current_tab => $current_tab, tabs_scalar => $tabs_scalar &> -<%INIT> - - my $id = $Ticket->id(); - my $tabs_scalar = ''; - my $tabs = { - A => { title => 'Display', - path => "Ticket/Display.html?id=".$id, - }, - - Ab => { title => 'History', - path => "Ticket/History.html?id=".$id, - }, - B => { title => 'Basics', - path => "Ticket/Modify.html?id=".$id, - }, - - C => { title => 'Dates', - path => "Ticket/ModifyDates.html?id=".$id, - }, - - D => { title => 'People', - path => "Ticket/ModifyPeople.html?id=".$id, - }, - E => { title => 'Links', - path => "Ticket/ModifyLinks.html?id=".$id, - }, - F => { title => 'Jumbo', - path => "Ticket/ModifyAll.html?id=".$id, - }, - - }; - -my $actions; -if ($Ticket->CurrentUserHasRight('ModifyTicket') or - $Ticket->CurrentUserHasRight('CommentOnTicket')) { - $actions->{'Comment'} = - { - title => 'Comment', - path => "Ticket/Update.html?Action=Comment&id=".$id, - } - }; - -if ($Ticket->CurrentUserHasRight('ModifyTicket') or - $Ticket->CurrentUserHasRight('ReplyToTicket')) { - $actions->{'Reply'} = - { - title => 'Reply', - path => "Ticket/Update.html?Action=Respond&id=".$id, - } - }; - -if ($Ticket->CurrentUserHasRight('OwnTicket')) { - if ($Ticket->OwnerObj->id == $RT::Nobody->id) { - $actions->{'Take'} = - { - path => "Ticket/Display.html?Action=Take&id=".$id, - title => 'Take' - }; - } - elsif ( $Ticket->OwnerObj->id != $session{CurrentUser}->id) { - $actions->{'Steal'} = - { - path => "Ticket/Display.html?Action=Steal&id=".$id, - title => 'Steal' - }; - } -} - -if ($Ticket->CurrentUserHasRight('ModifyTicket')) { - if ($Ticket->Status ne 'resolved') { - $actions->{'Resolve'} = - { - - path => "Ticket/Update.html?Action=Comment&DefaultStatus=resolved&id=".$id, - title => 'Resolve' - }; - } - if ($Ticket->Status ne 'open') { - $actions->{'Open'} = - { - path => "Ticket/Display.html?Status=open&id=". $id, - title => 'Open' - }; - } -} - - - - -if (defined $session{'tickets'}) { - my $items = $session{'tickets'}->ItemsArrayRef(); - my @indexs = grep(($items->[$_]->id == $Ticket->Id), 0 .. $#{$items}); - - if ($items->[0]) { - - if ($items->[$indexs[0]]->id == $Ticket->Id) { - # Don't display prev links if we're on the first ticket - if ( $items->[0]->id != $Ticket->id ) { - $tabs_scalar .= '[<< First] '; - $tabs_scalar .= '[< Prev] '; - } - # Don't display next links if we're on the last ticket - if ( $Ticket->id != $items->[-1]->id ) { - $tabs_scalar .= '[Next >] '; - $tabs_scalar .= '[Last >>]'; - } - $tabs_scalar .= "

"; - } - } -} - - - -<%ARGS> -$Ticket => undef -$current_tab => undef - diff --git a/rt/webrt/Ticket/Elements/ToolBar b/rt/webrt/Ticket/Elements/ToolBar deleted file mode 100755 index 108e2f784..000000000 --- a/rt/webrt/Ticket/Elements/ToolBar +++ /dev/null @@ -1,3 +0,0 @@ -<%ARGS> -$Ticket => undef - -- cgit v1.2.1