"Fossies" - the Fresh Open Source Software Archive

Member "RT-Extension-Assets-1.05/html/Asset/Modify.html" (15 Oct 2014, 4816 Bytes) of package /linux/misc/RT-Extension-Assets-1.05.tar.gz:


The requested HTML page contains a <FORM> tag that is unusable on "Fossies" in "automatic" (rendered) mode so that page is shown as HTML source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 %# BEGIN BPS TAGGED BLOCK {{{
    2 %#
    3 %# COPYRIGHT:
    4 %#
    5 %# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
    6 %#                                          <sales@bestpractical.com>
    7 %#
    8 %# (Except where explicitly superseded by other copyright notices)
    9 %#
   10 %#
   11 %# LICENSE:
   12 %#
   13 %# This work is made available to you under the terms of Version 2 of
   14 %# the GNU General Public License. A copy of that license should have
   15 %# been provided with this software, but in any event can be snarfed
   16 %# from www.gnu.org.
   17 %#
   18 %# This work is distributed in the hope that it will be useful, but
   19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
   20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   21 %# General Public License for more details.
   22 %#
   23 %# You should have received a copy of the GNU General Public License
   24 %# along with this program; if not, write to the Free Software
   25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
   26 %# 02110-1301 or visit their web page on the internet at
   27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
   28 %#
   29 %#
   30 %# CONTRIBUTION SUBMISSION POLICY:
   31 %#
   32 %# (The following paragraph is not intended to limit the rights granted
   33 %# to you to modify and distribute this software under the terms of
   34 %# the GNU General Public License and is only of importance to you if
   35 %# you choose to contribute your changes and enhancements to the
   36 %# community by submitting them to Best Practical Solutions, LLC.)
   37 %#
   38 %# By intentionally submitting any modifications, corrections or
   39 %# derivatives to this work, or any other work intended for use with
   40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
   41 %# you are the copyright holder for those contributions and you grant
   42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
   43 %# royalty-free, perpetual, license to use, copy, create derivative
   44 %# works based on those contributions, and sublicense and distribute
   45 %# those contributions and any derivatives thereof.
   46 %#
   47 %# END BPS TAGGED BLOCK }}}
   48 <& /Elements/Header, Title => loc("Modify asset #[_1]: [_2]", $asset->id, $asset->Name) &>
   49 <& /Elements/Tabs &>
   50 
   51 <& /Elements/ListActions, actions => \@results &>
   52 
   53 <span class="catalog <% CSSClass($asset->CatalogObj->Name) %>">
   54 <form method="post" enctype="multipart/form-data" id="ModifyAsset" action="Modify.html">
   55   <input type="hidden" name="id" value="<% $asset->id %>">
   56   <input type="hidden" name="DisplayAfter" value="<% $DisplayAfter ? 1 : 0 %>">
   57 
   58   <&| /Widgets/TitleBox, title => loc("Basics"), class => "asset-basics", title_class => "inverse" &>
   59     <& Elements/EditBasics, %ARGS, AssetObj => $asset &>
   60   </&>
   61 
   62   <&| /Widgets/TitleBox, title => loc("Custom Fields"), class => "asset-info-cfs", title_class => "inverse" &>
   63     <& /Elements/EditCustomFields, Object => $asset, Grouping => '' &>
   64   </&>
   65 
   66   <& /Elements/Submit, Label => loc('Save asset'), Name => "Update" &>
   67 </form>
   68 </span>
   69 
   70 <%args>
   71 $id             => undef
   72 $Update         => 0
   73 $DisplayAfter   => 0
   74 </%args>
   75 <%init>
   76 my $asset = LoadAsset($id);
   77 my @results;
   78 
   79 $m->callback( Asset => $asset, ARGSRef => \%ARGS, Update => \$Update, results => \@results );
   80 
   81 if ($Update) {
   82     my $skip_update = 0;
   83     my @attributes  = $asset->WritableAttributes;
   84 
   85     # Don't update status unless we have a value; otherwise RT complains
   86     @attributes = grep { $_ ne "Status" } @attributes
   87         unless $ARGS{Status};
   88 
   89     my ($cf_ok, @cf_errors) = $m->comp(
   90         '/Elements/ValidateCustomFields',
   91         Object          => $asset,
   92         CustomFields    => $asset->CustomFields,
   93         ARGSRef         => \%ARGS
   94     );
   95 
   96     $m->callback(
   97         CallbackName        => 'BeforeUpdate',
   98         AssetObj            => $asset,
   99         UpdatableAttributes => \@attributes,
  100         results             => \@results,
  101         cf_ok               => \$cf_ok,
  102         skip_update         => \$skip_update,
  103         ARGSRef             => \%ARGS,
  104     );
  105 
  106     if ($cf_ok and not $skip_update) {
  107         push @results, ProcessObjectCustomFieldUpdates( Object => $asset, ARGSRef => \%ARGS );
  108         push @results, UpdateRecordObject(
  109             Object          => $asset,
  110             AttributesRef   => \@attributes,
  111             ARGSRef         => \%ARGS
  112         );
  113 
  114         $m->callback(
  115             CallbackName        => 'AfterUpdate',
  116             AssetObj            => $asset,
  117             UpdatableAttributes => \@attributes,
  118             results             => \@results,
  119             ARGSRef             => \%ARGS,
  120         );
  121 
  122         MaybeRedirectForResults(
  123             Actions     => \@results,
  124             Arguments   => { id => $asset->id },
  125             $DisplayAfter
  126                 ? (Path => "/Asset/Display.html")
  127                 : (),
  128         );
  129     } else {
  130         push @results, @cf_errors;
  131     }
  132 }
  133 </%init>