code/UserTag/page_meta.tag

   1 # Copyright 2002-2007 Interchange Development Group and others
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.  See the LICENSE file for details.
   7 #
   8 # $Id: page_meta.tag,v 1.4 2007-03-30 23:40:57 pajamian Exp $
   9
  10 UserTag page-meta Order   page
  11 UserTag page-meta addAttr
  12 UserTag page-meta Version $Revision: 1.4 $
  13 UserTag page-meta Routine <<EOR
  14 sub {
  15         my ($page, $opt) = @_;
  16         $page ||= $Global::Variable->{MV_PAGE};
  17         $page = "pages/$page";
  18         my $meta = Vend::Table::Editor::meta_record($page)
  19                 or return;
  20         while (my ($k, $v) = each %$meta) {
  21                 next if $k eq 'code';
  22                 next unless length $v;
  23                 if($v =~ /\[\w/ or $v =~ /__[A-Z]\w+__/) {
  24                         $v = interpolate_html($v);
  25                 }
  26                 set_tmp($k,$v);
  27         }
  28         return;
  29 }
  30 EOR