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/Attachment/dhandler | 27 ---- rt/webrt/Ticket/Create.html | 199 ---------------------------- rt/webrt/Ticket/Display.html | 152 --------------------- 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 - rt/webrt/Ticket/History.html | 30 ----- rt/webrt/Ticket/Modify.html | 39 ------ rt/webrt/Ticket/ModifyAll.html | 124 ----------------- rt/webrt/Ticket/ModifyDates.html | 26 ---- rt/webrt/Ticket/ModifyLinks.html | 31 ----- rt/webrt/Ticket/ModifyPeople.html | 38 ------ rt/webrt/Ticket/Update.html | 110 --------------- 32 files changed, 1866 deletions(-) delete mode 100644 rt/webrt/Ticket/Attachment/dhandler delete mode 100755 rt/webrt/Ticket/Create.html delete mode 100755 rt/webrt/Ticket/Display.html 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 delete mode 100755 rt/webrt/Ticket/History.html delete mode 100755 rt/webrt/Ticket/Modify.html delete mode 100755 rt/webrt/Ticket/ModifyAll.html delete mode 100755 rt/webrt/Ticket/ModifyDates.html delete mode 100755 rt/webrt/Ticket/ModifyLinks.html delete mode 100755 rt/webrt/Ticket/ModifyPeople.html delete mode 100755 rt/webrt/Ticket/Update.html (limited to 'rt/webrt/Ticket') diff --git a/rt/webrt/Ticket/Attachment/dhandler b/rt/webrt/Ticket/Attachment/dhandler deleted file mode 100644 index 0d646cc0b..000000000 --- a/rt/webrt/Ticket/Attachment/dhandler +++ /dev/null @@ -1,27 +0,0 @@ -<%perl> - my ($ticket, $trans,$attach, $filename); - my $arg = $m->dhandler_arg; # get rest of path - if ($arg =~ '^(\d+)/(\d+)') { - $trans = $1; - $attach = $2; - } - else { - Abort("Corrupted attachment URL."); - } - my $AttachmentObj = new RT::Attachment($session{'CurrentUser'}); - $AttachmentObj->Load($attach) || Abort("Attachment '$attach' could not be loaded"); - - - unless ($AttachmentObj->id) { - Abort("Bad attachment id. Couldn't find attachment '$attach'\n"); - } - unless ($AttachmentObj->TransactionId() == $trans ) { - Abort("Bad transaction number for attachment. $trans should be".$AttachmentObj->TransactionId() ."\n"); - - } - my $content_type = $AttachmentObj->ContentType || 'text/plain'; - SetContentType($content_type); - $m->out($AttachmentObj->Content); - $m->abort; - - diff --git a/rt/webrt/Ticket/Create.html b/rt/webrt/Ticket/Create.html deleted file mode 100755 index 2c61de03a..000000000 --- a/rt/webrt/Ticket/Create.html +++ /dev/null @@ -1,199 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/Create.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - -<& /Elements/Header, Title => "Create a new ticket" &> -<& /Elements/Tabs, current_toptab => "Ticket/Create.html" &> -
- - - - -[Show basics] [Show details] -
-<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket"&> -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Queue<% $QueueObj->Name %> - -Status: - -<& /Elements/SelectStatus, Name => "Status", Default=> 'new' &> - -Owner: - -<& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &> -
-Requestors: - - -
-Cc: - - -
-Admin Cc: - - -
-Subject: - - -
-Attach file: - - -
-Describe the issue below:
-<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &> - -
-
-
-<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, Label => "Create"&> - -










-










-










-










-










- - - [Show basics] [Show details] -
- - - - - - -
- - <& /Elements/TitleBoxStart, title => 'The Basics', - title_class=> 'inverse', - color => "#993333" &> - - - - - -
Priority:
Final Priority:
Time Worked:
Time Left:
-<& /Elements/TitleBoxEnd &> -
-
- - - <& /Elements/TitleBoxStart, - title_class=> 'inverse', - title => "Keyword Selections", color => "#993300" - &> - -% while ( my $KeywordSelect = $KeywordSelects->Next ) { -% my $Descendents = $KeywordSelect->KeywordObj->Descendents; - -% } - -
- <% $KeywordSelect->Name %> - - -
-<& /Elements/TitleBoxEnd &> - -		 -<& /Elements/TitleBoxStart, title => "Dates", - title_class=> 'inverse', - color => "#663366" &> - - - - -
Starts:
Due:
-<& /Elements/TitleBoxEnd &> -
-<& /Elements/TitleBoxStart, title => 'Relationships', - title_class=> 'inverse', - titleright => '', color=> "#336633" &> - -(Enter ticket ids or URLs, seperated with spaces) - - - - - - - - - -
Depends on
Depended on by
Parents
Children
Refers to
Referred to by
-<& /Elements/TitleBoxEnd &> -
- -
-<& /Elements/Submit, Label => "Create"&> -
-









-










-










-










-










- -<%INIT> -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($Queue) || Abort("Queue could not be loaded."); -my $KeywordSelects = $QueueObj->KeywordSelects; - - - -<%ARGS> -$DependsOn => undef -$DependedOnBy => undef -$MemberOf => undef -$QuoteTransaction => undef -$Queue => undef - diff --git a/rt/webrt/Ticket/Display.html b/rt/webrt/Ticket/Display.html deleted file mode 100755 index cb0dc2501..000000000 --- a/rt/webrt/Ticket/Display.html +++ /dev/null @@ -1,152 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/Display.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - -<& /Elements/Header, Title => "Ticket #".$Ticket->Id ." ".$Ticket->Subject &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => 'Ticket/Display.html?id='.$Ticket->id &> - -<& /Elements/ListActions, actions => \@Actions &> - -<& /Ticket/Elements/ShowSummary, Ticket => $Ticket &> - - -
-<& /Ticket/Elements/ShowHistory , - Ticket => $Ticket, - Collapsed => $ARGS{'Collapsed'}, - ShowHeaders => $ARGS{'ShowHeaders'} &> - - -<%ARGS> -$id => undef -$Create => undef -$ShowHeaders => undef -$Collapsed => undef - - -<%INIT> - - - my ($linkid, $message, $tid, $Ticket, @Actions); - -$Ticket = new RT::Ticket($session{'CurrentUser'}); - -unless ($id) { - Abort('No ticket specified'); -} - -if ($ARGS{'id'} eq 'new') { - # {{{ Create a new ticket - - my $Queue = new RT::Queue($session{'CurrentUser'}); - unless ($Queue->Load($ARGS{'Queue'})) { - Abort('Queue not found'); - } - - unless ($Queue->CurrentUserHasRight('CreateTicket')) { - Abort('You have no permission to create tickets in that queue.'); - } - - my $due = new RT::Date($session{'CurrentUser'}); - $due->Set(Format => 'unknown', Value => $ARGS{'Due'}); - my $starts = new RT::Date($session{'CurrentUser'}); - $starts->Set(Format => 'unknown', Value => $ARGS{'Starts'}); - - - my @Requestors = split(/,/,$ARGS{'Requestors'}); - my @Cc = split(/,/,$ARGS{'Cc'}); - my @AdminCc = split(/,/,$ARGS{'AdminCc'}); - - my $MIMEObj = MakeMIMEEntity( Subject => $ARGS{'Subject'}, - From => $ARGS{'From'}, - Cc => $ARGS{'Cc'}, - Body => $ARGS{'Content'}, - AttachmentFieldName => 'Attach'); - - - my %create_args = ( - Queue=>$ARGS{Queue}, - Owner=>$ARGS{ValueOfOwner}, - InitialPriority=> $ARGS{InitialPriority}, - FinalPriority=> $ARGS{FinalPriority}, - TimeLeft => $ARGS{TimeLeft}, - TimeWorked => $ARGS{TimeWorked}, - Requestor=> \@Requestors, - Cc => \@Cc, - AdminCc => \@AdminCc, - Subject=>$ARGS{Subject}, - Status=>$ARGS{Status}, - Due => $due->ISO, - Starts => $starts->ISO, - MIMEObj => $MIMEObj - ); - - - # we need to get any KeywordSelect- fields into %create_args.. - grep { $_ =~ /^KeywordSelect-/ && {$create_args{$_} = $ARGS{$_}}} %ARGS; - - my ($id, $Trans, $ErrMsg)= $Ticket->Create(%create_args); - unless ($id && $Trans) { - Abort($ErrMsg); - } - my @linktypes = qw( DependsOn MemberOf RefersTo ); - - foreach my $linktype (@linktypes) { - foreach my $luri (split (/ /,$ARGS{"new-$linktype"})) { - $luri =~ s/\s*$//; # Strip trailing whitespace - my ($val, $msg) = $Ticket->AddLink( Target => $luri, - Type => $linktype); - push @Actions, $msg; - } - - foreach my $luri (split (/ /,$ARGS{"$linktype-new"})) { - my ($val, $msg) = $Ticket->AddLink( Base => $luri, - Type => $linktype); - - push @Actions, $msg; - } - } - # don't try to change queue to the current queue - delete $ARGS{'Queue'}; - - push(@Actions, $ErrMsg); - unless ($Ticket->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view newly created ticket #".$Ticket->id."."); - } - # }}} -} - -else { - $Ticket = LoadTicket($ARGS{'id'}); - unless ($Ticket->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view ticket"); - } - - -if (defined $ARGS{'Action'}) { - if ($ARGS{'Action'} =~ /^(Steal|Kill|Take|SetTold)$/) { - my $action = $1; - my ($res, $msg)=$Ticket->$action(); - push(@Actions, $msg); - } -} - $ARGS{'UpdateContent'} =~ s/\r\n/\n/g; - - if ($ARGS{'UpdateContent'} && - $ARGS{'UpdateContent'} ne '' && - $ARGS{'UpdateContent'} ne "-- \n" . - $session{'CurrentUser'}->UserObj->Signature - ) { - ProcessUpdateMessage(ARGSRef=>\%ARGS, - Actions=>\@Actions, - TicketObj=>$Ticket); - } -#Process status updates -my @BasicActions = ProcessTicketBasics(ARGSRef => \%ARGS, TicketObj=>$Ticket); - -push (@Actions, @BasicActions); -} - - - - - 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 - diff --git a/rt/webrt/Ticket/History.html b/rt/webrt/Ticket/History.html deleted file mode 100755 index e0a5fe15a..000000000 --- a/rt/webrt/Ticket/History.html +++ /dev/null @@ -1,30 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/History.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - -<& /Elements/Header, Title => "Ticket History #".$Ticket->Id ." ".$Ticket->Subject &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => 'Ticket/History.html?id='.$Ticket->id &> - -
- -<& /Ticket/Elements/ShowHistory , Ticket => $Ticket, ShowHeaders => $ARGS{'ShowHeaders'}, URIFile => 'History.html' &> - - -<%ARGS> -$id => undef - - -<%INIT> - - - -my $Ticket = LoadTicket ($id); - -unless ($Ticket->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view ticket"); -} - - - - - - diff --git a/rt/webrt/Ticket/Modify.html b/rt/webrt/Ticket/Modify.html deleted file mode 100755 index 7a8a79216..000000000 --- a/rt/webrt/Ticket/Modify.html +++ /dev/null @@ -1,39 +0,0 @@ -<& /Elements/Header, Title => 'Modify ticket #'.$TicketObj->Id &> -<& /Ticket/Elements/Tabs, Ticket => $TicketObj, current_tab => "Ticket/Modify.html?id=".$TicketObj->Id &> - -<& /Elements/ListActions, actions => \@results &> -
- - -<& /Elements/TitleBoxStart, title => 'Modify ticket #'.$TicketObj->Id, - color=> "#993333", width => "100%" &> -<& Elements/EditBasics, TicketObj => $TicketObj &> -<& /Elements/TitleBoxEnd &> - -<& /Elements/TitleBoxStart, title => 'Keywords', color =>"#993333"&> -<& Elements/EditKeywordSelects, TicketObj=>$TicketObj &> -<& /Elements/TitleBoxEnd &> - -<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to", color => "#993333" &> -
-<%INIT> - -my $TicketObj = LoadTicket($id); - -my @results = ProcessTicketBasics(TicketObj => $TicketObj, ARGSRef => \%ARGS); -my @okresults = ProcessTicketObjectKeywords(TicketObj => $TicketObj, ARGSRef => \%ARGS); - -push (@results, @okresults); - -# TODO: display the results, even if we can't display the ticket - -unless ($TicketObj->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view ticket"); -} - - - - -<%ARGS> -$id => undef - diff --git a/rt/webrt/Ticket/ModifyAll.html b/rt/webrt/Ticket/ModifyAll.html deleted file mode 100755 index ad913739d..000000000 --- a/rt/webrt/Ticket/ModifyAll.html +++ /dev/null @@ -1,124 +0,0 @@ -<& /Elements/Header, Title => "Ticket #".$Ticket->Id ." Jumbo update: ".$Ticket->Subject &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket , current_tab => "Ticket/ModifyAll.html?id=".$Ticket->Id &> - -<& /Elements/ListActions, actions => \@results &> - -
- - - -<& /Elements/TitleBoxStart, title => 'Modify ticket #'.$Ticket->Id, color=> "#993333", width => "100%" &> -<& Elements/EditBasics, TicketObj => $Ticket &> -<& /Elements/TitleBoxEnd &> - -
- -<& /Elements/TitleBoxStart, title => 'Dates', width => "100%", color => "#663366" &> -<& Elements/EditDates, TicketObj => $Ticket &> -<& /Elements/TitleBoxEnd &> - -
- -<& /Elements/TitleBoxStart, title => 'Keywords', color =>"#993333"&> -<& Elements/EditKeywordSelects, TicketObj=>$Ticket &> -<& /Elements/TitleBoxEnd &> - -
- -<& /Elements/TitleBoxStart, title => 'People',width => "100%", color=> "#333399" &> -<& Elements/EditPeople, Ticket => $Ticket, UserField => $UserField, UserString => $UserString, UserOp => $UserOp &> -<& /Elements/TitleBoxEnd &> - -
- -<& /Elements/TitleBoxStart, title => 'Relationships', color => "#336633"&> -<& Elements/EditLinks, Ticket => $Ticket &> -<& /Elements/TitleBoxEnd &> - -
- -<& /Elements/TitleBoxStart, title => 'Update ticket' &> -
-Update Type: -
- -Subject:
-Attach:
-<& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &> -<& /Elements/TitleBoxEnd &> - - -<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to", color => "#333399" &> -
- -<%INIT> - - - -my $Ticket = LoadTicket($id); - -my $CanRespond = 0; -my $CanComment = 0; - - -$CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or - $Ticket->CurrentUserHasRight('ModifyTicket') ); - -$CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or - $Ticket->CurrentUserHasRight('ModifyTicket') ); - - -my (@wresults, @results, @okresults, @dresults, @lresults); - -unless ($OnlySearchForPeople) { - @wresults = ProcessTicketWatchers( TicketObj => $Ticket, ARGSRef => \%ARGS); - @results = ProcessTicketBasics( TicketObj => $Ticket, ARGSRef => \%ARGS); - @okresults = ProcessTicketObjectKeywords(TicketObj => $Ticket, ARGSRef => \%ARGS); - - @dresults = ProcessTicketDates( TicketObj => $Ticket, ARGSRef => \%ARGS); - @lresults = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS); - - $ARGS{'UpdateContent'} =~ s/\r\n/\n/g; - - if ($ARGS{'UpdateContent'} && - $ARGS{'UpdateContent'} ne '' && - $ARGS{'UpdateContent'} ne "-- \n" . - $session{'CurrentUser'}->UserObj->Signature - ) { - ProcessUpdateMessage(TicketObj => $Ticket, - ARGSRef=>\%ARGS, - Actions=>\@results); - } -} -push @results, @wresults; -push @results, @dresults; -push @results, @lresults; -push @results, @okresults; - -# If they've gone and moved the ticket to somewhere they can't see, etc... -# TODO: display the results, even if we can't display the ticket. - -unless ($Ticket->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view ticket"); -} - - - - - - -<%ARGS> -$OnlySearchForPeople => undef -$UserField => undef -$UserOp => undef -$UserString => undef -$id => undef - - diff --git a/rt/webrt/Ticket/ModifyDates.html b/rt/webrt/Ticket/ModifyDates.html deleted file mode 100755 index b2ecb68fb..000000000 --- a/rt/webrt/Ticket/ModifyDates.html +++ /dev/null @@ -1,26 +0,0 @@ -<& /Elements/Header, Title => 'Modify dates for #'. $TicketObj->Id &> -<& /Ticket/Elements/Tabs, Ticket => $TicketObj, current_tab => "Ticket/ModifyDates.html?id=".$TicketObj->Id &> - -<& /Elements/ListActions, actions => \@results &> - -
- -<& /Elements/TitleBoxStart, title => 'Modify dates for ticket #'.$TicketObj->Id, width => "100%", color => "#663366" &> - -<& Elements/EditDates, TicketObj => $TicketObj &> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, color => "#663366" &> -
- - -<%INIT> - -my $TicketObj = LoadTicket($id); -my @results = ProcessTicketDates( TicketObj => $TicketObj, ARGSRef => \%ARGS); - - - - -<%ARGS> -$id => undef - diff --git a/rt/webrt/Ticket/ModifyLinks.html b/rt/webrt/Ticket/ModifyLinks.html deleted file mode 100755 index 14c939d43..000000000 --- a/rt/webrt/Ticket/ModifyLinks.html +++ /dev/null @@ -1,31 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/ModifyLinks.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2000 Jesse Vincent - -<& /Elements/Header, Title => "Link ticket ".$Ticket->Id &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => "Ticket/ModifyLinks.html?id=".$Ticket->Id &> - -<& /Elements/ListActions, actions => \@results &> - -
- - -<& /Elements/TitleBoxStart, title => 'Edit Relationships', color => "#336633"&> -<& Elements/EditLinks, Ticket => $Ticket &> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, color => "#336633", Caption=> 'Save changes' &> -
- - - - -<%INIT> - -my $Ticket = LoadTicket($id); -my @results = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS); - - - - -<%ARGS> -$id => undef - diff --git a/rt/webrt/Ticket/ModifyPeople.html b/rt/webrt/Ticket/ModifyPeople.html deleted file mode 100755 index fecf09192..000000000 --- a/rt/webrt/Ticket/ModifyPeople.html +++ /dev/null @@ -1,38 +0,0 @@ -<& /Elements/Header, Title => 'Modify people related to ticket # ' . $Ticket->id &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket , current_tab => "Ticket/ModifyPeople.html?id=".$Ticket->Id &> - -<& /Elements/ListActions, actions => \@results &> - -
- -<& /Elements/TitleBoxStart, title => 'Modify people related to ticket #'.$Ticket->Id, width => "100%", color=> "#333399" &> -<& Elements/EditPeople, Ticket => $Ticket, UserField => $UserField, UserString => $UserString, UserOp => $UserOp &> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to", color => "#333399" &> -
- -<%INIT> - -my (@results, @wresults); - -my $Ticket = LoadTicket($id); - -# if we're trying to search for watchers and nothing else -unless ($OnlySearchForPeople) { - @results = ProcessTicketBasics( TicketObj => $Ticket, ARGSRef => \%ARGS); - @wresults = ProcessTicketWatchers( TicketObj => $Ticket, ARGSRef => \%ARGS); -} - -push @results, @wresults; - - - - -<%ARGS> -$OnlySearchForPeople => undef -$UserField => undef -$UserOp => undef -$UserString => undef -$id => undef - - diff --git a/rt/webrt/Ticket/Update.html b/rt/webrt/Ticket/Update.html deleted file mode 100755 index be2266663..000000000 --- a/rt/webrt/Ticket/Update.html +++ /dev/null @@ -1,110 +0,0 @@ -<& /Elements/Header, Title=> $title &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket &> -<& /Elements/TitleBoxStart, title => "Update ticket" &> - -
- - - - - - -
-Ticket watchers -Requestor: - -<% $Ticket->RequestorsAsString %> -
  -Cc: - -<% $Ticket->CcAsString %> -
  -AdminCc: - -<% $Ticket->AdminCcAsString %> -
