version 1.162, 2002/03/25 20:06:08
|
version 1.165, 2002/04/04 17:35:57
|
Line 176 sub xmlend {
|
Line 176 sub xmlend {
|
} |
} |
my $sender='Anonymous'; |
my $sender='Anonymous'; |
if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { |
if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { |
$sender=$contrib{$idx.':sendername'}.' at '. |
$sender=$contrib{$idx.':plainname'}.' ('. |
$contrib{$idx.':senderdomain'}; |
$contrib{$idx.':sendername'}.' at '. |
|
$contrib{$idx.':senderdomain'}.')'; |
if ($contrib{$idx.':anonymous'}) { |
if ($contrib{$idx.':anonymous'}) { |
$sender.=' (anonymous)'; |
$sender.=' [anonymous] '. |
|
$contrib{$idx.':screenname'}; |
} |
} |
if ($seeid) { |
if ($seeid) { |
if ($hidden) { |
if ($hidden) { |
Line 190 sub xmlend {
|
Line 192 sub xmlend {
|
$symb.':::'.$idx.'">Hide</a>'; |
$symb.':::'.$idx.'">Hide</a>'; |
} |
} |
} |
} |
|
} else { |
|
if ($contrib{$idx.':screenname'}) { |
|
$sender='<i>'.$contrib{$idx.':screenname'}.'</i>'; |
|
} |
} |
} |
$discussion.='<p><b>'.$sender.'</b> ('. |
$discussion.='<p><b>'.$sender.'</b> ('. |
localtime($contrib{$idx.':timestamp'}). |
localtime($contrib{$idx.':timestamp'}). |
Line 440 ENDDONOTREGTHIS
|
Line 446 ENDDONOTREGTHIS
|
# Inputs are the name of the html form being used |
# Inputs are the name of the html form being used |
# and the name of the element the selected URL should |
# and the name of the element the selected URL should |
# be placed in. |
# be placed in. |
|
# openbrowser also takes arguments only and omit, which are |
|
# comma deliminated lists of file extensions to (only) show |
|
# or omit. |
|
# Here we also set currentURL=null. |
$result .=<<"ENDBROWSERSCRIPT"; |
$result .=<<"ENDBROWSERSCRIPT"; |
<script> |
<script> |
|
menu.currentURL=null; |
var editbrowser; |
var editbrowser; |
function openbrowser(formname,elementname,only,omit) { |
function openbrowser(formname,elementname,only,omit) { |
var url = '/res/?'; |
var url = '/res/?'; |
Line 630 sub inner_xmlparse {
|
Line 641 sub inner_xmlparse {
|
$finaloutput .= &Apache::run::evaluate($result,$safeeval,''); |
$finaloutput .= &Apache::run::evaluate($result,$safeeval,''); |
} |
} |
$result = ''; |
$result = ''; |
} |
} |
if ($token->[0] eq 'E') { |
if ($token->[0] eq 'E') { |
&end_tag($stack,$parstack,$token); |
&end_tag($stack,$parstack,$token); |
} |
} |
Line 814 sub setup_globals {
|
Line 825 sub setup_globals {
|
$Apache::lonxml::metamode = 0; |
$Apache::lonxml::metamode = 0; |
$Apache::lonxml::evaluate = 0; |
$Apache::lonxml::evaluate = 0; |
$Apache::lonxml::import = 0; |
$Apache::lonxml::import = 0; |
|
} elsif ($target eq 'analyze') { |
|
$Apache::lonxml::redirection = 0; |
|
$Apache::lonxml::metamode = 0; |
|
$Apache::lonxml::evaluate = 1; |
|
$Apache::lonxml::import = 1; |
} else { |
} else { |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::metamode = 0; |
$Apache::lonxml::metamode = 0; |
Line 989 sub newparser {
|
Line 1005 sub newparser {
|
my ($parser,$contentref,$dir) = @_; |
my ($parser,$contentref,$dir) = @_; |
push (@$parser,HTML::TokeParser->new($contentref)); |
push (@$parser,HTML::TokeParser->new($contentref)); |
$$parser['-1']->xml_mode('1'); |
$$parser['-1']->xml_mode('1'); |
|
# $$parser['-1']->attr_encoded('1'); |
if ( $dir eq '' ) { |
if ( $dir eq '' ) { |
push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]); |
push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]); |
} else { |
} else { |