Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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

1.1     ! albertel    1: # The LearningOnline Network with CAPA
        !             2: # <script> definiton
        !             3: 
        !             4: 
        !             5: package Apache::structuretags; 
        !             6: 
        !             7: use strict;
        !             8: use Apache::lonnet;
        !             9: 
        !            10: sub BEGIN {
        !            11:   &Apache::lonxml::register('Apache::structuretags',('block'));
        !            12: }
        !            13: 
        !            14: sub start_block {
        !            15:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
        !            16: 
        !            17:   my $code = @$parstack[$#$parstack];
        !            18:   $code =~ s/\"//g;
        !            19:   $code .=';return $condition;';
        !            20:   my $result = &Apache::run::run($code,$safeeval);
        !            21:   if ( ! $result ) { 
        !            22:     my $skip=$parser->get_text("/block");
        !            23:   }
        !            24:   return "";
        !            25: }
        !            26: 
        !            27: sub end_block {
        !            28: }
        !            29: 
        !            30: 1;
        !            31: __END__