|
version 1.53, 2001/08/16 21:06:22
|
version 1.54, 2001/08/17 14:10:40
|
|
Line 2
|
Line 2
|
| # definition of tags that give a structure to a document |
# definition of tags that give a structure to a document |
| # 2/19 Guy |
# 2/19 Guy |
| # 6/26/2001 fixed extra web display at end of <web></web> tags |
# 6/26/2001 fixed extra web display at end of <web></web> tags |
| |
# 8/17 Gerd Kortemeyer |
| |
|
| package Apache::structuretags; |
package Apache::structuretags; |
| |
|
| use strict; |
use strict; |
|
Line 96 sub start_problem {
|
Line 98 sub start_problem {
|
| my $expression='$external::datestatus="'.$status.'";'; |
my $expression='$external::datestatus="'.$status.'";'; |
| $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";'; |
$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";'; |
| &Apache::run::run($expression,$safeeval); |
&Apache::run::run($expression,$safeeval); |
| if ( $status eq 'CLOSED' ) { |
if (( $status eq 'CLOSED' ) || |
| |
( $status eq 'UNCHECKEDOUT') || |
| |
( $status eq 'BANNED')) { |
| my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); |
my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); |
| if ( $target eq "web" ) { |
if ( $target eq "web" ) { |
| $result.= $head_tag_start.'</head>'; |
$result.= $head_tag_start.'</head>'; |
| return $result . $body_tag_start . |
my $msg=$body_tag_start. |
| " <br />Problem is not open to be viewed. The problem $datemsg<br />"; |
'<h1>Not open to be viewed</h1>'; |
| |
if ($status eq 'CLOSED') { |
| |
$msg.='The problem '.$datemsg; |
| |
} elsif ($status eq 'UNCHECKEDOUT') { |
| |
$msg.='The resource needs to be checked out'; |
| |
} |
| |
return $result.$msg.'<br />'; |
| } |
} |
| } |
} |
| } |
} |
![[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