gustafn
committed
on 28 Sep 18
improve spelling
openacs-4/.../www/apm/package-add-2.tcl (+2 -1)
129 129             <blockquote><pre>[ns_quotehtml $errmsg]</pre></blockquote>"
130 130         }
131 131     }
132 132 } on_error {
133 133     if {[db_string apm_package_add_doubleclick {
134 134         select decode(count(*), 0, 0, 1) from apm_package_versions
135 135         where version_id = :version_id
136 136     } -default 0]} {
137 137         ad_returnredirect "version-view?version_id=$version_id"
138 138         ad_script_abort
139 139     }
140 140     ad_return_error "Database Error" "
141 141     I was unable to create your package for the following reason:
142 142
143 143     <blockquote><pre>[ns_quotehtml $errmsg]</pre></blockquote>
144 144     "
145 145     ad_script_abort
146 146 }
147 147
148 148 ad_returnredirect "version-view?version_id=$version_id"
  149 ad_script_abort
149 150
150 151 # Local variables:
151 152 #    mode: tcl
152 153 #    tcl-indent-level: 4
153 154 #    indent-tabs-mode: nil
154 155 # End: