/[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 528 by dpavlin, Sun Oct 10 09:33:57 2004 UTC revision 529 by dpavlin, Tue Oct 19 16:30:12 2004 UTC
# Line 255  sub unroll { Line 255  sub unroll {
255    
256                          my $mfn_link = "thes/$mfn.html";                          my $mfn_link = "thes/$mfn.html";
257                          if (-e "out/$mfn_link") {                          if (-e "out/$mfn_link") {
258                                    $term =~ s# *\* *# <img src="img/crovoc.png" border="0">#;
259                                  $html .= " " x $level .                                  $html .= " " x $level .
260                                          qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}.                                          qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}.
261                                          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);"><img src="img/listic.png" border="0"></a></li>\n};
262                          } else {                          } else {
263                                  $log->warn("file 'out/$mfn_link' doesn't exist, skipping");                                  $log->warn("file 'out/$mfn_link' doesn't exist, skipping");
264                          }                          }
Legend:
Removed from v.528  
changed lines
  Added in v.529
  ViewVC Help
Powered by ViewVC 1.1.26