Diff for /loncom/homework/structuretags.pm between versions 1.24 and 1.25

version 1.24, 2000/12/21 18:13:33 version 1.25, 2000/12/29 21:54:06
Line 6  use strict; Line 6  use strict;
 use Apache::lonnet;  use Apache::lonnet;
   
 sub BEGIN {  sub BEGIN {
   &Apache::lonxml::register('Apache::structuretags',('block','while','randomlist','problem','web','tex','part','pre_duedate','post_answerdate','solved','not_solved'));    &Apache::lonxml::register('Apache::structuretags',('block','while','randomlist','problem','web','tex','part','preduedate','postanswerdate','solved','notsolved'));
 }  }
   
 sub start_web {  sub start_web {
Line 237  sub end_part { Line 237  sub end_part {
   return &Apache::inputtags::gradestatus($Apache::inputtags::part);    return &Apache::inputtags::gradestatus($Apache::inputtags::part);
 }  }
   
 sub start_pre_duedate {  sub start_preduedate {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   if ($target ne 'meta') {    if ($target ne 'meta') {
     if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER') {      if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER') {
Line 247  sub start_pre_duedate { Line 247  sub start_pre_duedate {
   return '';    return '';
 }  }
   
 sub end_pre_duedate {  sub end_preduedate {
   return '';    return '';
 }  }
   
 sub start_post_answerdate {  sub start_postanswerdate {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   if ($target ne 'meta') {    if ($target ne 'meta') {
     if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {      if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
Line 261  sub start_post_answerdate { Line 261  sub start_post_answerdate {
   return '';    return '';
 }  }
   
 sub end_post_answerdate {  sub end_postanswerdate {
   return '';    return '';
 }  }
   
 sub start_not_solved {  sub start_notsolved {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   if ($target ne 'meta') {    if ($target ne 'meta') {
     my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};      my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
Line 278  sub start_not_solved { Line 278  sub start_not_solved {
   return '';    return '';
 }  }
   
 sub end_not_solved {  sub end_notsolved {
   return '';    return '';
 }  }
   

Removed from v.1.24  
changed lines
  Added in v.1.25


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>