Annotation of loncom/homework/structuretags.pm, revision 1.62

1.34      albertel    1: # The LearningOnline Network with CAPA 
                      2: # definition of tags that give a structure to a document
1.33      albertel    3: # 2/19 Guy
1.44      ng          4: # 6/26/2001 fixed extra web display at end of <web></web> tags
1.60      www         5: # 8/17,8/18,8/20 Gerd Kortemeyer
1.54      www         6: 
1.1       albertel    7: package Apache::structuretags; 
                      8: 
                      9: use strict;
                     10: use Apache::lonnet;
                     11: 
                     12: sub BEGIN {
1.48      albertel   13:   &Apache::lonxml::register('Apache::structuretags',('block','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext'));
1.37      albertel   14: #  &Apache::lonxml::register_insert('problem','',('part','postanswerdate','preduedate'))
1.10      albertel   15: }
                     16: 
                     17: sub start_web {
1.40      albertel   18:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.10      albertel   19:   my $bodytext=&Apache::lonxml::get_all_text("/web",$$parser[$#$parser]);
1.19      albertel   20:   if ($target eq 'web') {
                     21:     return $bodytext;
                     22:   } 
                     23:   return '';
1.10      albertel   24: }
                     25: 
                     26: sub end_web {
1.44      ng         27:     return '';
1.10      albertel   28: }
                     29: 
                     30: sub start_tex {
1.40      albertel   31:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.10      albertel   32:   my $bodytext=&Apache::lonxml::get_all_text("/tex",$$parser[$#$parser]);
1.19      albertel   33:   if ($target eq 'tex') {
                     34:     return $bodytext
                     35:   }
1.10      albertel   36:   return '';
                     37: }
                     38: 
                     39: sub end_tex {
1.44      ng         40:     return '';
1.9       albertel   41: }
                     42: 
1.48      albertel   43: sub page_start {
                     44:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                     45:   my $result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,$parser,$safeeval);
                     46:   my $head_tag_start='<head>'.&Apache::lonxml::registerurl();
                     47:   my $body_tag_start='<body onLoad="'.&Apache::lonxml::loadevents().'" '.
1.50      albertel   48: 	  'onUnload="'.&Apache::lonxml::unloadevents().'" ';
                     49:   my $background=&Apache::lonxml::get_param('background',$parstack,$safeeval);
                     50:   if ($background) {
                     51:     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
                     52:                                         $background;
                     53:     $body_tag_start.='background="'.$background.'" ';
                     54:   } else {
                     55:     my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,$safeeval);
                     56:     if ($bgcolor) {
                     57:       $body_tag_start.='bgcolor="'.$bgcolor.'" ';
                     58:     } else {
                     59:       $body_tag_start.='bgcolor="#ffffff"';
                     60:     }
                     61:   }
                     62:   $body_tag_start.='>';
1.48      albertel   63:   return ($result,$head_tag_start,$body_tag_start);
                     64: }
                     65: 
1.9       albertel   66: sub start_problem {
1.40      albertel   67:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.19      albertel   68: 
                     69: #intialize globals
                     70:   $Apache::inputtags::part='0';
                     71:   @Apache::inputtags::responselist = ();
1.51      albertel   72:   @Apache::inputtags::previous=();
1.42      albertel   73:   $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
                     74:   &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
                     75:   if ($Apache::lonhomework::type eq '') {
1.53      albertel   76:     my $uri=$ENV{'request.uri'};
                     77:     if ($uri=~/\.(\w+)$/) {
                     78:       $Apache::lonhomework::type=$1;
                     79:       &Apache::lonxml::debug("Using type of $1");
                     80:     } else {
                     81:       $Apache::lonhomework::type='problem';
                     82:       &Apache::lonxml::debug("Using default type, problem, :$uri:");
                     83:     }
1.42      albertel   84:   }
1.58      www        85: 
1.19      albertel   86: #adeed vars to the scripting enviroment
                     87:   my $expression='$external::part='.$Apache::inputtags::part.';';
                     88:   &Apache::run::run($expression,$safeeval);
1.22      albertel   89:   my $status;
1.55      www        90:   my $accessmsg;
1.36      albertel   91: 
1.41      albertel   92:   #should get back a <html> or the neccesary stuff to start XML/MathML
1.48      albertel   93:   my ($result,$head_tag_start,$body_tag_start)=
                     94:     &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
1.36      albertel   95: 
1.58      www        96:   if ($Apache::lonhomework::type eq 'exam') {
                     97:       if ($target eq 'web') {
                     98:           my $token=$Apache::lonhomework::history{"resource.0.outtoken"};
                     99:           if (($ENV{'form.doescheckout'}) && (!$token)) {
                    100: 	     $token=&Apache::lonxml::maketoken();
1.62    ! www       101:              $Apache::lonhomework::history{"resource.0.outtoken"}=$token;
1.58      www       102:           }
                    103:           $body_tag_start.=&Apache::lonxml::printtokenheader($target,$token);
1.62    ! www       104:           if ($ENV{'user.adv'}) {
        !           105: 	      $body_tag_start.=&Apache::lonxml::tokeninputfield;
        !           106:           }
1.58      www       107:       }
                    108:       if ($target eq 'meta') {
1.59      www       109:      
1.58      www       110: 	  return (<<ENDSTORES);
                    111: <stores part="0" name="outtoken" type="string" 
1.59      www       112:  display="Document ID checked out"></stores>
1.58      www       113: <stores part="0" name="checkouttime" type="date"
1.59      www       114:  display="Time checked out"></stores>
1.58      www       115: <stores part="0" name="outremote" type="string" 
1.59      www       116:  display="Client IP checked out from"></stores>
1.58      www       117: 
                    118: <stores part="0" name="intoken" type="string" 
1.59      www       119:  display="Document ID checked in"></stores>
1.58      www       120: <stores part="0" name="checkintime" type="date"
1.59      www       121:  display="Time checked in"></stores>
1.58      www       122: <stores part="0" name="inremote" type="string" 
1.59      www       123:  display="Client IP checked in from"></stores>
1.58      www       124: ENDSTORES
1.57      www       125:       }
                    126:   }
1.34      albertel  127:   if ($target eq 'web' || $target eq 'grade') {
1.55      www       128:     ($status,$accessmsg) = &Apache::lonhomework::check_access('0');
1.22      albertel  129:     push (@Apache::inputtags::status,$status);
1.24      albertel  130:     my $expression='$external::datestatus="'.$status.'";';
                    131:     $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
                    132:     &Apache::run::run($expression,$safeeval);
1.54      www       133:     if (( $status eq 'CLOSED' ) ||
                    134:         ( $status eq 'UNCHECKEDOUT') ||
                    135:         ( $status eq 'BANNED')) {
1.21      albertel  136:       my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]);
                    137:       if ( $target eq "web" ) {
1.41      albertel  138: 	$result.= $head_tag_start.'</head>';
1.54      www       139:         my $msg=$body_tag_start.
                    140: 	    '<h1>Not open to be viewed</h1>';
                    141:         if ($status eq 'CLOSED') {
1.55      www       142: 	    $msg.='The problem '.$accessmsg;
1.54      www       143: 	} elsif ($status eq 'UNCHECKEDOUT') {
1.56      www       144:             $msg.=(<<ENDCHECKOUT);
                    145: <h2>The resource needs to be checked out</h2>
                    146: As a resource gets checked out, a unique timestamped ID is given to it, and a
                    147: permanent record is left in the system.<p />
                    148: <font color=red>
                    149: Checking out resources is subject to course policies, and may exclude future
                    150: credit even if done erroneously.<p />
                    151: </font>  
                    152: <form method=post>
1.60      www       153: <input type=button name="doescheckout" 
                    154: value="Check out Exam for Viewing" 
                    155: onClick="if (confirm('Check out Exam?')) { this.form.submit(); }" />
1.56      www       156: </form>
                    157: ENDCHECKOUT
1.54      www       158:         }
                    159: 	return $result.$msg.'<br />';
1.21      albertel  160:       }
1.41      albertel  161:     }
1.21      albertel  162:   }
1.19      albertel  163:   if ($target eq 'web') {
1.39      albertel  164:     my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
1.30      albertel  165:     if ($name eq '') { 
                    166:       $name=&Apache::lonnet::EXT('resource.title');
                    167:       if ($name eq 'con_lost') { $name = ''; }
                    168:     }
                    169:     $Apache::lonhomework::name=$name;
1.22      albertel  170:     if ($status eq 'CAN_ANSWER') {
                    171:       # create a page header and exit
1.41      albertel  172:       $result.="$head_tag_start<title>$name</title></head>\n
                    173:               $body_tag_start\n
1.36      albertel  174:               <form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".
                    175: 		'<input type="hidden" name="submitted" value="yes" />';
                    176:       if ($ENV{'request.state'} eq "construct") {
                    177: 	$result.='<input type="hidden" name="problemmode" value="View" />
                    178:                  <input type="submit" name="problemmode" value="Edit" /><hr />';
                    179:       }
                    180:       return $result;
1.29      albertel  181:     } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'CLOSED') {
1.41      albertel  182:       return $result.$head_tag_start."<title>$name</title></head>\n$body_tag_start\n";
1.22      albertel  183:     }
                    184:   }
