|
version 1.50, 2001/08/03 17:48:24
|
version 1.52, 2001/08/06 18:33:58
|
|
Line 67 sub start_problem {
|
Line 67 sub start_problem {
|
| #intialize globals |
#intialize globals |
| $Apache::inputtags::part='0'; |
$Apache::inputtags::part='0'; |
| @Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
| |
@Apache::inputtags::previous=(); |
| $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); |
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); |
| &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); |
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); |
| if ($Apache::lonhomework::type eq '') { |
if ($Apache::lonhomework::type eq '') { |
|
Line 304 sub start_randomlist {
|
Line 305 sub start_randomlist {
|
| sub shuffle { |
sub shuffle { |
| my $a=shift; |
my $a=shift; |
| my $i; |
my $i; |
| |
&Apache::response::setrandomnumber(); |
| for($i=@$a;--$i;) { |
for($i=@$a;--$i;) { |
| my $j=int rand($i+1); |
my $j=int rand($i+1); |
| next if $i == $j; |
next if $i == $j; |
|
Line 321 sub start_part {
|
Line 323 sub start_part {
|
| if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
| $Apache::inputtags::part=$id; |
$Apache::inputtags::part=$id; |
| @Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
| |
@Apache::inputtags::previous=(); |
| if ($target eq 'meta') { |
if ($target eq 'meta') { |
| return &Apache::response::mandatory_part_meta; |
return &Apache::response::mandatory_part_meta; |
| } elsif ($target eq 'web' || $target eq 'grade') { |
} elsif ($target eq 'web' || $target eq 'grade') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework