Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl 15 Nov 2019 08:31:12 -0000 1.15 +++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl 15 Nov 2019 08:34:20 -0000 1.16 @@ -204,7 +204,7 @@ @option file filename @author Ernie Ghiglione (ErnieG@mm.st) } { - # open xml file + # open XML file set doc [dom parse [::tdom::xmlReadFile $file]] # coursetoc set coursetoc [$doc documentElement] @@ -239,7 +239,7 @@ @option file filename @author Ernie Ghiglione (ErnieG@mm.st) } { - # open xml file + # open XML file set doc [dom parse [::tdom::xmlReadFile $file]] # content @@ -326,14 +326,14 @@ # set txt [ad_html_text_convert -from "text/plain" -to "text/html" $txt] } - # saves it on a new html file + # saves it on a new HTML file set f_handler [open $filename w+] fconfigure $f_handler -encoding utf-8 puts -nonewline $f_handler " \ $txt \" close $f_handler - # returns what is is an href for resources + # returns what is an href for resources return $filename } @@ -368,7 +368,7 @@ @option file filename @author Ernie Ghiglione (ErnieG@mm.st) } { - # open xml file + # open XML file set doc [dom parse [::tdom::xmlReadFile $file]] # content set announcement [$doc documentElement] @@ -517,7 +517,7 @@ @option file filename @author Ernie Ghiglione (ErnieG@mm.st) } { - # open xml file + # open XML file set doc [dom parse [::tdom::xmlReadFile $file]] # content set forum [$doc documentElement] @@ -623,7 +623,7 @@ @option file filename @author Ernie Ghiglione (ErnieG@mm.st) } { - # open xml file + # open XML file set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]] # gets the manifest tree @@ -760,7 +760,7 @@ # this corsetoc item is childless, # therefore we nuke it (as it is an # empty folder - ns_log Notice "Therefore [lindex $item 0] [lindex $item 1] ([lindex $item 2]) we delete it.." + ns_log Notice "Therefore, [lindex $item 0] [lindex $item 1] ([lindex $item 2]) we delete it.." [lindex $item 2] delete @@ -989,7 +989,7 @@ # if has_packages != 0 then there was at # least one file was declared as a package - # Therefore we ignore $content + # Therefore, we ignore $content # This is an assumption as I haven't seen # files AND packages within the same resource.