--- loncom/homework/structuretags.pm 2007/09/10 17:02:32 1.395
+++ loncom/homework/structuretags.pm 2007/09/11 23:36:39 1.396
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.395 2007/09/10 17:02:32 albertel Exp $
+# $Id: structuretags.pm,v 1.396 2007/09/11 23:36:39 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1070,16 +1070,19 @@ sub start_definetag {
my $name = $token->[2]->{'name'};
my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
- if ($name=~/^\//) {
- $result=
- '
END '.$name.' |
';
- } else {
- $result=
- '
BEGIN '.$name.' |
';
+ if ($target eq 'web') {
+ if ($name=~/^\//) {
+ $result=
+ '
'.
+ &mt('END [_1]'.''.$name.'').' |
';
+ } else {
+ $result=
+ '
'.
+ &mt('BEGIN [_1]'.''.$name.'').' |
';
+ }
+ $skip = &HTML::Entities::encode($skip, '<>&"');
+ $result.=''.$skip.' |
';
}
- $skip=~s/\\<\;/gs;
- $skip=~s/\>/\>\;/gs;
- $result.=''.$skip.' |
';
return $result;
}