Index: openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	27 Oct 2014 16:40:05 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	7 Aug 2017 23:47:59 -0000	1.8
@@ -129,32 +129,19 @@
 
 } ;# _http_read
 
-# tcl page support
+# Tcl page support
 
 proc ns_putscript {conn ignored} {
 	ns_returnbadrequest $conn "Cannot PUT a script file"
 }
 
-if {[ns_info name] ne "NaviServer"} {
-  #
-  # Naviserver has dropped support for ns_share.
-  #
-  ns_share NS
-  set NS(months) [list January February March April May June \
-                      July August September October November December]
-}
-
 # _ns_dateentrywidget is not very popular and is not
-# internationalized. We keep it in Naviserver for backward
-# compatibility. It should become deprecated.
+# internationalized. We keep it for backward compatibility. It should
+# become deprecated.
 proc _ns_dateentrywidget {column} {
 
-    if {[ns_info name] ne "NaviServer"} {
-        ns_share NS
-    } else {
-        set NS(months) [list January February March April May June \
-                            July August September October November December]
-    }
+    set NS(months) [list January February March April May June \
+                        July August September October November December]
 
     set output "<select name='$column.month'>\n"
     for {set i 0} {$i < 12} {incr i} {
@@ -178,3 +165,9 @@
 
     return [ns_dbformvalueput $output $column time [lindex [split [ns_localsqltimestamp] " "] 1]]
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: