version 1.26, 2009/09/24 00:50:03
|
version 1.27, 2009/09/25 17:57:06
|
Line 40 use LONCAPA;
|
Line 40 use LONCAPA;
|
|
|
my %qparms; |
my %qparms; |
my $prefix; |
my $prefix; |
my $weightprefix; |
|
my $qtype; |
my $qtype; |
|
|
sub evaloptionhash { |
sub evaloptionhash { |
Line 193 sub handler {
|
Line 192 sub handler {
|
# ------------------------------------------------ Prefix for everything stored |
# ------------------------------------------------ Prefix for everything stored |
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; |
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; |
#------------------------------------------------- Prefix for storing weight of Problem Parts |
#------------------------------------------------- Prefix for storing weight of Problem Parts |
$weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; |
my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; |
|
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
|
|