Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

- file that will hold common routines for editing a homework

    1: # The LearningOnline Network with CAPA 
    2: # edit mode helpers
    3: # 3/20 Guy
    4: package Apache::edit; 
    5: 
    6: use strict;
    7: use Apache::lonnet;
    8: 
    9: sub tag_start {
   10:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   11:   my $result='';
   12: 
   13:   $result.="<table border=\"1\"><tr><td>&lt;$token->[1]&gt;</td>
   14: <td><input type=\"submit\" name=\"delete_$Apache::lonxml::curdepth\" value=\"Delete\" /></td>
   15: <td><input type=\"submit\" name=\"insert_$Apache::lonxml::curdepth\" value=\"Insert\" /></td>
   16: </tr><tr><td colspan=\"3\">\n";
   17:   return $result;
   18: }
   19: 
   20: sub tag_end {
   21:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   22:   my $result='';
   23: 
   24:   $result.="</td></tr><tr><td>&lt;/$token->[1]&gt;</td></tr></table>\n";
   25:   return $result;
   26: }
   27: 
   28: 1;
   29: __END__