[BACK]Return to structuretags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.34 and 1.35

version 1.34, 2001/04/05 00:10:23 version 1.35, 2001/04/26 21:27:15
Line 76  sub start_problem { Line 76  sub start_problem {
     }      }
   }    }
   if ($target eq 'edit') {    if ($target eq 'edit') {
     return "<body bgcolor=\"#FFFFFF\">\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="edit" />';      return '<body bgcolor="#FFFFFF">
   <form name="lonhomework" method="POST" action="'.$ENV{'request.uri'}.'">
   <input type="hidden" name="submitted" value="edit" />
   <input type="submit" name="undo" value="undo" />
   ';
   }    }
   return '';    return '';
 }  }
Line 319  sub end_solved { Line 323  sub end_solved {
   
 sub start_startouttext {  sub start_startouttext {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   my $result='';    my @result=(''.'');
   if ($target eq "edit" ) { $result=" "; }    if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
   return $result;    return (@result);
 }  }
 sub end_startouttext {  sub end_startouttext {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   my $result='';    my $result='';
     my $text='';
   
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);      $text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);
     $result=&Apache::edit::editfield($token->[1],$result);      $result=
         &Apache::edit::tag_start("outtext").
    &Apache::edit::editfield($token->[1],$text,"Text Block");
     }
     if ($target eq 'modified') {
       $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
       $result='<startouttext />'.&Apache::edit::modifiedfield();
   }    }
   return $result;    return $result;
 }  }
 sub start_endouttext {  sub start_endouttext {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   my $result='';    my $result='';
   if ($target eq "edit" ) { $result=" "; }    if ($target eq "edit" ) { $result=&Apache::edit::tag_end("outtext"); }
     if ($target eq "modified") { $result='<endouttext />'; }
   return $result;    return $result;
 }  }
 sub end_endouttext {  sub end_endouttext {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   my $result='';    my @result=('','');
   if ($target eq "edit" ) { $result=" "; }    if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
   return $result;    return (@result);
 }  }
   
   
Removed from v.1.34  
changed lines
  Added in v.1.35

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