diff options
Diffstat (limited to 'rt/share/html/Dashboards/Subscription.html')
| -rw-r--r-- | rt/share/html/Dashboards/Subscription.html | 292 |
1 files changed, 0 insertions, 292 deletions
diff --git a/rt/share/html/Dashboards/Subscription.html b/rt/share/html/Dashboards/Subscription.html deleted file mode 100644 index 3de58acdd..000000000 --- a/rt/share/html/Dashboards/Subscription.html +++ /dev/null @@ -1,292 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC -%# <jesse@bestpractical.com> -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# This work is made available to you under the terms of Version 2 of -%# the GNU General Public License. A copy of that license should have -%# been provided with this software, but in any event can be snarfed -%# from www.gnu.org. -%# -%# This work is distributed in the hope that it will be useful, but -%# WITHOUT ANY WARRANTY; without even the implied warranty of -%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -%# General Public License for more details. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<& /Elements/Header, Title => $title &> -<& /Dashboards/Elements/Tabs, - current_subtab => $current_subtab, - Title => $title, - DashboardObj => $DashboardObj &> - -<& /Elements/ListActions, actions => \@results &> - -<form action="<%RT->Config->Get('WebPath')%>/Dashboards/Subscription.html" method="post" enctype="multipart/form-data" name="SubscribeDashboard"> -<input type="hidden" class="hidden" name="DashboardId" value="<% $fields{'DashboardId'} %>" /> -<table width="100%" border="0"> -<tr> - -<td valign="top" class="boxcontainer"> -<&| /Widgets/TitleBox, title => loc('Dashboard') &> - -<table> -<tr><td class="label"> -<&|/l&>Dashboard</&>: -</td><td class="value"> -<% $DashboardObj->Name %> -</td></tr> - -<tr><td class="label"> -<&|/l&>Queries</&>: -</td><td class="value"> -% my @portlets = grep { defined } $DashboardObj->Portlets; -% if (!@portlets) { -(<&|/l&>none</&>) -% } else { -<ol class="dashboard-queries"> -% for my $portlet (@portlets) { - <li class="dashboard-query"> - <% loc($portlet->{description}, $fields{'Rows'}) %> - </li> -% } -</ol> -% } -</td></tr> - -</table> -</&> - -<&| /Widgets/TitleBox, title => loc('Subscription') &> - -<table> -<tr><td class="label"> -<&|/l&>Frequency</&>: -</td><td class="value"> - -<input type="radio" name="Frequency" value="daily" <% $fields{'Frequency'} eq 'daily' ? 'checked="checked"' : "" %>> - <&|/l&>daily</&> -</input><br /> - -<input type="radio" name="Frequency" value="m-f" <% $fields{'Frequency'} eq 'm-f' ? 'checked="checked"' : "" %>> - <&|/l&>Monday through Friday</&> -</input><br /> - -<input type="radio" name="Frequency" value="weekly"<% $fields{'Frequency'} eq 'weekly' ? 'checked="checked"' : "" %>> -<&|/l&>weekly</&></input>, <&|/l&>on</&> -<select name="Dow"> - <option value="Monday" <% $fields{'Dow'} eq 'Monday' ? 'selected="selected"' : '' %>><&|/l&>Monday</&></option> - <option value="Tuesday" <% $fields{'Dow'} eq 'Tuesday' ? 'selected="selected"' : '' %>><&|/l&>Tuesday</&></option> - <option value="Wednesday" <% $fields{'Dow'} eq 'Wednesday' ? 'selected="selected"' : '' %>><&|/l&>Wednesday</&></option> - <option value="Thursday" <% $fields{'Dow'} eq 'Thursday' ? 'selected="selected"' : '' %>><&|/l&>Thursday</&></option> - <option value="Friday" <% $fields{'Dow'} eq 'Friday' ? 'selected="selected"' : '' %>><&|/l&>Friday</&></option> - <option value="Saturday" <% $fields{'Dow'} eq 'Saturday' ? 'selected="selected"' : '' %>><&|/l&>Saturday</&></option> - <option value="Sunday" <% $fields{'Dow'} eq 'Sunday' ? 'selected="selected"' : '' %>><&|/l&>Sunday</&></option> -</select> -<&|/l&>every</&> -<select name="Fow"> -% for my $f ( qw/1 2 3 4/ ) { - <option value="<%$f%>" <% $fields{'Fow'} == $f ? 'selected="selected"' : '' %>><% $f %></option> -% } -</select> -<&|/l&>weeks</&> -<br /> - -<input type="radio" name="Frequency" value="monthly"<% $fields{'Frequency'} eq 'monthly' ? 'checked="checked"' : "" %>> -<&|/l&>monthly</&></input> , <&|/l&>on day</&> -<select name="Dom"> -% for my $dom (1..31) { - <option value="<% $dom %>" <% $fields{'Dom'} == $dom ? 'selected="selected"' : '' %>><% loc($dom) %></option> -% } -</select> -<br /> - -<input type="radio" name="Frequency" value="never" <% $fields{'Frequency'} eq 'never' ? 'checked="checked"' : "" %>> - <&|/l&>never</&> -</input> - -</td></tr> -<tr><td class="label"> -<&|/l&>Hour</&>: -</td><td class="value"> -<select name="Hour"> -% for my $hour (0..23) { -% my $formatted = sprintf '%02d:00', $hour; -% my $selected = $formatted eq $fields{'Hour'} -% ? 'selected="selected"' -% : ''; - - <option value="<% $formatted %>" <%$selected%>><% $formatted %></option> -% } -</select> -(<%$timezone%>) -</td></tr> -<tr><td class="label"> -<&|/l&>Rows</&>: -</td><td class="value"> -<select name="Rows"> -% for my $rows (1, 2, 5, 10, 15, 20, 25, 50, 75, 100, 0) { - <option value="<% $rows %>" <% $fields{'Rows'} eq $rows ? 'selected="selected"' : '' %>><% loc($rows || 'Unlimited') %></option> -% } -</select> -</td></tr> - -<tr><td class="label"> -<&|/l&>Recipient</&>: -</td><td class="value"> -<input name="Recipient" id="Recipient" size="30" value="<%$fields{Recipient} ? $fields{Recipient} : ''%>" /> -<div class="hints"><% loc("Leave blank to send to your current email address ([_1])", $session{'CurrentUser'}->UserObj->EmailAddress) %></div> -</td></tr> -</table> -</&> -</td> -</tr> -</table> - -% if ($SubscriptionObj->Id) { - <& /Elements/Submit, Name => "Save", Label => loc('Save Changes') &> -% } else { - <& /Elements/Submit, Name => "Save", Label => loc('Subscribe') &> -% } -</form> - -<%INIT> - -my $current_subtab = 'Dashboards/Subscription.html?DashboardId=' . $DashboardId; - -my ($title, @results); -my ($val, $msg); -my $Loaded = 0; -my $timezone = $session{'CurrentUser'}->UserObj->Timezone || RT->Config->Get('Timezone'); - -use RT::Dashboard; -my $DashboardObj = RT::Dashboard->new($session{'CurrentUser'}); - -my $SubscriptionObj = RT::Attribute->new($session{'CurrentUser'}); - -# first let's see if we already have a subscription to this DashboardId -for my $sub ($session{'CurrentUser'}->UserObj->Attributes->Named('Subscription')) { - next unless $sub->SubValue('DashboardId') == $DashboardId; - $SubscriptionObj = $sub; - last; -} - -$DashboardId = $SubscriptionObj->Id - ? $SubscriptionObj->SubValue('DashboardId') - : $ARGS{'DashboardId'}; - -($val, $msg) = $DashboardObj->LoadById($DashboardId); -$val || Abort(loc("Couldn't load dashboard [_1]: [_2].", $DashboardId, $msg)); - -my %fields = ( - DashboardId => $DashboardId, - Frequency => 'daily', - Hour => '06:00', - Dow => 'Monday', - Dom => 1, - Rows => 20, - Recipient => '', - Fow => 1, - Counter => 0, -); - -# update any fields with the values from the subscription object -if ($SubscriptionObj->Id) { - for my $field (keys %fields) { - $fields{$field} = $SubscriptionObj->SubValue($field); - } -} - -# finally, update any fields with arguments passed in by the user -for my $field (keys %fields) { - next if $field eq 'DashboardId'; # but this one is immutable - $fields{$field} = $ARGS{$field} - if defined($ARGS{$field}); -} -# this'll be defined on submit -if (defined $ARGS{Save}) { - # update - if ($SubscriptionObj->Id) { - $DashboardId = delete $fields{'DashboardId'}; # immutable - ($val, $msg) = $SubscriptionObj->SetSubValues(%fields); - $fields{'DashboardId'} = $DashboardId; - - # not so good to spew base64-encoded data at the user :) - if ($msg =~ /^Content changed from/) { - $msg = "Subscription updated."; - } - - push @results, $msg; - } - # create - else { - Abort(loc("Unable to subscribe to dashboard [_1]: Permission denied", $DashboardId)) - unless $DashboardObj->CurrentUserCanSubscribe; - - my ($val, $msg) = $SubscriptionObj->Create( - Name => 'Subscription', - Description => 'Subscription to dashboard ' . $DashboardId, - ContentType => 'storable', - Object => $session{'CurrentUser'}->UserObj, - Content => \%fields, - ); - if ($val) { - push @results, loc("Subscribed to dashboard [_1]", $DashboardObj->Name); - push @results, loc("Warning: you have no email address set, so you will not receive this dashboard until you have it set") - unless $session{'CurrentUser'}->EmailAddress || $fields{Recipient}; - } - else { - push @results, loc('Subscription could not be created: [_1]', $msg); - } - } -} - -if ($SubscriptionObj->Id) { - $title = loc("Modify the subscription to dashboard [_1]", $DashboardObj->Name); -} -else { - $title = loc("Subscribe to dashboard [_1]", $DashboardObj->Name); -} - -</%INIT> -<%ARGS> -$DashboardId => undef -$Frequency => undef -$Hour => undef -$Dow => undef -$Dom => undef -$Rows => undef -$Recipient => undef -</%ARGS> - |