File:  [LON-CAPA] / loncom / homework / structuretags.pm
Revision 1.1: download - view: text, annotated - select for diffs
Tue Jul 25 21:27:30 2000 UTC (23 years, 8 months ago) by albertel
Branches: MAIN
CVS tags: HEAD
-started work on web target for homework tags
-lonhomework kinda works

# The LearningOnline Network with CAPA
# <script> definiton


package Apache::structuretags; 

use strict;
use Apache::lonnet;

sub BEGIN {
  &Apache::lonxml::register('Apache::structuretags',('block'));
}

sub start_block {
  my ($target,$token,$parstack,$parser,$safeeval)=@_;

  my $code = @$parstack[$#$parstack];
  $code =~ s/\"//g;
  $code .=';return $condition;';
  my $result = &Apache::run::run($code,$safeeval);
  if ( ! $result ) { 
    my $skip=$parser->get_text("/block");
  }
  return "";
}

sub end_block {
}

1;
__END__

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