[Rt-commit] r16517 - rt/branches/3.999-DANGEROUS/share/html/Admin/Global/StatusSchemas/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Thu Oct 23 12:41:40 2008
New Revision: 16517

Added:
   rt/branches/3.999-DANGEROUS/share/html/Admin/Global/StatusSchemas/Elements/MissingMaps

Log:
* add MissingMaps element

Added: rt/branches/3.999-DANGEROUS/share/html/Admin/Global/StatusSchemas/Elements/MissingMaps
==============================================================================
--- (empty file)
+++ rt/branches/3.999-DANGEROUS/share/html/Admin/Global/StatusSchemas/Elements/MissingMaps	Thu Oct 23 12:41:40 2008
@@ -0,0 +1,23 @@
+<&|/Widgets/TitleBox, title => _("No mappings between following schemas") &>
+<ul>
+% while ( my ($f, $t) = splice @maps, 0, 2 ) {
+<li><a href="<% RT->config->get('WebPath') %>/Admin/Global/StatusSchemas/Mappings.html?<% $m->comp('/Elements/QueryString', from => $f, to => $t ) %>"><% $f %>&rarr;<% $t %></a></li>
+% }
+</ul>
+</&>
+<%INIT>
+my @maps = RT::StatusSchema->no_maps;
+if ( $schema ) {
+    my $name = $schema->name;
+    my @tmp;
+    while ( my ($f, $t) = splice @maps, 0, 2 ) {
+        next unless $f eq $name || $t eq $name;
+        push @tmp, $f, $t;
+    }
+    @maps = @tmp;
+}
+return unless @maps;
+</%INIT>
+<%ARGS>
+$schema => undef
+</%ARGS>