--- loncom/homework/structuretags.pm 2010/12/20 05:51:35 1.465.2.7
+++ loncom/homework/structuretags.pm 2010/12/31 19:24:48 1.465.2.9
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.465.2.7 2010/12/20 05:51:35 raeburn Exp $
+# $Id: structuretags.pm,v 1.465.2.9 2010/12/31 19:24:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -128,6 +128,7 @@ sub homework_js {
&setmode_javascript().
<<'JS';
JS
}
@@ -167,35 +168,40 @@ sub file_delchk_js {
&mt('Submit Answer?');
return <<"ENDSCRIPT";
ENDSCRIPT
}
@@ -803,12 +809,12 @@ sub store_aggregates {
$cdomain,$cname);
}
if (keys(%anoncounter) > 0) {
- &Apache::lonnet::cinc('nohist_anonsurveys',\%anoncounter,
- $cdomain,$cname);
+ &Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter,
+ $cdomain,$cname);
}
if (keys(%randtrycounter) > 0) {
- &Apache::lonnet::cinc('nohist_randomizetry',\%randtrycounter,
- $cdomain,$cname);
+ &Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter,
+ $cdomain,$cname);
}
}