-
- - - - - - - - - - - -
Status: -<& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &> -Owner: -<& /Elements/SelectOwner, Name=>"Owner", Default => $Ticket->OwnerObj->Id(), QueueObj => $Ticket->QueueObj, TicketObj => $Ticket &> -Worked: minutes
Update Type: -
Subject:
Cc:
-(Sends a carbon-copy of this update to a comma-delimited list -of email addresses. Does not change who will receive future updates.) -
Bcc:
-(Sends a blind carbon-copy of this update to a comma-delimited list -of email addresses. Does not change who will receive future updates.) -
Attach:
-<& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &> -
- - - - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -
- - - -<%INIT> - -my $CanRespond = 0; -my $CanComment = 0; -my $title; - -my $Ticket = LoadTicket($id); - - -if ($DefaultStatus eq 'resolved') { - $title = "Resolve"; -} else { - $title = "Update"; -} - -$title .= " ticket #" . $Ticket->id . " (" .$Ticket->Subject.")"; - -# Things needed in the template - we'll do the processing here, just -# for the convinience: -my $CommentDefault=$Action eq "Comment" ? "SELECTED" : ""; -my $ResponseDefault=$Action eq "Respond" ? "SELECTED" : ""; - -$DefaultStatus = $Ticket->Status() unless ($DefaultStatus); - -$CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or - $Ticket->CurrentUserHasRight('ModifyTicket') ); - -$CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or - $Ticket->CurrentUserHasRight('ModifyTicket') ); - - - - - - - -<%ARGS> -$id => undef -$Action => undef -$DefaultStatus => undef - -- cgit v1.2.1