/[suikacvs]/test/html-webhacc/cc.cgi
Suika

Diff of /test/html-webhacc/cc.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wakaba, Sat Aug 11 13:54:55 2007 UTC revision 1.17 by wakaba, Sun Sep 2 07:59:01 2007 UTC
# Line 575  sub get_text ($) { Line 575  sub get_text ($) {
575        $msg =~ s{<var>{\@}</var>}{        $msg =~ s{<var>{\@}</var>}{
576          UNIVERSAL::can ($node, 'value') ? htescape ($node->value) : ''          UNIVERSAL::can ($node, 'value') ? htescape ($node->value) : ''
577        }ge;        }ge;
578          $msg =~ s{<var>{local-name}</var>}{
579            UNIVERSAL::can ($node, 'manakai_local_name')
580              ? htescape ($node->manakai_local_name) : ''
581          }ge;
582          $msg =~ s{<var>{element-local-name}</var>}{
583            (UNIVERSAL::can ($node, 'owner_element') and
584             $node->owner_element)
585              ? htescape ($node->owner_element->manakai_local_name)
586              : ''
587          }ge;
588        return ($type, $Msg->{$type}->[0], $msg);        return ($type, $Msg->{$type}->[0], $msg);
589      } elsif ($type =~ s/:([^:]*)$//) {      } elsif ($type =~ s/:([^:]*)$//) {
590        unshift @arg, $1;        unshift @arg, $1;
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24