version 1.128, 2004/10/21 11:18:41
|
version 1.129, 2005/02/17 08:29:42
|
Line 145 sub handler {
|
Line 145 sub handler {
|
$verify_title=~s/'/\\'/g; |
$verify_title=~s/'/\\'/g; |
$extra='window.opener.document.forms["'.$ENV{'form.form'}.'"].elements["'.$ENV{'form.titleelement'}.'"].value=\''.$verify_title.'\';'; |
$extra='window.opener.document.forms["'.$ENV{'form.form'}.'"].elements["'.$ENV{'form.titleelement'}.'"].value=\''.$verify_title.'\';'; |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDSUBM); |
$r->print(<<ENDSUBM); |
<html> |
$html |
<!-- Generated by lonindexer.pm --> |
<!-- Generated by lonindexer.pm --> |
<script type="text/javascript"> |
<head> |
|
<script type="text/javascript"> |
function load() { |
function load() { |
window.opener.document.forms["$ENV{'form.form'}"] |
window.opener.document.forms["$ENV{'form.form'}"] |
.elements["$ENV{'form.element'}"] |
.elements["$ENV{'form.element'}"] |
Line 156 sub handler {
|
Line 158 sub handler {
|
$extra |
$extra |
window.close(); |
window.close(); |
} |
} |
</script> |
</script> |
<body onLoad=load();> |
</head> |
|
<body onLoad="load();"> |
</body> |
</body> |
</html> |
</html> |
ENDSUBM |
ENDSUBM |
Line 344 END
|
Line 347 END
|
} |
} |
|
|
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
|
|
Line 505 END
|
Line 509 END
|
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
# ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
# $r->print(&initdebug()); |
#$r->print(&initdebug()); |
# $r->print(&writedebug("Omit:@Omit")) if (@Omit); |
#$r->print(&writedebug("Omit:@Omit")) if (@Omit); |
# $r->print(&writedebug("Only:@Only")) if (@Only); |
#$r->print(&writedebug("Only:@Only")) if (@Only); |
$r->print("<table width='100\%' border=0><tr><td bgcolor=#777777>\n"); |
$r->print('<table width="100%" border="0"><tr><td bgcolor="#777777">'."\n"); |
$r->print("<table width='100\%' border=0><tr bgcolor=$titleclr>\n"); |
$r->print('<table width="100%" border="0"><tr bgcolor="'.$titleclr.'">'."\n"); |
$r->print("<td $colspan><b>".&mt('Name')."</b></td>\n"); |
$r->print("<td $colspan><b>".&mt('Name')."</b></td>\n"); |
$r->print("<td><b>".&mt('Title')."</b></td>\n") |
$r->print("<td><b>".&mt('Title')."</b></td>\n") |
if ($hash{'display_attrs_0'} == 1); |
if ($hash{'display_attrs_0'} == 1); |
Line 717 sub dynmetaread {
|
Line 721 sub dynmetaread {
|
} |
} |
|
|
sub initdebug { |
sub initdebug { |
|
my $html=&Apache::lonxml::xmlbegin(); |
return <<ENDJS; |
return <<ENDJS; |
<script> |
<script> |
var debugging = true; |
var debugging = true; |
Line 729 function output(text) {
|
Line 734 function output(text) {
|
debuggingWindow.document.writeln(text); |
debuggingWindow.document.writeln(text); |
} |
} |
} |
} |
output("<html><head><title>Debugging Window</title><!-- for lonindexer.pm --></head><body><pre>"); |
output('$html<head><title>Debugging Window</title><!-- for lonindexer.pm --></head><body><pre>'); |
</script> |
</script> |
ENDJS |
ENDJS |
} |
} |