version 1.139, 2006/03/02 20:16:10
|
version 1.148, 2006/06/23 07:32:02
|
Line 116 sub handler {
|
Line 116 sub handler {
|
my $closebutton=''; |
my $closebutton=''; |
my $groupimportbutton=''; |
my $groupimportbutton=''; |
my $colspan=''; |
my $colspan=''; |
|
|
$extrafield=''; |
$extrafield=''; |
my $diropendb = |
my $diropendb = |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db"; |
%hash = (); |
%hash = (); |
{ |
{ |
my %dbfile; |
my %dbfile; |
Line 133 sub handler {
|
Line 133 sub handler {
|
{ |
{ |
if ($env{'form.launch'} eq '1') { |
if ($env{'form.launch'} eq '1') { |
&start_fresh_session(); |
&start_fresh_session(); |
} |
} |
#Hijack lonindexer to verify a title and be close down. |
#Hijack lonindexer to verify a title and be close down. |
if ($env{'form.launch'} eq '2') { |
if ($env{'form.launch'} eq '2') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
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(); |
my $js = <<ENDSUBM; |
$r->print(<<ENDSUBM); |
|
$html |
|
<!-- Generated by lonindexer.pm --> |
|
<head> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
function load() { |
function load() { |
window.opener.document.forms["$env{'form.form'}"] |
window.opener.document.forms["$env{'form.form'}"] |
Line 159 sub handler {
|
Line 155 sub handler {
|
window.close(); |
window.close(); |
} |
} |
</script> |
</script> |
</head> |
|
<body onLoad="load();"> |
|
</body> |
|
</html> |
|
ENDSUBM |
ENDSUBM |
|
$r->print(&Apache::loncommon::start_page(undef,$js, |
|
{'only_body' =>1, |
|
'add_entries' => |
|
{'onload' => "load();"},} |
|
). |
|
&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
Line 181 ENDSUBM
|
Line 179 ENDSUBM
|
<input type="button" name="close" value='$cl' onClick="self.close()" /> |
<input type="button" name="close" value='$cl' onClick="self.close()" /> |
END |
END |
} |
} |
elsif ($env{'form.catalogmode'} eq 'groupimport') { |
elsif ($env{'form.catalogmode'} eq 'import') { |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
' border="0" /></td>'; |
' border="0" /></td>'; |
Line 231 END
|
Line 229 END
|
# ------ set catalogmodefunctions to have extra needed javascript functionality |
# ------ set catalogmodefunctions to have extra needed javascript functionality |
my $catalogmodefunctions=''; |
my $catalogmodefunctions=''; |
if ($env{'form.catalogmode'} eq 'interactive' or |
if ($env{'form.catalogmode'} eq 'interactive' or |
$env{'form.catalogmode'} eq 'groupimport') { |
$env{'form.catalogmode'} eq 'import') { |
# The if statement below sets us up to use the old version |
# The if statement below sets us up to use the old version |
# by default (ie. if $mode is undefined). This is the easy |
# by default (ie. if $mode is undefined). This is the easy |
# way out. Hopefully in the future I'll find a way to get |
# way out. Hopefully in the future I'll find a way to get |
Line 242 END
|
Line 240 END
|
# |
# |
# |
# |
if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) { |
if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) { |
my $location = "/adm/groupsort?catalogmode=groupimport&"; |
my $location = "/adm/groupsort?catalogmode=import&"; |
$location .= "mode=".$mode."&"; |
$location .= "mode=".$mode."&"; |
$location .= "acts="; |
$location .= "acts="; |
$catalogmodefunctions=<<"END"; |
$catalogmodefunctions=<<"END"; |
Line 329 function rep_dirpath(suffix,val) {
|
Line 327 function rep_dirpath(suffix,val) {
|
eval("document.forms.dirpath"+suffix+".acts.value=val"); |
eval("document.forms.dirpath"+suffix+".acts.value=val"); |
} |
} |
END |
END |
if ($env{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'import') { |
$catalogmodefunctions.=<<END; |
$catalogmodefunctions.=<<END; |
function queue(val) { |
function queue(val) { |
if (eval("document.forms."+val+".filelink.checked")) { |
if (eval("document.forms."+val+".filelink.checked")) { |
Line 347 END
|
Line 345 END
|
} |
} |
|
|
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
my $html=&Apache::lonxml::xmlbegin(); |
my $js = <<"ENDHEADER"; |
$r->print(<<ENDHEADER); |
|
$html |
|
<head> |
|
<title>The LearningOnline Network With CAPA Directory Browser</title> |
|
|
|
<!-- Generated by lonindexer.pm --> |
|
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
$catalogmodefunctions |
$catalogmodefunctions |
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
Line 372 function gothere(val) {
|
Line 363 function gothere(val) {
|
window.location=val+'?acts='+document.forms.fileattr.acts.value; |
window.location=val+'?acts='+document.forms.fileattr.acts.value; |
} |
} |
</script> |
</script> |
|
|
</head> |
|
ENDHEADER |
ENDHEADER |
my ($headerdom)=($uri=~/^\/res\/(\w+)\//); |
|
$r->print(&Apache::loncommon::bodytag('Browse Resources',undef,undef,undef, |
my ($headerdom)=($uri=~/^\/res\/(\w+)\//); |
$headerdom)); |
$r->print(&Apache::loncommon::start_page('Browse Resources',$js, |
|
{'domain' => $headerdom,})); |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
if ($env{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'import') { |
my $acts=$env{'form.acts'}; |
my $acts=$env{'form.acts'}; |
my @Acts=split(/b/,$acts); |
my @Acts=split(/b/,$acts); |
my %ahash; |
my %ahash; |
Line 488 END
|
Line 478 END
|
$storeuri=~s/\/+/\//g; |
$storeuri=~s/\/+/\//g; |
# ---------------------------------------------------------------- Bread crumbs |
# ---------------------------------------------------------------- Bread crumbs |
$r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','', |
$r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','', |
(($env{'form.catalogmode'} eq 'groupimport')? |
(($env{'form.catalogmode'} eq 'import')? |
'document.forms.fileattr':'')). |
'document.forms.fileattr':'')). |
&Apache::lonhtmlcommon::select_recent('residx','resrecent', |
&Apache::lonhtmlcommon::select_recent('residx','resrecent', |
'window.status=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();')); |
'window.status=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();')); |
Line 496 END
|
Line 486 END
|
my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
if ($reshome) { |
if ($reshome) { |
$r->print("<font size='+2'><a href='"); |
$r->print("<font size='+2'><a href='"); |
if ($env{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'import') { |
$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();'); |
$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();'); |
} else { |
} else { |
$r->print($reshome); |
$r->print($reshome); |
Line 598 END
|
Line 588 END
|
$r->print('</td></tr></table>'); |
$r->print('</td></tr></table>'); |
|
|
# --------------------------------------------------- end the output and return |
# --------------------------------------------------- end the output and return |
$r->print('</body></html>'."\n"); |
$r->print(&Apache::loncommon::end_page()."\n"); |
} |
} |
if(! $c->aborted()) { |
if(! $c->aborted()) { |
# write back into the temporary file |
# write back into the temporary file |
Line 714 sub dynmetaread {
|
Line 704 sub dynmetaread {
|
} |
} |
# Actually get the data |
# Actually get the data |
%dynhash= |
%dynhash= |
(%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri)); |
(%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri.'/')); |
# Remember that we got it |
# Remember that we got it |
$dynread{$uri}=1; |
$dynread{$uri}=1; |
} |
} |
} |
} |
|
|
sub initdebug { |
sub initdebug { |
my $html=&Apache::lonxml::xmlbegin(); |
my $start_page= |
|
&Apache::loncommon::start_page('Debug',undef, |
|
{'only_body' => 1,}); |
|
$start_page =~ s/\n/ /g; |
return <<ENDJS; |
return <<ENDJS; |
<script> |
<script type="text/javascript"> |
var debugging = true; |
var debugging = true; |
if (debugging) { |
if (debugging) { |
var debuggingWindow = window.open('','Debug','width=400,height=300',true); |
var debuggingWindow = window.open('','Debug','width=400,height=300',true); |
Line 734 function output(text) {
|
Line 727 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('$start_page<pre>'); |
</script> |
</script> |
ENDJS |
ENDJS |
} |
} |
|
|
sub writedebug { |
sub writedebug { |
my $text = shift; |
my ($text) = @_; |
return "<script>output('$text');</script>"; |
return "<script type=\"text/javascript\">output('$text');</script>"; |
} |
} |
|
|
# -------------------- filters out files based on extensions (returns an array) |
# -------------------- filters out files based on extensions (returns an array) |
Line 919 sub display_line {
|
Line 912 sub display_line {
|
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>". |
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>". |
"\n"); |
"\n"); |
$r->print("</td><td nowrap>"); |
$r->print("</td><td nowrap>"); |
} elsif ($env{'form.catalogmode'} eq 'groupimport') { |
} elsif ($env{'form.catalogmode'} eq 'import') { |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<input type='checkbox' name='filelink"."' ". |
$r->print("<input type='checkbox' name='filelink"."' ". |
"value='$filelink' onClick='". |
"value='$filelink' onClick='". |
Line 1053 sub display_line {
|
Line 1046 sub display_line {
|
# links |
# links |
&dynmetaread($filelink); |
&dynmetaread($filelink); |
$r->print('<td>'); |
$r->print('<td>'); |
|
&coursecontext($r,$filelink); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
Line 1062 sub display_line {
|
Line 1056 sub display_line {
|
} |
} |
if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
# Show resource |
# Show resource |
my $output=''; |
my $output=&showpreview($filelink); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
$r->print('<td> '.($output eq '' ? ' ':$output). |
if ($embstyle eq 'ssi') { |
|
my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink. |
|
'.tmp'; |
|
if ((!$env{'form.updatedisplay'}) && |
|
(-e $cache)) { |
|
open(FH,$cache); |
|
$output=join("\n",<FH>); |
|
close(FH); |
|
} else { |
|
$output=&Apache::lonnet::ssi_body($filelink); |
|
if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/) { |
|
$output=''; |
|
} else { |
|
open(FH,">$cache"); |
|
print FH $output; |
|
close(FH); |
|
} |
|
} |
|
$output='<font size="-2">'.$output.'</font>'; |
|
} elsif ($embstyle eq 'img') { |
|
$output='<img src="'.$filelink.'" />'; |
|
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
|
$output='<img src="http://'. |
|
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
|
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
|
} |
|
$r->print('<td> '.($output eq '' ? ' ':$output). |
|
" </td>\n"); |
" </td>\n"); |
} |
} |
$r->print("</tr>\n"); |
$r->print("</tr>\n"); |
Line 1182 sub display_line {
|
Line 1149 sub display_line {
|
|
|
} |
} |
|
|
|
sub coursecontext { |
|
my ($r,$filelink)=@_; |
|
my $filesymb=&Apache::lonnet::symbread($filelink); |
|
if ($filesymb) { |
|
my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb); |
|
$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />', |
|
&Apache::lonnet::gettitle($resource), |
|
&Apache::lonnet::gettitle($map))); |
|
} |
|
} |
|
|
|
sub showpreview { |
|
my ($filelink)=@_; |
|
my ($curfext)=($filelink=~/\.(\w+)$/); |
|
my $output=''; |
|
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
|
if ($embstyle eq 'ssi') { |
|
my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink. |
|
'.tmp'; |
|
if ((!$env{'form.updatedisplay'}) && |
|
(-e $cache)) { |
|
open(FH,$cache); |
|
$output=join("\n",<FH>); |
|
close(FH); |
|
} else { |
|
# In update display mode, remove old cache. This is done to retroactively |
|
# clean up course context renderings. |
|
if (-e $cache) { |
|
unlink($cache); |
|
} |
|
$output=&Apache::lonnet::ssi_body($filelink); |
|
# Is access denied? Don't render, don't store |
|
if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) { |
|
$output=''; |
|
# Was this rendered in course content? Don't store |
|
} elsif (!&Apache::lonnet::symbread($filelink)) { |
|
open(FH,">$cache"); |
|
print FH $output; |
|
close(FH); |
|
} |
|
} |
|
$output='<font size="-2">'.$output.'</font>'; |
|
} elsif ($embstyle eq 'img') { |
|
$output='<img src="'.$filelink.'" />'; |
|
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
|
$output='<img src="http://'. |
|
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
|
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
|
} |
|
return $output; |
|
} |
|
|
sub dynmetaprint { |
sub dynmetaprint { |
my ($r,$filelink,$item)=@_; |
my ($r,$filelink,$item)=@_; |
if ($dynhash{$filelink}->{$item}) { |
if ($dynhash{$filelink}->{$item}) { |
$r->print("\n<br />".$fieldnames{$item}.': '. |
$r->print("\n<br />".$fieldnames{$item}.': '. |
&Apache::lonmeta::prettyprint($item, |
&Apache::lonmeta::prettyprint($item, |
$dynhash{$filelink}->{$item}, |
$dynhash{$filelink}->{$item}, |
(($env{'form.catalogmode'} ne 'groupimport')?'preview':''), |
(($env{'form.catalogmode'} ne 'import')?'preview':''), |
'', |
'', |
(($env{'form.catalogmode'} eq 'groupimport')?'document.forms.fileattr':''),1)); |
(($env{'form.catalogmode'} eq 'import')?'document.forms.fileattr':''),1)); |
} |
} |
} |
} |
|
|