/[papo]/papo/neb/neb/Tree/Tag.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Tag.pm

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

revision 1.5 by jlenton, Wed Apr 9 23:52:49 2003 UTC revision 1.6 by jlenton, Thu Apr 10 05:07:58 2003 UTC
# Line 107  sub code_start Line 107  sub code_start
107      $code .= "# Tag::code_start:\n\t" if ($DEBUG);      $code .= "# Tag::code_start:\n\t" if ($DEBUG);
108      $code .= '$OUTPUT .= "<' . $self->name;      $code .= '$OUTPUT .= "<' . $self->name;
109    
110      foreach (keys %h)      foreach (sort $attr_sorter keys %h)
111      {      {
112          if ($h{$_} =~ /^neb:(.*)$/)          if ($h{$_} =~ /^neb:(.*)$/)
113          {          {
114              $code .= sprintf ' %s=\" . %s . \"', $_, $1;              $code .= sprintf ' %s=\"" . (%s) . "\"', $_, $1;
115          }          }
116          else          else
117          {          {
# Line 120  sub code_start Line 120  sub code_start
120      }      }
121                                                        
122      $code .= ">\";";      $code .= ">\";";
123      $code .= "\# Tag::code_start\n" if ($DEBUG);      $code .= "\# Tag::code_start" if ($DEBUG);
124        $code .= "\n";
125    
126      return $code;      return $code;
127  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26