diff options
Diffstat (limited to 'rt/webrt')
161 files changed, 0 insertions, 7462 deletions
diff --git a/rt/webrt/Admin/Elements/CreateQueueCalled b/rt/webrt/Admin/Elements/CreateQueueCalled deleted file mode 100755 index aeed6e786..000000000 --- a/rt/webrt/Admin/Elements/CreateQueueCalled +++ /dev/null @@ -1,3 +0,0 @@ -<FORM METHOD=get ACTION="<% $RT::WebPath %>/Admin/Queues/Create.html"> -Create a queue called <INPUT NAME="Name" size=10><input type=submit> -</form> diff --git a/rt/webrt/Admin/Elements/CreateUserCalled b/rt/webrt/Admin/Elements/CreateUserCalled deleted file mode 100755 index 7e4bb7554..000000000 --- a/rt/webrt/Admin/Elements/CreateUserCalled +++ /dev/null @@ -1,3 +0,0 @@ -<FORM METHOD=get ACTION="<%$RT::WebPath%>/Admin/Users/Create.html"> -New user called <INPUT NAME="Name" size=10><input type=submit value="Create"> -</form> diff --git a/rt/webrt/Admin/Elements/EditUserComments b/rt/webrt/Admin/Elements/EditUserComments deleted file mode 100755 index 1ac7e187f..000000000 --- a/rt/webrt/Admin/Elements/EditUserComments +++ /dev/null @@ -1,9 +0,0 @@ -<& /Elements/Header, Title => "Comments about $name" &> -These comments aren't generally visible to the user:<br> -<input type="hidden" name="id" value="<%$id%>"> -<TEXTAREA COLS=60 ROWS=15 WRAP=SOFT NAME="Comments"><% $UserObj->Comments %></TEXTAREA> -</FORM> - -<%ARGS> -$UserObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/GrantQueueRightsTo b/rt/webrt/Admin/Elements/GrantQueueRightsTo deleted file mode 100755 index 3850a18f2..000000000 --- a/rt/webrt/Admin/Elements/GrantQueueRightsTo +++ /dev/null @@ -1,30 +0,0 @@ -<BR> - -% if ($msg) { -<%$msg%> -% } elsif ($Users) { -<ul> -% while (my $u = $Users->Next ) { -<li> <%$u->Name%> (<%$u->RealName%>) <& SelectQueueRights, Name => "GrantTo".$u->id &> -% } -</ul> -% } - -<%INIT> -my ($msg, $Users); -if (!$ARGS{'UserString'}) { -$msg = "No users selected."; - } -else { - $Users = new RT::Users($session{'CurrentUser'}); - $Users->Limit(FIELD => $ARGS{'UserField'}, - VALUE => $ARGS{'UserString'}, - OPERATOR => $ARGS{'UserOp'}); - } -</%INIT> - -<%ARGS> -$UserField => 'Name' -$UserOp => '=' -$UserString => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/GroupTabs b/rt/webrt/Admin/Elements/GroupTabs deleted file mode 100755 index 261bef1e2..000000000 --- a/rt/webrt/Admin/Elements/GroupTabs +++ /dev/null @@ -1,18 +0,0 @@ -<& /Admin/Elements/Tabs, subtabs => $subtabs, current_tab => 'Admin/Groups/' &> -<hr> -<%INIT> -my $subtabs = { - Basics => { title => 'Basics', - path => "Admin/Groups/Modify.html?id=". $GroupObj->id - } - }; - -unless ($GroupObj->Pseudo) { -$subtabs->{'Members'} = { title => 'Members', - path => "Admin/Groups/Members.html?id=".$GroupObj->id }; -} -</%INIT> - -<%ARGS> -$GroupObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/Header b/rt/webrt/Admin/Elements/Header deleted file mode 100755 index 95acdac7e..000000000 --- a/rt/webrt/Admin/Elements/Header +++ /dev/null @@ -1,5 +0,0 @@ -<& /Elements/Header, Title => $Title &> - -<%ARGS> -$Title => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/ListGlobalKeywordSelects b/rt/webrt/Admin/Elements/ListGlobalKeywordSelects deleted file mode 100644 index b24d68989..000000000 --- a/rt/webrt/Admin/Elements/ListGlobalKeywordSelects +++ /dev/null @@ -1,15 +0,0 @@ -% while (my $KeywordSelect = $KeywordSelects->Next()) { - -<%$KeywordSelect->Name %>: -<% $KeywordSelect->Single ? 'Single' : 'Multiple' %> -children of -<% $KeywordSelect->KeywordObj->Path %> -% if ($KeywordSelect->Depth) { - up to <%$KeywordSelect->Depth%> levels deep -% } -<BR> -%} -<%INIT> -my $KeywordSelects = RT::KeywordSelects->new($session{'CurrentUser'}); -$KeywordSelects->LimitToGlobals(); -</%INIT> diff --git a/rt/webrt/Admin/Elements/ListGlobalScrips b/rt/webrt/Admin/Elements/ListGlobalScrips deleted file mode 100755 index 2f044bf52..000000000 --- a/rt/webrt/Admin/Elements/ListGlobalScrips +++ /dev/null @@ -1,10 +0,0 @@ -% while (my $scrip = $Scrips->Next ) { -<% $scrip->ConditionObj->Name %> -<% $scrip->ActionObj->Name %> -with template <% $scrip->TemplateObj->Name %> -<BR> -% } -<%init> -my $Scrips = new RT::Scrips ($session{'CurrentUser'}); -$Scrips->LimitToGlobal(); -</%INIT> diff --git a/rt/webrt/Admin/Elements/ModifyKeyword b/rt/webrt/Admin/Elements/ModifyKeyword deleted file mode 100644 index 4b01c3692..000000000 --- a/rt/webrt/Admin/Elements/ModifyKeyword +++ /dev/null @@ -1,95 +0,0 @@ -<FORM METHOD="get" ACTION="<%$RT::WebPath%>/Admin/Keywords/Modify.html"> -[<%$title |n %>]<BR> - -<INPUT TYPE="hidden" NAME="id" VALUE="<% $id %>"> -Keyword <INPUT NAME="Name" VALUE="<% $Keyword->Name %>"><BR> - -Parent <SELECT NAME="Parent"> - <OPTION VALUE=""<% defined($Keyword->Parent) ? '' : ' SELECTED' %>>-</OPTION> -%while ( $parent = $parents->Next ) { - <OPTION VALUE="<% $parent->id %>"<% defined($Keyword->Parent) && $parent->id == $Keyword->Parent ? ' SELECTED' : '' %>><% $parent->Name %></OPTION> -%} -</SELECT> - - -Kids <FONT SIZE="-2">(separate by -<INPUT TYPE="radio" NAME="delim" VALUE="n"<% $delim eq 'n' ? ' CHECKED' : '' %>> -line or -<INPUT TYPE="radio" NAME="delim" VALUE="s"<% $delim eq 's' ? ' CHECKED' : '' %>> -whitespace)</FONT><BR> - -<TEXTAREA NAME="Kids" ROWS=4><% $kidstring %></TEXTAREA> -<BR> - -<& /Elements/Submit, Label => $submit &> -</FORM> - -<%INIT> - -my $Keyword = new RT::Keyword($session{CurrentUser}); -my ($title, $submit, %kids, $kid); - -if ( $Create ) { - $title = "Create a new Keyword"; - $submit = "Create"; - $id = "new"; - %kids = (); - $Parent = ''; #silence -} elsif ( $id eq 'new' ) { - $id = $Keyword->Create( Name => $Name, Parent => $Parent ) - or Abort("can't create keyword Name=>$Name, Parent=>$Parent"); -} else { - $Keyword->Load($id) || Abort("Can't load keyword id $id"); - #foreach my $field ( grep eval "defined(\$$_)", qw( Name Parent )) { - # eval "\$Keyword->Set(\$field=>\$$field); #sigh - #} - $Keyword->SetName($Name) if defined($Name); - $Keyword->SetParent($Parent) if defined($Parent); -} - -$title = "Modify the Keyword <B>". $Keyword->Name. "</B>"; -$submit = "Modify"; - -my $kids = new RT::Keywords($session{CurrentUser}); -$kids->Limit( FIELD => 'Parent', VALUE => $id, OPERATOR => '=' ); -$kids{$kid->Name} = $kid while $kid = $kids->Next; - -if ( defined($Kids) ) { - my %newkids; - if ( $delim eq 'n' ) { - %newkids = map { $_=>1 } split(/\n/, $Kids); - } elsif ( $delim eq 's' ) { - %newkids = map { $_=>1 } split(' ', $Kids); - } else { - Abort("'$delim' isn't a valid keyword delimiter."); - } - foreach ( grep { ! defined($newkids{$_}) } keys %kids ) { - $kids{$_}->Delete; - delete $kids{$_}; - } - foreach ( grep { ! defined($kids{$_}) } keys %newkids ) { - $kids{$_} = new RT::Keyword($session{CurrentUser}); - $kids{$_}->Create( Name => $_, Parent => $id ) - or Abort("can't create keyword Name=>$_, Parent=>$id"); - } - -} - - -my $parent; -my $parents = new RT::Keywords($session{CurrentUser}); -$parents->UnLimit; - -$delim = ( grep /\s/, keys %kids ) ? 'n' : 's'; -my $kidstring = join("\n", keys %kids); - -</%INIT> - -<%ARGS> -$id => undef -$Create => undef -$Name => undef -$Parent => undef -$Kids => undef -$delim => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/ModifyKeywordSelect b/rt/webrt/Admin/Elements/ModifyKeywordSelect deleted file mode 100644 index 470e62929..000000000 --- a/rt/webrt/Admin/Elements/ModifyKeywordSelect +++ /dev/null @@ -1,120 +0,0 @@ - <FORM NAME="ModifyKeywordSelect" METHOD=POST ACTION="<%$RT::WebPath%>/Admin/KeywordSelects/Modify.html"> - - [<%$title |n %>] - <BR> - - <INPUT TYPE="hidden" NAME="id" VALUE="<% $id %>"> - Keyword - <SELECT NAME="Parent"> - -%while ( $parent = $parents->Next ) { - - <OPTION VALUE="<% $parent->id %>" <% defined($KeywordSelect->Parent) && $parent->id == $KeywordSelect->Parent ? ' SELECTED' : '' %>><% $parent->Name %></OPTION> - -% } - - </SELECT> - <BR> - Object - <SELECT NAME="ObjectType"> - <OPTION SELECTED>Ticket</OPTION> - </SELECT> - <BR> - -<SCRIPT> -function addOption(text, value, defaultselected, selected) { - var option = new Option(text, value, defaultselected, selected ) - var length = document.ModifyKeywordSelect.ObjectValue.length; - document.ModifyKeywordSelect.ObjectValue.options[length] = option -} -function ChangeObjectValue(what) { - Value = what.options[what.selectedIndex].value - if ( Value == "(none)" ) { - document.ModifyKeywordSelect.ObjectValue.options.length = 0 - addOption("(n/a)", "", false, false) - } - if ( Value == "Queue" ) { - document.ModifyKeywordSelect.ObjectValue.options.length = 0 -%foreach $queue ( keys %queues ) { - addOption("<% $queues{$queue} %>", "<% $queue %>", false, <% $queue == $KeywordSelect->ObjectValue ? 'true' : 'false' %> ) -%} - } -} -</SCRIPT> - - Limit to <SELECT NAME="ObjectField" onChange="ChangeObjectValue(this)"> - <OPTION VALUE="" <% $KeywordSelect->ObjectField ? '' : ' SELECTED' %>>(none)</OPTION> - <OPTION VALUE="Queue" <% $KeywordSelect->ObjectField eq 'Queue' ? ' SELECTED' : '' %>>Queue</OPTION> - </SELECT> - <SELECT NAME="ObjectValue"> - <OPTION VALUE="<% $KeywordSelect->ObjectValue %>"> - <% $KeywordSelect->ObjectField ? $queues{$KeywordSelect->ObjectValue} : "(n/a)" %></OPTION> - </SELECT><BR> - <INPUT TYPE="hidden" NAME="SingleMagic" VALUE="1"> - <INPUT TYPE="checkbox" NAME="Single" VALUE="1" <% $KeywordSelect->Single ? ' CHECKED' : '' %>>Allow single selection only<BR> - Limit to <INPUT TYPE="text" NAME="Generations" SIZE="2" VALUE="<% $KeywordSelect->Generations %>"> generations (0 = no limit)<BR> - <& /Elements/Submit, Label => $submit &> - -</FORM> - -<%INIT> - - -my $KeywordSelect = new RT::KeywordSelect($session{CurrentUser}); - -my($title, $submit); - -if ( $Create ) { - $title = "Create a new KeywordSelect"; - $submit = "Create"; - $id = "new"; -} else { - if ( $id eq 'new' ) { - $id = $KeywordSelect->Create ( - Parent => $Parent, - ObjectType => $ObjectType, - ObjectField => $ObjectField, - ObjectValue => $ObjectValue, - Single => $Single, - Generations => $Generations, - ) or Abort "can't create KeywordSelect"; - } else { - $KeywordSelect->Load($id) || Abort("Can't load keyword id $id"); - #false laziness - $KeywordSelect->SetParent($Parent) if defined($Parent); - $KeywordSelect->SetObjectType($ObjectType) if defined($ObjectType); - $KeywordSelect->SetObjectField($ObjectField) if defined($ObjectField); - $KeywordSelect->SetObjectValue($ObjectValue) if defined($ObjectValue); - $KeywordSelect->SetSingle($Single) if defined($SingleMagic); - $KeywordSelect->SetGenerations($Generations) if defined($Generations); - } - $title = "Modify the KeywordSelect <B>". $KeywordSelect->KeywordObj->Name. "</B>"; - $submit = "Modify"; - -} - - my $parents = new RT::Keywords($session{CurrentUser}); - $parents->UnLimit; - my $parent; - -my $queues = new RT::Queues($session{CurrentUser}); -$queues->UnLimit; - -my %queues; -my $queue; -$queues{$queue->id} = $queue->Name while $queue = $queues->Next; - -</%INIT> - -<%ARGS> -$id => undef -$Create => undef -$Parent => undef -$ObjectType => undef -$ObjectField => undef -$ObjectValue => undef -$Single => undef -$SingleMagic => undef -$Generations => undef -</%ARGS> - diff --git a/rt/webrt/Admin/Elements/ModifyQueue b/rt/webrt/Admin/Elements/ModifyQueue deleted file mode 100755 index a641c81af..000000000 --- a/rt/webrt/Admin/Elements/ModifyQueue +++ /dev/null @@ -1,56 +0,0 @@ - -<& /Elements/TitleBoxStart, title => 'Editing Configuration for queue '.$QueueObj->Id &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Queues/Modify.html" METHOD=POST> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>"> -<TABLE> -<TR><TD ALIGN=RIGHT> -Queue Name: -</TD> -<TD><INPUT name="Name" value="<%$QueueObj->Name%>"></TD> -</TR><TR> -<TD ALIGN=RIGHT> -Description:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$QueueObj->Description%>" size=60></TD></TR> -<TR> -<TD ALIGN=RIGHT> -Correspondence Address: -</TD><TD> -<INPUT name="CorrespondAddress" value="<%$QueueObj->CorrespondAddress%>"> -</TD> -<TD ALIGN=RIGHT> - -Comment Address: </TD><TD> -<INPUT NAME="CommentAddress" value="<%$QueueObj->CommentAddress%>"> -</TD> -</TR><TR> - -<TD ALIGN=RIGHT> -Priority starts at: -</TD><TD><INPUT NAME="InitialPriority" value="<%$QueueObj->InitialPriority %>"> -</TD> -<TD ALIGN=RIGHT> -Over time, priority moves toward: -</TD><TD><INPUT NAME="FinalPriority" value="<%$QueueObj->FinalPriority %>"> -</TD> -</TR> -<TR> -<TD ALIGN=RIGHT> -Requests should be due in: -</TD><TD> -<INPUT NAME="DefaultDueIn" VALUE="<%$QueueObj->DefaultDueIn%>"> days. -</TD> -</TR> -</TABLE> -<& /Elements/Submit &> -</form> -<& /Elements/TitleBoxEnd &> - -<%INIT> - -</%INIT> - -<%ARGS> - - -$QueueObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/ModifyTemplate b/rt/webrt/Admin/Elements/ModifyTemplate deleted file mode 100755 index 6e4f8a379..000000000 --- a/rt/webrt/Admin/Elements/ModifyTemplate +++ /dev/null @@ -1,78 +0,0 @@ - -<& /Elements/TitleBoxStart, title => 'Editing Configuration for user '.$UserObj->Name &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/ModifyUser.html" METHOD=POST> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$UserObj->Id%>"> - -Name: <input name="Name" value="<%$UserObj->Name%>"> -<BR> -New Password: <input type=password name="Pass1"><BR> -Retype Password: <input type=password name="Pass2"><BR> - -Comments: <TEXTAREA name="Comments" COLS=20 ROWS=5> -<%$UserObj->Comments%></TEXTAREA> - -<BR> -Signature: <TEXTAREA COLS=80 ROWS=5 name="Signature"> -<%$UserObj->Signature%>"></TEXTAREA> -<BR> -EmailAddress: <input name="EmailAddress" value="<%$UserObj->EmailAddress%>"> -<BR> -FreeformContactInfo: <input name="FreeformContactInfo" value="<%$UserObj->FreeformContactInfo%>"> -<BR> -Organization: <input name="Organization" value="<%$UserObj->Organization%>"> -<BR> -RealName: <input name="RealName" value="<%$UserObj->RealName%>"> -<BR> -NickName: <input name="NickName" value="<%$UserObj->NickName%>"> -<BR> -Lang: <input name="Lang" value="<%$UserObj->Lang%>"> -<BR> -EmailEncoding: <input name="EmailEncoding" value="<%$UserObj->EmailEncoding%>"> -<BR> -WebEncoding: <input name="WebEncoding" value="<%$UserObj->WebEncoding%>"> -<BR> -ExternalContactInfoId: <input name="ExternalContactInfoId" value="<%$UserObj->ExternalContactInfoId%>"> -<BR> -ContactInfoSystem: <input name="ContactInfoSystem" value="<%$UserObj->ContactInfoSystem%>"> -<BR> -Gecos: <input name="Gecos" value="<%$UserObj->Gecos%>"> -<BR> -ExternalAuthId: <input name="ExternalAuthId" value="<%$UserObj->ExternalAuthId%>"> -<BR> -AuthSystem: <input name="AuthSystem" value="<%$UserObj->AuthSystem%>"> -<BR> -HomePhone: <input name="HomePhone" value="<%$UserObj->HomePhone%>"> -<BR> -WorkPhone: <input name="WorkPhone" value="<%$UserObj->WorkPhone%>"> -<BR> -MobilePhone: <input name="MobilePhone" value="<%$UserObj->MobilePhone%>"> -<BR> -PagerPhone: <input name="PagerPhone" value="<%$UserObj->PagerPhone%>"> -<BR> -Address1: <input name="Address1" value="<%$UserObj->Address1%>"> -<BR> -Address2: <input name="Address2" value="<%$UserObj->Address2%>"> -<BR> -City: <input name="City" value="<%$UserObj->City%>"> -<BR> -State: <input name="State" value="<%$UserObj->State%>"> -<BR> -Zip: <input name="Zip" value="<%$UserObj->Zip%>"> -<BR> -Country: <input name="Country" value="<%$UserObj->Country%>"> -<BR> - -<input type=submit> -</form> -<& /Elements/TitleBoxEnd &> - -<%INIT> - -</%INIT> - -<%ARGS> - - -$UserObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/ModifyUser b/rt/webrt/Admin/Elements/ModifyUser deleted file mode 100755 index 53aa027c0..000000000 --- a/rt/webrt/Admin/Elements/ModifyUser +++ /dev/null @@ -1,77 +0,0 @@ - -<& /Elements/TitleBoxStart, title => 'Editing Configuration for user '.$UserObj->Name &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Users/Modify.html" METHOD=POST> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$UserObj->Id%>"> - -Name: <input name="Name" value="<%$UserObj->Name%>"> -<BR> -New Password: <input type=password name="Pass1"><BR> -Retype Password: <input type=password name="Pass2"><BR> - -Comments: <TEXTAREA name="Comments" COLS=80 ROWS=5 WRAP=VIRTUAL> -<%$UserObj->Comments%></TEXTAREA> - -<BR> -Signature: <TEXTAREA COLS=80 ROWS=5 name="Signature" WRAP=HARD> -<%$UserObj->Signature%></TEXTAREA> -<BR> -EmailAddress: <input name="EmailAddress" value="<%$UserObj->EmailAddress%>"> -<BR> -FreeformContactInfo: <input name="FreeformContactInfo" value="<%$UserObj->FreeformContactInfo%>"> -<BR> -Organization: <input name="Organization" value="<%$UserObj->Organization%>"> -<BR> -RealName: <input name="RealName" value="<%$UserObj->RealName%>"> -<BR> -NickName: <input name="NickName" value="<%$UserObj->NickName%>"> -<BR> -Lang: <input name="Lang" value="<%$UserObj->Lang%>"> -<BR> -EmailEncoding: <input name="EmailEncoding" value="<%$UserObj->EmailEncoding%>"> -<BR> -WebEncoding: <input name="WebEncoding" value="<%$UserObj->WebEncoding%>"> -<BR> -ExternalContactInfoId: <input name="ExternalContactInfoId" value="<%$UserObj->ExternalContactInfoId%>"> -<BR> -ContactInfoSystem: <input name="ContactInfoSystem" value="<%$UserObj->ContactInfoSystem%>"> -<BR> -Gecos: <input name="Gecos" value="<%$UserObj->Gecos%>"> -<BR> -ExternalAuthId: <input name="ExternalAuthId" value="<%$UserObj->ExternalAuthId%>"> -<BR> -AuthSystem: <input name="AuthSystem" value="<%$UserObj->AuthSystem%>"> -<BR> -HomePhone: <input name="HomePhone" value="<%$UserObj->HomePhone%>"> -<BR> -WorkPhone: <input name="WorkPhone" value="<%$UserObj->WorkPhone%>"> -<BR> -MobilePhone: <input name="MobilePhone" value="<%$UserObj->MobilePhone%>"> -<BR> -PagerPhone: <input name="PagerPhone" value="<%$UserObj->PagerPhone%>"> -<BR> -Address1: <input name="Address1" value="<%$UserObj->Address1%>"> -<BR> -Address2: <input name="Address2" value="<%$UserObj->Address2%>"> -<BR> -City: <input name="City" value="<%$UserObj->City%>"> -<BR> -State: <input name="State" value="<%$UserObj->State%>"> -<BR> -Zip: <input name="Zip" value="<%$UserObj->Zip%>"> -<BR> -Country: <input name="Country" value="<%$UserObj->Country%>"> -<BR> -<& /Elements/Submit &> -</form> -<& /Elements/TitleBoxEnd &> - -<%INIT> - -</%INIT> - -<%ARGS> - - -$UserObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/QueueRightsForUser b/rt/webrt/Admin/Elements/QueueRightsForUser deleted file mode 100644 index e62a124ce..000000000 --- a/rt/webrt/Admin/Elements/QueueRightsForUser +++ /dev/null @@ -1,17 +0,0 @@ -<UL> -%while(my $ACE = $ACL->Next) { - -<LI><checkbox name="delete_ace_<%$ACE->id%>"> <%$ACE->RightName%> (<%$ACE->UserObj->RealName%>) - -%} -</UL> - -<%INIT> -my $ACL = new RT::ACL($session{'CurrentUser'}); -$ACL->LimitToQueue($QueueObj->id); -$ACL->LimitPrincipalToUser($PrincipalId); -</%INIT> -<%ARGS> -$PrincipalId => undef -$QueueObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/QueueTabs b/rt/webrt/Admin/Elements/QueueTabs deleted file mode 100755 index b7da7e007..000000000 --- a/rt/webrt/Admin/Elements/QueueTabs +++ /dev/null @@ -1,36 +0,0 @@ -<& /Admin/Elements/Tabs, subtabs => $subtabs, current_tab => 'Admin/Queues/' &> -<hr> -<%INIT> - my $subtabs = { - A => { title => 'Basics', - path => "Admin/Queues/Modify.html?id=".$id, - }, - B => { title => 'Watchers', - path => "Admin/Queues/People.html?id=".$id, - }, - - C => { title => 'Scrips', - path => "Admin/Queues/Scrips.html?id=".$id, - }, - D => { title => 'Templates', - path => "Admin/Queues/Templates.html?id=".$id, - }, - E => { title => 'Keyword Selections', - path => "Admin/Queues/Keywords.html?id=".$id, - }, - F => { title => 'Group Rights', - path => "Admin/Queues/GroupRights.html?id=".$id, - }, - G => { title => 'User Rights', - path => "Admin/Queues/UserRights.html?id=".$id, - }, - - - -}; -</%INIT> - - -<%ARGS> -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectKeywordSelect b/rt/webrt/Admin/Elements/SelectKeywordSelect deleted file mode 100644 index f5a8d77cd..000000000 --- a/rt/webrt/Admin/Elements/SelectKeywordSelect +++ /dev/null @@ -1,22 +0,0 @@ -<input size=10 name="<%$NamePrefix%>-Name" value="<% $KeywordSelect->Name %>">: -<& /Admin/Elements/SelectSingleOrMultiple, - Name => $NamePrefix.'-Single', - Default => $KeywordSelect->Single &> - -children of -<& /Elements/SelectKeyword, Root => '0', - Name => $NamePrefix.'-Keyword', - Default => $KeywordSelect->KeywordObj->Id &> - up to <input name="<%$NamePrefix%>-Depth" size=2 value="<%$KeywordSelect->Depth%>"> levels deep. -<%INIT> -unless ($NamePrefix) { - $NamePrefix = $KeywordSelect->Id; -} -$NamePrefix = "KeywordSelect-$NamePrefix"; - -</%INIT> - -<%ARGS> -$KeywordSelect => undef -$NamePrefix => undef -</%ARGS>
\ No newline at end of file diff --git a/rt/webrt/Admin/Elements/SelectModifyGroup b/rt/webrt/Admin/Elements/SelectModifyGroup deleted file mode 100644 index 45d437f41..000000000 --- a/rt/webrt/Admin/Elements/SelectModifyGroup +++ /dev/null @@ -1,10 +0,0 @@ -%while ( $Group = $Groups->Next) { -<A HREF="Modify.html?id=<%$Group->id%>"><%$Group->id%>: <%$Group->Name%></a><BR> -%} -<%INIT> -my ($Group); -my $Groups = new RT::Groups($session{'CurrentUser'}); -$Groups->UnLimit; -</%INIT> -<%ARGS> -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectModifyKeyword b/rt/webrt/Admin/Elements/SelectModifyKeyword deleted file mode 100644 index 6af223229..000000000 --- a/rt/webrt/Admin/Elements/SelectModifyKeyword +++ /dev/null @@ -1,13 +0,0 @@ -%while ( $keyword = $keywords->Next ) { -<A HREF="/Admin/Keywords/Modify.html?id=<%$keyword->id%>"><%$keyword->id%>: <%$keyword->Name%></a><BR> -%} - -<%INIT> - -use RT::Keywords; - -my $keyword; -my $keywords = new RT::Keywords $session{CurrentUser}; -$keywords->UnLimit; -</%INIT> - diff --git a/rt/webrt/Admin/Elements/SelectModifyKeywordSelect b/rt/webrt/Admin/Elements/SelectModifyKeywordSelect deleted file mode 100644 index c91eb6cfe..000000000 --- a/rt/webrt/Admin/Elements/SelectModifyKeywordSelect +++ /dev/null @@ -1,13 +0,0 @@ -%while ( $keywordselect = $keywordselects->Next ) { -<A HREF="/Admin/KeywordSelects/Modify.html?id=<%$keywordselect->id%>"><%$keywordselect->id%>: ( <%$keywordselect->Parent%>: <%$keywordselect->KeywordObj->Name%> )</a><BR> -%} - -<%INIT> - -use RT::KeywordSelects; - -my $keywordselect; -my $keywordselects = new RT::KeywordSelects $session{CurrentUser}; -$keywordselects->UnLimit; -</%INIT> - diff --git a/rt/webrt/Admin/Elements/SelectModifyQueue b/rt/webrt/Admin/Elements/SelectModifyQueue deleted file mode 100755 index 1c6cd7d5e..000000000 --- a/rt/webrt/Admin/Elements/SelectModifyQueue +++ /dev/null @@ -1,10 +0,0 @@ -%while ( $queue = $queues->Next) { -<A HREF="Modify.html?id=<%$queue->id%>"><%$queue->id%>: <%$queue->Name%></a><BR> -%} -<%INIT> -my ($queue); -my $queues = new RT::Queues($session{'CurrentUser'}); -$queues->UnLimit; -</%INIT> -<%ARGS> -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectModifyUser b/rt/webrt/Admin/Elements/SelectModifyUser deleted file mode 100755 index da49212e4..000000000 --- a/rt/webrt/Admin/Elements/SelectModifyUser +++ /dev/null @@ -1,26 +0,0 @@ -%while ( $user = $users->Next) { -<A HREF="Modify.html?id=<%$user->id%>"><%$user->id%>: <%$user->Name%></a><BR> -%} -<%INIT> -my ($user); -my $users = new RT::Users($session{'CurrentUser'}); -$users->Limit(FIELD => 'id', - VALUE => $RT::SystemUser->id, - OPERATOR => '!=' ); - -if (defined $IdLike) { -$users->Limit(FIELD => 'Name', - VALUE => $IdLike, - OPERATOR => 'LIKE' ); -} -if (defined $EmailLike) { -$users->Limit(FIELD => 'EmailAddress', - VALUE => $EmailLike, - OPERATOR => 'LIKE'); - -} -</%INIT> -<%ARGS> -$IdLike => undef -$EmailLike => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectQueueRights b/rt/webrt/Admin/Elements/SelectQueueRights deleted file mode 100755 index 6861d40c6..000000000 --- a/rt/webrt/Admin/Elements/SelectQueueRights +++ /dev/null @@ -1,29 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Admin/Elements/Attic/SelectQueueRights,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="">-</OPTION> -%foreach $right (@rights) { -<OPTION VALUE="<%$right%>" <%($Default eq $right) && 'SELECTED'%>><%$right%></OPTION> -% } -</SELECT> -<%ONCE> - -use RT::ACE; -my $ACE = new RT::ACE($session{'CurrentUser'}); -my %QueueRights = $ACE->QueueRights; -my %TicketRights = $ACE->TicketRights; - -my ($key, $right, @rights); - -foreach $key (sort keys %QueueRights) { -push (@rights, $QueueRights{$key} . " ($key)"); -} -foreach $key (sort keys %TicketRights) { -push (@rights, $TicketRights{$key} . " ($key)"); -} -</%ONCE> -<%ARGS> -$Name => undef -$Default => undef - -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectRights b/rt/webrt/Admin/Elements/SelectRights deleted file mode 100644 index 0ac774985..000000000 --- a/rt/webrt/Admin/Elements/SelectRights +++ /dev/null @@ -1,58 +0,0 @@ -<INPUT TYPE=HIDDEN NAME="CheckACL" VALUE="<%$ACLDesc%>"> - <TABLE BORDER=0> -<TR> -<TD valign=top> -<h3>New rights</h3> -<SELECT SIZE=5 MULTIPLE NAME="GrantACE-<%$ACLDesc%>"> -% foreach $right (sort keys %Rights) { - <OPTION VALUE="<%$right%>" - ><%$right%></OPTION> -% } -<OPTION VALUE="" SELECTED>(no value)</OPTION> -</SELECT> -</TD> -<TD valign=top> -<h3>Current rights</h3> -<i>(Check box to revoke right)</i> <BR> -% while (my $right = $ACLObj->Next()) { -% if ($right->RightName) { -<input type=checkbox value="<%$right->Id%>" name="RevokeACE"> <%$right->RightName%><br> -% } -% } -</TD> -</TR> -</TABLE> -<%INIT> - my ($right, $ACLDesc, $AppliesTo, %Rights); - - - my $ACLObj = new RT::ACL($session{'CurrentUser'}); - my $ACE = new RT::ACE($session{'CurrentUser'}); - - if ($Scope eq 'Queue') { - $AppliesTo = $QueueObj->Id; - $ACLObj->LimitToQueue($AppliesTo); - %Rights = $ACE->QueueRights(); - } - elsif ($Scope eq 'System') { - $AppliesTo = 0; - $ACLObj->LimitToSystem(); - %Rights = ( $ACE->SystemRights , $ACE->QueueRights()); - } - - if ($PrincipalType eq 'Group') { - $ACLObj->LimitPrincipalToGroup($PrincipalObj->Id); - } - elsif ($PrincipalType eq 'User') { - $ACLObj->LimitPrincipalToUser($PrincipalObj->Id); - } - - $ACLDesc = "$PrincipalType-".$PrincipalObj->Id."-$Scope-$AppliesTo"; -</%INIT> - -<%ARGS> -$PrincipalType => undef -$PrincipalObj => undef -$Scope => undef -$QueueObj => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectScrip b/rt/webrt/Admin/Elements/SelectScrip deleted file mode 100755 index 4ae15d8c3..000000000 --- a/rt/webrt/Admin/Elements/SelectScrip +++ /dev/null @@ -1,25 +0,0 @@ -<SELECT NAME=<%$Name%>> -<OPTION VALUE="" -<% $Default eq undef && 'SELECTED' %> ->-</OPTION> -%while (my $Scrip = $Scrips->Next) { -<OPTION VALUE=<%$Scrip->Id%> -<% $Scrip->Id == $Default && 'SELECTED' %> -><%$Scrip->Name%> -</OPTION> -%} -</SELECT> - -<%INIT> -my $Scrips = RT::Scrips->new($session{'CurrentUser'}); -$Scrips->UnLimit; - - - -</%INIT> -<%ARGS> - -$Default => undef -$Name => 'Scrip' - -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectScripAction b/rt/webrt/Admin/Elements/SelectScripAction deleted file mode 100644 index 08a173493..000000000 --- a/rt/webrt/Admin/Elements/SelectScripAction +++ /dev/null @@ -1,25 +0,0 @@ -<SELECT NAME=<%$Name%>> -<OPTION VALUE="" -<% $Default eq undef && 'SELECTED' %> ->-</OPTION> -%while (my $ScripAction = $ScripActions->Next) { -<OPTION VALUE=<%$ScripAction->Id%> -<% $ScripAction->Id == $Default && 'SELECTED' %> -><%$ScripAction->Name%> -</OPTION> -%} -</SELECT> - -<%INIT> -my $ScripActions = RT::ScripActions->new($session{'CurrentUser'}); -$ScripActions->UnLimit; - - - -</%INIT> -<%ARGS> - -$Default => undef -$Name => 'ScripAction' - -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectScripCondition b/rt/webrt/Admin/Elements/SelectScripCondition deleted file mode 100644 index 434f0c4ae..000000000 --- a/rt/webrt/Admin/Elements/SelectScripCondition +++ /dev/null @@ -1,25 +0,0 @@ -<SELECT NAME=<%$Name%>> -<OPTION VALUE="" -<% $Default eq undef && 'SELECTED' %> ->-</OPTION> -%while (my $ScripCondition = $ScripConditions->Next) { -<OPTION VALUE=<%$ScripCondition->Id%> -<% $ScripCondition->Id == $Default && 'SELECTED' %> -><%$ScripCondition->Name%> -</OPTION> -%} -</SELECT> - -<%INIT> -my $ScripConditions = RT::ScripConditions->new($session{'CurrentUser'}); -$ScripConditions->UnLimit; - - - -</%INIT> -<%ARGS> - -$Default => undef -$Name => 'ScripCondition' - -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectSingleOrMultiple b/rt/webrt/Admin/Elements/SelectSingleOrMultiple deleted file mode 100644 index 307b0211c..000000000 --- a/rt/webrt/Admin/Elements/SelectSingleOrMultiple +++ /dev/null @@ -1,20 +0,0 @@ - <select name="<%$Name%>"> - <option value="1" <%$SingleDefault%>>Single</option> - <option value="0" <%$MultipleDefault%>>Multiple</option> - </select> - - -<%INIT> -my ($SingleDefault, $MultipleDefault); -if ($Default == 1) { - $SingleDefault = "SELECTED"; -} -elsif ($Default == 0 ) { - $MultipleDefault = "SELECTED"; -} - -</%INIT> -<%ARGS> -$Name => 'Single' -$Default => 1 -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectTemplate b/rt/webrt/Admin/Elements/SelectTemplate deleted file mode 100755 index 76550dc4e..000000000 --- a/rt/webrt/Admin/Elements/SelectTemplate +++ /dev/null @@ -1,37 +0,0 @@ -<SELECT NAME=<%$Name%>> -<OPTION VALUE="" -<% $Default eq 'none' && 'SELECTED' %> ->-</OPTION> -%while (my $Template = $PrimaryTemplates->Next) { -<OPTION VALUE=<%$Template->Id%> -<% ($Template->Id == $Default) && 'SELECTED' %> -><%$Template->Name%> -</OPTION> -%} -%while (my $Template = $OtherTemplates->Next) { -<OPTION VALUE=<%$Template->Id%> -<% ($Template->Id == $Default) && 'SELECTED'%> ->Global template: <%$Template->Name%> -</OPTION> -%} -</SELECT> - -<%INIT> - - -my $PrimaryTemplates = RT::Templates->new($session{'CurrentUser'}); -if ($DefaultQueue != 0) { -$PrimaryTemplates->LimitToQueue($DefaultQueue); -} - -my $OtherTemplates = RT::Templates->new($session{'CurrentUser'}); -$OtherTemplates->LimitToGlobal($DefaultQueue); - -</%INIT> -<%ARGS> - -$Default => 'none' -$DefaultQueue => undef -$Name => 'Template' - -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SelectUsers b/rt/webrt/Admin/Elements/SelectUsers deleted file mode 100644 index af51c60f9..000000000 --- a/rt/webrt/Admin/Elements/SelectUsers +++ /dev/null @@ -1,17 +0,0 @@ -<SELECT MULTIPLE NAME="<%$Name%>" SIZE=10> -%while (my $user = $users->Next) { -<OPTION VALUE="<%$user->id%>"><%$user->Name%> -%} -</SELECT> - -<%INIT> -my $users = new RT::Users($session{'CurrentUser'}); - -$users->Limit(FIELD => 'id', VALUE => $RT::SystemUser->id, OPERATOR => '!=' ); -$users->Limit(FIELD => 'id', VALUE => $RT::Nobody->id, OPERATOR => '!=' ); -$users->LimitToPrivileged(); - -</%INIT> -<%ARGS> -$Name => 'Users' -</%ARGS> diff --git a/rt/webrt/Admin/Elements/SystemTabs b/rt/webrt/Admin/Elements/SystemTabs deleted file mode 100755 index f8b23128b..000000000 --- a/rt/webrt/Admin/Elements/SystemTabs +++ /dev/null @@ -1,31 +0,0 @@ -<& /Admin/Elements/Tabs, subtabs => $subtabs, current_tab => 'Admin/Global/', current_subtab => $current_subtab &> -<hr> -<%INIT> - my $subtabs = { - - A => { title => 'Scrips', - path => 'Admin/Global/Scrips.html', - }, - Ba => { title => 'Keyword Selections', - path => 'Admin/Global/Keywords.html', - }, - - B => { title => 'Templates', - path => 'Admin/Global/Templates.html', - }, - C => { title => 'Group Rights', - path => 'Admin/Global/GroupRights.html', - }, - D => { title => 'User Rights', - path => 'Admin/Global/UserRights.html', - } - - -}; -</%INIT> - - -<%ARGS> -$id => undef -$current_subtab => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/Tabs b/rt/webrt/Admin/Elements/Tabs deleted file mode 100755 index ee6d82b58..000000000 --- a/rt/webrt/Admin/Elements/Tabs +++ /dev/null @@ -1,31 +0,0 @@ -<& /Elements/Tabs, tabs => $tabs, subtabs => $subtabs, current_toptab => 'Admin/', current_tab => $current_tab, current_subtab => $current_subtab&> - -<hr> - -<%INIT> - my $tabs = { Users => { title => 'Users', - path => 'Admin/Users/', - }, - Groups => { title => 'Groups', - path => 'Admin/Groups/', - }, - Queues => { title => 'Queues', - path => 'Admin/Queues/', - }, - System => { 'title' => 'Global', - path => 'Admin/Global/', - }, - Keywords => { title => 'Keywords', - path => 'Admin/Keywords/', - }, - - - }; -</%INIT> - - -<%ARGS> -$subtabs => undef -$current_tab => undef -$current_subtab => undef -</%ARGS> diff --git a/rt/webrt/Admin/Elements/UserTabs b/rt/webrt/Admin/Elements/UserTabs deleted file mode 100755 index bbf17314d..000000000 --- a/rt/webrt/Admin/Elements/UserTabs +++ /dev/null @@ -1,21 +0,0 @@ -<& /Admin/Elements/Tabs, subtabs => $subtabs, - current_tab => 'Admin/Users/', - current_subtab => $current_subtab &> -<hr> -<%INIT> -my $subtabs = { - Queues => { title => 'Basics', - path => "Admin/Users/Modify.html?id=".$id - }, -# Scrips => { title => 'Rights', -# path => "Admin/Users/Rights.html?id=".$id -# } - - }; -</%INIT> - - -<%ARGS> -$id => undef -$current_subtab => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/GroupRights.html b/rt/webrt/Admin/Global/GroupRights.html deleted file mode 100755 index 26b7e1fe2..000000000 --- a/rt/webrt/Admin/Global/GroupRights.html +++ /dev/null @@ -1,78 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify System ACLS' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@results &> - <FORM METHOD=POST action="GroupRights.html"> - - - -<h2>Modify global rights for groups</h2> - -<TABLE> -<TR><TD>Pseudogroups</TD></TR> -% while (my $GroupObj = $PseudoGroups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - -<TR><TD>Groups</TD></TR> - -% while (my $GroupObj = $Groups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - - </TABLE> - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - - <%INIT> - - #Update the acls. - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - - - # {{{ do basic initialization. - - - - # Find out which groups we want to display ACL selects for. - my $Groups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $Groups->LimitToReal(); - - - my $PseudoGroups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $PseudoGroups->LimitToPseudo; - - # }}} - - - - - </%INIT> - -<%ARGS> -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/Keywords.html b/rt/webrt/Admin/Global/Keywords.html deleted file mode 100644 index bf7bbd266..000000000 --- a/rt/webrt/Admin/Global/Keywords.html +++ /dev/null @@ -1,97 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit keywords' &> -<& /Admin/Elements/SystemTabs &> -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => $description &> - - <FORM METHOD=POST ACTION="Keywords.html"> - -% if ($KeywordSelects->Count > 0 ) { -<TABLE> -<TR><TD>Delete</TD></TR> -% while (my $keywordselect = $KeywordSelects->Next ) { -<TR> - <TD><INPUT TYPE="CHECKBOX" NAME="KeywordSelect-<%$keywordselect->Id%>-Delete"></TD> - <TD><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $keywordselect &></TD> -</TR> -% } -</TABLE> -% } - -Add a global keyword selection: -%my $ks = new RT::KeywordSelect($session{'CurrentUser'}); -<ul> -<li><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $ks, NamePrefix => 'new' &></li> -</ul> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</FORM> - - - -<%init> -my (@actions); - -my $description = "Modify global Keyword selections"; - -my $KeywordSelects = new RT::KeywordSelects ($session{'CurrentUser'}); - -unless ($KeywordSelects->LimitToGlobals()) { - Abort("Couldn't load KeywordSelects."); -} - - -# {{{ if we're trying to create a new keyword select - -if ($ARGS{'KeywordSelect-new-Name'}) { - my $NewKeywordSelect = new RT::KeywordSelect($session{'CurrentUser'}); - - my ($retval, $msg) = $NewKeywordSelect->Create ( Keyword => $ARGS{'KeywordSelect-new-Keyword'}, - ObjectField => 'Queue', - ObjectType => 'Ticket', - ObjectValue => 0, - Name => $ARGS{'KeywordSelect-new-Name'}, - Single => $ARGS{'KeywordSelect-new-Single'}, - Depth => $ARGS{'KeywordSelect-new-Depth'} - ); - push (@actions, $msg); -} -# }}} - -# {{{ if we're trying to delete the keywordselect -foreach my $key (keys %ARGS) { - if ($key =~ /^KeywordSelect-(\d+)-Delete$/) { - my $id = $1; - my $keywordselect = new RT::KeywordSelect($session{'CurrentUser'}); - $keywordselect->Load($id) || push @actions, "Couldn't load keywordSelect"; - my ($val, $msg) = $keywordselect->SetDisabled(1); - if ($val) { - push @actions, 'KeywordSelect disabled.'; - } - else { - push @actions, $msg; - } - } -} -# }}} -# {{{ if we're modifying keyword selects -my @fields = qw(Name Keyword Single Depth); - -while (my $ks = $KeywordSelects->Next) { - foreach my $field (@fields) { - if (defined ($ARGS{"KeywordSelect-".$ks->Id."-".$field}) && - ($ARGS{"KeywordSelect-".$ks->Id."-".$field} ne $ks->$field())) { - - my $method = "Set$field"; - my ($val, $msg) = $ks->$method($ARGS{"KeywordSelect-".$ks->Id."-".$field}); - push @actions, "Keyword Select ". $ks->Name."/$field:".$msg; - } - } -} -# }}} - -</%init> - -<%ARGS> -</%ARGS> diff --git a/rt/webrt/Admin/Global/Scrips.html b/rt/webrt/Admin/Global/Scrips.html deleted file mode 100755 index e55f8b3de..000000000 --- a/rt/webrt/Admin/Global/Scrips.html +++ /dev/null @@ -1,95 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit scrips' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => "Modify global scrips" &> - - <FORM METHOD=POST ACTION="Scrips.html"> - -% if ($Scrips->Count > 0 ) { -<TABLE> -<TR> -<TD>Delete -</TD> -<TD> -</TR> - -% while (my $scrip = $Scrips->Next ) { -<TR> -<TD> -<INPUT TYPE="CHECKBOX" NAME="DeleteScrip-<%$scrip->Id%>"> -</TD> -<TD> -<% $scrip->ConditionObj->Name %> -<% $scrip->ActionObj->Name %> -with template <% $scrip->TemplateObj->Name %> -</TD> -</TR> -% } - -</TABLE> - -% } -Add a scrip which will apply to all queues: -<ul> -<li>Condition: <& /Admin/Elements/SelectScripCondition, Name => 'NewScripCondition' &> - Action: <& /Admin/Elements/SelectScripAction, Name => 'NewScripAction' &> - Template: <& /Admin/Elements/SelectTemplate, Name => 'NewScripTemplate' &> - -</ul> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</FORM> -<%init> -my (@actions, $description); - -my $Scrips = new RT::Scrips ($session{'CurrentUser'}); -$Scrips->LimitToGlobal(); - - - - -if ($NewScripAction and $NewScripCondition) { - my $NewScrip = new RT::Scrip($session{'CurrentUser'}); - - my ($retval, $msg) = $NewScrip->Create ( ScripAction => $NewScripAction, - ScripCondition => $NewScripCondition, - Stage => 'TransactionCreate', - Queue => 0, - Template => $NewScripTemplate); - if (defined $retval) { - push @actions, $msg; - } - else { - push @actions, $msg; - } -} - -# {{{ deal with modifying and deleting existing scrips -my ($key ); -foreach $key (keys %ARGS) { - # {{{ if we're trying to delete the scrip - if ($key =~ /^DeleteScrip-(\d+)/) { - my $id = $1; - my $scrip = new RT::Scrip($session{'CurrentUser'}); - $scrip->Load($id); - my ($retval, $msg) = $scrip->Delete; - if ($retval) { - push @actions, "Scrip deleted"; - } - else { - push @actions, $msg; - } - } - # }}} -} -# }}} -</%init> - -<%ARGS> -$NewScripCondition => undef -$NewScripAction => undef -$NewScripTemplate => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/Template.html b/rt/webrt/Admin/Global/Template.html deleted file mode 100755 index 856d2ee8f..000000000 --- a/rt/webrt/Admin/Global/Template.html +++ /dev/null @@ -1,66 +0,0 @@ -<& /Admin/Elements/Header, title => "Modify template ".$TemplateObj->id&> -<& /Admin/Elements/SystemTabs &> -<& /Elements/ListActions, actions => \@results &> - -<& /Elements/TitleBoxStart, title => $title &> - -<FORM METHOD=POST ACTION="Template.html"> -%if ($create ) { -<INPUT TYPE=HIDDEN NAME=template VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=template VALUE="<%$TemplateObj->Id%>"> -% } - -%# hang onto the queue id -<INPUT TYPE=HIDDEN name="Queue" value="<%$Queue%>"> - - -Name: <input name="Name" VALUE="<%$TemplateObj->Name%>" SIZE=20><BR> -Description: <input name="Description" VALUE="<%$TemplateObj->Description%>" SIZE=80><BR> - -<TEXTAREA NAME=Content ROWS=25 COLS=80 WRAP=SOFT> -<%$TemplateObj->Content%></TEXTAREA> - -<& /Elements/TitleBoxEnd&> -<&/Elements/Submit&> -</FORM> - - - -<%INIT> - -my $TemplateObj = new RT::Template($session{'CurrentUser'}); -my ($title, @results); - -if ($create) { - $title = "Create a template"; -} - -else { - if ($template eq 'new') { - my ($val, $msg) = $TemplateObj->Create(Queue => $Queue, Name => $Name); - Abort("Could not create template: $msg") unless ($val); - push @results, $msg; - $title = 'Created template ' . $TemplateObj->Name(); - } - else { - $TemplateObj->Load($template) || Abort('No Template'); - $title = 'Editing template ' . $TemplateObj->Name(); - } - - -} -if ($TemplateObj->Id()) { - my @attribs = qw( Description Content Queue Name); - my @aresults = UpdateRecordObject( AttributesRef => \@attribs, - Object => $TemplateObj, - ARGSRef => \%ARGS); - push @results, @aresults; -} -</%INIT> -<%ARGS> -$Queue => undef -$template => undef -$create => undef -$Name => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/Templates.html b/rt/webrt/Admin/Global/Templates.html deleted file mode 100755 index cf388e521..000000000 --- a/rt/webrt/Admin/Global/Templates.html +++ /dev/null @@ -1,24 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit system templates' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/TitleBoxStart, title => 'Edit system templates' &> -<UL> -<LI><A href="Template.html?create=1&Queue=0">Create a new template</A><BR><BR> - - -%while (my $TemplateObj = $Templates->Next) { - -<LI><A HREF="Template.html?template=<%$TemplateObj->id()%>"><%$TemplateObj->id()%>/<%$TemplateObj->Name%>: <%$TemplateObj->Description%></a><BR> - -%} - -<& /Elements/TitleBoxEnd &> -<%INIT> - -my $Templates = RT::Templates->new($session{'CurrentUser'}); -$Templates->LimitToGlobal(); - -</%INIT> -<%ARGS> -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/UserRights.html b/rt/webrt/Admin/Global/UserRights.html deleted file mode 100755 index 351f4b8c6..000000000 --- a/rt/webrt/Admin/Global/UserRights.html +++ /dev/null @@ -1,42 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify System ACLS' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@results &> - <FORM METHOD=POST action="UserRights.html"> - - -<h2>Modify global rights for users</h2> -<TABLE> -% while (my $UserObj = $Users->Next()) { - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <A HREF="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$UserObj->id%>"><% $UserObj->Name %></A> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj, - PrincipalType => 'User', - Scope => 'System' &> - - </TD> - </TR> - -% } - </TABLE> - - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - -<%INIT> - - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - - # Find out which users we want to display ACL selects for - my $Users = new RT::Users($session{'CurrentUser'}); - - $Users->LimitToPrivileged(); - -</%INIT> - -<%ARGS> -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/index.html b/rt/webrt/Admin/Global/index.html deleted file mode 100755 index 5907ed1e8..000000000 --- a/rt/webrt/Admin/Global/index.html +++ /dev/null @@ -1,2 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin/Global configuration' &> -<& /Admin/Elements/SystemTabs &> diff --git a/rt/webrt/Admin/Groups/Members.html b/rt/webrt/Admin/Groups/Members.html deleted file mode 100644 index 4b0e0d04f..000000000 --- a/rt/webrt/Admin/Groups/Members.html +++ /dev/null @@ -1,76 +0,0 @@ -<& /Admin/Elements/Header, Title => "RT/Admin/Edit the group ". $Group->Name &> -<& /Admin/Elements/GroupTabs, GroupObj => $Group &> -<& /Elements/ListActions, actions => \@results &> - - -<& /Elements/TitleBoxStart, title => 'Editing membership for group '.$Group->Name &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Groups/Members.html" METHOD=POST> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Group->Id%>"> -<TABLE WIDTH="100%"> -<TR> -<TD> -Add members -</TD> -<TD> -Current members -</TD> -</TR> - -<TR> -<TD VALIGN=TOP> -<& /Admin/Elements/SelectUsers, Name => "AddMembers" &> -</TD> -<TD VALIGN=TOP> -% if ($Group->MembersObj->Count == 0 ) { -<i>(No members)</i> -% } else { -(Check box to delete group member) -<UL> -% while (my $member = $Group->MembersObj->Next()) { -<LI><INPUT TYPE=CHECKBOX Name="DeleteMember-<%$member->UserObj->id%>"> -<%$member->UserObj->Name%> (<%$member->UserObj->RealName%>) -% } -% } -</UL> -</TD> -</TR> -</TABLE> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</form> - - -<%INIT> - -my $Group = new RT::Group($session{'CurrentUser'}); -$Group->Load($id) || Abort('Could not load group'); - -my (@results); - -my $key; -foreach $key (keys %ARGS) { - -if ($key =~ /^DeleteMember-(\d+)$/) { - my $id = $1; - my ($val,$msg) = $Group->DeleteMember($id); - push (@results, $msg); -} -} - -# Make sure AddMembers is always an array -my @AddMembers = (ref $AddMembers eq 'ARRAY') ? @{$AddMembers} : ($AddMembers); - -foreach my $member (@AddMembers) { - next unless ($member); - my ($val, $msg) = $Group->AddMember($member); - push (@results, $msg); -} - - -</%INIT> - -<%ARGS> -$AddMembers => undef -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Groups/Modify.html b/rt/webrt/Admin/Groups/Modify.html deleted file mode 100644 index 7104a6937..000000000 --- a/rt/webrt/Admin/Groups/Modify.html +++ /dev/null @@ -1,83 +0,0 @@ -<& /Admin/Elements/Header, Title => $title &> - -<& /Admin/Elements/GroupTabs, GroupObj => $Group &> -<& /Elements/ListActions, actions => \@results &> - - -<& /Elements/TitleBoxStart, title => $title &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Groups/Modify.html" METHOD=POST> - -%unless ($Group->Id) { -<INPUT TYPE=HIDDEN NAME=id VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Group->Id%>"> -% } -<TABLE> -<TR><TD ALIGN=RIGHT> -Name: -</TD> -<TD><INPUT name="Name" value="<%$Group->Name%>"></TD> -</TR><TR> -<TD ALIGN=RIGHT> -Description:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$Group->Description%>" size=60></TD></TR> -</TABLE> -<& /Elements/TitleBoxEnd &> - -<& /Elements/Submit &> -</form> -<%INIT> - -my ($title); -my (@results); - -my $Group = new RT::Group($session{'CurrentUser'}); - -if ($Create) { - $title = "Create a new group"; -} - -else { - - if ($id eq 'new' ) { - - $Group->Create(Name => "$Name") || Abort ("Group could not be created."); - $id = $Group->Id; - } - else { - $Group->Load($id) || Abort('Could not load group'); - } - - - if ($id) { - $title = "Modify the group ". $Group->Name; - - } - - # If the create failed - else { - $title = "Create a new group"; - $Create = 1; - } - -} - -if ($id) { - - my @fields = qw(Description Name ); - my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, - Object => $Group, - ARGSRef => \%ARGS ); - push (@results,@fieldresults); -} - - -</%INIT> - - -<%ARGS> -$Create => undef -$Name => undef -$Description => undef -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Groups/Rights.html b/rt/webrt/Admin/Groups/Rights.html deleted file mode 100644 index 5c842a301..000000000 --- a/rt/webrt/Admin/Groups/Rights.html +++ /dev/null @@ -1 +0,0 @@ -Not yet implemented.... diff --git a/rt/webrt/Admin/Groups/index.html b/rt/webrt/Admin/Groups/index.html deleted file mode 100644 index d419e7f73..000000000 --- a/rt/webrt/Admin/Groups/index.html +++ /dev/null @@ -1,33 +0,0 @@ - -<& /Admin/Elements/Header, Title => 'Admin/Groups' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/Groups/' &> - -<& /Elements/TitleBoxStart, title => 'Select a group' &> - -Pseudogroups:<BR> -<UL> -%while ( $Group = $PseudoGroups->Next) { -<LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR> -%} - -</UL> - -Groups:<BR> -<UL> -<LI><A HREF="Modify.html?Create=1">Create a new group</A><BR><BR></LI> -%while ( $Group = $Groups->Next) { -<LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR> -%} -</UL> - -<& /Elements/TitleBoxEnd &> -<%INIT> -my ($Group); -my $PseudoGroups = new RT::Groups($session{'CurrentUser'}); -$PseudoGroups->LimitToPseudo; -my $Groups = new RT::Groups($session{'CurrentUser'}); -$Groups->LimitToReal; - -</%INIT> -<%ARGS> -</%ARGS> diff --git a/rt/webrt/Admin/KeywordSelects/Modify.html b/rt/webrt/Admin/KeywordSelects/Modify.html deleted file mode 100644 index e753c6622..000000000 --- a/rt/webrt/Admin/KeywordSelects/Modify.html +++ /dev/null @@ -1,17 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin KeywordSelects' &> -<& /Admin/Elements/Tabs &> - -<& /Admin/Elements/ModifyKeywordSelect, Create=>$Create, id=>$id, Parent=>$Parent, ObjectType=>$ObjectType, ObjectField=>$ObjectField, ObjectValue=>$ObjectValue, Single=>$Single, SingleMagic=>$SingleMagic, Generations=>$Generations &> - -<%ARGS> -$Create => undef -$id => undef -$Parent => undef -$ObjectType => undef -$ObjectField => undef -$ObjectValue => undef -$Single => undef -$SingleMagic => undef -$Generations => undef -</%ARGS> - diff --git a/rt/webrt/Admin/KeywordSelects/index.html b/rt/webrt/Admin/KeywordSelects/index.html deleted file mode 100644 index ba3da9f0c..000000000 --- a/rt/webrt/Admin/KeywordSelects/index.html +++ /dev/null @@ -1,137 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin KeywordSelects' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/KeywordSelects/' &> - -A <B>KeywordSelect</B> is a link between a <B>Keyword</B> and a object -(currently just <B>Tickets</B>), titled by the <I>Name</I> field of the Keyword such that: -<ul> -<li>Object display will contain a field, titled with the <I>Name</I> field of -the <B>Keyword</B> and showing any descendent keywords. -<li>Object creation for this field will contain a field, titled with the -<I>Name</I> field of the <B>Keyword</B> and containing the descendents of -the <B>Keyword</B> as choices. -<li>Searches for this object type will contain a selection field titled with -the <I>Name</I> field of the <B>Keyword</B> and containing the descendents -of the <B>Keyword</B> as choices. -<TABLE WIDTH=100%> - - - - <TD VALIGN=TOP> - <h2>Create KeywordSelect</h2> - <FORM NAME="ModifyKeywordSelect" METHOD="POST" ACTION="<%$RT::WebPath%>/Admin/KeywordSelects/Modify.html"> - [<%$title |n %>] - <BR> - - <INPUT TYPE="hidden" NAME="id" VALUE="<% $id %>"> - Keyword - <SELECT NAME="Parent"> - -%while ( $parent = $parents->Next ) { - - <OPTION VALUE="<% $parent->id %>" <% defined($KeywordSelect->Parent) && $parent->id == $KeywordSelect->Parent ? ' SELECTED' : '' %>><% $parent->Name %></OPTION> - -% } - - </SELECT> - <BR> - Object - <SELECT NAME="ObjectType"> - <OPTION SELECTED>Ticket</OPTION> - </SELECT> - <BR> - -%foreach $queue ( keys %queues ) { - addOption("<% $queues{$queue} %>", "<% $queue %>", false, <% $queue == $KeywordSelect->ObjectValue ? 'true' : 'false' %> ) -%} - } -} -</SCRIPT> - - Limit to <SELECT NAME="ObjectField" onChange="ChangeObjectValue(this)"> - <OPTION VALUE="" <% $KeywordSelect->ObjectField ? '' : ' SELECTED' %>>(none)</OPTION> - <OPTION VALUE="Queue" <% $KeywordSelect->ObjectField eq 'Queue' ? ' SELECTED' : '' %>>Queue</OPTION> - </SELECT> - <SELECT NAME="ObjectValue"> - <OPTION VALUE="<% $KeywordSelect->ObjectValue %>"> - <% $KeywordSelect->ObjectField ? $queues{$KeywordSelect->ObjectValue} : "(n/a)" %></OPTION> - </SELECT><BR> - <INPUT TYPE="hidden" NAME="SingleMagic" VALUE="1"> - <INPUT TYPE="checkbox" NAME="Single" VALUE="1" <% $KeywordSelect->Single ? ' CHECKED' : '' %>>Allow single selection only<BR> - Limit to <INPUT TYPE="text" NAME="Generations" SIZE="2" VALUE="<% $KeywordSelect->Generations %>"> generations (0 = no limit)<BR> - <& /Elements/Submit, Label => $submit &> - -</FORM> - -<%INIT> - - -my $KeywordSelect = new RT::KeywordSelect($session{CurrentUser}); - -my($title, $submit); - -if ( $Create ) { - $title = "Create a new KeywordSelect"; - $submit = "Create"; - $id = "new"; -} else { - if ( $id eq 'new' ) { - $id = $KeywordSelect->Create ( - Parent => $Parent, - ObjectType => $ObjectType, - ObjectField => $ObjectField, - ObjectValue => $ObjectValue, - Single => $Single, - Generations => $Generations, - ) or Abort "can't create KeywordSelect"; - } else { - $KeywordSelect->Load($id) || Abort("Can't load keyword id $id"); - #false laziness - $KeywordSelect->SetParent($Parent) if defined($Parent); - $KeywordSelect->SetObjectType($ObjectType) if defined($ObjectType); - $KeywordSelect->SetObjectField($ObjectField) if defined($ObjectField); - $KeywordSelect->SetObjectValue($ObjectValue) if defined($ObjectValue); - $KeywordSelect->SetSingle($Single) if defined($SingleMagic); - $KeywordSelect->SetGenerations($Generations) if defined($Generations); - } - $title = "Modify the KeywordSelect <B>". $KeywordSelect->KeywordObj->Name. "</B>"; - $submit = "Modify"; - -} - - my $parents = new RT::Keywords($session{CurrentUser}); - $parents->UnLimit; - my $parent; - -my $queues = new RT::Queues($session{CurrentUser}); -$queues->UnLimit; - -my %queues; -my $queue; -$queues{$queue->id} = $queue->Name while $queue = $queues->Next; - -</%INIT> - -<%ARGS> -$id => undef -$Create => undef -$Parent => undef -$ObjectType => undef -$ObjectField => undef -$ObjectValue => undef -$Single => undef -$SingleMagic => undef -$Generations => undef -</%ARGS> - - - <& /Admin/Elements/ModifyKeywordSelect, 'Create'=>'1' &> - </TD> - - <TD VALIGN=TOP> - <H2>Modify KeywordSelect</H2> - - <& /Admin/Elements/SelectModifyKeywordSelect &> - </TD> -</TR> - -</TABLE> diff --git a/rt/webrt/Admin/Keywords/Modify.html b/rt/webrt/Admin/Keywords/Modify.html deleted file mode 100644 index bb7e2db8c..000000000 --- a/rt/webrt/Admin/Keywords/Modify.html +++ /dev/null @@ -1,96 +0,0 @@ -<& /Admin/Elements/Header, Title => $title &> -<& /Admin/Elements/Tabs &> - - -<& /Elements/TitleBoxStart, title => %$title &> -<FORM METHOD="POST" ACTION="<%$RT::WebPath%>/Admin/Keywords/Modify.html"> -<INPUT TYPE="hidden" NAME="id" VALUE="<% $id %>"> -Keyword <INPUT NAME="Name" VALUE="<% $Keyword->Name %>"><BR> - -Parent <SELECT NAME="Parent"> - <OPTION VALUE=""<% defined($Keyword->Parent) ? '' : ' SELECTED' %>>-</OPTION> -%while ( $parent = $parents->Next ) { - <OPTION VALUE="<% $parent->id %>"<% defined($Keyword->Parent) && $parent->id == $Keyword->Parent ? ' SELECTED' : '' %>><% $parent->Name %></OPTION> -%} -</SELECT> - - -New children of this keyword. one per line. -<TEXTAREA NAME="Kids" ROWS=4><% $kidstring %></TEXTAREA> -<BR> - -<& /Elements/Submit, Label => $submit &> -</FORM> -<& /Elements/TitleBoxEnd &> - -<%INIT> - -my $Keyword = new RT::Keyword($session{CurrentUser}); -my ($title, $submit, %kids, $kid); - -if ( $Create ) { - $title = "Create a new Keyword"; - $submit = "Create"; - $id = "new"; - %kids = (); - $Parent = ''; #silence -} -else { - if ( $id eq 'new' ) { - $id = $Keyword->Create( Name => $Name, Parent => $Parent ) - or Abort("can't create keyword Name=>$Name, Parent=>$Parent"); - } else { - $Keyword->Load($id) || Abort("Can't load keyword id $id"); - - #foreach my $field ( grep eval "defined(\$$_)", qw( Name Parent )) { - # eval "\$Keyword->Set(\$field=>\$$field); #sigh - #} - - $Keyword->SetName($Name) if defined($Name); - $Keyword->SetParent($Parent) if defined($Parent); - } - - $title = "Modify the Keyword <B>". $Keyword->Name. "</B>"; - $submit = "Modify"; -} - - -my $kids = $Keyword->Children(new RT::Keywords($session{CurrentUser})); - -$kids{$kid->Name} = $kid while $kid = $kids->Next; - -if ( defined($Kids) ) { - my %newkids; - - %newkids = map { $_=>1 } split(/\r/, $Kids); - - } - foreach ( grep { ! defined($newkids{$_}) } keys %kids ) { - $kids{$_}->Delete; - delete $kids{$_}; - } - foreach ( grep { ! defined($kids{$_}) } keys %newkids ) { - $kids{$_} = new RT::Keyword($session{CurrentUser}); - $kids{$_}->Create( Name => $_, Parent => $id ) - or Abort("can't create keyword Name=>$_, Parent=>$id"); - } - -} - - -my $parent; -my $parents = new RT::Keywords($session{CurrentUser}); -$parents->UnLimit; - -my $kidstring = join("\r", keys %kids); - -</%INIT> - -<%ARGS> -$id => undef -$Create => undef -$Name => undef -$Parent => undef -$Kids => undef - -</%ARGS> diff --git a/rt/webrt/Admin/Keywords/index.html b/rt/webrt/Admin/Keywords/index.html deleted file mode 100644 index 12814ec03..000000000 --- a/rt/webrt/Admin/Keywords/index.html +++ /dev/null @@ -1,110 +0,0 @@ -<& /Elements/Header, Title => 'Admin/Keywords' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/Keywords/' &> - -<& /Elements/ListActions, actions => \@Actions &> - -<& /Elements/TitleBoxStart, title => 'Keywords' &> -<a href="<%$RT::WebPath%>/Admin/Keywords/?RootId=<%$Root->Parent%>"><%$Root->Path%></a> -<UL> -<FORM METHOD=POST ACTION="index.html"> -<input type=hidden name=RootId value="<%$RootId%>"> - - -% while (my $key = $Keywords->Next) { - <LI> -% if ($Edit == $key->id) { - <input name="KeyName-<%$key->id%>" value="<%$key->Name%>"> - <input type=submit value="Update"> - <input type=submit name="Disable-<%$key->id%>" value="Disable"> -% } else { - <A HREF="?RootId=<%$key->id%>"><%$key->Name%></A> -% if ($key->Disabled) { - <input type=submit name="Enable-<%$key->id%>" value="Enable"> -% } else { - [<a href="?Edit=<%$key->id%>&RootId=<%$Root->Id%>">edit</a>] -% } -% } - - - </LI> -% } - <LI> - <input name="KeyName-New"> <input type=submit value="Add"> -</UL> -<BR> - <input type="checkbox" name="ShowDisabled"> Include disabled items in listing. - <input type=submit value="Go!"> - -</FORM> - -<& /Elements/TitleBoxEnd &> -<%INIT> -my (@Actions); - -if ($ARGS{'KeyName-New'}) { - my $NewKey = new RT::Keyword($session{'CurrentUser'}); - my ($val, $msg) = $NewKey->Create( Parent => $RootId, Name => $ARGS{'KeyName-New'}); - push (@Actions, $msg); -} - -my $arg; -foreach $arg (keys %ARGS) { - if ($arg =~ /^Disable-(\d*)$/) { - my $id = $1; - my $keyword = new RT::Keyword($session{'CurrentUser'}); - $keyword->Load($id); - my ($val, $msg) = $keyword->SetDisabled(1); - push (@Actions, $msg); - - - } - elsif ($arg =~ /^Enable-(\d*)$/) { - my $id = $1; - my $keyword = new RT::Keyword($session{'CurrentUser'}); - $keyword->Load($id); - my ($val, $msg) = $keyword->SetDisabled(0); - push (@Actions, $msg); - } - elsif ($arg =~ /^KeyName-(\d*)$/) { - my $id = $1; - my $keyword = new RT::Keyword ($session{'CurrentUser'}); - $keyword->Load($id); - if ($keyword->Name() ne $ARGS{"$arg"}) { - my ($val, $msg) = $keyword->SetName($ARGS{"$arg"}); - push (@Actions, $msg); - } - if (($ARGS{"KeyParent-$id"}) && - ($keyword->Parent ne $ARGS{"KeyParent-$id"})) { - my ($val, $msg) = $keyword->SetParent($ARGS{"KeyParent-$id"}); - push (@Actions, $msg); - } - } -} - - -my $Root = new RT::Keyword($session{'CurrentUser'}); -my $Keywords; -#If we have a root load it. -if ($RootId != 0) { - $Root->Load($RootId); - $Keywords = $Root->Children(); - -} -else { - $Keywords = new RT::Keywords($session{'CurrentUser'}); - $Keywords->LimitToParent(0); -} - -if ($ShowDisabled) { - $Keywords->{'find_disabled_rows'} = 1; -} - - - - -</%INIT> -<%ARGS> -$RootId => 0 -$Edit => undef -$ShowDisabled => 0 -</%ARGS> diff --git a/rt/webrt/Admin/Queues/Create.html b/rt/webrt/Admin/Queues/Create.html deleted file mode 100755 index b39d6590c..000000000 --- a/rt/webrt/Admin/Queues/Create.html +++ /dev/null @@ -1,13 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Create a queue' &> - <h1>Create a queue</h1> - -<& /Admin/Elements/ModifyQueue, QueueObj => $QueueObj &> - -<%INIT> -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Create(Name => "$Name"); -</%INIT> - -<%ARGS> -$Name => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/GroupRights.html b/rt/webrt/Admin/Queues/GroupRights.html deleted file mode 100755 index a2c669083..000000000 --- a/rt/webrt/Admin/Queues/GroupRights.html +++ /dev/null @@ -1,103 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify group rights for queue '. $QueueObj->Name &> -<& /Admin/Elements/QueueTabs, id => $id &> -<& /Elements/ListActions, actions => \@results &> - - <FORM METHOD=POST ACTION="GroupRights.html"> - <INPUT TYPE=HIDDEN NAME=id VALUE="<% $QueueObj->id %>"> - - - -<& /Elements/TitleBoxStart, title => 'Modify group rights for queue '.$QueueObj->Name &> - -<TABLE> -<TR><TD>Pseudogroups</TD></TR> -% while (my $GroupObj = $PseudoGroups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - QueueObj => $QueueObj, - Scope => 'Queue' &> - - </TD> - </TR> - -% } - -<TR><TD>Groups</TD></TR> - -% while (my $GroupObj = $Groups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - QueueObj => $QueueObj, - Scope => 'Queue' &> - - </TD> - </TR> - -% } - - </TABLE> - - <& /Elements/TitleBoxEnd &> - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - -<%INIT> - -#Update the acls. -my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - -# {{{ Deal with setting up the display of current rights. - -# {{{ do basic initialization. - -#Define vars used in html above -my ($GroupObj); - -my ($right); - - -if (!defined $id) { - Abort("No Queue defined"); -} - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($id) || - Abort("Couldn't load queue $id"); - - # Find out which groups we want to display ACL selects for. - my $Groups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $Groups->LimitToReal(); - - - my $PseudoGroups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $PseudoGroups->LimitToPseudo; - - -# }}} - - - # }}} - -</%INIT> - -<%ARGS> -$id => undef -$UserString => undef -$UserOp => undef -$UserField => undef -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/Keywords.html b/rt/webrt/Admin/Queues/Keywords.html deleted file mode 100644 index 7809805c5..000000000 --- a/rt/webrt/Admin/Queues/Keywords.html +++ /dev/null @@ -1,114 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit keywords' &> -<& /Admin/Elements/QueueTabs, id => $QueueObj->Id &> - -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => $description &> - -<h2>Global Keyword Selections</h2> -<& /Admin/Elements/ListGlobalKeywordSelects &> -<BR> - - <FORM METHOD=POST ACTION="Keywords.html"> - <INPUT TYPE=HIDDEN NAME=id VALUE="<%$id%>"> - -% if ($KeywordSelects->Count > 0 ) { - - -<h2>Queue Keyword Selections</h2> -<TABLE> -<TR><TD>Delete</TD></TR> -% while (my $keywordselect = $KeywordSelects->Next ) { -<TR> - <TD><INPUT TYPE="CHECKBOX" NAME="KeywordSelect-<%$keywordselect->Id%>-Delete"></TD> - <TD><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $keywordselect &></TD> -</TR> -% } -</TABLE> -% } - -Add a keyword selection to this queue: -%my $ks = new RT::KeywordSelect($session{'CurrentUser'}); -<ul> -<li><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $ks, NamePrefix => 'new' &></li> -</ul> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> - -</FORM> -<%init> -my (@actions); - - - -my $KeywordSelects = new RT::KeywordSelects ($session{'CurrentUser'}); -unless ($id =~ /^\d+$/) { - Abort("$id isn't a valid Queue id."); -} - -unless ($KeywordSelects->LimitToQueue($id)) { - Abort("Couldn't load KeywordSelects."); -} - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($id); - -my $description = "Modify Keyword selections for queue '". $QueueObj->Name ."'"; - - - -# {{{ if we're trying to create a new keyword select - -if ($ARGS{'KeywordSelect-new-Name'}) { - my $NewKeywordSelect = new RT::KeywordSelect($session{'CurrentUser'}); - - my ($retval, $msg) = $NewKeywordSelect->Create ( Keyword => $ARGS{'KeywordSelect-new-Keyword'}, - ObjectField => 'Queue', - ObjectType => 'Ticket', - ObjectValue => $QueueObj->Id, - Name => $ARGS{'KeywordSelect-new-Name'}, - Single => $ARGS{'KeywordSelect-new-Single'}, - Depth => $ARGS{'KeywordSelect-new-Depth'} - ); - push (@actions, $msg); -} -# }}} -# {{{ if we're trying to delete the keywordselect -foreach my $key (keys %ARGS) { - if ($key =~ /^KeywordSelect-(\d+)-Delete$/) { - my $id = $1; - my $keywordselect = new RT::KeywordSelect($session{'CurrentUser'}); - $keywordselect->Load($id) || push @actions, "Couldn't load keywordSelect"; - my ($val, $msg) = $keywordselect->SetDisabled(1); - if ($val) { - push @actions, 'KeywordSelect disabled.'; - } - else { - push @actions, $msg; - } - } -} -# }}} -# {{{ if we're modifying keyword selects -my @fields = qw(Name Keyword Single Depth); - -while (my $ks = $KeywordSelects->Next) { - foreach my $field (@fields) { - if (defined ($ARGS{"KeywordSelect-".$ks->Id."-".$field}) && - ($ARGS{"KeywordSelect-".$ks->Id."-".$field} ne $ks->$field())) { - - my $method = "Set$field"; - my ($val, $msg) = $ks->$method($ARGS{"KeywordSelect-".$ks->Id."-".$field}); - push @actions, "Keyword Select ". $ks->Name."/$field:".$msg; - } - } -} -# }}} - -</%init> - -<%ARGS> -$id => undef #some identifier that a Queue could - -</%ARGS> diff --git a/rt/webrt/Admin/Queues/Modify.html b/rt/webrt/Admin/Queues/Modify.html deleted file mode 100755 index 7a200df92..000000000 --- a/rt/webrt/Admin/Queues/Modify.html +++ /dev/null @@ -1,137 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin/Queue/Basics' &> -<& /Admin/Elements/QueueTabs, id => $QueueObj->id &> -<& /Elements/ListActions, actions => \@results &> - - - -<& /Elements/TitleBoxStart, title => $title &> - - -<FORM ACTION="<%$RT::WebPath%>/Admin/Queues/Modify.html" METHOD=POST> -%if ($Create ) { -<INPUT TYPE=HIDDEN NAME=id VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>"> -% } - -<TABLE> -<TR><TD ALIGN=RIGHT> -Queue Name: -</TD> -<TD><INPUT name="Name" value="<%$QueueObj->Name%>"></TD> -</TR><TR> -<TD ALIGN=RIGHT> -Description:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$QueueObj->Description%>" size=60></TD></TR> -<TR> -<TD ALIGN=RIGHT> -Correspondence Address: -</TD><TD> -<INPUT name="CorrespondAddress" value="<%$QueueObj->CorrespondAddress%>"> -<BR><font size="-1"><i>(If left blank, will default to <%$RT::CorrespondAddress%></i></font> -</TD> -<TD ALIGN=RIGHT> - -Comment Address: </TD><TD> -<INPUT NAME="CommentAddress" value="<%$QueueObj->CommentAddress%>"> -<BR><font size="-1"><i>(If left blank, will default to <%$RT::CommentAddress%></i></font> -</TD> -</TR><TR> - -<TD ALIGN=RIGHT> -Priority starts at: -</TD><TD><INPUT NAME="InitialPriority" value="<%$QueueObj->InitialPriority %>"> -</TD> -<TD ALIGN=RIGHT> -Over time, priority moves toward: -</TD><TD><INPUT NAME="FinalPriority" value="<%$QueueObj->FinalPriority %>"> -</TD> -</TR> -<TR> -<TD ALIGN=RIGHT> -Requests should be due in: -</TD><TD> -<INPUT NAME="DefaultDueIn" VALUE="<%$QueueObj->DefaultDueIn%>"> days. -</TD> -</TR> -<TR> -<TD> -</TD> -<TD COLSPAN=4><INPUT TYPE=HIDDEN NAME="SetEnabled" VALUE="1"> -<INPUT TYPE=CHECKBOX NAME="Enabled" VALUE="1" <%$EnabledChecked%>> Enabled (Unchecking this box disables this queue)<BR> -</TD> -</TR> - -</TABLE> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</form> - - - -<%INIT> - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -my ($title, @results, $Disabled, $EnabledChecked); - -if ($Create) { - $title = "Create a queue"; -} - -else { - if ($id eq 'new') { - my ($val, $msg) = $QueueObj->Create(Name => $Name); - if ($val == 0 ) { - Abort("Could not create queue: $msg"); - } - else { - push @results, $msg; - } - } - else { - $QueueObj->Load($id) || $QueueObj->Load($Name) || Abort("Couldn't load queue '$Name'"); - } - $title = 'Editing Configuration for queue '.$QueueObj->Name; - -} -if ($QueueObj->Id()) { -my @attribs= qw(Description CorrespondAddress CommentAddress Name - InitialPriority FinalPriority DefaultDueIn); - - @results = UpdateRecordObject( AttributesRef => \@attribs, - Object => $QueueObj, - ARGSRef => \%ARGS); - -} - -#we're asking about enabled on the web page but really care about disabled. -if ($Enabled == 1) { - $Disabled = 0; -} -else { - $Disabled = 1; -} -if ( ($SetEnabled) and ( $Disabled != $QueueObj->Disabled) ) { - my ($code, $msg) = $QueueObj->SetDisabled($Disabled); - push @results, 'Enabled status '. $msg; -} - -unless ($QueueObj->Disabled()) { - $EnabledChecked ="CHECKED"; -} -</%INIT> - - -<%ARGS> -$id => undef -$result => undef -$Name => undef -$Create => undef -$Description => undef -$CorrespondAddress => undef -$CommentAddress => undef -$InitialPriority => undef -$FinalPriority => undef -$DefaultDueIn => undef -$SetEnabled => undef -$Enabled => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/People.html b/rt/webrt/Admin/Queues/People.html deleted file mode 100755 index b495400ed..000000000 --- a/rt/webrt/Admin/Queues/People.html +++ /dev/null @@ -1,161 +0,0 @@ -<& /Elements/Header, Title => 'Modify people related to queue ' . $QueueObj->Name &> -<& /Admin/Elements/QueueTabs, id => $id &> - -<& /Elements/ListActions, actions => \@results &> - - -<FORM METHOD=POST ACTION="People.html"> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>"> -<& /Elements/TitleBoxStart, title => 'Modify watchers for queue \''.$QueueObj->Name ."'", width => "100%" &> - -<TABLE WIDTH=100%> -<TR> -<TD VALIGN=TOP > - -<h3>Current watchers</h3> -<i>(Check box to delete)</i><br><BR> - - -Cc: - -<ul> - -%# Print out a placeholder if there are none. -%if ($cc->Count == 0 ) { -<li><i>none</i> -% } - -%while (my $watcher=$cc->Next) { -<li> -<INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED> -%# account -%if ($watcher->IsUser) { -<a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>"> -<%$watcher->OwnerObj->RealName%></a>: -%} else { -Email address: -%} -<i><%$watcher->Email%></i> -%} -</ul> - - -Administrative Cc: -<UL> -%# Print out a placeholder if there are none. -%if ($admincc->Count == 0 ) { -<li><i>none</i> -% } - -%while (my $watcher=$admincc->Next) { -<li><INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED> -%# account -%if ($watcher->IsUser) { -<a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>"> -<%$watcher->OwnerObj->RealName%></a>: -%} else { -Email address: -%} -<i><%$watcher->Email%></i> -%} -</UL> -</TD> - -<TD VALIGN=TOP> -<h3>New watchers</h3> -Find people whose<BR> -<& /Elements/SelectUsers &> - -<BR> -Add new watchers:<br> - -% if ($msg) { -<i><%$msg%></i> -% } elsif ($Users) { -<ul> -% while (my $u = $Users->Next ) { -<li><&/Elements/SelectWatcherType, Scope=>'queue', Name => "WatcherTypeUser".$u->Id &> <%$u->Name%> -(<%$u->RealName%>) -% } -</ul> -% } - -</TD> -</TR> -</TABLE> - - - - - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to" &> -</form> - -<%INIT> - -my ($field, @results, $User, $Users, $watcher, $key, $msg); -# {{{ Load the queue -#If we get handed two ids, mason will make them an array. bleck. -# We want teh first one. Just because there's no other sensible way -# to deal - - - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($id) || Abort("Couldn't load queue '$id'"); -# }}} - -# {{{ Delete deletable watchers - -foreach $key (keys %ARGS) { - if (($key =~ /^DelWatcher(\d*)$/) and - ($ARGS{$key})) { - $RT::Logger->debug("Deleting watcher $1\n"); - my ($code, $msg) = $QueueObj->DeleteWatcher($1); - - push @results, $msg; - } -} -# }}} - -# {{{ Add new watchers -foreach $key (keys %ARGS) { - #They're in this order because otherwise $1 gets clobbered :/ - if ( ($ARGS{$key} =~ /^(AdminCc|Cc)$/) and - ($key =~ /^WatcherTypeUser(\d*)$/) ) { - $RT::Logger->debug("Adding a watcher $1 to ".$ARGS{$key}."\n"); - my ($code, $msg) = - $QueueObj->AddWatcher(Type => $ARGS{$key}, - Owner => $1); - push @results, $msg; - } -} - -# }}} - - - -my $admincc = $QueueObj->AdminCc; -my $cc = $QueueObj->Cc; - - -if (!$ARGS{'UserString'}) { -$msg = "No users selected."; - } -else { - $Users = new RT::Users($session{'CurrentUser'}); - $Users->Limit(FIELD => $ARGS{'UserField'}, - VALUE => $ARGS{'UserString'}, - OPERATOR => $ARGS{'UserOp'}); - } -</%INIT> - -<%ARGS> -$UserField => 'Name' -$UserOp => '=' -$UserString => undef -$Type => undef -$id => undef -</%ARGS> - diff --git a/rt/webrt/Admin/Queues/Scrips.html b/rt/webrt/Admin/Queues/Scrips.html deleted file mode 100755 index 95b8c4378..000000000 --- a/rt/webrt/Admin/Queues/Scrips.html +++ /dev/null @@ -1,111 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit scrips' &> -<& /Admin/Elements/QueueTabs, id => $QueueObj->Id &> - -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => $description &> - -<h2>Global Scrips</h2> -<& /Admin/Elements/ListGlobalScrips &> -<BR> - <FORM METHOD=POST ACTION="Scrips.html"> - <INPUT TYPE=HIDDEN NAME=id VALUE=<%$id%>> -<h2>Queue Scrips</h2> -% if ($Scrips->Count > 0 ) { -<TABLE> -<TR> -<TD>Delete -</TD> -<TD> -</TR> -% while (my $scrip = $Scrips->Next ) { -<TR> -<TD> -<INPUT TYPE="CHECKBOX" NAME="DeleteScrip-<%$scrip->Id%>"> -</TD> -<TD> -<% $scrip->ConditionObj->Name %> -<% $scrip->ActionObj->Name %> with template -<% $scrip->TemplateObj->Name %> -</TD> -</TR> -% } -</TABLE> -% } -<BR> -<h2>Add a scrip to this queue</h2> -Condition: <& /Admin/Elements/SelectScripCondition, Name => 'NewScripCondition' &> - Action: <& /Admin/Elements/SelectScripAction, Name => 'NewScripAction' &> - Template: <& /Admin/Elements/SelectTemplate, Name => 'NewScripTemplate', DefaultQueue => $id &> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</FORM> -<%init> -my (@actions, $description); - -my $Scrips = new RT::Scrips ($session{'CurrentUser'}); -unless ($id =~ /^\d+$/) { - Abort("$id isn't a valid Queue id."); -} - -unless ($Scrips->LimitToQueue($id)) { - Abort("Couldn't load Scrips."); - } - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($id); - -if ($QueueObj->id) { - $description = "Modify scrips for queue '". $QueueObj->Name ."'"; -} -else { - $description = "Modify global scrips"; -} - - -if ($NewScripAction and $NewScripCondition) { - my $NewScrip = new RT::Scrip($session{'CurrentUser'}); - - my ($retval, $msg) = $NewScrip->Create ( ScripAction => $NewScripAction, - ScripCondition => $NewScripCondition, - Stage => 'TransactionCreate', - Queue => $id, - Template => $NewScripTemplate); - if (defined $retval) { - push @actions, $msg; - } - else { - push @actions, $msg; - } -} - -# {{{ deal with modifying and deleting existing scrips -my ($key ); -foreach $key (keys %ARGS) { - # {{{ if we're trying to delete the scrip - if ($key =~ /^DeleteScrip-(\d+)/) { - my $id = $1; - my $scrip = new RT::Scrip($session{'CurrentUser'}); - $scrip->Load($id); - my ($retval, $msg) = $scrip->Delete; - if ($retval) { - push @actions, 'Scrip deleted'; - } - else { - push @actions, $msg; - } - } - # }}} - - -} -# }}} -</%init> - -<%ARGS> -$NewScripCondition => undef -$NewScripAction => undef -$NewScripTemplate => undef -$id => undef #some identifier that a Queue could -</%ARGS> diff --git a/rt/webrt/Admin/Queues/Template.html b/rt/webrt/Admin/Queues/Template.html deleted file mode 100755 index 61ee418a6..000000000 --- a/rt/webrt/Admin/Queues/Template.html +++ /dev/null @@ -1,68 +0,0 @@ -<& /Admin/Elements/Header, title => "Modify template ".$TemplateObj->id&> -<& /Admin/Elements/QueueTabs, id => $Queue &> -<& /Elements/ListActions, actions => \@results &> - -<& /Elements/TitleBoxStart, title => $title &> - -<FORM METHOD=POST ACTION="Template.html"> -%if ($create ) { -<INPUT TYPE=HIDDEN NAME=template VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=template VALUE="<%$TemplateObj->Id%>"> -% } - -%# hang onto the queue id -<INPUT TYPE=HIDDEN name="Queue" value="<%$Queue%>"> - - -Name: <input name="Name" VALUE="<%$TemplateObj->Name%>" SIZE=20><BR> -Description: <input name="Description" VALUE="<%$TemplateObj->Description%>" SIZE=80><BR> - -<TEXTAREA NAME=Content ROWS=25 COLS=80 WRAP=SOFT> -<%$TemplateObj->Content%></TEXTAREA> - -<& /Elements/TitleBoxEnd&> -<&/Elements/Submit&> -</FORM> - - - -<%INIT> - -my $TemplateObj = new RT::Template($session{'CurrentUser'}); -my ($title, @results); - -if ($create) { - $title = "Create a template"; -} - -else { - if ($template eq 'new') { - my ($val, $msg) = $TemplateObj->Create(Queue => $Queue, Name => $Name); - Abort("Could not create template: $msg") unless ($val); - push @results, $msg; - $title = 'Created template ' . $TemplateObj->Name(); - } - else { - $TemplateObj->Load($template) || Abort('No Template'); - $title = 'Editing template ' . $TemplateObj->Name(); - } - - -} -if ($TemplateObj->Id()) { - $Queue = $TemplateObj->Queue; - - my @attribs = qw( Description Content Queue Name); - my @aresults = UpdateRecordObject( AttributesRef => \@attribs, - Object => $TemplateObj, - ARGSRef => \%ARGS); - push @results, @aresults; -} -</%INIT> -<%ARGS> -$Queue => undef -$template => undef -$create => undef -$Name => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/Templates.html b/rt/webrt/Admin/Queues/Templates.html deleted file mode 100755 index 218d41dc9..000000000 --- a/rt/webrt/Admin/Queues/Templates.html +++ /dev/null @@ -1,24 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit templates for '.$Queue->Name &> -<& /Admin/Elements/QueueTabs, id => $Queue->id &> - -<& /Elements/TitleBoxStart, title => 'Edit templates for '.$Queue->Name &> -<UL> -<LI><A href="Template.html?create=1&Queue=<%$Queue->id%>">Create a new template</A><BR><BR> - -%while (my $TemplateObj = $Templates->Next) { - -<LI><A HREF="Template.html?Queue=<%$id%>&template=<%$TemplateObj->id()%>"><%$TemplateObj->id()%>/<%$TemplateObj->Name%>: <%$TemplateObj->Description%></a><BR> - -%} - -<& /Elements/TitleBoxEnd &> -<%INIT> - -my $Queue = new RT::Queue($session{'CurrentUser'}); -$Queue->Load($id); -my $Templates = $Queue->Templates; - -</%INIT> -<%ARGS> -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/UserRights.html b/rt/webrt/Admin/Queues/UserRights.html deleted file mode 100755 index 75d9cb282..000000000 --- a/rt/webrt/Admin/Queues/UserRights.html +++ /dev/null @@ -1,72 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify user rights for queue '. $QueueObj->Name &> -<& /Admin/Elements/QueueTabs, id => $id &> -<& /Elements/ListActions, actions => \@results &> - - <FORM METHOD=POST ACTION="UserRights.html"> - <INPUT TYPE=HIDDEN NAME=id VALUE="<% $QueueObj->id %>"> - -<& /Elements/TitleBoxStart, title => 'Modify user rights for queue '.$QueueObj->Name &> - -<TABLE> - -% while (my $UserObj = $Users->Next()) { - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $UserObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj, - PrincipalType => 'User', - Scope => 'Queue', - QueueObj => $QueueObj &> - </TD> - </TR> -% } - </TABLE> - - <& /Elements/TitleBoxEnd &> - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - - </FORM> - -<%INIT> - - #Update the acls. - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - -# {{{ Deal with setting up the display of current rights. - -# {{{ do basic initialization. - -#Define vars used in html above -my ($GroupObj); - -my ($right); - - -if (!defined $id) { - Abort("No Queue defined"); -} - -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($id) || - Abort("Couldn't load queue $id"); - -# Find out which users we want to display ACL selects for -my $Users = new RT::Users($session{'CurrentUser'}); -$Users->LimitToPrivileged(); - -# }}} - - -# }}} - -</%INIT> - -<%ARGS> -$id => undef -$UserString => undef -$UserOp => undef -$UserField => undef -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Queues/index.html b/rt/webrt/Admin/Queues/index.html deleted file mode 100755 index 52dfb73c8..000000000 --- a/rt/webrt/Admin/Queues/index.html +++ /dev/null @@ -1,52 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin queues' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/Queues/' &> - - -<& /Elements/TitleBoxStart, title => 'Select a queue' &> - -<TABLE> -<TR> -<TD VALIGN=TOP> - -<FORM METHOD=POST ACTION="<% $RT::WebPath %>/Admin/Queues/"> - -<input type="checkbox" name="FindDisabledQueues"> Include disabled queues in listing. -<BR> -<div align=right><input type=submit value="Go!"></div> -</FORM> -</TD> -<TD VALIGN=TOP> -<UL> -% if ($session{'CurrentUser'}->HasSystemRight('AdminQueue')) { -<LI><A HREF="<%$RT::WebPath%>/Admin/Queues/Modify.html?Create=1">Create a new queue</A><BR><BR></LI> -</UL> -% } - -<%$caption%><BR> -<UL> -%if ($queues->Count == 0) { -<LI> <i>No queues matching search criteria found.</i> -% } -%while ( $queue = $queues->Next) { -<LI><A HREF="Modify.html?id=<%$queue->id%>"><%$queue->Name%></a></LI> -%} - -</UL> -</TD> -</TR> -</TABLE> -<& /Elements/TitleBoxEnd &> - -<%INIT> -my ($queue, $caption); -my $queues = new RT::Queues($session{'CurrentUser'}); -$queues->UnLimit(); - -if ($FindDisabledQueues) { - $queues->{'find_disabled_rows'} = 1; -} - -</%INIT> -<%ARGS> -$FindDisabledQueues => 0 -</%ARGS> diff --git a/rt/webrt/Admin/Users/Modify.html b/rt/webrt/Admin/Users/Modify.html deleted file mode 100755 index b6daed49b..000000000 --- a/rt/webrt/Admin/Users/Modify.html +++ /dev/null @@ -1,259 +0,0 @@ -<& /Admin/Elements/Header, Title => $title &> -<& /Admin/Elements/UserTabs, id => $id, current_subtab => '/Admin/Elements/Modify.html?id='.$id &> - -<& /Elements/ListActions, actions => \@results &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Users/Modify.html" METHOD=POST> -%if ($Create) { -<INPUT TYPE=HIDDEN NAME=id VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$UserObj->Id%>"> -% } - -<TABLE WIDTH=100% BORDER=0> -<TR> - -<TD VALIGN=TOP ROWSPAN=2> -<& /Elements/TitleBoxStart, title => 'Identity' &> - -Username: <input name="Name" value="<%$UserObj->Name%>"> <b>(required)</b> <BR> -Email: <input name="EmailAddress" value="<%$UserObj->EmailAddress%>"><BR> -Real Name: <input name="RealName" value="<%$UserObj->RealName%>"> <BR> -Nickname: <input name="NickName" value="<%$UserObj->NickName%>"> -<BR> -Unix login: <input name="Gecos" value="<%$UserObj->Gecos%>"> -<BR> -Extra info: <textarea name="FreeformContactInfo" cols=20 rows=5><%$UserObj->FreeformContactInfo%></TEXTAREA> -<& /Elements/TitleBoxEnd &> -</TD> -<TD VALIGN=TOP> -<& /Elements/TitleBoxStart, title => 'Access control' &> -<INPUT TYPE=HIDDEN NAME="SetEnabled" VALUE="1"> -<INPUT TYPE=CHECKBOX NAME="Enabled" VALUE="1" <%$EnabledChecked%>> -Let this user access RT<BR> - - -<INPUT TYPE=HIDDEN NAME="SetPrivileged" VALUE="1"> -<INPUT TYPE=CHECKBOX NAME="Privileged" VALUE="1" <%$PrivilegedChecked%>> Let this user be granted rights<BR> - -% unless ($RT::WebExternalAuth) { -<TABLE> -<TR> -<TD ALIGN=RIGHT> -New Password: -</TD> -<TD ALIGN=LEFT> -<input type=password name="Pass1"> -</TD> -</TR> -<TR><TD ALIGN=RIGHT> -Retype Password: -</TD> -<TD> -<input type=password name="Pass2"> -</TD> -</TR> -</TABLE> -% } -<& /Elements/TitleBoxEnd &> -</TD> -<TR> - -<TD VALIGN=TOP> -<& /Elements/TitleBoxStart, title => 'Location' &> -Organization: <input name="Organization" value="<%$UserObj->Organization%>"> -<BR> -Address1: <input name="Address1" value="<%$UserObj->Address1%>"> -<BR> -Address2: <input name="Address2" value="<%$UserObj->Address2%>"> -<BR> -City: <input name="City" value="<%$UserObj->City%>" size=14> - -State: <input name="State" value="<%$UserObj->State%>" size=3> - -Zip: <input name="Zip" value="<%$UserObj->Zip%>" size=9> -<BR> -Country: <input name="Country" value="<%$UserObj->Country%>"> -<BR> - - -<& /Elements/TitleBoxEnd &> -</TD> -</TR> -<TR> -<TD COLSPAN=2 VALIGN=TOP> - - -<& /Elements/TitleBoxStart, title => 'Phone numbers' &> -Home: <input name="HomePhone" value="<%$UserObj->HomePhone%>" size=13> - -Work: <input name="WorkPhone" value="<%$UserObj->WorkPhone%>" size=13> - -Mobile: <input name="MobilePhone" value="<%$UserObj->MobilePhone%>" size=13> - -Pager: <input name="PagerPhone" value="<%$UserObj->PagerPhone%>" size=13> -<& /Elements/TitleBoxEnd &> -<BR> -<& /Elements/TitleBoxStart, title => 'Comments about this user' &> -<TEXTAREA name="Comments" COLS=80 ROWS=5 WRAP=VIRTUAL><%$UserObj->Comments%></TEXTAREA> -<& /Elements/TitleBoxEnd &> - - -%if ($UserObj->Privileged) { -<BR> -<& /Elements/TitleBoxStart, title => 'Signature' &> -<TEXTAREA COLS=80 ROWS=5 name="Signature" WRAP=HARD> -<%$UserObj->Signature%></TEXTAREA> -<& /Elements/TitleBoxEnd &> -% } - -</TD> - -</TR> -</TABLE> - - -<& /Elements/Submit &> -</form> - - -<%INIT> - -my $UserObj = new RT::User($session{'CurrentUser'}); -my ($title, $PrivilegedChecked, $EnabledChecked, $Disabled, $result, @results); - -my ($val, $msg); - -if ($Create) { - $title = "Create a new user"; -} -else { - - if ($id eq 'new') { - ($val, $msg) = $UserObj->Create( Name => $Name, - EmailAddress => $ARGS{'EmailAddress'} - ); - if ($val) { - push @results, $msg; - } else { - push @results, 'User could not be created: '. $msg; - } - - } - else { - $UserObj->Load($id) || $UserObj->Load($Name) || Abort("Couldn't load user '$Name'"); - $val = $UserObj->Id(); - } - - if ($val) { - $title = "Modify the user ". $UserObj->Name; - } - - # If the create failed - else { - $title = "Create a new user"; - $Create = 1; - } - - - -} - - - - -# If we have a user to modify, lets try. -if ($UserObj->Id) { - - my @fields = qw(Name Comments Signature EmailAddress FreeformContactInfo - Organization RealName NickName Lang EmailEncoding WebEncoding - ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId - AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1 - Address2 City State Zip Country - ); - - my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, - Object => $UserObj, - ARGSRef => \%ARGS ); - push (@results,@fieldresults); - - -# {{{ Deal with special fields: Privileged, Enabled and Password -if ( ($SetPrivileged) and ( $Privileged != $UserObj->Privileged) ) { -my ($code, $msg) = $UserObj->SetPrivileged($Privileged); - push @results, 'Privileged status: '. $msg; -} - -#we're asking about enabled on the web page but really care about disabled. -if ($Enabled == 1) { - $Disabled = 0; -} -else { - $Disabled = 1; -} -if ( ($SetEnabled) and ( $Disabled != $UserObj->Disabled) ) { - my ($code, $msg) = $UserObj->SetDisabled($Disabled); - push @results, 'Enabled status '. $msg; -} - - -#TODO: make this report errors properly -if ((defined $Pass1) and ($Pass1 ne '') and ($Pass1 eq $Pass2) and (!$UserObj->IsPassword($Pass1))) { - my ($code, $msg); - ($code, $msg) = $UserObj->SetPassword($Pass1); - push @results, 'Password: '. $msg; -} - -# }}} -} - - -# {{{ Do some setup for the ui -unless ($UserObj->Disabled()) { - $EnabledChecked ="CHECKED"; -} - -if ($UserObj->Privileged()) { - $PrivilegedChecked = "CHECKED"; -} - -# }}} -</%INIT> - - -<%ARGS> -$id => undef -$Name => undef -$Comments => undef -$Signature => undef -$EmailAddress => undef -$FreeformContactInfo => undef -$Organization => undef -$RealName => undef -$NickName => undef -$Privileged => undef -$SetPrivileged => undef -$Enabled => undef -$SetEnabled => undef -$Lang => undef -$EmailEncoding => undef -$WebEncoding => undef -$ExternalContactInfoId => undef -$ContactInfoSystem => undef -$Gecos => undef -$ExternalAuthId => undef -$AuthSystem => undef -$HomePhone => undef -$WorkPhone => undef -$MobilePhone => undef -$PagerPhone => undef -$Address1 => undef -$Address2 => undef -$City => undef -$State => undef -$Zip => undef -$Country => undef -$Pass1 => undef -$Pass2=> undef -$Create=> undef -</%ARGS> diff --git a/rt/webrt/Admin/Users/Prefs.html b/rt/webrt/Admin/Users/Prefs.html deleted file mode 100755 index 4a9fc5cdf..000000000 --- a/rt/webrt/Admin/Users/Prefs.html +++ /dev/null @@ -1,97 +0,0 @@ -<& /Elements/Header, Title=>"User view" &> - -<& /Elements/ViewUser, User=>$u &> - -%if ($session{CurrentUser} && ($session{CurrentUser}->Id == $id)) { - <& /Elements/TitleBoxStart, title => 'Signature' &> -<form method=post> -<input type="hidden" name="id" value=<%$id%>> -<TEXTAREA COLS=72 ROWS=4 WRAP=HARD NAME="Signature"><% $u->Signature %></TEXTAREA><br><br> -<input type="submit" value="Update signature"> -</form> - <& /Elements/TitleBoxEnd &> - <form method=post> - Open tickets (from listing) in another window: <input type="checkbox" name="NewWindowOption" <%exists $session{NewWindowOption} && "CHECKED"%>><br> - Open tickets (from listing) in a new window: <input type="checkbox" name="AlwaysNewWindowOption" <%exists $session{AlwaysNewWindowOption} && "CHECKED"%>><br> - <input type="submit" name="NewWindowSetting" value="New window setting"> - </form> -%} - - <& /Elements/TitleBoxStart, title => 'Email' &> -<form method=post> -<input type="hidden" name="id" value="<%$id%>"> -<input name="Email" value="<% $u->EmailAddress %>"><input type="submit" value="Update email"> -</form> - <& /Elements/TitleBoxEnd &> - <& /Elements/TitleBoxStart, title => 'Real Name' &> -<form method=post> -<input type="hidden" name="id" value="<%$id%>"> -<input name="RealName" value="<% $u->RealName %>"><input type="submit" value="Update name"> -</form> - <& /Elements/TitleBoxEnd &> - - <& /Elements/TitleBoxStart, title => 'User ID' &> -<form method=post> -<input type="hidden" name="id" value="<%$id%>"> -<input name="Name" value="<% $u->Name %>"><input type="submit" value="Update ID"> -</form> - <& /Elements/TitleBoxEnd &> - -%# TODO: alternative email addresses + merging users - -<%ARGS> -$id => $session{CurrentUser} ? $session{CurrentUser}->Id : 0 -$Signature => undef -$Email => undef -$RealName => undef -$Name => undef -</%ARGS> - -<%INIT> -require RT::User; -my $u=RT::User->new($session{CurrentUser}); -$u->Load($id) || die "Couldn't load that user ($id)"; -if ($Signature) { -my ($val, $msg)=$u->SetSignature($Signature); -$RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); -} - -if ($Email) { -my ($val, $msg)=$u->SetEmailAddress($Email); -$RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); -} - -if ($RealName) { -my ($val, $msg)=$u->SetRealName($RealName); -$RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); -} - -if ($Name) { -my ($val, $msg)=$u->SetName($Name); -$RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); -} - -if ($ARGS{NewWindowSetting}) { -if ($ARGS{NewWindowOption}) { -$session{NewWindowOption}=1; -} else { -delete $session{NewWindowOption}; -} -if ($ARGS{AlwaysNewWindowOption}) { -$session{NewWindowOption}=1; -$session{AlwaysNewWindowOption}=1; -} else { -delete $session{AlwaysNewWindowOption}; -} -} - -</%INIT> - - - - - - - - - diff --git a/rt/webrt/Admin/Users/Rights.html b/rt/webrt/Admin/Users/Rights.html deleted file mode 100644 index 3b94f9157..000000000 --- a/rt/webrt/Admin/Users/Rights.html +++ /dev/null @@ -1 +0,0 @@ -Placeholder diff --git a/rt/webrt/Admin/Users/index.html b/rt/webrt/Admin/Users/index.html deleted file mode 100755 index 383513710..000000000 --- a/rt/webrt/Admin/Users/index.html +++ /dev/null @@ -1,71 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin users' &> -<& /Admin/Elements/Tabs, current_tab => 'Admin/Users/' &> - - -<& /Elements/TitleBoxStart, title => 'Select a user' &> - -<TABLE> -<TR> -<TD VALIGN=TOP> - -<FORM METHOD=POST ACTION="<% $RT::WebPath %>/Admin/Users/"> - -Find people whose <& /Elements/SelectUsers &><BR> -<input type="checkbox" name="FindDisabledUsers"> Include disabled users in search. -<BR> -<div align=right><input type=submit value="Go!"></div> -</FORM> -</TD> -<TD VALIGN=TOP> -<UL> -% if ($session{'CurrentUser'}->HasSystemRight('AdminUsers')) { -<LI><A HREF="<%$RT::WebPath%>/Admin/Users/Modify.html?Create=1">Create a new user</A><BR><BR></LI> -</UL> -% } - -<%$caption%><BR> -<UL> -%if ($users->Count == 0) { -<LI> <i>No users matching search criteria found.</i> -% } -%while ( $user = $users->Next) { -<LI><A HREF="Modify.html?id=<%$user->id%>"><%$user->Name || '(no name listed)'%></a></LI> -%} - -</UL> -</TD> -</TR> -</TABLE> -<& /Elements/TitleBoxEnd &> - -<%INIT> -my ($user, $caption); -my $users = new RT::Users($session{'CurrentUser'}); - -if ($FindDisabledUsers) { - $users->{'find_disabled_rows'} = 1; -} - -unless (defined $UserString) { - $users->LimitToPrivileged(); - $caption = "Privileged users"; -} -else { - $caption = "Users matching search criteria"; - - if ($UserString) { - $users->Limit( FIELD => $UserField, - OPERATOR => $UserOp, - VALUE => $UserString); - -} -} -</%INIT> -<%ARGS> -$UserString => undef -$UserOp => '=' -$UserField => 'Name' -$IdLike => undef -$EmailLike => undef -$FindDisabledUsers => 0 -</%ARGS> diff --git a/rt/webrt/Admin/index.html b/rt/webrt/Admin/index.html deleted file mode 100755 index 1ed973f7e..000000000 --- a/rt/webrt/Admin/index.html +++ /dev/null @@ -1,4 +0,0 @@ - <& /Admin/Elements/Header, Title => 'RT Administration' &> -<& /Admin/Elements/Tabs &> - - diff --git a/rt/webrt/Elements/Checkbox b/rt/webrt/Elements/Checkbox deleted file mode 100755 index 964c482ba..000000000 --- a/rt/webrt/Elements/Checkbox +++ /dev/null @@ -1,17 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/Checkbox,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<INPUT TYPE="Checkbox" NAME ="<%$Name%>" <%$IsChecked%>> - -<%ARGS> -$Name => undef -$Default => undef -$True => undef -$False => undef -$IsChecked => undef -</%ARGS> - -<%INIT> -$IsChecked = - ($Default && $Default =~ /checked/i) - ? " CHECKED " : ""; -1; -</%INIT> diff --git a/rt/webrt/Elements/CreateTicket b/rt/webrt/Elements/CreateTicket deleted file mode 100644 index 1270f6ebe..000000000 --- a/rt/webrt/Elements/CreateTicket +++ /dev/null @@ -1 +0,0 @@ -<FORM ACTION="<% $RT::WebPath%>/Ticket/Create.html"><input type=submit value="New ticket in"> <& /Elements/SelectNewTicketQueue &></FORM> diff --git a/rt/webrt/Elements/CustomHomepageHeader b/rt/webrt/Elements/CustomHomepageHeader deleted file mode 100644 index e69de29bb..000000000 --- a/rt/webrt/Elements/CustomHomepageHeader +++ /dev/null diff --git a/rt/webrt/Elements/Error b/rt/webrt/Elements/Error deleted file mode 100755 index ec2cf511f..000000000 --- a/rt/webrt/Elements/Error +++ /dev/null @@ -1,23 +0,0 @@ -<& /Elements/Header, Code => $Code, Why => $Why &> -<& /Elements/Tabs &> -<& /Elements/TitleBoxStart, title => $Title &> -<%$Why%> -<br> -<font size=-1> -<%$Details%> -</font> -<& /Elements/TitleBoxEnd &> -</body> -</HTML> - - -<%args> -$Code => undef -$Details => undef -$Title => "RT Error" -$Why => "the calling component did not specify why" -</%args> - -<%INIT> -$RT::Logger->error("WebRT: $Why ($Details)"); -</%INIT> diff --git a/rt/webrt/Elements/Footer b/rt/webrt/Elements/Footer deleted file mode 100755 index 776c219bb..000000000 --- a/rt/webrt/Elements/Footer +++ /dev/null @@ -1,10 +0,0 @@ -% if ($Debug) { -<HR> -<b>Time to display: <%time - $m->{'rt_base_time'} %></b> -% } -</BODY> -</HTML> - -<%ARGS> -$Debug => 0 -</%ARGS> diff --git a/rt/webrt/Elements/GotoTicket b/rt/webrt/Elements/GotoTicket deleted file mode 100644 index 21d2bcdf8..000000000 --- a/rt/webrt/Elements/GotoTicket +++ /dev/null @@ -1 +0,0 @@ -<FORM ACTION="<%$RT::WebPath%>/Ticket/Display.html"><input type=submit value="Goto ticket"> <input size=5 name=id></FORM> diff --git a/rt/webrt/Elements/Header b/rt/webrt/Elements/Header deleted file mode 100755 index 471331be2..000000000 --- a/rt/webrt/Elements/Header +++ /dev/null @@ -1,61 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> -<HTML> -<HEAD> -<TITLE><%$Title%></TITLE> -<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"> - -%# TODO this gets called from error. but I have no idea what it might -%# be used for. can we whack it? -jesse -% if ($Code) { -<META HTTP-EQUIV VALUE="<%$Code%> <%$Why%>"> -% } -% if ($Refresh > 0) { -<META HTTP-EQUIV="REFRESH" CONTENT="<%$Refresh%>"> -% } - -<link rel="stylesheet" href="<%$RT::WebPath%>/NoAuth/webrt.css" type="text/css"> -</HEAD> -<BODY BGCOLOR="<%$BgColor%>"> -% if ($ShowBar) { -<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 BGCOLOR="#993333"> -<TR VALIGN=TOP> -<TD><IMG SRC="<%$RT::LogoURL%>" alt="RT"></TD> -<TD VALIGN=CENTER ALIGN=LEFT> -<font size=+2 color="#ffffff"> -<B> -<%$Title%> -</B> -</font> -</TD> -<TD ALIGN=RIGHT> -<font color="#ffffff"> -% if ($session{'CurrentUser'}) { -Signed in as <b><%$session{'CurrentUser'}->Name%></b>.<BR> -% if ($session{'CurrentUser'}->HasSystemRight('ModifySelf')) { -[<A class='inverse' HREF="<%$RT::WebPath%>/User/Prefs.html" >Preferences</A>] -% } -% unless ($RT::WebExternalAuth) { -[<A class='inverse' HREF="<%$RT::WebPath%>/NoAuth/Logout.html">Logout</a>] -% } -% } else { -Not logged in. -% } -</font> -</TD> -</TR> -</TABLE> - -<BR> -% } -<%ARGS> -$Title => 'WebRT' -$Code => undef -$Refresh => undef -$Why => undef -$BgColor => '#ffffff' -$ShowBar => 1 -</%ARGS> -<%INIT> -$Title = "RT/$RT::rtname: ".$Title; -</%INIT> - diff --git a/rt/webrt/Elements/ListActions b/rt/webrt/Elements/ListActions deleted file mode 100755 index 3fc9b0ba5..000000000 --- a/rt/webrt/Elements/ListActions +++ /dev/null @@ -1,14 +0,0 @@ -% if (@actions ) { -<& /Elements/TitleBoxStart, title => 'Results' &> -<UL> -% foreach my $action (@actions) { -% next unless ($action); -<LI><%$action%></LI> -% } -</UL> -<& /Elements/TitleBoxEnd &> -<BR> -% } -<%ARGS> -@actions => undef -</%ARGS> diff --git a/rt/webrt/Elements/Login b/rt/webrt/Elements/Login deleted file mode 100755 index 27ec98281..000000000 --- a/rt/webrt/Elements/Login +++ /dev/null @@ -1,69 +0,0 @@ -<& /Elements/Header, Title=>"Login" , &> - -<DIV ALIGN=CENTER> -% if ($Error) { -<& /Elements/TitleBoxStart, title => 'Error' &> -<% $Error %> -<& /Elements/TitleBoxEnd &> -% } -<BR> -<& /Elements/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for $RT::rtname", title => 'Login' , -contentbg=>"#cccccc" &> - - -% unless ($RT::WebExternalAuth) { -<FORM METHOD=POST > -<TABLE BORDER=0 WIDTH=100%> -<TR ALIGN=RIGHT> -<TD ALIGN=RIGHT>Username:</TD><TD ALIGN=LEFT><input name=user value="<%$user%>"></TD></TR> -<TR><TD ALIGN=RIGHT>Password:</TD><TD ALIGN=LEFT><input type=password name=pass></TD></TR> -<TR><TD colspan=2 align=right> -<input type=submit Value="Login"> -</TD></TR> -</TABLE> -<&/Elements/TitleBoxEnd&> -% # From mason 1.0.1 forward, this doesn't work. in fact, it breaks things. -% if (0) { -% # The code below iterates through everything in the passed in arguments -% # Preserving all the old parameters -% # This would be easier, except mason is 'smart' and calls multiple values -% # arrays rather than multiple hash keys -% my $key; my $val; -% foreach $key (keys %ARGS) { -% if (($key ne 'user') and ($key ne 'pass')) { -% if (ref($ARGS{$key}) =~ /ARRAY/) { -% foreach $val (@{$ARGS{$key}}) { -<input type=hidden name="<%$key %>" value="<% $val %>"> -% } -% } -% else { -<input type="hidden" name="<% $key %>" value="<% $ARGS{$key} %>"> -% } -% } -%} -% } -</FORM> -% } -</DIV> - -<BR> -<!-- TODO: not yet implemented -If you've forgotten your username or password, RT can <A -href="/NoAuth/Reminder.html">send you a reminder</a>. ---> -<BR> -<HR> -RT is © Copyright 1996-2002 Jesse Vincent <jesse@bestpractical.com>. It is -distributed under <a href="http://www.gnu.org/copyleft/gpl.html">Version 2 of the GNU General Public License.</a> - - -<%ARGS> -$user => "" -$pass => undef -$goto => undef -$Error => undef -</%ARGS> - -<%INIT> -SetContentType('text/html'); -</%INIT> diff --git a/rt/webrt/Elements/MessageBox b/rt/webrt/Elements/MessageBox deleted file mode 100644 index aa081a380..000000000 --- a/rt/webrt/Elements/MessageBox +++ /dev/null @@ -1,30 +0,0 @@ -<TEXTAREA COLS=<%$Width%> ROWS=15 WRAP=HARD NAME="<%$Name%>"><% $Default %><%$message%><%$signature%></TEXTAREA> -<%INIT> - -my ($message); - -if ($MessageURI) { - my $code; - ($code, $Default)=RT::Link->GetContent($MessageURI); -} -if ($QuoteTransaction) { - my $transaction=RT::Transaction->new($session{'CurrentUser'}); - $transaction->Load($QuoteTransaction); - $message=$transaction->Content(Quote => 1); -} - -my $signature = ''; -if ($session{'CurrentUser'}->UserObj->Signature) { - $signature = "-- \n".$session{'CurrentUser'}->UserObj->Signature; -} - -</%INIT> -<%ARGS> -$QuoteTransaction => undef -$Name => 'Content' -$Default => '' -$DefaultURI => undef -$Width => 72 -$MessageURI => undef -</%ARGS> - diff --git a/rt/webrt/Elements/MyRequests b/rt/webrt/Elements/MyRequests deleted file mode 100644 index 67817296c..000000000 --- a/rt/webrt/Elements/MyRequests +++ /dev/null @@ -1,45 +0,0 @@ -<& /Elements/TitleBoxStart, title => "25 highest priority tickets I requested..." &> -<TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%> -<TR> -<TH align=right>#</TH> -<TH align=left>Subject</TH> -<TH align=left>Queue</TH> -<TH align=left>Status</TH> -<TH align=left>Owner</TH> -<TH> </TH> -</TR> -% while (my $Ticket = $MyTickets->Next) { -<TR> -<TD ALIGN=RIGHT> -<%$Ticket->Id%> -</TD> -<TD> -<A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>"> -<%$Ticket->Subject || '[no subject]'%> -</A> -</TD> -<TD> -<%$Ticket->QueueObj->Name%> -</TD><TD> -<%$Ticket->Status%> -</TD><TD> -<%$Ticket->OwnerObj->Name%> -</TD><TD ALIGN=RIGHT> -[<A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>">Display</A>] -</TD> -</TR> -% } -</TABLE> -<& /Elements/TitleBoxEnd &> - - -<%INIT> -my $MyTickets; -$MyTickets = new RT::Tickets ($session{'CurrentUser'}); -$MyTickets->LimitRequestor(VALUE => $session{'CurrentUser'}->EmailAddress); -$MyTickets->LimitStatus(VALUE => "open"); -$MyTickets->LimitStatus(VALUE => "new"); -$MyTickets->OrderBy(FIELD => 'Priority', ORDER => 'DESC'); -$MyTickets->RowsPerPage(25); - -</%INIT> diff --git a/rt/webrt/Elements/MyTickets b/rt/webrt/Elements/MyTickets deleted file mode 100644 index 64a2ba7cc..000000000 --- a/rt/webrt/Elements/MyTickets +++ /dev/null @@ -1,43 +0,0 @@ -<& /Elements/TitleBoxStart, title => "25 highest priority tickets I own..." &> -<TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%> -<TR> -<TH ALIGN=RIGHT>#</TH> -<TH ALIGN=LEFT>Subject</TH> -<TH ALIGN=LEFT>Queue</TH> -<TH ALIGN=LEFT>Status</TH> -<TH ALIGN=LEFT> </TH> -</TR> -% while (my $Ticket = $MyTickets->Next) { -<TR> -<TD ALIGN=RIGHT> -<%$Ticket->Id%> -</TD> -<TD> -<A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>"> -<%$Ticket->Subject || '[no subject]'%> -</A> -</TD> -<TD> -<%$Ticket->QueueObj->Name%> -</TD><TD> -<%$Ticket->Status%> -</TD> -<TD ALIGN=RIGHT> -[<A HREF="<% $RT::WebPath %>/Ticket/Update.html?id=<%$Ticket->Id%>">Update</A>] -</TD> -</TR> -% } -</TABLE> -<& /Elements/TitleBoxEnd &> - - -<%INIT> -my $MyTickets; -$MyTickets = new RT::Tickets ($session{'CurrentUser'}); -$MyTickets->LimitOwner(VALUE => $session{'CurrentUser'}->Id); -$MyTickets->LimitStatus(VALUE => "open"); -$MyTickets->LimitStatus(VALUE => "new"); -$MyTickets->OrderBy(FIELD => 'Priority', ORDER => 'DESC'); -$MyTickets->RowsPerPage(25); - -</%INIT> diff --git a/rt/webrt/Elements/Quicksearch b/rt/webrt/Elements/Quicksearch deleted file mode 100644 index d44c996fa..000000000 --- a/rt/webrt/Elements/Quicksearch +++ /dev/null @@ -1,41 +0,0 @@ -<& /Elements/TitleBoxStart, title => "Find new/open tickets", titleright => "<A class='inverse' href=\"$RT::WebPath/Search/Listing.html?NewSearch=1\">Advanced Search</A>" &> - -<TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%> -<tr> - <th align=left>Queue</th> - <th align=left><font size=-1>New</font></th> - <th align=left><font size=-1>Open</font></th> - <th align=left><font size=-1>Stalled</font></th> -</tr> - -<%PERL> -while (my $queue = $Queues->Next) { - $Tickets->ClearRestrictions; - $Tickets->LimitStatus(VALUE => "open"); - $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '='); - my $open = $Tickets->Count(); - - $Tickets->ClearRestrictions; - $Tickets->LimitStatus(VALUE => "new"); - $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '='); - my $new = $Tickets->Count(); - - $Tickets->ClearRestrictions; - $Tickets->LimitStatus(VALUE => "stalled"); - $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '='); - my $stalled = $Tickets->Count(); -</%PERL> -<TR><TD><A HREF="<% $RT::WebPath%>/Search/Listing.html?ValueOfStatus=open&ValueOfStatus=new&StatusOp=%3D&QueueOp=%3D&ValueOfQueue=<%$queue->Id%>&RowsPerPage=50&NewSearch=1"><%$queue->Name%></a></TD> -<TD><%$new%></TD> -<TD><%$open%></TD> -<TD><%$stalled%></TD> -</TR> -% } -</TABLE> -<& /Elements/TitleBoxEnd &> - -<%INIT> -my $Queues = new RT::Queues($session{'CurrentUser'}); -$Queues->UnLimit(); -my $Tickets = new RT::Tickets ($session{'CurrentUser'}); -</%INIT> diff --git a/rt/webrt/Elements/Refresh b/rt/webrt/Elements/Refresh deleted file mode 100644 index 6949d8c24..000000000 --- a/rt/webrt/Elements/Refresh +++ /dev/null @@ -1,22 +0,0 @@ -<SELECT NAME="<%$Name%>"> -<OPTION VALUE="-1" -%unless ($Default) { - SELECTED -%} ->Don't refresh this page.</OPTION> -%foreach my $value (@refreshevery) { -<OPTION VALUE="<%$value%>" -% if ($value == $Default) { -SELECTED -% } ->Refresh this page every <%$value/60%> minutes. -%} -</SELECT> - -<%INIT> -my @refreshevery = qw(120 300 600 1200 3600 7200); -</%INIT> -<%ARGS> -$Name => undef -$Default => undef -</%ARGS> diff --git a/rt/webrt/Elements/Section b/rt/webrt/Elements/Section deleted file mode 100755 index 067311d9e..000000000 --- a/rt/webrt/Elements/Section +++ /dev/null @@ -1,11 +0,0 @@ -<TABLE WIDTH=100%> -<TR> -<TD> -<font size=+4><%$title%></font> -</TD> -</TR> -</TABLE> - -<%ARGS> -$title => undef -</%ARGS>
\ No newline at end of file diff --git a/rt/webrt/Elements/SelectBoolean b/rt/webrt/Elements/SelectBoolean deleted file mode 100755 index 93b78ce76..000000000 --- a/rt/webrt/Elements/SelectBoolean +++ /dev/null @@ -1,24 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectBoolean,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="<%$TrueVal%>" <%$TrueDefault%>><%$True%></OPTION> -<OPTION VALUE="<%$FalseVal%>" <%$FalseDefault%>><%$False%></OPTION> -</SELECT> - -<%ARGS> -$Name => undef -$True => "is" -$Default => 'true' -$TrueVal => 1 -$FalseVal => 0 -$False => "isn't" -</%ARGS> - -<%INIT> -my ($TrueDefault, $FalseDefault); -if ($Default && $Default !~ /true/i) { - $FalseDefault = "SELECTED"; -} -else { - $TrueDefault = "SELECTED"; -} -</%INIT> diff --git a/rt/webrt/Elements/SelectDate b/rt/webrt/Elements/SelectDate deleted file mode 100755 index 6fafbf170..000000000 --- a/rt/webrt/Elements/SelectDate +++ /dev/null @@ -1,25 +0,0 @@ -<INPUT NAME="<%$Name%>" VALUE="<%$Default%>" size=16> - -<%init> -unless ((defined $Default) or - ($current <= 0)) { - my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = - localtime($current); - $Default = sprintf("%04d-%02d-%02d %02d:%02d", - $year+1900,$mon+1,$mday, - $hour,$min); -} - -unless ($Name) { - $Name = $menu_prefix. "_Date"; -} -</%init> - -<%args> - -$ShowTime => undef -$menu_prefix=>'' -$current=>time -$Default => undef -$Name => undef -</%args> diff --git a/rt/webrt/Elements/SelectDateRelation b/rt/webrt/Elements/SelectDateRelation deleted file mode 100755 index c5849c8e2..000000000 --- a/rt/webrt/Elements/SelectDateRelation +++ /dev/null @@ -1,14 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectDateRelation,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="<"><%$Before%></OPTION> -<OPTION VALUE="="><%$On%></OPTION> -<OPTION VALUE=">"><%$After%></OPTION> -</SELECT> - -<%ARGS> -$Name => undef -$Default => undef -$Before => 'Before' -$On => 'On' -$After => 'After' -</%ARGS> diff --git a/rt/webrt/Elements/SelectDateType b/rt/webrt/Elements/SelectDateType deleted file mode 100755 index 65c0e9b4b..000000000 --- a/rt/webrt/Elements/SelectDateType +++ /dev/null @@ -1,12 +0,0 @@ -<SELECT NAME="<%$Name%>"> -<OPTION VALUE="Created">Created</OPTION> -<OPTION VALUE="Started">Started</OPTION> -<OPTION VALUE="Resolved">Resolved</OPTION> -<OPTION VALUE="Told">Last Contacted</OPTION> -<OPTION VALUE="LastUpdated">Last Updated</OPTION> -<OPTION VALUE="StartsBy">Starts By</OPTION> -<OPTION VALUE="Due">Due</OPTION> -</SELECT> -<%ARGS> -$Name => 'DateType' -</%ARGS> diff --git a/rt/webrt/Elements/SelectEqualityOperator b/rt/webrt/Elements/SelectEqualityOperator deleted file mode 100755 index f93dc1af2..000000000 --- a/rt/webrt/Elements/SelectEqualityOperator +++ /dev/null @@ -1,18 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectEqualityOperator,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<SELECT NAME ="<%$Name%>"> -% while (my $option = shift @Options) { -% my $value = shift @Values; -<OPTION VALUE="<%$value%>" -% if ($Default eq '$value') { -SELECTED -% } -><%$option%></OPTION> -% } -</SELECT> - -<%ARGS> -$Name => undef -@Options => ('less than', 'equal to', 'greater than', 'not equal to') -@Values => qw(< = > !=) -$Default => undef -</%ARGS> diff --git a/rt/webrt/Elements/SelectKeyword b/rt/webrt/Elements/SelectKeyword deleted file mode 100644 index c4bd9e1aa..000000000 --- a/rt/webrt/Elements/SelectKeyword +++ /dev/null @@ -1,38 +0,0 @@ -<SELECT NAME=<%$Name%> <%$Size%> <%$Multiple%>> -<OPTION VALUE="">-</OPTION> -<OPTION VALUE="NULL">(empty)</OPTION> -% foreach my $kid ( keys %{$Descendents} ) { -<OPTION VALUE="<% $kid %>" -%if ($kid == $Default) { -SELECTED -%} -><% $Descendents->{$kid} %></OPTION> -% } -</SELECT> - - -<%INIT> - -unless (defined $KeywordObj) { - $KeywordObj = new RT::Keyword($session{'CurrentUser'}); - $KeywordObj->Load($Root); -} -my $Descendents = $KeywordObj->Descendents(); - -if ($Multiple) { - $Multiple = "MULTIPLE"; -} -if ($Size) { - $Size="SIZE=$Size"; -} - - -</%INIT> -<%ARGS> -$Multiple => undef -$Size => undef -$Name => 'Keyword' -$KeywordObj => undef -$Root => 0 -$Default => undef -</%ARGS> diff --git a/rt/webrt/Elements/SelectKeywordOptions b/rt/webrt/Elements/SelectKeywordOptions deleted file mode 100644 index f56dfe52c..000000000 --- a/rt/webrt/Elements/SelectKeywordOptions +++ /dev/null @@ -1,18 +0,0 @@ -<PERL> -while (my $keyword = $keywords->Next()) { - my ($selected); - if $keyword->Id == $default -</PERL> -<OPTION VALUE="<%$keyword->id%>"><% '-' x $depth %><%$keyword->Name%></OPTION> -<& SelectKeywordOptions, depth => ($depth+1), root => $keyword->id &> -%} -<%INIT> - -my $keywords = new RT::Keywords($session{'CurrentUser'}); -$keywords->LimitToParent($root); - -</%INIT> -<%ARGS> -$root => undef -$depth => 0 -</%ARGS>
\ No newline at end of file diff --git a/rt/webrt/Elements/SelectLinkType b/rt/webrt/Elements/SelectLinkType deleted file mode 100644 index 22cde3dff..000000000 --- a/rt/webrt/Elements/SelectLinkType +++ /dev/null @@ -1,16 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectLinkType,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -<SELECT NAME ="<%$Name%>"> -% foreach ('MemberOf', 'DependsOn', 'RefersTo') { # TODO: Merging! -<OPTION VALUE="<%$_%>"><%$_%></OPTION> -% } -</SELECT> - -<%ARGS> -$Name => "LinkType" -$Default => undef -</%ARGS> - -<%INIT> -# TODO handle Default -</%INIT> diff --git a/rt/webrt/Elements/SelectMatch b/rt/webrt/Elements/SelectMatch deleted file mode 100644 index 7f3a94fae..000000000 --- a/rt/webrt/Elements/SelectMatch +++ /dev/null @@ -1,31 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectMatch,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="LIKE" <%$LikeDefault%>><%$Like%></OPTION> -<OPTION VALUE="NOT LIKE" <%$NotLikeDefault%>><%$NotLike%></OPTION> -<OPTION VALUE="=" <%$TrueDefault%>><%$True%></OPTION> -<OPTION VALUE="!=" <%$FalseDefault%>><%$False%></OPTION> -</SELECT> - -<%ARGS> -$Name => undef -$Like => 'contains' -$NotLike => "doesn't contain" -$True => 'is' -$False => "isn't" -$Default => undef -</%ARGS> -<%INIT> -my ($TrueDefault, $FalseDefault, $LikeDefault, $NotLikeDefault); -if ($Default && $Default !~ /true/i) { - $FalseDefault = "SELECTED"; -} -elsif ($Default && $Default !~ /false/i) { - $TrueDefault = "SELECTED"; -} -elsif ($Default && $Default !~ /notlike/i) { - $NotLikeDefault = "SELECTED"; -} -else { - $LikeDefault = "SELECTED"; -} -</%INIT> diff --git a/rt/webrt/Elements/SelectNewTicketQueue b/rt/webrt/Elements/SelectNewTicketQueue deleted file mode 100755 index 9f5cd2871..000000000 --- a/rt/webrt/Elements/SelectNewTicketQueue +++ /dev/null @@ -1,9 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectNewTicketQueue,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<& SelectQueue, Name => $Name, Verbose => $Verbose, Default => $Default, - ShowAllQueues => 0, ShowNullOption => 0 &> - -<%ARGS> -$Name => 'Queue' -$Verbose => undef -$Default => undef -</%ARGS> diff --git a/rt/webrt/Elements/SelectOwner b/rt/webrt/Elements/SelectOwner deleted file mode 100755 index 59ebf3631..000000000 --- a/rt/webrt/Elements/SelectOwner +++ /dev/null @@ -1,22 +0,0 @@ -<SELECT NAME="<%$Name%>"> -<OPTION VALUE="">-</OPTION> -<OPTION <% ($RT::Nobody->Id() == $Default) && "SELECTED" %> VALUE="<%$RT::Nobody->Id%>"><%$RT::Nobody->Name%></OPTION> -%while ( my $User = $Users->Next()) { -% if ((!defined $QueueObj) || ($User->HasQueueRight(Right => 'OwnTicket', QueueObj => $QueueObj, TicketObj => $TicketObj))){ -<OPTION VALUE="<%$User->Id()%>" <% ($User->Id() == $Default) && "SELECTED" %>><%$User->Name()%></OPTION> -% } -%} -</SELECT> - -<%INIT> -my $Users = RT::Users->new($session{CurrentUser}); -$Users->LimitToPrivileged; -</%INIT> - -<%ARGS> -$QueueObj => undef -$Name => undef -$Default => undef -$User => undef -$TicketObj => undef -</%ARGS> diff --git a/rt/webrt/Elements/SelectQueue b/rt/webrt/Elements/SelectQueue deleted file mode 100755 index d63b17b4e..000000000 --- a/rt/webrt/Elements/SelectQueue +++ /dev/null @@ -1,38 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectQueue,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -% if ($Lite) { -<INPUT NAME="<%$Name%>" size=25 DEFAULT="<%$d->Name%>"> -% } else { -<SELECT NAME ="<%$Name%>"> -% if ($ShowNullOption) { -<OPTION VALUE="">-</OPTION> -% } -% while (my $queue=$q->Next) { -% if ($ShowAllQueues || $queue->CurrentUserHasRight('CreateTicket')) { -<OPTION VALUE="<%$queue->Id%>" <%($queue->Id == $Default) && 'SELECTED'%>><%$queue->Name%> -% if (($Verbose) and ($queue->Description) ){ -(<%$queue->Description%>) -% } -</OPTION> -% } -% } -</SELECT> -% } -<%ARGS> -$ShowNullOption => 1 -$ShowAllQueues => 1 -$Name => undef -$Verbose => undef -$Default => undef -$Lite => 0 -</%ARGS> - -<%INIT> - -my $q=new RT::Queues($session{'CurrentUser'}); -$q->UnLimit; - -my $d = new RT::Queue($session{'CurrentUser'}); -$d->Load($Default); - -</%INIT> diff --git a/rt/webrt/Elements/SelectResultsPerPage b/rt/webrt/Elements/SelectResultsPerPage deleted file mode 100644 index 0699c6868..000000000 --- a/rt/webrt/Elements/SelectResultsPerPage +++ /dev/null @@ -1,22 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectResultsPerPage,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -%# TODO: Better default handling - -<SELECT NAME ="<%$Name%>"> -% foreach my $value (@values) { -<OPTION VALUE="<%$value%>" <% $value == $Default && 'SELECTED' %>> -<% shift @labels %> -</OPTION> -% } -</SELECT> - -<%INIT> -my @values = qw(0 10 25 50 100); -my @labels = qw(Unlimited 10 25 50 100); -</%INIT> -<%ARGS> - -$Name => undef -$Default => 50 - -</%ARGS> diff --git a/rt/webrt/Elements/SelectSortOrder b/rt/webrt/Elements/SelectSortOrder deleted file mode 100644 index 6dc900631..000000000 --- a/rt/webrt/Elements/SelectSortOrder +++ /dev/null @@ -1,18 +0,0 @@ -<SELECT NAME="<%$Name%>"> -%foreach my $order (@orders) { -<OPTION VALUE="<%$order%>" <%$order eq $Default && 'SELECTED' %>> -<% shift @order_names %> -</OPTION> -% } -</SELECT> - -<%INIT> -my @orders = qw (ASC DESC); -my @order_names = qw (Ascending Descending); - -</%INIT> - -<%ARGS> -$Name => 'SortOrder' -$Default => 'ASC' -</%ARGS> diff --git a/rt/webrt/Elements/SelectStatus b/rt/webrt/Elements/SelectStatus deleted file mode 100755 index 92df7c619..000000000 --- a/rt/webrt/Elements/SelectStatus +++ /dev/null @@ -1,17 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectStatus,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="">-</OPTION> -%foreach my $status (@status) { -<OPTION VALUE="<%$status%>" <%($Default eq $status) && 'SELECTED'%>><%$status%></OPTION> -% } -</SELECT> -<%ONCE> -my $queue = new RT::Queue($session{'CurrentUser'}); -my @status = $queue->StatusArray(); -</%ONCE> -<%ARGS> -$Name => undef -$Default => undef - -</%ARGS> diff --git a/rt/webrt/Elements/SelectTicketSortBy b/rt/webrt/Elements/SelectTicketSortBy deleted file mode 100644 index 02021decc..000000000 --- a/rt/webrt/Elements/SelectTicketSortBy +++ /dev/null @@ -1,15 +0,0 @@ -<SELECT NAME="<%$Name%>"> -% foreach my $field (@sortfields) { -<OPTION VALUE="<%$field%>" <%$field eq $Default && 'SELECTED'%>><%$field%></OPTION> -% } -</SELECT> - -<%INIT> -my $tickets = new RT::Tickets($session{'CurrentUser'}); -my @sortfields = $tickets->SortFields(); - -</%INIT> -<%ARGS> -$Name => 'SortTicketsBy' -$Default => 'id' -</%ARGS> diff --git a/rt/webrt/Elements/SelectUsers b/rt/webrt/Elements/SelectUsers deleted file mode 100755 index f517d3510..000000000 --- a/rt/webrt/Elements/SelectUsers +++ /dev/null @@ -1,8 +0,0 @@ -<select name="UserField"> -<option value="Name">User Id -<option value="EmailAddress">Email -<option value="RealName">Name -<option value="Organization">Organization -</select> -<& /Elements/SelectMatch, Name=> 'UserOp' &> -<input size=8 name="UserString"> diff --git a/rt/webrt/Elements/SelectWatcherType b/rt/webrt/Elements/SelectWatcherType deleted file mode 100644 index 5a855192c..000000000 --- a/rt/webrt/Elements/SelectWatcherType +++ /dev/null @@ -1,26 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectWatcherType,v 1.1 2002-08-12 06:17:08 ivan Exp $ -%# portions Copyright 2000 Tobias Brox <tobix@fsck.com> -%# Request Tracker is Copyright 1996-2000 Jesse Vincent <jesse@fsck.com> - -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="none">-</OPTION> -%# Make nice options: -%for my $option (@types) { -<OPTION VALUE="<%$option%>" <%$option eq $Default && "SELECTED"%>><%$option%></OPTION> -%} -</SELECT> - -<%INIT> -my @types; -if ($Scope =~ 'queue') { - @types = qw(Cc AdminCc); -} -else { - @types = qw(Requestor Cc AdminCc); -} -</%INIT> -<%ARGS> -$Default=>undef -$Scope => 'ticket' -$Name => 'WatcherType' -</%ARGS> diff --git a/rt/webrt/Elements/ShadedBox b/rt/webrt/Elements/ShadedBox deleted file mode 100755 index 334b57975..000000000 --- a/rt/webrt/Elements/ShadedBox +++ /dev/null @@ -1,5 +0,0 @@ -<div align="left"><span class=label><%$title |n %></span><br><b><%$content |n %></b></div> -<%ARGS> -$title => undef -$content => " " -</%ARGS> diff --git a/rt/webrt/Elements/Submit b/rt/webrt/Elements/Submit deleted file mode 100755 index 7b75e9e98..000000000 --- a/rt/webrt/Elements/Submit +++ /dev/null @@ -1,44 +0,0 @@ -<TABLE WIDTH=100% BGCOLOR="<%$color%>" CELLSPACING=0 BORDER=0 CELLPADDING=0 > -<TR> -% if ($Reset) { -<TD> -<FONT COLOR=#ffd800 > -<INPUT TYPE=RESET VALUE="<%$ResetLabel%>"> -</FONT> -</TD> -%} -<TD> - -</TD> -<TD ALIGN=RIGHT VALIGN=CENTER> - -<FONT COLOR=#ffd800> - -% if ($AlternateLabel) { -<B><%$AlternateCaption%> -<INPUT TYPE=SUBMIT -%if ($Name) { -NAME="<%$Name%>" -%} -VALUE='<%$AlternateLabel%>'></B> -% } - -<B><%$Caption%> -<INPUT TYPE=SUBMIT -%if ($Name) { -NAME="<%$Name%>" -% } - VALUE='<%$Label%>'></B></FONT> -</TD> -</TR> -</TABLE> -<%ARGS> -$color => "#336699" -$Caption => undef -$AlternateCaption => undef -$AlternateLabel => undef -$Label => 'Submit' -$Name => undef -$Reset => undef -$ResetLabel => 'Reset' -</%ARGS> diff --git a/rt/webrt/Elements/Tabs b/rt/webrt/Elements/Tabs deleted file mode 100755 index 6eacf391a..000000000 --- a/rt/webrt/Elements/Tabs +++ /dev/null @@ -1,133 +0,0 @@ -<TABLE WIDTH=100%> - <TR> - <TD VALIGN=TOP> - <TABLE cellspacing=1> - <TR> -% foreach $tab (sort keys %{$toptabs}) { - <TD ALIGN=CENTER> - <font size=+1> - [<A -% if ($current_toptab eq $toptabs->{$tab}->{'path'}) { -class='currenttab' -% } - HREF="<%$RT::WebPath%>/<% $toptabs->{$tab}->{'path'}%>"><% $toptabs->{$tab}->{'title'}%></A>] - - - </font> - </TD> -% } - </TR> - </TABLE> -<BR> -% if ($tabs_scalar) { -<% $tabs_scalar |n%> -% } -% if ($tabs) { - - <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0> - <TR> -% foreach $tab (sort keys %{$tabs}) { - <TD ALIGN=CENTER VALIGN=TOP> -[<A -% if ($current_tab eq $tabs->{$tab}->{'path'}) { -class='currenttab' -% } -HREF="<%$RT::WebPath%>/<% $tabs->{$tab}->{'path'}%>"><% $tabs->{$tab}->{'title'}%></A>]</TD> -%} - </TR> - </TABLE> -%} - -<BR> -% if ($subtabs_scalar) { -<% $subtabs_scalar |n%> -% } -% if ($subtabs) { - <TABLE> - <TR> -% foreach $tab (sort keys %{$subtabs}) { - <TD ALIGN=CENTER> - [<A HREF="<%$RT::WebPath%>/<% $subtabs->{$tab}->{'path'}%>"><% $subtabs->{$tab}->{'title'}%></A>] - </TD> -%} - </TR> - </TABLE> -%} - </TD> - <TD VALIGN=TOP ALIGN=RIGHT> -<TABLE> -<TR> - -% foreach $action (sort keys %{$topactions}) { -<TD><font size=-1><%$topactions->{"$action"}->{'html'} |n %></font></TD> -% } -</TR> -</TABLE> - - - -% if ($actions) { -<TABLE><TR> -% foreach $action (sort keys %{$actions}) { -<TD> -<FONT SIZE=-1> -% if ($actions->{"$action"}->{'html'}) { -<%$actions->{"$action"}->{'html'} |n%> -% } else { -<A HREF="<%$RT::WebPath%>/<% $actions->{$action}->{'path'}%>"><% $actions->{$action}->{'title'}%></A> -% } -</FONT> -</TD> -% } -</TR></TABLE> -% } - -% if ($subactions_scalar) { -<% $subactions_scalar |n%> -% } -% if ($subactions) { -<BR>| -% foreach $action (sort keys %{$subactions}) { -<%$subactions->{"$action"}->{'html'} |n%> | -% } -% } - </TD> - </TR> - </TABLE> - - -<%INIT> -my ($tab, $action); -my $toptabs = { A => { title => 'Home', - path => '', - }, - B => { title => 'Search', - path => 'Search/Listing.html' - }, - - D => { title => 'Configuration', - path => 'Admin/' - } - }; - - -my $topactions = { - A => { html => $m->scomp('/Elements/CreateTicket') - }, - B => { html => $m->scomp('/Elements/GotoTicket') - } - }; -</%INIT> -<%ARGS> -$current_toptab => "none" -$current_tab => "none" -$current_subtab => "none" -$tabs => undef -$tabs_scalar => undef -$subtabs => undef -$actions => undef -$subactions => undef -$subtabs_scalar => undef -$subactions_scalar => undef -</%ARGS> - diff --git a/rt/webrt/Elements/TitleBoxEnd b/rt/webrt/Elements/TitleBoxEnd deleted file mode 100755 index bdd41065a..000000000 --- a/rt/webrt/Elements/TitleBoxEnd +++ /dev/null @@ -1,10 +0,0 @@ -</TD></TR></TABLE> -</TD> -</TR> -<TR><TD COLSPAN=4><IMG SRC="<%$RT::WebImagesURL%>spacer.gif" height=1 ALT=" "width=1></TD> -</TABLE> -<%ARGS> -$title => undef -$content => undef -</%ARGS> - diff --git a/rt/webrt/Elements/TitleBoxStart b/rt/webrt/Elements/TitleBoxStart deleted file mode 100755 index 6d0f1f91a..000000000 --- a/rt/webrt/Elements/TitleBoxStart +++ /dev/null @@ -1,20 +0,0 @@ -<TABLE CLASS="<%$class%>" BGCOLOR="<%$color%>" CELLSPACING=0 BORDER=0 CELLPADDING=0 WIDTH="<%$width%>"> -<TR><TD ROWSPAN=2><IMG SRC="<%$RT::WebImagesURL%>spacer.gif" width=1 height=1 ALT=""></TD> -<TD valign=middle align=left bgcolor="<%$color%>"> <font size=-1 color="#ffffff"><b><% $title_href && "<A CLASS=\"$title_class\" HREF=\"$title_href\">"|n%><%$title |n %><% $title_href && "</A>" |n%></b></font></TD> -<TD ALIGN="right" valign=middle bgcolor="<%$color%>"><FONT color="#ffffff" SIZE=-1><%$titleright |n %></FONT> </TD> -<TD ROWSPAN=2><IMG SRC="<%$RT::WebImagesURL%>spacer.gif" width=1 height=1 ALT=""></TD></TR> -<TR><TD COLSPAN=2 bgcolor="<%$contentbg%>" valign=top align=left WIDTH=100%> -<TABLE CELLPADDING=2 WIDTH=100%><TR><TD> -<%ARGS> -$width => "100%" -$class => undef - -$title_href => undef -$title => undef -$title_class => undef - -$titleright_href => undef -$titleright => undef -$contentbg => "#dddddd" -$color => "#336699" -</%ARGS> diff --git a/rt/webrt/Elements/ViewUser b/rt/webrt/Elements/ViewUser deleted file mode 100644 index 92446e6ef..000000000 --- a/rt/webrt/Elements/ViewUser +++ /dev/null @@ -1,29 +0,0 @@ - -<& /Elements/TitleBoxStart, - title => "<a class='inverse' href=\"$RT::WebPath/Search/Listing.html?LimitRequestorById=1&IdOfRequestor=".$User->id."\">Tickets from $name</a>", - titleright=> "<a class='inverse' href=\"$RT::WebPath/EditUserComments.html?id=".$User->id."\">Comments about $name</a>" &> -<TABLE WIDTH="100%"> -<tr> -<td halign=left valign=top> -%while (my $w=$tickets->Next) { -<%$w->Id%>: <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$w->id%>"><%$w->Subject%></a> (<%$w->Status%>)<BR> -%} -</td> -<td align=right valign=top> - <% ($User->Comments || "No comment entered about this user") %> -</tr> -</table> -<& /Elements/TitleBoxEnd &> - -<%ARGS> -$User=>undef -</%ARGS> - -<%INIT> -my $name=$User->RealName || $User->EmailAddress; - -my $tickets = new RT::Tickets($session{'CurrentUser'}); -$tickets->LimitRequestor(VALUE => $User->EmailAddress); - - -</%INIT> diff --git a/rt/webrt/Elements/dayMenu b/rt/webrt/Elements/dayMenu deleted file mode 100755 index 6591b05d2..000000000 --- a/rt/webrt/Elements/dayMenu +++ /dev/null @@ -1,19 +0,0 @@ -<%doc>------------------------------------------------------------------- -dayMenu: Display a pulldown menu of days of the month (1 to 31) - -Optional arguments: -$menu_name - Name of menu, defaults to 'day' -$current - Selected day value (1 to 31) --------------------------------------------------------------------</%doc> - -<select name="<% $menu_name %>"> -<option value="-1">- -% foreach my $day (1..31) { -<option value="<% $day %>" <% $day==$current ? "selected" : "" %>><% sprintf("%02d",$day) %> -% } -</select> - -<%args> -$menu_name=>'day' -$current=>undef -</%args> diff --git a/rt/webrt/Elements/monthMenu b/rt/webrt/Elements/monthMenu deleted file mode 100755 index b9a71d3f9..000000000 --- a/rt/webrt/Elements/monthMenu +++ /dev/null @@ -1,37 +0,0 @@ -<%doc>------------------------------------------------------------------- -monthMenu: Display a pulldown menu of months - -Optional arguments: -$menu_name - Name of menu, defaults to 'month' -$current - Selected month value (1 to 12) -$format - Choice of month labels: - 'full' (January, February, ...) - 'short' (Jan, Feb, ...) - 'numeric' (1, 2, ...) - Defaults to 'full'. The format only affects appearance; the menu - values are always numeric. --------------------------------------------------------------------</%doc> - -<select name="<% $menu_name %>"> -<option value="-1">- -% foreach my $month (1..12) { -<option value="<% $month %>" <% $month==$current ? "selected" : "" %>> -% if ($format eq 'full') { -<% $month_names[$month-1] %> -% } elsif ($format eq 'short') { -<% substr($month_names[$month-1],0,3) %> -% } elsif ($format eq 'numeric') { -<% sprintf("%02d",$month) %> -% } -% } -</select> - -<%init> -my @month_names = qw(January February March April May June July August September October November December); -</%init> - -<%args> -$menu_name=>'month' -$current=>undef -$format=>'full' -</%args> diff --git a/rt/webrt/Elements/yearMenu b/rt/webrt/Elements/yearMenu deleted file mode 100755 index 4a0e7a772..000000000 --- a/rt/webrt/Elements/yearMenu +++ /dev/null @@ -1,24 +0,0 @@ -<%doc>------------------------------------------------------------------- -yearMenu: Display a pulldown menu of years. - -Optional arguments: -$menu_name - Name of menu, defaults to 'year' -$current - Selected year value -$min - Minimum year appearing in menu; defaults to current year -$max - Maximum year appearing in menus; defaults to $min plus 10. --------------------------------------------------------------------</%doc> - -<select name="<% $menu_name %>"> -<option value="-1">- -% foreach my $year ($min..$max) { -<option value="<% $year %>" <% $year==$current ? "selected" : "" %>> -<% $year %> -% } -</select> - -<%args> -$menu_name=>'year' -$current=>(localtime)[5]+1900 -$min=>(localtime)[5]+1900-1 -$max=>$min+10 -</%args> diff --git a/rt/webrt/NoAuth/Logout.html b/rt/webrt/NoAuth/Logout.html deleted file mode 100755 index a00ae9675..000000000 --- a/rt/webrt/NoAuth/Logout.html +++ /dev/null @@ -1,22 +0,0 @@ -<HTML> -<HEAD> -<TITLE>RT: Logout</TITLE> - <META HTTP-EQUIV="Refresh" CONTENT="0;URL=<%$RT::WebPath%>/"> -</HEAD> -<BODY> -<p>You have been logged out of RT. - - -<br> -<br> -<A HREF="<%$RT::WebPath%>/">You're welcome to login again</a> - - -<%PERL> -if (defined %session) { - %session = undef; -} -$m->abort(); -</%PERL> - - diff --git a/rt/webrt/NoAuth/Reminder.html b/rt/webrt/NoAuth/Reminder.html deleted file mode 100755 index a814a912f..000000000 --- a/rt/webrt/NoAuth/Reminder.html +++ /dev/null @@ -1,3 +0,0 @@ -<& /Elements/Header, title => 'Password Reminder' &> - -Not yet implemented. diff --git a/rt/webrt/NoAuth/images/rt.jpg b/rt/webrt/NoAuth/images/rt.jpg Binary files differdeleted file mode 100644 index a137a932b..000000000 --- a/rt/webrt/NoAuth/images/rt.jpg +++ /dev/null diff --git a/rt/webrt/NoAuth/images/spacer.gif b/rt/webrt/NoAuth/images/spacer.gif Binary files differdeleted file mode 100644 index 5bfd67a2d..000000000 --- a/rt/webrt/NoAuth/images/spacer.gif +++ /dev/null diff --git a/rt/webrt/NoAuth/webrt.css b/rt/webrt/NoAuth/webrt.css deleted file mode 100755 index a71d05720..000000000 --- a/rt/webrt/NoAuth/webrt.css +++ /dev/null @@ -1,102 +0,0 @@ -BODY, TD {font-family: Helvetica, Arial, sans-serif} -TD {border-color: #cccccc } - -BLOCKQUOTE.message { - font-size: 80%; - font-family: "Helvetica", sans-serif; -} - - -BODY { - color: #000; - background: #FFFFFF; - font-family: "Helvetica", sans-serif; - - -} - -TD, TH { /* ns workaround */ - font-family: "Helvetica", sans-serif; -} - -TR.oddline { - background-color : #eeeeee; -} - -H1, H2, H3 { - margin-top: 0.2em; - color: #336699; - font-family: "Helvetica", sans-serif; - - clear: both; -} - - -DIV.endmatter { margin-left: -7% } - - - -A { font-weight: bold; - color: #000000; - /* border: none -- breaks NS 4.x */ } - -.currenttab { background-color: #cccccc; } - -.inverse { color: #ffffff; } - - - -A:link IMG, A:visited IMG { border-style: none } - -A IMG { color: white } /* The only way to hide the border in NS 4.x */ - -.hide { - display: none; - color: white; -} - -SPAN.date { font-size: 0.8em } - -SPAN.attribution { - font-weight: bold -} - -SPAN.label { font-size: 0.8em; -} - -BLOCKQUOTE { - font-style: italic; - /* color: #990; */ -} - -ADDRESS { - text-align: right; - font-weight: bold; - font-style: italic -} - -BLOCKQUOTE P { /* Try to avoid space above the attribution */ - margin-bottom: 0; -} -BLOCKQUOTE ADDRESS { - margin: 0; -} - -.motto, .motto A {font: italic 120%/1.3 Georgia, serif; color: #990} - -.emphasized { - font-weight: bold -} - -/* Why o why does this break Netscape 4.x? -IMG { - border: none -} -*/ - -P.map-also { font-style: italic; margin-left: 15%; text-align: right } - -.oddline { -background-color : #eeeeee; - -} 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 %> </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()" %> -%} -</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> - -<a href="Listing.html?GotoPage=Prev"><Previous page</a> - -<a href="Listing.html?GotoPage=Next">Next page></a> -%# <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> diff --git a/rt/webrt/SelfService/Attachment/dhandler b/rt/webrt/SelfService/Attachment/dhandler deleted file mode 100644 index 0d646cc0b..000000000 --- a/rt/webrt/SelfService/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; -</%perl> - diff --git a/rt/webrt/SelfService/Closed.html b/rt/webrt/SelfService/Closed.html deleted file mode 100644 index a35936092..000000000 --- a/rt/webrt/SelfService/Closed.html +++ /dev/null @@ -1,4 +0,0 @@ -<& /SelfService/Elements/Header, title => 'RT Self Service / Closed Tickets' &> - -<& /SelfService/Elements/MyRequests, status => ['resolved'], friendly_status => -'closed' &> diff --git a/rt/webrt/SelfService/Create.html b/rt/webrt/SelfService/Create.html deleted file mode 100755 index 60110cb5a..000000000 --- a/rt/webrt/SelfService/Create.html +++ /dev/null @@ -1,63 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/SelfService/Attic/Create.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com> - -<& Elements/Header, Title => "Create a request" &> - - -<FORM ACTION="Display.html" METHOD="POST" ENCTYPE="multipart/form-data"> -<INPUT TYPE=HIDDEN Name="id" VALUE="new"> -<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket" &> - -<TABLE> -<TR> -<TD> -Queue: -</TD> -<TD> -<& /Elements/SelectNewTicketQueue, Verbose => 'True' &> -</TD> -</TR> -<TR> -<TD> -Requestors: -</TD> -<TD> -<INPUT Name="Requestors" Value="<%$session{CurrentUser}->EmailAddress%>" SIZE=20> -</TD> -</TR> -<TR> -<TD> -Cc: -</TD> -<TD> - <INPUT NAME="Cc" SIZE=20> -</TD> -</TR> -<TR> -<TD> -Subject: -</TD> -<TD> -<INPUT Name="Subject" SIZE=60 MAXSIZE=100 value=""> -</TD> -</TR> -<TR> -<TD> -Attach file: -</TD> -<TD> -<INPUT Name="Attach" type=file> -</TD> -</TR> -<TR> -<TD COLSPAN=2> -Describe the issue below:<br> -<& /Elements/MessageBox &> -</TD> -</TR> -</TABLE> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, Label => "Create ticket"&> - - -</FORM> diff --git a/rt/webrt/SelfService/Display.html b/rt/webrt/SelfService/Display.html deleted file mode 100755 index 2d44f148e..000000000 --- a/rt/webrt/SelfService/Display.html +++ /dev/null @@ -1,190 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/SelfService/Attic/Display.html,v 1.1 2002-08-12 06:17:09 ivan Exp $ -%# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com> - -<& /SelfService/Elements/Header, Title => 'Display ticket #'.$Ticket->id &> - - -<& /Elements/ListActions, actions => \@results &> - -<TABLE> - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Ticket Id - </TD> - <TD> - <%$Ticket->Id%> - </TD> - </TR> - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Requestors - </TD> - <TD> - <%$Ticket->RequestorsAsString%> - </TD> - </TR> - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Cc - </TD> - <TD> - <%$Ticket->CcAsString%> - </TD> - </TR> - - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Status - </TD> - <TD> - <%$Ticket->Status%> - </TD> - </TR> - - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Queue - </TD> - <TD> - <%$Ticket->QueueObj->Name%> (<%$Ticket->QueueObj->Description%>) - </TD> - </TR> - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Priority - </TD> - <TD> - <%$Ticket->Priority %> - </TD> - </TR> - -% if ($Ticket->TimeWorked) { - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - Worked - </TD> - <TD> - <%$Ticket->TimeWorked %> minutes - </TD> - </TR> -% } - -% my $selects = $Ticket->QueueObj->KeywordSelects; -% while (my $select = $selects->Next) { - <TR> - <TD VALIGN=TOP WIDTH="20%" ALIGN=RIGHT> - <%$select->Name%> - </TD> - <TD> -% my $object_keywords = $Ticket->KeywordsObj($select->id); -% while (my $keyword = $object_keywords->Next) { - <%$keyword->KeywordObj->RelativePath($select->KeywordObj)%> -% } -%} - </TD> - </TR> - - - - - </TABLE> -<TABLE BORDER=0 CELLSPACING=0> -% my ($i); -%while (my $Transaction = $Transactions->Next) { -% $i++; -% if ($Transactions->IsLast) { - <a name="lasttrans"></a> -% } - <& /Ticket/Elements/ShowTransaction, Transaction => $Transaction, - RowNum => $i, - Ticket => $Ticket &> - -%} -</TABLE> - - -<%INIT> - -my ($field, @results); - -# {{{ Load the ticket -#If we get handed two ids, mason will make them an array. bleck. -# We want teh first one. Just because there's no other sensible way -# to deal -my @id = (ref $id eq 'ARRAY') ? @{$id} : ($id); - - -my $Ticket = new RT::Ticket($session{'CurrentUser'}); -if ($id[0] eq 'new') { - # {{{ Create a new ticket - - my $Queue = new RT::Queue($session{'CurrentUser'}); - unless ($Queue->Load($ARGS{'Queue'})) { - $m->comp('Error.html', Why => 'Queue not found'); - $m->abort; - } - - unless ($Queue->CurrentUserHasRight('CreateTicket')) { - $m->comp('Error.html', Why => 'You have no permission to create tickets in that queue.'); - $m->abort; - } - - my @Requestors = split(/,/,$ARGS{'Requestors'}); - my @Cc = split(/,/,$ARGS{'Cc'}); - - - my $MIMEObj = MakeMIMEEntity ( Subject => $ARGS{'Subject'}, - From => $ARGS{'From'}, - Cc => $ARGS{'Cc'}, - Body => $ARGS{'Content'}, - AttachmentFieldName => 'Attach'); - - #TODO in Create_Details.html: priorities and due-date - my ($id, $Trans, $ErrMsg)= $Ticket->Create(Queue=>$ARGS{Queue}, - Requestor=> \@Requestors, - Cc => \@Cc, - Subject=>$ARGS{Subject}, - MIMEObj => $MIMEObj - ); - unless ($id && $Trans) { - $m->comp('Error.html', Why => $ErrMsg); - $m->abort(); - } - - push(@results, $ErrMsg); - - # }}} -} -else { - unless ($Ticket->Load($id[0])) { - $m->comp('Error.html', Why =>"Couldn't load ticket '$id'"); - $m->abort(); - } -} -# }}} - -unless ($session{'CurrentUser'}->HasQueueRight ( TicketObj => $Ticket, - Right => 'ShowTicket')) { - $m->comp('Error.html', Why => "No permission to display that ticket"); - $m->abort(); -} - -my ($code, $msg); - -#Update the status -if ((defined $ARGS{'Status'}) and - ($ARGS{'Status'} ne $Ticket->Status)) { - ($code, $msg) = $Ticket->SetStatus($ARGS{'Status'}); - push @results, "$msg"; -} - -ProcessUpdateMessage(ARGSRef=>\%ARGS, Actions=>\@results, TicketObj=>$Ticket); - -my $Transactions = $Ticket->Transactions; - -</%INIT> - - -<%ARGS> -$id => undef -</%ARGS> diff --git a/rt/webrt/SelfService/Elements/GotoTicket b/rt/webrt/SelfService/Elements/GotoTicket deleted file mode 100755 index 0c0c8b67a..000000000 --- a/rt/webrt/SelfService/Elements/GotoTicket +++ /dev/null @@ -1 +0,0 @@ -<FORM ACTION="<%$RT::WebPath%>/SelfService/Display.html"><input type=submit value="Goto ticket"> <input size=4 name=id></FORM> diff --git a/rt/webrt/SelfService/Elements/Header b/rt/webrt/SelfService/Elements/Header deleted file mode 100755 index ecf58f461..000000000 --- a/rt/webrt/SelfService/Elements/Header +++ /dev/null @@ -1,55 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" - "http://www.w3.org/TR/REC-html40/loose.dtd"> -<HTML> -<HEAD> -<TITLE><%$Title%></TITLE> -% if ($Code) { -<META NAME="HTTP-EQUIV" VALUE="<%$Code%> <%$Why%>"> -% } - -<link rel="stylesheet" href="<%$RT::WebPath%>/NoAuth/webrt.css" type="text/css"> -</HEAD> -<BODY BGCOLOR="<%$BgColor%>"> -<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 BGCOLOR="#993333"> -<TR VALIGN=TOP> -<TD WIDTH=32> - <IMG SRC="<%$RT::LogoURL%>" alt="RT"> -</TD> -<TD VALIGN=CENTER ALIGN=LEFT> -<font size=+2 color=#ffffff> -<B> -<%$Title%> -</B> -</font> -</TD> -<TD ALIGN=RIGHT> -<font color="#ffffff"> -% if ($session{'CurrentUser'} ) { -Signed in as <b><%$session{'CurrentUser'}->Name%></b>.<BR> -% if ($session{'CurrentUser'}->HasSystemRight('ModifySelf')) { -[<A class='inverse' HREF="<%$RT::WebPath%>/SelfService/Prefs.html" >Preferences</A>] -% } -% unless ($RT::WebExternalAuth) { - [<A class='inverse' HREF="<%$RT::WebPath%>/NoAuth/Logout.html">Logout</a>] -% } -% } else { -Not logged in. -% } -</font> -</TD> -</TR> -</TABLE> - -<BR> -<& /SelfService/Elements/Tabs &> - -<%ARGS> -$Title => '' -$Code => undef -$Why => undef -$BgColor => '#ffffff' -</%ARGS> -<%INIT> -$Title = "RT/$RT::rtname: ".$Title; -</%INIT> - diff --git a/rt/webrt/SelfService/Elements/MyRequests b/rt/webrt/SelfService/Elements/MyRequests deleted file mode 100644 index ce268d58d..000000000 --- a/rt/webrt/SelfService/Elements/MyRequests +++ /dev/null @@ -1,41 +0,0 @@ -<& /Elements/TitleBoxStart, title => "Your $friendly_status requests" &> -<TABLE BORDER=0 cellspacing=1 cellpadding=1 BGCOLOR="#eeeeee" WIDTH=100%> -<TR> -<TH>Subject</TH> -<TH>Status</TH> -<TH>Owner</TH> -<TH> </TH> -</TR> -<TR> -% while (my $Ticket = $MyTickets->Next) { -<TR> -<TD> -<%$Ticket->Id%>: <%$Ticket->Subject%> -</TD> -<TD> -<%$Ticket->Status%> -</TD><TD> -<%$Ticket->OwnerObj->Name%> -</TD><TD ALIGN=RIGHT> -[<A HREF="<% $RT::WebPath %>/SelfService/Display.html?id=<%$Ticket->Id%>">Details</A>] -</TD> -</TR> -% } -</TABLE> -<& /Elements/TitleBoxEnd &> - - -<%INIT> -my $MyTickets; -$MyTickets = new RT::Tickets ($session{'CurrentUser'}); -$MyTickets->LimitRequestor(VALUE => $session{'CurrentUser'}->EmailAddress); - -foreach my $status (@status) { - - $MyTickets->LimitStatus(VALUE => $status); -} -</%INIT> -<%ARGS> -$friendly_status => 'open' -@status => ('open', 'new', 'stalled') -</%ARGS> diff --git a/rt/webrt/SelfService/Elements/Tabs b/rt/webrt/SelfService/Elements/Tabs deleted file mode 100644 index d689d8a72..000000000 --- a/rt/webrt/SelfService/Elements/Tabs +++ /dev/null @@ -1,49 +0,0 @@ -<TABLE WIDTH=100%> -<TR> -% foreach $tab (sort keys %{$tabs}) { -<TD ALIGN=CENTER> -[<A HREF="<%$RT::WebPath%>/<% $tabs->{"$tab"}->{'path'}%>"><% $tabs->{"$tab"}->{'title'}%></A>] -</TD> -%} - -% if ($actions) { - -<TD ALIGN=RIGHT> -<TABLE><TR> -% foreach my $action (sort keys %{$actions}) { -<TD> -<FONT SIZE=-1> -% if ($actions->{"$action"}->{'html'}) { -<%$actions->{"$action"}->{'html'} |n%> -% } else { -<A HREF="<%$RT::WebPath%>/<% $actions->{$action}->{'path'}%>"><% $actions->{$action}->{'title'}%></A> -% } -</FONT> -</TD> -% } -</TR> -</TABLE> -</TD> -%} -</TR> -</TABLE> -<hr> -<%INIT> -my ($tab); -my $tabs = { A => { title => 'Open requests', - path => 'SelfService/', - }, - B => { title => 'Closed requests', - path => 'SelfService/Closed.html', - }, - C => { title => 'New request', - path => 'SelfService/Create.html' - } - }; -my $actions = { - B => { html => $m->scomp('GotoTicket') - } - }; -</%INIT> - - diff --git a/rt/webrt/SelfService/Error.html b/rt/webrt/SelfService/Error.html deleted file mode 100755 index 19b79e68b..000000000 --- a/rt/webrt/SelfService/Error.html +++ /dev/null @@ -1,22 +0,0 @@ -<& /SelfService/Elements/Header, Title => 'Error' &> -<& /Elements/TitleBoxStart, title => $Title &> -<%$Why%> -<br> -<font size=-1> -<%$Details%> -</font> -<& /Elements/TitleBoxEnd &> -</body> -</HTML> - - -<%args> -$Code => undef -$Details => undef -$Title => "RT Error" -$Why => "the calling component did not specify why" -</%args> - -<%INIT> -$RT::Logger->error("WebRT: $Why ($Details)"); -</%INIT> diff --git a/rt/webrt/SelfService/Prefs.html b/rt/webrt/SelfService/Prefs.html deleted file mode 100755 index 9c614e9fd..000000000 --- a/rt/webrt/SelfService/Prefs.html +++ /dev/null @@ -1,51 +0,0 @@ -<& /SelfService/Elements/Header, title => 'Preferences' &> - -<& /Elements/ListActions, actions => \@results &> -<form method=post> - -% unless ($RT::WebExternalAuth) { -<& /Elements/TitleBoxStart, title => 'Change password' &> -New password: <input type=password name="NewPass1" size=16> -Confirm: <input type=password name="NewPass2" size=16> -<& /Elements/TitleBoxEnd &> -<BR> -% } -<& /Elements/TitleBoxStart, title => 'Signature' &> - -<TEXTAREA COLS=72 ROWS=4 WRAP=HARD NAME="Signature"><% $session{'CurrentUser'}->UserObj->Signature %></TEXTAREA> -<br> -<BR> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> - </form> - - -<%INIT> -my @results; - -if ($NewPass1) { - if ($NewPass1 ne $NewPass2) { - push (@results, "Passwords did not match."); - } - else { - my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetPassword($NewPass1); - push (@results, "Password: ".$msg); - } -} -if ($Signature) { - $Signature =~ s/(\r\n|\r)/\n/g; - if ($Signature ne $session{'CurrentUser'}->UserObj->Signature) { - my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetSignature($Signature); - push (@results, "Signature: ".$msg); - } -} -#A hack to make sure that session gets rewritten. - -$session{'i'}++; -</%INIT> - -<%ARGS> -$Signature => undef -$NewPass1 => undef -$NewPass2 => undef -</%ARGS> diff --git a/rt/webrt/SelfService/Update.html b/rt/webrt/SelfService/Update.html deleted file mode 100755 index 17f1618a3..000000000 --- a/rt/webrt/SelfService/Update.html +++ /dev/null @@ -1,40 +0,0 @@ -<& /SelfService/Elements/Header, Title => 'Update ticket #'.$Ticket->id &> - - -<FORM ACTION="Display.html" METHOD=POST ENCTYPE="multipart/form-data"> - -Status: -<& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &> -<input type=hidden name="UpdateType" value="response"> - -Subject: <input name="UpdateSubject" size=60 value="Re: <% $Ticket->Subject %>"> <br> -Attach: <input name="UpdateAttachment" type=file><br> -<& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &> - <INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"><br> - - -<& /Elements/Submit &> - </FORM> - - - -<%INIT> - -my $Ticket = LoadTicket($id); - -my $title = "Update ticket #" . $Ticket->id; - -$DefaultStatus = $Ticket->Status() unless ($DefaultStatus); - - -Abort("No permission to view update ticket") - unless ( $Ticket->CurrentUserHasRight('ReplyToTicket') or - $Ticket->CurrentUserHasRight('ModifyTicket') ); - -</%INIT> - -<%ARGS> -$id => undef -$Action => undef -$DefaultStatus => undef -</%ARGS> diff --git a/rt/webrt/SelfService/index.html b/rt/webrt/SelfService/index.html deleted file mode 100644 index a377d8cff..000000000 --- a/rt/webrt/SelfService/index.html +++ /dev/null @@ -1,3 +0,0 @@ -<& /SelfService/Elements/Header, title => 'Self Service' &> - -<& /SelfService/Elements/MyRequests &> 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; -</%perl> - 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 <jesse@fsck.com> - -<& /Elements/Header, Title => "Create a new ticket" &> -<& /Elements/Tabs, current_toptab => "Ticket/Create.html" &> -<FORM ACTION="Display.html" METHOD="POST" ENCTYPE="multipart/form-data"> -<INPUT TYPE=HIDDEN Name="id" VALUE="new"> -<A NAME="top"> - - -[<a class="currenttab">Show basics</a>] [<A HREF="#detail">Show details</a>] -<BR> -<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket"&> -<div align=right><input type=submit value="Create"></div> -<TABLE border=0 cellpadding=0 cellspacing=0> -<TR><TD>Queue</TD> -<TD><% $QueueObj->Name %> -<INPUT TYPE=HIDDEN NAME=Queue Value="<%$QueueObj->Name%>"> -</TD> -<TD>Status: -</TD> -<TD> -<& /Elements/SelectStatus, Name => "Status", Default=> 'new' &> -</TD> -<TD> -Owner: -</TD> -<TD> -<& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &> -</TD> -</TR> -<TR> -<TD> -Requestors: -</TD> -<TD COLSPAN=5> -<INPUT Name="Requestors" Value="<%$session{CurrentUser}->EmailAddress%>" SIZE=40> -</TD> -</TR> -<TR> -<TD> -Cc: -</TD> -<TD COLSPAN=5> - <INPUT NAME="Cc" SIZE=40> -</TD> -</TR> -<TR> -<TD> -Admin Cc: -</TD> -<TD COLSPAN=5> - <INPUT NAME="AdminCc" SIZE=40> -</TD> -</TR> -<TR> -<TD> -Subject: -</TD> -<TD COLSPAN=5> -<INPUT Name="Subject" SIZE=60 MAXSIZE=100 value=""> -</TD> -</TR> -<TR> -<TD> -Attach file: -</TD> -<TD COLSPAN=5> -<INPUT TYPE=FILE NAME="Attach"> -</TD> -</TR> -<TR> -<TD COLSPAN=6> -Describe the issue below:<br> -<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &> - -<BR> -</TD> -</TR> -<TR> -<TD ALIGN=RIGHT COLSPAN=2> -</TD> -</TR> -</TABLE> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, Label => "Create"&> - -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> - -<A NAME="detail"> - [<A HREF="#top">Show basics</a>] [<a class="currenttab">Show details</a>] -<BR> -<TABLE WIDTH="100%" BORDER=0> -<TR> -<TD WIDTH="50%" VALIGN=TOP> - - <& /Elements/TitleBoxStart, title => 'The Basics', - title_class=> 'inverse', - color => "#993333" &> -<TABLE BORDER=0> -<TR><TD ALIGN=RIGHT>Priority:</TD><TD><input size=3 name="InitialPriority" value="<%$QueueObj->InitialPriority%>"></TD></TR> -<TR><TD ALIGN=RIGHT>Final Priority:</TD><TD><input size=3 name="FinalPriority" value="<%$QueueObj->FinalPriority%>"></TD></TR> -<TR><TD ALIGN=RIGHT>Time Worked:</TD><TD><input size=3 name="TimeWorked"></TD></TR> -<TR><TD ALIGN=RIGHT>Time Left:</TD><TD><input size=3 name="TimeLeft"></TD></TR> -</TABLE> -<& /Elements/TitleBoxEnd &> -<BR> -<BR> - - - <& /Elements/TitleBoxStart, - title_class=> 'inverse', - title => "Keyword Selections", color => "#993300" - &> -<TABLE BORDER=0> -% while ( my $KeywordSelect = $KeywordSelects->Next ) { -% my $Descendents = $KeywordSelect->KeywordObj->Descendents; - <TR><TD ALIGN=RIGHT> - <% $KeywordSelect->Name %></TD><TD> - <INPUT TYPE="hidden" NAME="KeywordSelectMagic<% $KeywordSelect->id %>" VALUE="1"> - <SELECT NAME="KeywordSelect-<% $KeywordSelect->id %>" - <% $KeywordSelect->Single ? "" : " MULTIPLE " %> SIZE=5> -%# -%# All of this cruft is so we have a 'no keyword' selector for single -%# keywords that's only selected when there's no value. -% -% foreach my $kid ( keys %{$Descendents} ) { - <OPTION VALUE="<% $kid %>"><% $Descendents->{$kid} %></OPTION> -% } -% if ( $KeywordSelect->Single) { -<OPTION VALUE="" SELECTED>(empty)</OPTION> -% } - </SELECT> - </TD></TR> -% } - -</TABLE> -<& /Elements/TitleBoxEnd &> - -</TD> - -<TD VALIGN="TOP"> -<& /Elements/TitleBoxStart, title => "Dates", - title_class=> 'inverse', - color => "#663366" &> - -<TABLE BORDER=0> -<TR><TD ALIGN=RIGHT>Starts:</TD><TD><input size=10 name="Starts"></TD></TR> -<TR><TD ALIGN=RIGHT>Due:</TD><TD><input size=10 name="Due"></TD></TR> -</TABLE> -<& /Elements/TitleBoxEnd &> -<BR> -<& /Elements/TitleBoxStart, title => 'Relationships', - title_class=> 'inverse', - titleright => '', color=> "#336633" &> - -<i>(Enter ticket ids or URLs, seperated with spaces)</i> -<TABLE BORDER=0> -<TR><TD ALIGN=RIGHT>Depends on</TD><TD><input size=10 name="new-DependsOn"></TD></TR> -<TR><TD ALIGN=RIGHT>Depended on by</TD><TD><input size=10 name="DependsOn-new"></TD></TR> -<TR><TD ALIGN=RIGHT>Parents</TD><TD><input size=10 name="new-MemberOf"></TD></TR> -<TR><TD ALIGN=RIGHT>Children</TD><TD><input size=10 name="MemberOf-new"></TD></TR> -<TR><TD ALIGN=RIGHT>Refers to</TD><TD><input size=10 name="new-RefersTo"></TD></TR> -<TR><TD ALIGN=RIGHT>Referred to by</TD><TD><input size=10 name="RefersTo-new"></TD></TR> - - -</TABLE> -<& /Elements/TitleBoxEnd &> -<BR> - -</TD> -</TR> -</TABLE> -<& /Elements/Submit, Label => "Create"&> -</FORM> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> -<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> - -<%INIT> -my $QueueObj = new RT::Queue($session{'CurrentUser'}); -$QueueObj->Load($Queue) || Abort("Queue could not be loaded."); -my $KeywordSelects = $QueueObj->KeywordSelects; - -</%INIT> - -<%ARGS> -$DependsOn => undef -$DependedOnBy => undef -$MemberOf => undef -$QuoteTransaction => undef -$Queue => undef -</%ARGS> 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 <jesse@fsck.com> - -<& /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 &> - - -<BR> -<& /Ticket/Elements/ShowHistory , - Ticket => $Ticket, - Collapsed => $ARGS{'Collapsed'}, - ShowHeaders => $ARGS{'ShowHeaders'} &> - - -<%ARGS> -$id => undef -$Create => undef -$ShowHeaders => undef -$Collapsed => undef -</%ARGS> - -<%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-<integer> 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); -} -</%INIT> - - - - 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 @@ -<BR> -<%$msg%><br> - -Add new watchers:<br> - -<table> -% if ($Users) { -<tr><td> -Type -</td><td> -Username -</td></tr> -% while (my $u = $Users->Next ) { -<tr><td><&/Elements/SelectWatcherType, Name => "WatcherTypeUser".$u->Id &></td><td><%$u->Name%> (<%$u->RealName%>)</td></tr> -% } -% } - -<tr><td> -Type -</td><td> -Email -</td></tr> -<tr><td> -<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail1" &> -</td><td> -<input name="WatcherAddressEmail1" size=15> -</td></tr> -<tr><td> -<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail2" &> -</td><td> -<input name="WatcherAddressEmail2" size=15> -</td></tr> -<tr><td> -<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail3" &> -</td><td> -<input name="WatcherAddressEmail3" size=15> -</td></tr> -</table> - -<%INIT> -my ($msg, $Users); -if ($UserString) { - $Users = new RT::Users($session{'CurrentUser'}); - $Users->Limit(FIELD => $UserField, - VALUE => $UserString, - OPERATOR => $UserOp); - } -</%INIT> - -<%ARGS> -$UserField => 'Name' -$UserOp => '=' -$UserString => undef -</%ARGS> 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 @@ -<TABLE> -<TR> -<TD COLSPAN=6> - Subject<BR> - <input name=Subject value="<%$TicketObj->Subject|h%>" SIZE=50> -</TD> -</TR> -<TR> -<TD> -<& /Elements/ShadedBox, - title => 'Status', - content => $SelectStatus -&> -</TD> -<TD> - -<& /Elements/ShadedBox, - title => 'Time Worked', - content => "<input name=TimeWorked value=\"".$TicketObj->TimeWorked."\" SIZE=5>" -&> - -</TD> -<TD> -<& /Elements/ShadedBox, - title => 'Time Left', - content => "<input name=TimeLeft value=\"".$TicketObj->TimeLeft."\" SIZE=5>" -&> -</TD> -<TD> -<& /Elements/ShadedBox, - title => 'Priority', - content => "<input name=Priority value=\"".$TicketObj->Priority."\" SIZE=3>" -&> - -</TD> -<TD> -<& /Elements/ShadedBox, - title => 'Final Priority', - content => "<input name=FinalPriority value=\"".$TicketObj->FinalPriority."\" SIZE=3>" -&> - - -</TD> -<TD> -<& /Elements/ShadedBox, - title => 'Queue', - content => "$SelectQueue" - &> -</TD> -</TR> -</TABLE> - -<%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); - -</%INIT> -<%ARGS> - -$TicketObj => undef -</%ARGS> 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 @@ -<TABLE> -<TR> -<TD> -Starts: -</TD> -<TD> -<& /Elements/SelectDate, menu_prefix => 'Starts', current => 0 &> - (<% $TicketObj->StartsObj->AsString %>) -</TD> -</TR> -<TR> -<TD> -Started: -</TD> -<TD> -<& /Elements/SelectDate, menu_prefix => 'Started', current => 0 &> (<%$TicketObj->StartedObj->AsString %>) - - - -</TD> -</TR> - -<TR> -<TD> -Last Contact: -</TD> -<TD> -<& /Elements/SelectDate, menu_prefix => 'Told', current => 0 &> (<% $TicketObj->ToldObj->AsString %>) - -</TD> -</TR> -<TR> -<TD> -Due: -</TD> -<TD> - -<& /Elements/SelectDate, menu_prefix => 'Due', current => 0 &> (<% $TicketObj->DueObj->AsString %>) -</TD> -</TR> - -</TABLE> -<%ARGS> -$TicketObj => undef -</%ARGS> - 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 @@ - -<TABLE> - <TR> -% while ( my $KeywordSelect = $KeywordSelects->Next ) { -% my $CurrentKeywords = $TicketObj->KeywordsObj($KeywordSelect->id); -% my $Descendents = $KeywordSelect->KeywordObj->Descendents; - <TD VALIGN=TOP> - <% $KeywordSelect->Name %> - <BR> - <INPUT TYPE="hidden" NAME="KeywordSelectMagic<% $KeywordSelect->id %>" VALUE="1"> - <SELECT NAME="KeywordSelect<% $KeywordSelect->id %>" - <% $KeywordSelect->Single ? "" : " MULTIPLE " %> SIZE=5> -%# -%# -%# All of this cruft is so we have a 'no keyword' selector for single -%# keywords that's only selected when there's no value. -% -% my $selected_keywords = 0; -% foreach my $kid ( keys %{$Descendents} ) { -% my $selected = 0; -% if ($CurrentKeywords->HasEntry($kid)) { $selected_keywords++; $selected=1;} - <OPTION VALUE="<% $kid %>" - <% $selected && 'SELECTED'%>> - <% $Descendents->{$kid} %> - </OPTION> -% } -% if ( $KeywordSelect->Single) { -<OPTION VALUE="" <% ($selected_keywords == 0) && 'SELECTED' %> >(empty)</OPTION> -% } - </SELECT> - </TD> -% } - </TR> - -</TABLE> - - -<%INIT> -my $KeywordSelects = $TicketObj->QueueObj->KeywordSelects; -</%INIT> - -<%ARGS> -$TicketObj => undef -</%ARGS> - 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 <jesse@fsck.com> - - -<TABLE> -<TR> -<TD VALIGN=TOP> -<h3>New Relationships</h3> -<i>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</i><br> -<TABLE> -<TR><TD>Merge into:</TD><TD><input name="<%$Ticket->Id%>-MergeInto"> <i>(only one ticket)</i></TD></TR> -<TR><TD>Depends on:</TD><TD><input name="<%$Ticket->Id%>-DependsOn"></TD></TR> -<TR><TD>Depended on by:</TD><TD><input name="DependsOn-<%$Ticket->Id%>"></TD></TR> -<TR><TD>Parents:</TD><TD><input name="<%$Ticket->Id%>-MemberOf"></TD></TR> -<TR><TD>Children:</TD><TD> <input name="MemberOf-<%$Ticket->Id%>"></TD></TR> -<TR><TD>Refers to:</TD><TD><input name="<%$Ticket->Id%>-RefersTo"></TD></TR> -<TR><TD>Referred to by:</TD><TD> <input name="RefersTo-<%$Ticket->Id%>"></TD></TR> -</TABLE> -</TD> -<TD VALIGN=TOP WIDTH=50%> -<h3>Current Relationships</h3> -<i>(Check boxes to delete)</i><br> - -Depends on:<BR> -<UL> -% while (my $link = $Ticket->DependsOn->Next) { -% my $member = $link->TargetObj; -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>"> -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -</UL> - -Depended on by:<BR> -<UL> -% while (my $link = $Ticket->DependedOnBy->Next) { -% my $member = $link->BaseObj; -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-"> -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -</UL> - -Parents:<BR> -<UL> -% while (my $link = $Ticket->MemberOf->Next) { -% my $member = $link->TargetObj; -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>"> -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -</UL> - -Children:<BR> -<UL> -% while (my $link = $Ticket->Members->Next) { -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-"> -% my $member = $link->BaseObj; -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -</UL> - - -Refers to:<BR> -<UL> -% while (my $link = $Ticket->RefersTo->Next) { -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>"> -% if ($link->TargetIsLocal) { -% my $member = $link->TargetObj; - -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$link->TargetAsHREF%>"><%$link->Target%></A> -% } -%} -</UL> - -Referred to by:<BR> -<UL> -% while (my $link = $Ticket->ReferredToBy->Next) { -<LI> -<INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-"> -% if ($link->BaseIsLocal) { -% my $member = $link->BaseObj; -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$link->BaseAsHREF%>"><%$link->Base%></A> -%} -% } -</UL> - - -</TD> -</TR> -</TABLE> - - - -<%ARGS> -$Ticket => undef -</%ARGS> 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 @@ - -<TABLE> -<TR> -<TD VALIGN=TOP> - -<h3>New watchers</h3> -Find people whose<BR> -<& /Elements/SelectUsers &> -<input type=submit name="OnlySearchForPeople" value="Go!"> - -<& AddWatchers, Ticket => $Ticket, UserString => $UserString, - UserOp => $UserOp, UserField => $UserField &> -</TD><TD VALIGN=TOP> -<h3>Owner</h3> -Owner: <& /Elements/SelectOwner, Name => 'Owner', QueueObj => $Ticket->QueueObj, TicketObj => $Ticket, Default => $Ticket->OwnerObj->Id &> -<h3>Current watchers</h3> -(Check box to delete)<br> - -Requestors: -<& EditWatchers, TicketObj => $Ticket, Type => 'requestors' &> - -Cc: -<& EditWatchers, TicketObj => $Ticket, Type => 'cc' &> - -Administrative Cc: -<& EditWatchers, TicketObj => $Ticket, Type => 'admincc' &> - -</TD> -</TR> -</TABLE> - -<%ARGS> -$UserField => undef -$UserOp => undef -$UserString => undef -$Ticket => undef -</%ARGS> 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 <jesse@fsck.com> - -<ul> - -%# Print out a placeholder if there are none. -%if ($watchers->Count == 0 ) { -<li><i>none</i> -% } - - -%while (my $watcher=$watchers->Next) { -<li> -<INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED> -%#If there's a principal backing this user, lets give a link to their -%# account -%if ($watcher->IsUser) { -<a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>"> -<%$watcher->OwnerObj->RealName%></a>: -%} else { -Email address: -%} -<i><%$watcher->Email%></i> -%} -</ul> -<%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; - } -</%INIT> -<%ARGS> -$TicketObj => undef -$Type => undef -</%ARGS> - - - 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 @@ - <TABLE WIDTH="100%"> - <TR> - <TD VALIGN=TOP WIDTH="20%"> - <& /Elements/ShadedBox, title => 'Id' , content => $Ticket->Id &> - </TD> - <TD VALIGN=TOP WIDTH="20%"> <& /Elements/ShadedBox, title => 'Status' , content => $Ticket->Status &> - </TD> - <TD VALIGN=TOP WIDTH="20%"> - <& /Elements/ShadedBox, title => 'Worked' , content => $TimeWorked ." min" &> - </TD> - <TD VALIGN=TOP WIDTH="20%"> - <& /Elements/ShadedBox, title => 'Priority', content=> $Ticket->Priority."/".$Ticket->FinalPriority &> - </TD> - <TD VALIGN=TOP WIDTH="20%"> - <& /Elements/ShadedBox, title => 'Queue', content=> $Ticket->QueueObj->Name &> - </TD> - - - </TR> - </TABLE> -<%INIT> -my $TimeWorked = $Ticket->TimeWorked; -if ($Ticket->TimeLeft > 0 ) { - $TimeWorked = $Ticket->TimeWorked."/".$Ticket->TimeLeft; -} -</%INIT> -<%ARGS> -$Ticket => undef -</%ARGS> 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 @@ -<TABLE> -<TR> -<TD> -Created: -</TD> -<TD> -<% $Ticket->CreatedObj->AsString %> -</TD> -</TR> -<TR> -<TD> -Starts: -</TD> -<TD> -<% $Ticket->StartsObj->AsString %> <BR> -</TD> -</TR> -<TR> -<TD> -Started: -</TD> -<TD> -<% $Ticket->StartedObj->AsString %> -</TD> -</TR> - -<TR> -<TD> -<a href="Display.html?id=<%$Ticket->id%>&Action=SetTold">Last Contact</a>: -</TD> -<TD> -<% $Ticket->ToldObj->AsString %> -</TD> -</TR> -<TR> -<TD> -Due: -</TD> -<TD><% $Ticket->DueObj->AsString %> -</TD> -</TR> -<TR> -<TD> -Updated: -</TD> -<TD> -<A HREF="#lasttrans"> -<% $Ticket->LastUpdated ? ($Ticket->LastUpdatedAsString ." by ".$Ticket->LastUpdatedByObj->Name) : "Never" | h %></a> -</TD> -</TR> -</TABLE> -<%ARGS> -$Ticket => undef -</%ARGS> 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:<BR> -% while (my $Link = $Ticket->DependsOn->Next) { -% my $member = $Link->TargetObj; -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - <br> -% } -Depended on by:<BR> -% while (my $Link = $Ticket->DependedOnBy->Next) { -% my $member = $Link->TargetObj; -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - <br> -% } - -<%ARGS> -$Ticket => undef -</%ARGS> 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 @@ -<TABLE BORDER=0 width="100%"> -<TR> -<TD ALIGN=LEFT> -% if ($ShowTitle) { -<font size=+3>History</font> -% } - </TD> -<TD align=right><font size=-1>Display mode: -% if ($ShowHeaders == $Ticket->Id) { -[<A HREF="<%$URIFile%>?id=<%$Ticket->id%>">Brief headers</a>] -<b>[Full headers]</b> -% } else { -<b>[Brief headers]</b> -[<A HREF="<%$URIFile%>?ShowHeaders=<%$Ticket->Id%>&id=<%$Ticket->id%>">Full headers</a>] -% } -</font> -</TD> -</TR> -</TABLE> - -<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=2 BORDER=0> -% while (my $Transaction = $Transactions->Next) { -% $i++; -% if ($Transactions->IsLast) { - <a name="lasttrans"></a> -% } - <& ShowTransaction, Ticket => $Ticket, Transaction => $Transaction, ShowHeaders => $ShowHeaders, Collapsed => $Collapsed, RowNum => $i &> -% } -</TABLE> -<%INIT> - -my $Transactions = $Ticket->Transactions; -my $i; - - -</%INIT> -<%ARGS> -$URIFile => 'Display.html' -$Ticket => undef -$ShowHeaders => undef -$Collapsed => undef -$ShowTitle => 1 -</%ARGS> 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 @@ -<TABLE> -% while ( my $KeywordSelect = $KeywordSelects->Next ) { - <TR> - <TD VALIGN=TOP> - <% $KeywordSelect->Name %><BR> - </TD> - <TD VALIGN=TOP> - <UL> -% my $Keywords = $Ticket->KeywordsObj($KeywordSelect->Id); -% while (my $Keyword = $Keywords->Next) { - <li><% $Keyword->KeywordObj->RelativePath($KeywordSelect->KeywordObj) |n %></li> - -% } - </ul> - </TD> - </TR> -% } -</TABLE> - -<%INIT> -my $KeywordSelects = $Ticket->QueueObj->KeywordSelects; -</%INIT> - -<%ARGS> -$Ticket => undef -</%ARGS> 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:<BR> -<UL> -% while (my $Link = $Ticket->DependsOn->Next) { -% my $member = $Link->TargetObj; -<LI><a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -</UL> - -Depended on by:<BR> -<UL> -% while (my $Link = $Ticket->DependedOnBy->Next) { -% my $member = $Link->BaseObj; -<LI><a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] -% } -</UL> -Parents:<BR> -<UL> -% while (my $Link = $Ticket->MemberOf->Next) { -% my $member = $Link->TargetObj; -<LI><a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> -[<%$member->Status%>] - -% } -</UL> - -Children:<BR> -<& /Ticket/Elements/ShowMembers, Ticket => $Ticket &> -<BR> -Refers to:<BR> -<UL> -% while (my $Link = $Ticket->RefersTo->Next) { -<LI> -% if ($Link->TargetIsLocal) { -% my $member = $Link->TargetObj; - -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$Link->TargetAsHREF%>"><%$Link->Target%></A> -% } -%} -</UL> - -Referred to by:<BR> -<UL> -% while (my $Link = $Ticket->ReferredToBy->Next) { -<LI> -% if ($Link->BaseIsLocal) { -% my $member = $Link->BaseObj; -<a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$Link->BaseAsHREF%>"><%$Link->Base%></A> -%} -% } -</UL> - -<%ARGS> -$Ticket => undef -</%ARGS> 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 @@ -<UL> -% my $memberof = $Ticket->MemberOf; -% while (my $member_of = $memberof->Next) { -<LI><a href="/Ticket/Display.html?id=<%$member_of->Id%>"><%$member_of->Id%></a>: <%$member_of->Subject%> [<%$member_of->Status%>] -% } -</UL> - -<%INIT> -</%INIT> -<%ARGS> -$Ticket => undef -</%ARGS> 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) { -<UL> -% while (my $link = $members->Next) { -% my $member= $link->BaseObj; -<LI><a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: <%$member->Subject%> [<%$member->Status%>]<br> -% if ($depth < 8) { -<&/Ticket/Elements/ShowMembers, Ticket => $member, depth => ($depth+1) &> -% } -% } -</UL> -% } - -<%INIT> - -my $members = $Ticket->Members; - -</%INIT> - -<%ARGS> -$Ticket => undef -$depth => 1 -</%ARGS> 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<BR> - <B><%$Ticket->OwnerObj->Name%></B><BR> -Requestors<BR> - <B><%$Ticket->RequestorsAsString%></B><BR> -Cc<BR> - <B><%$Ticket->CcAsString%></B><BR> -AdminCc<BR> - <B><%$Ticket->AdminCcAsString%></B> -<%ARGS> -$Ticket => undef -</%ARGS> - 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 @@ -<UL> -% while (my $Link = $Ticket->RefersTo->Next) { -<LI> -% if ($Link->TargetIsLocal) { -% my $member = $Link->TargetObj; - -<a href="/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$Link->TargetAsHREF%>"><%$Link->Target%></A> -% } -%} - - - -% while (my $Link = $Ticket->ReferredToBy->Next) { -<LI> -% if ($Link->BaseIsLocal) { -% my $member = $Link->BaseObj; -<a href="/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br> -% } else { -<A HREF="<%$Link->BaseAsHREF%>"><%$Link->Base%></A> -%} -% } -</UL> -<%ARGS> -$Ticket => undef -</%ARGS> 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'); -</%PERL> - -% unless ($user->Privileged) { -<& /Elements/TitleBoxStart, - title => "<a class='inverse' href=\"$RT::WebPath/Admin/Users/Modify.html?id=".$user->id."\">More about $name</a>" &> - -Comments about this user:<BR> -<B><% ($user->Comments || "No comment entered about this user") %></B><BR> - -This user's 25 highest priority tickets:<BR> -<UL> -%while (my $w=$tickets->Next) { -<LI><%$w->Id%>: <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$w->id%>"><%$w->Subject%></a> (<%$w->Status%>) -%} -</UL> -<& /Elements/TitleBoxEnd &> - -% } -% } -%} -<%ARGS> -$Ticket=>undef -</%ARGS> 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 @@ - <TABLE WIDTH="100%" > - <TR> - <TD VALIGN=TOP > - <& /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 &> - - <BR> - - <& /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 &> - - - - <BR> - <& /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 &> - </TD> - <BR> - <TD VALIGN=TOP > - - <& /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 &> - <BR> - <& /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 &> - <BR> - - <& /Ticket/Elements/ShowRequestor, Ticket => $Ticket &> - - - </TD> - </TR> - </TABLE> -<%ARGS> -$Ticket => undef -</%ARGS> - - - - 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 @@ -<TR bgcolor="<%$rowbgcolor%>"> -<TD bgcolor="<%$bgcolor%>"><A NAME="#<%$Transaction->Id%>"></A>  </TD> -<TD>  </TD> -<TD><font size=-2><% $transdate|n %></font> </TD> -<TD ALIGN="LEFT"><b><%$Transaction->CreatorObj->Name%> - <%$TicketString%> <%$Transaction->BriefDescription%> - -</b></TD> -<TD><%$TimeTaken%> </TD> -<TD ALIGN="RIGHT"><font size=-1><%$titlebar_commands|n%></font></TD> -</TR> -<%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> - - -<%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/>/>/g; - $content =~ s!((?:http|https|ftp|mailto):\S*?)([\s"']|>|\.[\n])!<A HREF=\"$1\" TARGET=new>$1</A>$2!g; - - - } - else { - $content = " "; - } - -</%PERL> -<TR BGCOLOR="<%$rowbgcolor%>"> - <TD BGCOLOR="<%$bgcolor%>"> </TD> - <TD>  </TD> - <TD COLSPAN=3 VALIGN=TOP> - <PRE> -<%$headers%><%$content|n%> -</PRE> - </TD> - <TD VALIGN=TOP ALIGN=RIGHT> - -% if ($message->Parent == 0 ) { -<BR> -% } -<%PERL> -my $size = length($message->Content()); - -if ($size) { - if ($size > 1024) { - $size = int($size/102.4)/10 . "k"; - } - else { - $size = $size ."b"; - } -</%PERL> -<font size=-1><A HREF="Attachment/<%$Transaction->Id%>/<%$message->Id%>/<%$message->Filename%>">Download <%$message->Filename|| '(untitled)'%></a> <% $size %></font> -% } -</TD> -</TR> -% } -% } - - - -<%ARGS> -$Ticket => undef -$Transaction => undef -$ShowHeaders => undef -$Collapsed => undef -$ShowTitleBarCommands => 1 -$RowNum => 1 -</%ARGS> - -<%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 .= - "[<a href=\"Update.html?id=". - $Transaction->Ticket . "&QuoteTransaction=".$Transaction->Id. - "&Action=Respond\">Reply</a>] "; - } - if ($Transaction->TicketObj->CurrentUserHasRight('CommentOnTicket')) { - $titlebar_commands .= - "[<a href=\"Update.html?id=".$Transaction->Ticket. - "&QuoteTransaction=".$Transaction->Id. - "&Action=Comment\">Comment</a>]"; - } -} - -</%INIT> 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 .= '[<A HREF="Display.html?id='. - $items->[0]->id. - '"><< First</a>] '; - $tabs_scalar .= '[<A HREF="Display.html?id='. - $items->[$indexs[0]-1]->id. - '">< Prev</a>] '; - } - # Don't display next links if we're on the last ticket - if ( $Ticket->id != $items->[-1]->id ) { - $tabs_scalar .= '[<A HREF="Display.html?id='. - $items->[$indexs[0]+1]->id. - '">Next ></a>] '; - $tabs_scalar .= '[<A HREF="Display.html?id='. - $items->[-1]->id. - '">Last >></a>]'; - } - $tabs_scalar .= "<BR><BR>"; - } - } -} -</%INIT> - - -<%ARGS> -$Ticket => undef -$current_tab => undef -</%ARGS> 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 -</%ARGS> 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 <jesse@fsck.com> - -<& /Elements/Header, Title => "Ticket History #".$Ticket->Id ." ".$Ticket->Subject &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => 'Ticket/History.html?id='.$Ticket->id &> - -<BR> - -<& /Ticket/Elements/ShowHistory , Ticket => $Ticket, ShowHeaders => $ARGS{'ShowHeaders'}, URIFile => 'History.html' &> - - -<%ARGS> -$id => undef -</%ARGS> - -<%INIT> - - - -my $Ticket = LoadTicket ($id); - -unless ($Ticket->CurrentUserHasRight('ShowTicket')) { - Abort("No permission to view ticket"); -} - -</%INIT> - - - - 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 &> -<FORM METHOD=POST ACTION="Modify.html"> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$TicketObj->Id%>"> - -<& /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" &> -</form> -<%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"); -} - -</%INIT> - - -<%ARGS> -$id => undef -</%ARGS> 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 &> - -<FORM METHOD=POST ACTION="ModifyAll.html" ENCTYPE="multipart/form-data"> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"> - - -<& /Elements/TitleBoxStart, title => 'Modify ticket #'.$Ticket->Id, color=> "#993333", width => "100%" &> -<& Elements/EditBasics, TicketObj => $Ticket &> -<& /Elements/TitleBoxEnd &> - -<BR> - -<& /Elements/TitleBoxStart, title => 'Dates', width => "100%", color => "#663366" &> -<& Elements/EditDates, TicketObj => $Ticket &> -<& /Elements/TitleBoxEnd &> - -<BR> - -<& /Elements/TitleBoxStart, title => 'Keywords', color =>"#993333"&> -<& Elements/EditKeywordSelects, TicketObj=>$Ticket &> -<& /Elements/TitleBoxEnd &> - -<BR> - -<& /Elements/TitleBoxStart, title => 'People',width => "100%", color=> "#333399" &> -<& Elements/EditPeople, Ticket => $Ticket, UserField => $UserField, UserString => $UserString, UserOp => $UserOp &> -<& /Elements/TitleBoxEnd &> - -<BR> - -<& /Elements/TitleBoxStart, title => 'Relationships', color => "#336633"&> -<& Elements/EditLinks, Ticket => $Ticket &> -<& /Elements/TitleBoxEnd &> - -<BR> - -<& /Elements/TitleBoxStart, title => 'Update ticket' &> -<hr> -Update Type: <select name="UpdateType"> -% if ($CanComment) { - <option value="private" >Comments (Not sent to requestors)</option> -% } -% if ($CanRespond) { - <option value="response">Response to requestors</option> -% } -</select> -<br> - -Subject: <input name="UpdateSubject" size=60 value=""> <br> -Attach: <input name="UpdateAttachment" type=file> <br> -<& /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" &> -</form> - -<%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"); -} - - -</%INIT> - - - -<%ARGS> -$OnlySearchForPeople => undef -$UserField => undef -$UserOp => undef -$UserString => undef -$id => undef -</%ARGS> - 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 &> - -<FORM METHOD=POST ACTION="ModifyDates.html"> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$TicketObj->Id%>"> -<& /Elements/TitleBoxStart, title => 'Modify dates for ticket #'.$TicketObj->Id, width => "100%", color => "#663366" &> - -<& Elements/EditDates, TicketObj => $TicketObj &> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, color => "#663366" &> -</form> - - -<%INIT> - -my $TicketObj = LoadTicket($id); -my @results = ProcessTicketDates( TicketObj => $TicketObj, ARGSRef => \%ARGS); - -</%INIT> - - -<%ARGS> -$id => undef -</%ARGS> 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 <jesse@fsck.com> - -<& /Elements/Header, Title => "Link ticket ".$Ticket->Id &> -<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => "Ticket/ModifyLinks.html?id=".$Ticket->Id &> - -<& /Elements/ListActions, actions => \@results &> - -<form action="ModifyLinks.html" method="post"> -<input type="hidden" name="id" value="<%$Ticket->id%>"> - -<& /Elements/TitleBoxStart, title => 'Edit Relationships', color => "#336633"&> -<& Elements/EditLinks, Ticket => $Ticket &> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit, color => "#336633", Caption=> 'Save changes' &> -</form> - - - - -<%INIT> - -my $Ticket = LoadTicket($id); -my @results = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS); - -</%INIT> - - -<%ARGS> -$id => undef -</%ARGS> 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 &> - -<FORM METHOD=POST ACTION="ModifyPeople.html"> -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"> -<& /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" &> -</form> - -<%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; -</%INIT> - - - -<%ARGS> -$OnlySearchForPeople => undef -$UserField => undef -$UserOp => undef -$UserString => undef -$id => undef -</%ARGS> - 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" &> - -<FORM ACTION="Display.html" NAME="TicketUpdate" - METHOD=POST enctype="multipart/form-data"> - -<TABLE> -<TR><TD> -<a href="ModifyPeople.html?id=<%$Ticket->Id%>">Ticket watchers</A></TD><TD align=right> -Requestor: -</TD><TD> -<b><% $Ticket->RequestorsAsString %></b> -</TD></TR> -<TR><TD> </TD><TD align=right> -Cc: -</TD><TD> -<b><% $Ticket->CcAsString %></b> -</TD></TR> -<TR><TD> </TD><TD align=right> -AdminCc: -</TD><TD> -<b><% $Ticket->AdminCcAsString %></b> -</TD></TR> -</TR> -</TABLE> -<hr> - -<TABLE BORDER=0> - -<tr><td align=right>Status:</td> -<td> -<& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &> -Owner: -<& /Elements/SelectOwner, Name=>"Owner", Default => $Ticket->OwnerObj->Id(), QueueObj => $Ticket->QueueObj, TicketObj => $Ticket &> -Worked: <input size=4 name="UpdateTimeWorked"> minutes</td></tr> -<tr><td align=right>Update Type:</td> -<td><select name="UpdateType"> -% if ($CanComment) { - <option value="private" <%$CommentDefault%>>Comments (Not sent to requestors)</option> -% } -% if ($CanRespond) { - <option value="response" <%$ResponseDefault%>>Response to requestors</option> -% } -</select> -</td></tr> -<tr><td align=right>Subject:</td><td> <input name="UpdateSubject" size=60 value="<%$Ticket->Subject()%>"></td></tr> -<tr><td align=right>Cc:</td><td> <input name="UpdateCc" size=60><BR> -<i><font size=-2>(Sends a carbon-copy of this update to a comma-delimited list -of email addresses. Does <b>not</b> change who will receive future updates.)</font></i> -</td></tr> -<tr><td align=right>Bcc:</td><td> <input name="UpdateBcc" size=60><BR> -<i><font size=-2>(Sends a blind carbon-copy of this update to a comma-delimited list -of email addresses. Does <b>not</b> change who will receive future updates.)</font></i> -</td></tr> -<tr><td align=right>Attach:</td><td><input name="UpdateAttachment" type="file"></td></tr> -</table> -<& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &> - <INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"><br> - - - - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> - </FORM> - - - -<%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') ); - - - - - -</%INIT> - -<%ARGS> -$id => undef -$Action => undef -$DefaultStatus => undef -</%ARGS> diff --git a/rt/webrt/User/Prefs.html b/rt/webrt/User/Prefs.html deleted file mode 100755 index d769977f9..000000000 --- a/rt/webrt/User/Prefs.html +++ /dev/null @@ -1,53 +0,0 @@ -<& /Elements/Header, Title=>"Preferences" &> -<& /Elements/Tabs &> - -<& /Elements/ListActions, actions => \@results &> -<form method=post> - -% unless ($RT::WebExternalAuth) { -<& /Elements/TitleBoxStart, title => 'Change password' &> -New password: <input type=password name="NewPass1" size=16> -Confirm: <input type=password name="NewPass2" size=16> -<& /Elements/TitleBoxEnd &> -<BR> -% } -<& /Elements/TitleBoxStart, title => 'Signature' &> -<INPUT TYPE=HIDDEN NAME="SignatureMagic" VALUE=1> -<TEXTAREA COLS=72 ROWS=4 WRAP=HARD NAME="Signature"><% $session{'CurrentUser'}->UserObj->Signature %></TEXTAREA> -<br> -<BR> -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> - </form> - - -<%INIT> -my @results; - -if ($NewPass1) { - if ($NewPass1 ne $NewPass2) { - push (@results, "Passwords did not match."); - } - else { - my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetPassword($NewPass1); - push (@results, "Password: ".$msg); - } -} -if ($Signature || $SignatureMagic) { - $Signature =~ s/(\r\n|\r)/\n/g; - if ($Signature ne $session{'CurrentUser'}->UserObj->Signature) { - my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetSignature($Signature); - push (@results, "Signature: ".$msg); - } -} -#A hack to make sure that session gets rewritten. - -$session{'i'}++; -</%INIT> - -<%ARGS> -$Signature => undef -$SignatureMagic => undef -$NewPass1 => undef -$NewPass2 => undef -</%ARGS> diff --git a/rt/webrt/autohandler b/rt/webrt/autohandler deleted file mode 100755 index 16cdbc79b..000000000 --- a/rt/webrt/autohandler +++ /dev/null @@ -1,73 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Attic/autohandler,v 1.1 2002-08-12 06:17:08 ivan Exp $ -<& /Elements/Footer, %ARGS &> - -<%INIT> - -$m->{'rt_base_time'} = time; - -#if it's a noauth file, don't ask for auth. -if ($m->base_comp->path =~ '^/+NoAuth/') { - $m->call_next(); - $m->abort(); -} - -# If RT is configured for external auth, let's get REMOTE_USER -# We intentionally don't test for REMOTE_USER to meet our policy -elsif ($RT::WebExternalAuth){ - - $user = $ENV{'REMOTE_USER'}; - $session{'CurrentUser'} = RT::CurrentUser->new(); - $session{'CurrentUser'}->Load($user); - unless ($session{'CurrentUser'}->id() ) { - delete $session{'CurrentUser'}; - $m->comp('/Elements/Login', %ARGS, Error=> 'You are not an authorized user'); - $m->abort(); - } -} - -# If the user is loging in, let's authenticate -elsif (defined ($user) && defined ($pass)){ - - $session{'CurrentUser'} = RT::CurrentUser->new(); - $session{'CurrentUser'}->Load($user); - unless ($session{'CurrentUser'}->id() ) { - delete $session{'CurrentUser'}; - $m->comp('/Elements/Login', %ARGS, Error=> 'Your username or password is incorrect'); - $m->abort(); - }; - unless ($session{'CurrentUser'}->IsPassword($pass)) { - delete $session{'CurrentUser'}; - - $m->comp('/Elements/Login', Error => 'Your username or password is incorrect', %ARGS); - $m->abort(); - } -} - - -#If we've got credentials, lets serve the file up. -if ( (defined $session{'CurrentUser'}) and - ( $session{'CurrentUser'}->Id) ) { - - # If the user isn\'t privileged, they can only see SelfService - if ((! $session{'CurrentUser'}->Privileged) and - ($m->base_comp->path !~ '^/+SelfService/') ) { - $m->comp('/SelfService/index.html'); - $m->abort(); - } - else { - $m->call_next; - } -} - -#If we have no credentials -else { - $m->comp('/Elements/Login', %ARGS); - $m->abort(); -} - -</%INIT> - -<%ARGS> -$user => undef -$pass => undef -</%ARGS> diff --git a/rt/webrt/index.html b/rt/webrt/index.html deleted file mode 100644 index 0c1091abb..000000000 --- a/rt/webrt/index.html +++ /dev/null @@ -1,25 +0,0 @@ -<& /Elements/Header, Title=>"Start page", Refresh => $session{'home_refresh_interval'} &> -<& /Elements/Tabs, current_toptab => '' &> -<TABLE BORDER=0 WIDTH=100%> -<TR VALIGN=TOP> -<TD WIDTH=70%> -<& /Elements/CustomHomepageHeader, %ARGS &> -<& /Elements/MyTickets &> -<BR> -<& /Elements/MyRequests &> -</TD> -<TD> -<& /Elements/Quicksearch &> -<BR> -<form method=get action="index.html"> -<& /Elements/Refresh, Name => 'HomeRefreshInterval', Default => $session {'home_refresh_interval'} &> -<div align=right><input type=submit value="Go!"></div> -</form> -</TD> -</TR> -</TABLE> -<%init> -if ($ARGS{'HomeRefreshInterval'}) { - $session{'home_refresh_interval'} = $ARGS{'HomeRefreshInterval'}; -} -</%init> |
