Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/edit.pm, revision 1.1

1.1     ! albertel    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__