Index: openacs-4/packages/dotlrn/www/community-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit-2.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/community-edit-2.tcl	29 Jun 2018 17:27:19 -0000	1.23
+++ openacs-4/packages/dotlrn/www/community-edit-2.tcl	3 Sep 2024 15:37:37 -0000	1.24
@@ -62,7 +62,7 @@
 
 set title "$header_img-[db_nextval acs_object_id_seq]"
 
-#  # strip off the C:\directories... crud and just get the file name
+#  # strip off the C:\directories... crud and just get the filename
 
 if {![regexp {([^/\\]+)$} $header_img match client_filename]} {
       set client_filename $header_img
@@ -78,7 +78,7 @@
      && $tmp_size > $maxFileSize 
  } {
     set msg_subst_list [list system_name [ad_system_name] \
-                             max_attachments_bytes [util_commify_number $maxFileSize]]
+                             max_attachments_bytes [lc_numeric $maxFileSize]]
     ad_return_complaint 1 "<li>[_ dotlrn.your_icon_is_too_large $msg_subst_list]"
     ad_script_abort
 }
@@ -90,17 +90,17 @@
         # We will store the image in the topmost root folder
         set parent_id [db_string get_root_folder {}]
 
-        # if this is a re-upload, pass along the item_id
+        # If this is a re-upload, pass along the item_id.
         set item_id [content::item::get_id_by_name -name $logo_name -parent_id $parent_id]
 
-	# if it's a new upload, create the item
+	# If it is a new upload, create the item.
 	if { $item_id eq ""} {
 	    set item_id [content::item::new -name $logo_name -parent_id $parent_id -content_type image]
 
-        # since it's just the header logo, which can't be accessed outside of
-        # the community anyway, let everyone have access to see it.  That way
-        # it won't cause any trouble later on when we try to implement
-        # try-before-you-buy for non-members.
+        # Since it is just the header logo, which can't be accessed
+        # outside of the community anyway, let everyone have access to
+        # see it.  That way it won't cause any trouble later on when
+        # we try to implement try-before-you-buy for non-members.
         permission::grant -party_id [acs_magic_object registered_users] -object_id $item_id -privilege read
 	}
 
@@ -151,7 +151,7 @@
     set header_font_fragment ""
 } else {
     set header_font_text $header_font
-    # CSS requies quoting of font names with spaces
+    # CSS requires quoting of font names with spaces
     if {![regexp "^'.*'$" $header_font]} {
         set header_font "'$header_font'"
     }