1.34      albertel  185:   if ($target eq 'edit') {
1.41      albertel  186:     $result.=$head_tag_start."</head>".$body_tag_start.
                    187:       '<form name="lonhomework" method="POST" action="'.$ENV{'request.uri'}.'">
                    188:        <input type="hidden" name="submitted" value="edit" />
                    189:        <input type="hidden" name="problemmode" value="Edit" />
                    190:        <input type="submit" name="problemmode" value="View" />
                    191:        <input type="submit" name="Undo" value="undo" /> <hr />
1.49      albertel  192:        <input type="submit" name="submit" value="Submit Changes" /><br />
1.41      albertel  193:       ';
1.39      albertel  194:     my $temp=&Apache::edit::insertlist($target,$token);
1.36      albertel  195:     $result.=$temp;
                    196:     return $result;
1.34      albertel  197:   }
1.37      albertel  198:   if ($target eq 'modified') {
                    199:     $result=$token->[4];
                    200:     $result.=&Apache::edit::handle_insert();
                    201:     return $result;
                    202:   }
1.19      albertel  203:   return '';
1.9       albertel  204: }
                    205: 
                    206: sub end_problem {
1.40      albertel  207:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.16      albertel  208:   my $result='';
1.24      albertel  209:   my $status=$Apache::inputtags::status['-1'];
1.40      albertel  210:   if ($target eq 'grade' || $target eq 'web' ) {
1.28      albertel  211:     if ( $target eq 'grade' && $Apache::inputtags::part eq '0' &&
                    212:        $status eq 'CAN_ANSWER') {
1.19      albertel  213:       # if part is zero, no <part>s existed, so we need to the grading
                    214:       &Apache::inputtags::grade;
                    215:     } elsif ($Apache::inputtags::part eq '0') {
                    216:       # if part is zero, no <part>s existed, so we need show the current 
                    217:       # grading status
1.20      albertel  218:       $result.= &Apache::inputtags::gradestatus($Apache::inputtags::part);
1.41      albertel  219:     }
1.22      albertel  220:     if ($target eq 'web') { 
                    221:       if ($status eq 'CAN_ANSWER') {
                    222: 	$result.="</form></body>\n"; 
1.28      albertel  223:       } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {
1.41      albertel  224: 	$result.="</body>\n";
                    225:       }
1.50      albertel  226:       $result.=&Apache::lonxml::xmlend();
1.22      albertel  227:     }
1.41      albertel  228:   }
1.34      albertel  229:   if ($target eq 'meta') {
1.18      albertel  230:     if ($Apache::inputtags::part eq '0') {
1.16      albertel  231:       $result=&Apache::response::mandatory_part_meta;
                    232:     }
                    233:   }
1.34      albertel  234:   if ($target eq 'edit') {
                    235:     &Apache::lonxml::debug("in end_problem with $target, edit");
1.48      albertel  236:     $result='<br /><input type="submit" name="submit" value="Submit Changes" />';
                    237:   }
                    238:   return $result;
                    239: }
                    240: 
                    241: sub start_library {
                    242:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    243:   my ($result,$head_tag_start,$body_tag_start)=
                    244:     &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
                    245:   if ($target eq 'edit') {
                    246:     $result.=$head_tag_start."</head>".$body_tag_start.
                    247:       '<form name="lonhomework" method="POST" action="'.$ENV{'request.uri'}.'">
                    248:        <input type="hidden" name="submitted" value="edit" />
                    249:        <input type="hidden" name="problemmode" value="Edit" />
                    250:        <input type="submit" name="problemmode" value="View" />
                    251:        <input type="submit" name="Undo" value="undo" /> <hr />
                    252:       ';
                    253:     my $temp=&Apache::edit::insertlist($target,$token);
                    254:     $result.=$temp;
                    255:     return $result;
                    256:   }
                    257:   if ($target eq 'modified') {
                    258:     $result=$token->[4];
                    259:     $result.=&Apache::edit::handle_insert();
                    260:     return $result;
                    261:   }
                    262:   return '';
                    263: }
                    264: 
                    265: sub end_library {
                    266:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    267:   my $result='';
                    268:   if ($target eq 'edit') {
1.34      albertel  269:     $result='<br /><input type="submit" name="submit" value="Submit Changes" />';
                    270:   }
1.16      albertel  271:   return $result;
1.1       albertel  272: }
                    273: 
                    274: sub start_block {
1.40      albertel  275:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.1       albertel  276: 
1.38      albertel  277:   if ($target eq 'web' || $target eq 'grade') {
                    278:     my $code = @$parstack[$#$parstack];
                    279:     $code =~ s/\"//g;
                    280:     $code .=';return $condition;';
                    281:     #  print "<br />$code<br />";
                    282:     my $result = &Apache::run::run($code,$safeeval);
                    283:     &Apache::lonxml::debug("block :$code: returned :$result:");
                    284:     if ( ! $result ) { 
                    285:       my $skip=&Apache::lonxml::get_all_text("/block",$$parser[$#$parser]);
                    286:       &Apache::lonxml::debug("skipping ahead :$skip: $$parser[$#$parser]");
                    287:     }
1.1       albertel  288:   }
                    289:   return "";
                    290: }
                    291: 
                    292: sub end_block {
1.38      albertel  293:   return '';
1.4       tsai      294: }
                    295: 
                    296: sub start_while {
1.40      albertel  297:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.4       tsai      298: 
                    299:   my $code = @$parstack[$#$parstack];
                    300:   $code =~ s/\"//g;
                    301:   $code .=';return $condition;';
                    302: 
1.5       tsai      303:   push( @Apache::structuretags::whileconds, $code); 
1.4       tsai      304:   my $result = &Apache::run::run($code,$safeeval);
                    305:   my $bodytext=$$parser[$#$parser]->get_text("/while");
1.5       tsai      306:   push( @Apache::structuretags::whilebody, $bodytext);
                    307:   if ( $result ) { 
1.8       albertel  308:     &Apache::lonxml::newparser($parser,\$bodytext);
1.4       tsai      309:   }
                    310:   return "";
                    311: }
                    312: 
                    313: sub end_while {
1.40      albertel  314:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.5       tsai      315:   my $code = pop @Apache::structuretags::whileconds;
                    316:   my $bodytext = pop @Apache::structuretags::whilebody;
                    317:   my $result = &Apache::run::run($code,$safeeval);
                    318:   if ( $result ) { 
1.8       albertel  319:     &Apache::lonxml::newparser($parser,\$bodytext);
1.5       tsai      320:   } 
                    321:   return "";
1.1       albertel  322: }
1.6       tsai      323: 
                    324: # <randomlist> 
                    325: #  <tag1>..</tag1>
                    326: #  <tag2>..</tag2>
                    327: #  <tag3>..</tag3>
                    328: #  ... 
                    329: # </randomlist>
                    330: sub start_randomlist {
1.40      albertel  331:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.9       albertel  332:   my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);
1.6       tsai      333:   my $b_parser= HTML::TokeParser->new(\$body);
                    334:   my $b_tok;
                    335:   my @randomlist;
                    336:   my $list_item;
                    337: 
                    338:   while($b_tok = $b_parser->get_token() ) {
                    339:     if($b_tok->[0] eq 'S') { # start tag
                    340:     # get content of the tag until matching end tag
                    341:     # get all text upto the matching tag
                    342:     # and push the content into @randomlist
1.9       albertel  343:       $list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],$b_parser);
1.7       tsai      344:       $list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
1.6       tsai      345:       push(@randomlist,$list_item);
1.32      albertel  346:    #  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4], $list_item</b>";
1.6       tsai      347:     }
                    348:     if($b_tok->[0] eq 'T') { # text
                    349:     # what to do with text in between tags?
1.32      albertel  350:       #  print "<b>TEXT $b_tok->[1]</b><br />";
1.6       tsai      351:     }
                    352:     # if($b_tok->[0] eq 'E') { # end tag, should not happen
1.32      albertel  353:       #  print "<b>END-TAG $b_tok->[1]</b><br />";
1.6       tsai      354:     # }
                    355:   }
1.7       tsai      356:   my @idx_arr = (0 .. $#randomlist);
                    357:   &Apache::structuretags::shuffle(\@idx_arr);
                    358:   my $bodytext = '';
                    359:   for(0 .. $#randomlist) {
                    360:     $bodytext .= "$randomlist[ $idx_arr[$_] ]";
                    361:   }
1.8       albertel  362: 
                    363:   &Apache::lonxml::newparser($parser,\$bodytext);
1.6       tsai      364:   return "";
1.7       tsai      365: }
                    366: 
                    367: sub shuffle {
                    368:     my $a=shift;
                    369:     my $i;
1.52      albertel  370:     &Apache::response::setrandomnumber();
1.7       tsai      371:     for($i=@$a;--$i;) {
                    372:       my $j=int rand($i+1);
                    373:       next if $i == $j;
                    374:       @$a[$i,$j] = @$a[$j,$i];
                    375:     }
1.6       tsai      376: }
                    377: 
                    378: sub end_randomlist {
1.46      albertel  379:   return '';
1.6       tsai      380: }
                    381: 
1.11      albertel  382: sub start_part {
1.40      albertel  383:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.39      albertel  384:   my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
1.47      albertel  385:   if ($id eq '') { $id = $Apache::lonxml::curdepth; }
1.14      albertel  386:   $Apache::inputtags::part=$id;
1.18      albertel  387:   @Apache::inputtags::responselist = ();
1.51      albertel  388:   @Apache::inputtags::previous=();
1.15      www       389:   if ($target eq 'meta') {
1.16      albertel  390:     return &Apache::response::mandatory_part_meta;
1.37      albertel  391:   } elsif ($target eq 'web' || $target eq 'grade') {
1.55      www       392:     my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
1.23      albertel  393:     push (@Apache::inputtags::status,$status);
                    394:     my $expression='$external::datestatus="'.$status.'";';
                    395:     $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                    396:     &Apache::run::run($expression,$safeeval);
                    397:     if ( $status eq 'CLOSED' ) {
1.21      albertel  398:       my $bodytext=&Apache::lonxml::get_all_text("/part",$$parser[$#$parser]);
                    399:       if ( $target eq "web" ) {
1.55      www       400: 	return "<br />Part is not open to be viewed. It $accessmsg<br />";
1.21      albertel  401:       }
                    402:     }
1.15      www       403:   }
1.19      albertel  404:   return '';
1.11      albertel  405: }
                    406: 
                    407: sub end_part {
1.40      albertel  408:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.18      albertel  409:   &Apache::lonxml::debug("in end_part $target ");
1.28      albertel  410:   my $status=$Apache::inputtags::status['-1'];
1.23      albertel  411:   pop @Apache::inputtags::status;
1.19      albertel  412:   if ( $target eq 'meta' ) { return ''; }
1.37      albertel  413:   if ( $target eq 'grade' && $status eq 'CAN_ANSWER') {
                    414:     return &Apache::inputtags::grade;
1.28      albertel  415:   }
1.37      albertel  416:   if ($target eq 'web') {
                    417:     return &Apache::inputtags::gradestatus($Apache::inputtags::part);
                    418:   }
                    419:   return '';
1.11      albertel  420: }
1.1       albertel  421: 
1.25      albertel  422: sub start_preduedate {
1.40      albertel  423:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  424:   if ($target eq 'web' || $target eq 'grade') {
1.29      albertel  425:     if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
                    426: 	$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER' ) {
1.26      albertel  427:       &Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]);
1.24      albertel  428:     }
                    429:   }
                    430:   return '';
                    431: }
                    432: 
1.25      albertel  433: sub end_preduedate {
1.24      albertel  434:   return '';
                    435: }
                    436: 
1.25      albertel  437: sub start_postanswerdate {
1.40      albertel  438:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  439:   if ($target eq 'web' || $target eq 'grade') {
1.24      albertel  440:     if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
1.26      albertel  441:       &Apache::lonxml::get_all_text("/postanswerdate",$$parser[$#$parser]);
1.24      albertel  442:     }
                    443:   }
                    444:   return '';
                    445: }
                    446: 
1.25      albertel  447: sub end_postanswerdate {
1.24      albertel  448:   return '';
                    449: }
                    450: 
1.25      albertel  451: sub start_notsolved {
1.40      albertel  452:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  453:   if ($target eq 'web' || $target eq 'grade') {
1.24      albertel  454:     my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                    455:     &Apache::lonxml::debug("not solved has :$gradestatus:");
                    456:     if ($gradestatus =~ /^correct/) {
                    457:       &Apache::lonxml::debug("skipping");
1.26      albertel  458:       &Apache::lonxml::get_all_text("/notsolved",$$parser[$#$parser]);
1.24      albertel  459:     }
                    460:   }
                    461:   return '';
                    462: }
                    463: 
1.25      albertel  464: sub end_notsolved {
1.24      albertel  465:   return '';
                    466: }
                    467: 
                    468: sub start_solved {
1.40      albertel  469:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  470:   if ($target eq 'web' || $target eq 'grade') {
1.24      albertel  471:     my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                    472:     if ($gradestatus !~ /^correct/) {
                    473:       &Apache::lonxml::get_all_text("/solved",$$parser[$#$parser]);
                    474:     }
                    475:   }
                    476:   return '';
                    477: }
                    478: 
                    479: sub end_solved {
                    480:   return '';
                    481: }
1.34      albertel  482: 
                    483: sub start_startouttext {
1.40      albertel  484:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.35      albertel  485:   my @result=(''.'');
                    486:   if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
                    487:   return (@result);
1.34      albertel  488: }
                    489: sub end_startouttext {
1.40      albertel  490:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  491:   my $result='';
1.35      albertel  492:   my $text='';
                    493: 
1.34      albertel  494:   if ($target eq 'edit') {
1.35      albertel  495:     $text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);
1.43      albertel  496:     $result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>
1.42      albertel  497: <td>Delete:".
                    498:   &Apache::edit::deletelist($target,$token)
                    499:   ."</td>
                    500: <td>".
                    501:   &Apache::edit::insertlist($target,$token).
                    502:     "</td>
                    503: </tr><tr><td colspan=\"3\">\n".
1.45      albertel  504: 	&Apache::edit::editfield($token->[1],$text,"",50,4);
1.35      albertel  505:   }
                    506:   if ($target eq 'modified') {
                    507:     $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
                    508:     $result='<startouttext />'.&Apache::edit::modifiedfield();
1.34      albertel  509:   }
                    510:   return $result;
                    511: }
                    512: sub start_endouttext {
1.40      albertel  513:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.34      albertel  514:   my $result='';
1.43      albertel  515:   if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
1.35      albertel  516:   if ($target eq "modified") { $result='<endouttext />'; }
1.34      albertel  517:   return $result;
                    518: }
                    519: sub end_endouttext {
1.40      albertel  520:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.35      albertel  521:   my @result=('','');
                    522:   if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                    523:   return (@result);
1.34      albertel  524: }
1.45      albertel  525: sub delete_startouttext {
                    526:   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    527: #  my $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
                    528:   my $text=$$parser['-1']->get_text("/endouttext");
                    529:   my $token=$$parser['-1']->get_token();
                    530:   &Apache::lonxml::debug("Deleting :$text: and :$token->[0]:$token->[1]:$token->[2]: for startouttext");
                    531:   &Apache::lonxml::end_tag($tagstack,$parstack,$token);
                    532:   # Deleting 2 parallel tag pairs, but we need the numbers later to look like 
                    533:   # they did the last time round
                    534:   &Apache::lonxml::increasedepth($token);
                    535:   &Apache::lonxml::decreasedepth($token);
                    536:   return 1;
                    537: }
1.34      albertel  538: 
1.1       albertel  539: 1;
                    540: __END__

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