version 1.163, 2002/03/29 18:32:46
|
version 1.166, 2002/04/10 14:46:30
|
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 1237 sub debug {
|
Line 1248 sub debug {
|
|
|
sub error { |
sub error { |
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) { |
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) { |
print "<b>ERROR:</b>".join('<br />',@_)."<br />\n"; |
# If printing in construction space, put the error inside <pre></pre> |
|
print "<b>ERROR:</b><pre>".join("\n",@_)."</pre>\n"; |
} else { |
} else { |
print "<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"; |
print "<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"; |
#notify author |
#notify author |