mason/secretom/section_templates/data_items.mas

   1 <%args>
   2   $default_ref_base => ''
   3 </%args>
   4 % my $items = Load( $m->content );
   5 % delete $ARGS{$_} for qw( default_ref_base c );
   6
   7 <&| /page/info_section.mas, title => 'Data Sets', %ARGS &>
   8 <ul>
   9
  10 % foreach my $item (@$items) {
  11   <li>
  12 %    if( my $r = $item->{ref} ) {
  13 %       unless( $r =~ m!^/! || $r =~ m!^(ht|f)tp://! ) { $r = "$default_ref_base/$r" }
  14         <a href="<% $r %>"><% $item->{text} %></a>
  15 %    } else {
  16         <span class="ghosted"><% $item->{text} %></span>
  17           <div style="margin-left: 2em; font-size: 90%">(file temporarily unavailable, contact <a href="mailto:jr286@cornell.edu">Joss Rose</a> for details)</div>
  18
  19 %    }
  20   </li>
  21 % }
  22 </ul>
  23 </&>
  24
  25 <%once>
  26   use YAML::Any;
  27 </%once>