From b4b0c7e72d7eaee2fbfc7022022c9698323203dd Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 31 Dec 2009 13:16:41 +0000 Subject: import rt 3.8.7 --- rt/share/html/Dashboards/Subscription.html | 292 +++++++++++++++++++++++++++++ 1 file changed, 292 insertions(+) create mode 100644 rt/share/html/Dashboards/Subscription.html (limited to 'rt/share/html/Dashboards/Subscription.html') diff --git a/rt/share/html/Dashboards/Subscription.html b/rt/share/html/Dashboards/Subscription.html new file mode 100644 index 000000000..3de58acdd --- /dev/null +++ b/rt/share/html/Dashboards/Subscription.html @@ -0,0 +1,292 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC +%# +%# +%# (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 &> + +
+ + + + + + +
+<&| /Widgets/TitleBox, title => loc('Dashboard') &> + + + + + + +
+<&|/l&>Dashboard: + +<% $DashboardObj->Name %> +
+<&|/l&>Queries: + +% my @portlets = grep { defined } $DashboardObj->Portlets; +% if (!@portlets) { +(<&|/l&>none) +% } else { +
    +% for my $portlet (@portlets) { +
  1. + <% loc($portlet->{description}, $fields{'Rows'}) %> +
    2. +% } +
+% } +
+ + +<&| /Widgets/TitleBox, title => loc('Subscription') &> + + + + + + + +
+<&|/l&>Frequency: + + +> + <&|/l&>daily +
+ +> + <&|/l&>Monday through Friday +
+ +> +<&|/l&>weekly, <&|/l&>on + +<&|/l&>every + +<&|/l&>weeks +
+ +> +<&|/l&>monthly , <&|/l&>on day + +
+ +> + <&|/l&>never + + +
+<&|/l&>Hour: + + +(<%$timezone%>) +
+<&|/l&>Rows: + + +
+<&|/l&>Recipient: + + +
<% loc("Leave blank to send to your current email address ([_1])", $session{'CurrentUser'}->UserObj->EmailAddress) %>
+
+ +
+ +% if ($SubscriptionObj->Id) { + <& /Elements/Submit, Name => "Save", Label => loc('Save Changes') &> +% } else { + <& /Elements/Submit, Name => "Save", Label => loc('Subscribe') &> +% } +
+ +<%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); +} + + +<%ARGS> +$DashboardId => undef +$Frequency => undef +$Hour => undef +$Dow => undef +$Dom => undef +$Rows => undef +$Recipient => undef + + -- cgit v1.2.1