Return to londefdef.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.437, 2012/02/05 22:53:42 | version 1.440, 2012/07/06 22:46:12 |
---|---|
Line 55 use LONCAPA(); | Line 55 use LONCAPA(); |
BEGIN { | BEGIN { |
&Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr','hideweboutput')); | &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','style','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr','hideweboutput')); |
} | } |
Line 458 sub insert_meta { | Line 458 sub insert_meta { |
<meta />'; | <meta />'; |
} | } |
#-- <start> tag | |
sub start_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval, $style) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::startredirection(); | |
} else { | |
$currentstring = $token->[4]; | |
} | |
return $currentstring; | |
} | |
sub end_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::endredirection(); | |
} else { | |
$currentstring = $token->[2]; | |
} | |
return $currentstring; | |
} | |
# accessrule | # accessrule |
sub start_accessrule { | sub start_accessrule { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; | my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
Line 605 sub edit_controls { | Line 631 sub edit_controls { |
$result .= ' | $result .= ' |
<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; | <div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; |
if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { | if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { |
my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); | |
if ($url =~ /\.html?$/i) { | |
my ($symb,$itemtitle,$displayfile) = | |
&Apache::lonxml::get_courseupload_hierarchy($url); | |
if (($symb ne '') || ($env{'httpref.'.$url} ne '')) { | |
$result .= (' ' x 3). | |
&Apache::lonhtmlcommon::dependencies_button()."\n". | |
&Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,$url)."\n"; | |
} | |
} | |
my $viewtext = &mt('Course View'); | my $viewtext = &mt('Course View'); |
if (&Apache::loncommon::course_type() eq 'Community') { | if (&Apache::loncommon::course_type() eq 'Community') { |
$viewtext = &mt('Community View'); | $viewtext = &mt('Community View'); |