%# $Header: /raid/cvsroot/rt/webrt/Ticket/Attic/Create_Detail.html,v 1.1.2.9 2000/06/02 03:28:10 tobiasb Exp $ %# Copyright 1996-2000 Jesse Vincent & Tobias Brox <& /Elements/Header, Title => "Create a request" &>
<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket in queue \"".$Queue->QueueId.'"' &> %# TODO: Totally ugly&untested code: %# TODO: Get a nice display also when more than one request is linked up % if ($Link eq 'DependsOn') { % if ($Ticket) { Request #<%$Ticket->Id%> (<%$Ticket->Subject%>) % } else { <%$LinkFromD%> %} should be dependent on this new request:

%} elsif ($Link eq 'MemberOf') { % if ($Ticket) { Request #<%$Ticket->Id%> (<%$Ticket->Subject%>) % } else { <%$LinkFromD%> %} should become a member of this new request:

%} elsif ($Link eq 'ParentOf') { The new request entered below should be a member of % if ($Ticket) { request #<%$Ticket->Id%> (<%$Ticket->Subject%>) % } else { <%$LinkTo%> %}

%} Owner: <& /Elements/SelectOwner, Name => "ValueOfOwner", Queue=>$Queue->Id &>

Requestors:
Cc:
Subject: " SIZE=20>

Status: <& /Elements/SelectStatus, Name => "Status", Default=> 'Open' &> %# TODO in Display.html or a more proper place: Upload an attachment (not implemented yet):
Describe the issue below:
<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>
<& /Elements/TitleBoxEnd &> <%INIT> require RT::Queue; require RT::Ticket; require RT::Link; my $Queue = RT::Queue->new($session{'CurrentUser'}); $Queue->Load($ARGS{'Queue'}); my $Ticket=undef; # Object orientedness isn't always the best thing - I don't see any # other ways of doing the thing below - except making a link object - # something I don't want to do (yet): # TODO: This is buggy (displays wrong info if the link info is # changed, or more links are added): my $fid=RT::Link::_IsLocal(undef, $LinkFromD || $LinkFromM || $LinkTo || ""); if ($fid) { $Ticket=new RT::Ticket($session{'CurrentUser'}); $Ticket->Load($fid) || undef $Ticket; &mc_comp("/Elements/Error" , Why => "The specified linking ticket doesn't exist or cannot be loaded") unless $Ticket; } <%ARGS> $Link => undef $LinkFromM => undef $LinkFromD => undef $LinkTo => undef $QuoteTransaction => undef