[Gridflow-cvs] [svn] commit: r6065 - /trunk/doc/flow_classes/help_to_html

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Fri Aug 13 01:21:46 EDT 2010


Author: matju
Date: Fri Aug 13 01:21:46 2010
New Revision: 6065

Log:
stupidest commit EVAR

Modified:
    trunk/doc/flow_classes/help_to_html

Modified: trunk/doc/flow_classes/help_to_html
==============================================================================
--- trunk/doc/flow_classes/help_to_html (original)
+++ trunk/doc/flow_classes/help_to_html Fri Aug 13 01:21:46 2010
@@ -8,11 +8,11 @@
 set n [llength $files]; set i 0
 foreach fname $files {
   set f [open $fname]
-  set g [open png/[regsub {pd$} [basename $fname] html] w]
+  set g [open png/[regsub {pd$} $fname html] w]
   puts $g "<html><head><title>$fname</title></head>"
   puts $g "<style type=\"text/css\">.hidden\{font-size: 8px\; color: white\}</style>"
   puts $g "<body>"
-  puts $g "<img src=\"[regsub # [regsub {pd$} $fname png] %23]\"><br clear=\"left\">"
+  puts $g "<img src=\"[regsub # [regsub {pd$} [basename $fname] png] %23]\"><br clear=\"left\">"
   puts $g "<p class=\"hidden\">"
   foreach line [pd_mess_split [read $f]] {
     if {[lindex $line 1] == "text"} {puts $g [lrange $line 4 end]}



More information about the Gridflow-cvs mailing list