|
version 1.227, 2003/11/26 19:35:28
|
version 1.227.2.2, 2004/02/06 22:38:24
|
|
Line 454 sub start_problem {
|
Line 454 sub start_problem {
|
| my @packages = split /,/,$packages; |
my @packages = split /,/,$packages; |
| my $allow_print_points = 0; |
my $allow_print_points = 0; |
| foreach my $partial_key (@packages) { |
foreach my $partial_key (@packages) { |
| if ($partial_key=~m/part_0/) { |
if ($partial_key=~m/^part_0$/) { |
| $allow_print_points=1; |
$allow_print_points=1; |
| } |
} |
| } |
} |
|
Line 517 sub end_problem {
|
Line 517 sub end_problem {
|
| if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
| $target eq 'tex') { |
$target eq 'tex') { |
| if ( $target eq 'grade' && $Apache::inputtags::part eq '0' && |
if ( $target eq 'grade' && $Apache::inputtags::part eq '0' && |
| $status eq 'CAN_ANSWER' ) { |
($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode)) { |
| # if part is zero, no <part>s existed, so we need to the grading |
# if part is zero, no <part>s existed, so we need to the grading |
| &Apache::inputtags::grade; |
&Apache::inputtags::grade; |
| } elsif ( ($target eq 'web' || $target eq 'tex') && |
} elsif ( ($target eq 'web' || $target eq 'tex') && |
|
Line 969 sub start_part {
|
Line 969 sub start_part {
|
| $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent'; |
$result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent'; |
| } |
} |
| my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
| my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'keys'); |
my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'packages'); |
| my @allkeys = split /,/,$allkeys; |
my @allkeys = split /,/,$allkeys; |
| my $allow_print_points = 0; |
my $allow_print_points = 0; |
| foreach my $partial_key (@allkeys) { |
foreach my $partial_key (@allkeys) { |
| if ($partial_key=~m/\_(\d*)\_weight/) { |
if ($partial_key=~m/^part_(.*)$/) { |
| if ($1 ne '0') {$allow_print_points=1;} |
if ($1 ne '0') {$allow_print_points=1;} |
| } |
} |
| } |
} |
|
Line 1009 sub end_part {
|
Line 1009 sub end_part {
|
| my $result=''; |
my $result=''; |
| if ( $target eq 'meta' ) { |
if ( $target eq 'meta' ) { |
| $result=''; |
$result=''; |
| } elsif ( $target eq 'grade' && $status eq 'CAN_ANSWER' && !$hidden) { |
} elsif ($target eq 'grade' && |
| |
($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) && |
| |
!$hidden) { |
| $result=&Apache::inputtags::grade; |
$result=&Apache::inputtags::grade; |
| } elsif (($target eq 'web' || $target eq 'tex') && !$hidden ) { |
} elsif (($target eq 'web' || $target eq 'tex') && !$hidden ) { |
| my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part, |
my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part, |
![[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