/[webpac]/trunk2/lib/WebPAC/Tree.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/lib/WebPAC/Tree.pm

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

revision 471 by dpavlin, Sun Sep 26 15:11:36 2004 UTC revision 472 by dpavlin, Sun Sep 26 16:44:23 2004 UTC
# Line 237  sub unroll { Line 237  sub unroll {
237    
238                          $log->debug("$code -> $v900 : $term [$mfn]");                          $log->debug("$code -> $v900 : $term [$mfn]");
239    
240                          my ($link_start,$link_end) = ('<a name="mfn'.$mfn.'"></a>','');                          my ($link_start,$link_end) = ('','');
241                    
242                          my $have_children = $tree->[$level]->{'have_children'}->($code,$v900);                          my $have_children = $tree->[$level]->{'have_children'}->($code,$v900);
243    
# Line 253  sub unroll { Line 253  sub unroll {
253                          my $mfn_link = "thes/$mfn.html";                          my $mfn_link = "thes/$mfn.html";
254                          if (-e "out/$mfn_link") {                          if (-e "out/$mfn_link") {
255                                  $html .= " " x $level .                                  $html .= " " x $level .
256                                          qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}.                                          qq{<li><a name="mfn${mfn}"></a>${link_start}<span id="o$mfn">${term}</span>${link_end}}.
257                                          qq{&nbsp;<a href="$mfn_link" onClick="javascript:return popup(this);">&raquo;</a></li>\n};                                          qq{&nbsp;<a href="$mfn_link" onClick="javascript:return popup(this);">&raquo;</a></li>\n};
258                          } else {                          } else {
259                                  $log->warn("file 'out/$mfn_link' doesn't exist, skipping");                                  $log->warn("file 'out/$mfn_link' doesn't exist, skipping");
# Line 265  sub unroll { Line 265  sub unroll {
265                          my $style = $tree->[$level]->{'style'};                          my $style = $tree->[$level]->{'style'};
266    
267                          $html .= " " x $level .                          $html .= " " x $level .
268                                  qq{<a name="mfn$mfn"></a>\n <ul id="id$mfn"}.                                  qq{<ul id="id$mfn"}.
269                                  ($style ? ' style="'.$style.'"' : '').                                  ($style ? ' style="'.$style.'"' : '').
270                                  qq{>\n};                                  qq{>\n};
271    

Legend:
Removed from v.471  
changed lines
  Added in v.472

  ViewVC Help
Powered by ViewVC 1.1.26