|
version 1.199, 2009/07/17 15:42:07
|
version 1.232, 2025/03/18 19:36:59
|
|
Line 34
|
Line 34
|
| ## 1. Description of functions ## |
## 1. Description of functions ## |
| ## 2. Modules used by this module ## |
## 2. Modules used by this module ## |
| ## 3. Choices for different output views (detailed, summary, xml, etc) ## |
## 3. Choices for different output views (detailed, summary, xml, etc) ## |
| ## 4. BEGIN block (to be run once after compilation) ## |
## 4. Handling routine called via Apache and mod_perl ## |
| ## 5. Handling routine called via Apache and mod_perl ## |
## 5. Other subroutines ## |
| ## 6. Other subroutines ## |
|
| ## ## |
## ## |
| ############################################################################### |
############################################################################### |
| |
|
|
Line 60 use LONCAPA qw(:match);
|
Line 59 use LONCAPA qw(:match);
|
| # ---------------------------------------- variables used throughout the module |
# ---------------------------------------- variables used throughout the module |
| my %hash; # global user-specific gdbm file |
my %hash; # global user-specific gdbm file |
| my %dirs; # keys are directories, values are the open/close status |
my %dirs; # keys are directories, values are the open/close status |
| my %language; # has the reference information present in language.tab |
|
| my %dynhash; # hash of hashes for dynamic metadata |
my %dynhash; # hash of hashes for dynamic metadata |
| my %dynread; # hash of directories already read for dynamic metadata |
my %dynread; # hash of directories already read for dynamic metadata |
| my %fieldnames; # Metadata fieldnames |
my %fieldnames; # Metadata fieldnames |
|
Line 94 sub handler {
|
Line 92 sub handler {
|
| undef (@Omit); |
undef (@Omit); |
| %fieldnames=&Apache::lonmeta::fieldnames(); |
%fieldnames=&Apache::lonmeta::fieldnames(); |
| |
|
| # ------------------------------------- read in machine configuration variables |
# --------------------------------------------------------------- get icon path |
| my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
| my $domain = $r->dir_config('lonDefDomain'); |
my $defdom = &Apache::lonnet::default_login_domain(); |
| my $role = $r->dir_config('lonRole'); |
|
| my $loadlim = $r->dir_config('lonLoadLim'); |
|
| my $servadm = $r->dir_config('lonAdmEMail'); |
|
| my $sysadm = $r->dir_config('lonSysEMail'); |
|
| my $lonhost = $r->dir_config('lonHostID'); |
|
| my $tabdir = $r->dir_config('lonTabDir'); |
|
| |
|
| #SB my $fileclr='#ffffe6'; |
#SB my $fileclr='#ffffe6'; |
| my $line; |
my $line; |
|
Line 120 sub handler {
|
Line 112 sub handler {
|
| my $colspan=''; |
my $colspan=''; |
| |
|
| $extrafield=''; |
$extrafield=''; |
| my $diropendb = |
my $diropendb = LONCAPA::tempdir() . |
| "/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db"; |
"$env{'user.domain'}_$env{'user.name'}_sel_res.db"; |
| %hash = (); |
%hash = (); |
| { |
{ |
| my %dbfile; |
my %dbfile; |
|
Line 165 sub handler {
|
Line 157 sub handler {
|
| ENDSUBM |
ENDSUBM |
| $r->print(&Apache::loncommon::start_page(undef,$js, |
$r->print(&Apache::loncommon::start_page(undef,$js, |
| {'only_body' =>1, |
{'only_body' =>1, |
| |
'add_modal' => 1, |
| |
'add_wishlist' => 1, |
| 'add_entries' => |
'add_entries' => |
| {'onload' => "load();"},} |
{'onload' => "load();"},} |
| ). |
). |
|
Line 321 function select_group() {
|
Line 315 function select_group() {
|
| |
|
| function changeURL(val) { |
function changeURL(val) { |
| if (window.opener.document) { |
if (window.opener.document) { |
| var elementname = "$element"+"_value"; |
var elementname = "$element"; |
| var checkboxname = "$element"+"_setparmval"; |
|
| window.opener.document.forms["$form"].elements[elementname].value=val; |
window.opener.document.forms["$form"].elements[elementname].value=val; |
| window.opener.document.forms["$form"].elements[checkboxname].checked=true; |
|
| } else { |
} else { |
| alert("The file you selected is: "+val); |
alert("The file you selected is: "+val); |
| } |
} |
|
Line 392 function uncheckAll() {
|
Line 384 function uncheckAll() {
|
| } |
} |
| } |
} |
| } |
} |
| |
|
| function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) { |
| var xpos = (screen.width-w)/2; |
var xpos = (screen.width-w)/2; |
| xpos = (xpos < 0) ? '0' : xpos; |
xpos = (xpos < 0) ? '0' : xpos; |
|
Line 403 function openWindow(url, wdwName, w, h,
|
Line 396 function openWindow(url, wdwName, w, h,
|
| var newWin = window.open(url, wdwName, options); |
var newWin = window.open(url, wdwName, options); |
| newWin.focus(); |
newWin.focus(); |
| } |
} |
| |
|
| function gothere(val) { |
function gothere(val) { |
| window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu; |
window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu; |
| } |
} |
|
Line 415 ENDHEADER
|
Line 409 ENDHEADER
|
| if ($env{'form.catalogmode'}) { |
if ($env{'form.catalogmode'}) { |
| # "Popup mode" |
# "Popup mode" |
| $r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
$r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
| {'only_body' => 1, |
{'only_body' => 1, 'add_wishlist'=>1, 'add_modal' =>1, |
| 'domain' => $headerdom,})); |
'domain' => $headerdom,})); |
| } else { |
} else { |
| # Only display page header and breadcrumbs in non-popup mode |
# Only display page header and breadcrumbs in non-popup mode |
| &Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| &Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
| 'text' => 'Browse published resources', |
'text' => 'Browse published resources', |
| 'href' => '/res/fhwfdev/?launch=1', |
'href' => '/res/'.$headerdom.'/?launch=1', |
| }); |
}); |
| $r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
$r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
| {'domain' => $headerdom,}) |
{'domain' => $headerdom,}) |
|
Line 452 ENDHEADER
|
Line 446 ENDHEADER
|
| } |
} |
| } |
} |
| |
|
| |
my @file_categories = &Apache::loncommon::filecategories(); |
| |
my %select_file_categories; |
| |
my @select_form_order = (''); |
| |
$select_file_categories{''} = &mt('All file types'); |
| |
foreach my $cat (@file_categories) { |
| |
my $types = join(",",&Apache::loncommon::filecategorytypes($cat)); |
| |
$select_file_categories{$types} = &mt($cat); |
| |
push(@select_form_order,$types); |
| |
} |
| |
$select_file_categories{'select_form_order'} = \@select_form_order; |
| |
my $onchange = 'this.form.submit();'; |
| |
my $type_element= |
| |
&Apache::loncommon::select_form( |
| |
$typeselect, |
| |
'only', |
| |
\%select_file_categories,$onchange); |
| |
my $type_selector = '<label>'.&mt('File Type Displayed: [_1]', |
| |
$type_element).'</label>'; |
| |
|
| # ------------------------------- output state of file attributes to be showing |
# ------------------------------- output state of file attributes to be showing |
| # All versions has to the last item |
# All versions has to the last item |
| # since it does not take an extra col |
# since it does not take an extra col |
| my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
| 'ti' => 'Title', |
|
| 'si' => 'Size', |
|
| 'la' => 'Last access', |
|
| 'lm' => 'Last modified', |
|
| 'st' => 'Statistics', |
|
| 'au' => 'Author', |
|
| 'kw' => 'Keywords', |
|
| 'sb' => 'Subject', |
|
| 'nt' => 'Notes', |
|
| 'ab' => 'Abstract', |
|
| 'ln' => 'Language', |
|
| 'gl' => 'Grade Level', |
|
| 'sd' => 'Standards', |
|
| 'sa' => 'Source Available', |
|
| 'sr' => 'Show resource', |
|
| 'li' => 'Linked/Related Resources', |
|
| 'av' => 'All versions', |
'av' => 'All versions', |
| 'ud' => 'Update Display', |
'ud' => 'Update Display', |
| 'pr' => 'Problems', |
'pr' => 'Problems', |
|
Line 479 ENDHEADER
|
Line 476 ENDHEADER
|
| 'at' => 'All types', |
'at' => 'All types', |
| 'hd' => 'Display Options' |
'hd' => 'Display Options' |
| ); |
); |
| $r->print(<<END); |
my @disp_order = ('0','4','5','6','13','1','2','3','10','14','8','11','7','12','15','16'); |
| <form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded"> |
my %disp_options = &Apache::lonlocal::texthash ( |
| |
0 => 'Title', |
| |
4 => 'Author', |
| |
5 => 'Keywords', |
| |
6 => 'Language', |
| |
13 => 'Notes', |
| |
1 => 'Size', |
| |
2 => 'Last access', |
| |
3 => 'Last modified', |
| |
10 => 'Source Available', |
| |
14 => 'Abstract', |
| |
8 => 'Statistics', |
| |
11 => 'Linked/Related Resources', |
| |
7 => 'Show resource', |
| |
12 => 'Subject', |
| |
15 => 'Grade Level', |
| |
16 => 'Standards', |
| |
); |
| |
my $cell = 0; |
| |
my $numinrow = 4; |
| |
$r->print(' |
| |
<form method="post" name="fileattr" action="'.$uri.'" enctype="application/x-www-form-urlencoded"> |
| <fieldset> |
<fieldset> |
| <legend>$lt{'hd'}</legend> |
<legend>'.$lt{'hd'}.'</legend> |
| <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label> |
<table style=" border-collapse: collapse; border-style: none;">'."\n"); |
| <table border="0"> |
foreach my $item (@disp_order) { |
| <tr> |
my $style = 'padding-left: 12px; padding-right: 8px;'; |
| <td><label><input type="checkbox" name="attr0" value="1" $attrchk[0] onclick="this.form.submit();" /> $lt{'ti'}</label></td> |
if ($cell%$numinrow == 0) { |
| <td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onclick="this.form.submit();" /> $lt{'au'}</label></td> |
$r->print('<tr>'); |
| <td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onclick="this.form.submit();" /> $lt{'kw'}</label></td> |
} |
| <td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onclick="this.form.submit();" /> $lt{'ln'}</label></td> |
$cell ++; |
| <td><label><input type="checkbox" name="attr13" value="1" $attrchk[13] onclick="this.form.submit();" /> $lt{'nt'}</label></td> |
if ($cell > 3 * $numinrow) { |
| <td><label><input type="checkbox" name="attr16" value="1" $attrchk[16] onclick="this.form.submit();" /> $lt{'sd'}</label></td> |
$style .= ' padding-bottom: 6px;'; |
| </tr> |
} |
| <tr> |
if (defined($disp_options{$item})) { |
| <td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onclick="this.form.submit();" /> $lt{'si'}</label></td> |
$r->print('<td style="'.$style.'"><span class="LC_nobreak">'. |
| <td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onclick="this.form.submit();" /> $lt{'la'}</label></td> |
'<label><input type="checkbox" name="attr'.$item.'" value="1" '. |
| <td><label><input type="checkbox" name="attr3" value="1" $attrchk[3] onclick="this.form.submit();" /> $lt{'lm'}</label></td> |
$attrchk[$item].' onclick="this.form.submit();" /> '.$disp_options{$item}. |
| <td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onclick="this.form.submit();" /> $lt{'sa'}</label></td> |
'</label></span></td>'."\n"); |
| <td><label><input type="checkbox" name="attr14" value="1" $attrchk[14] onclick="this.form.submit();" /> $lt{'ab'}</label></td> |
} |
| <td> </td> |
if ($cell > 1 && $cell%$numinrow == 0) { |
| </tr> |
$r->print('</tr>'); |
| |
} |
| |
} |
| |
$r->print(<<END); |
| <tr> |
<tr> |
| <td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onclick="this.form.submit();" /> $lt{'st'}</label></td> |
<td style="font-style: italic; border-top: 1px solid black; padding-top: 6px"> |
| <td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onclick="this.form.submit();" /> $lt{'li'}</label></td> |
<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label> |
| <td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onclick="this.form.submit();" /> $lt{'sr'}</label></td> |
</td> |
| <td><label><input type="checkbox" name="attr12" value="1" $attrchk[12] onclick="this.form.submit();" /> $lt{'sb'}</label></td> |
<td colspan="3" style="padding-left:8px; padding-top: 4px; font-style: italic; border-top: 1px solid black; padding-top: 8px">$type_selector</td> |
| <td><label><input type="checkbox" name="attr15" value="1" $attrchk[15] onclick="this.form.submit();" /> $lt{'gl'}</label></td> |
|
| <td> </td> |
|
| </tr> |
</tr> |
| </table> |
</table> |
| <input type="hidden" name="attrs" value="1" /> |
<input type="hidden" name="attrs" value="1" /> |
| END |
</fieldset> |
| my @file_categories = &Apache::loncommon::filecategories(); |
|
| my %select_file_categories; |
|
| my @select_form_order = (''); |
|
| $select_file_categories{''} = &mt('All file types'); |
|
| foreach my $cat (@file_categories) { |
|
| my $types = join(",",&Apache::loncommon::filecategorytypes($cat)); |
|
| $select_file_categories{$types} = $cat; |
|
| push(@select_form_order,$types); |
|
| } |
|
| $select_file_categories{'select_form_order'} = \@select_form_order; |
|
| my $type_element= |
|
| &Apache::loncommon::select_form($typeselect,'only', |
|
| %select_file_categories); |
|
| $type_element = '<label>'.&mt('File Type Displayed: [_1]', |
|
| $type_element).'</label>'; |
|
| $r->print($type_element |
|
| .'</fieldset>'); |
|
| $r->print(<<END); |
|
| <input type="submit" name="updatedisplay" value="$lt{'ud'}" /> |
<input type="submit" name="updatedisplay" value="$lt{'ud'}" /> |
| <input type="hidden" name="acts" value="" /> |
<input type="hidden" name="acts" value="" /> |
| $closebutton $groupimportbutton |
$closebutton $groupimportbutton |
|
Line 541 END
|
Line 542 END
|
| $storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1]; |
$storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1]; |
| $storeuri=~s/\/+/\//g; |
$storeuri=~s/\/+/\//g; |
| # ---------------------------------------------------------------- Bread crumbs |
# ---------------------------------------------------------------- Bread crumbs |
| $r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','', |
$r->print( |
| (($env{'form.catalogmode'} eq 'import')? |
'<p>' |
| 'document.forms.fileattr':'')). |
.&Apache::lonhtmlcommon::crumbs( |
| &Apache::lonhtmlcommon::select_recent('residx','resrecent', |
$storeuri, |
| '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();')); |
'', |
| |
'', |
| |
(($env{'form.catalogmode'} eq 'import')? |
| |
'document.forms.fileattr':'')) |
| |
.'<br />' |
| |
.&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();') |
| |
.'</p>' |
| |
); |
| # -------------------------------------------------------- Resource Home Button |
# -------------------------------------------------------- Resource Home Button |
| my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
| if ($reshome) { |
if ($reshome) { |
|
Line 555 END
|
Line 566 END
|
| } else { |
} else { |
| $r->print($reshome); |
$r->print($reshome); |
| } |
} |
| $r->print("'>".&mt('Home').'</a></span>'); |
$r->print("'>".&mt('Home directory').'</a></span>'); |
| } |
} |
| $r->print('</form>'); |
$r->print('</form>'); |
| # ------------------------------------------------------ Remember where we were |
# ------------------------------------------------------ Remember where we were |
|
Line 563 END
|
Line 574 END
|
| &Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
| # -------------------------------------------------- Check All and Uncheck all |
# -------------------------------------------------- Check All and Uncheck all |
| if ($env{'form.catalogmode'} eq 'import') { |
if ($env{'form.catalogmode'} eq 'import') { |
| $r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onclick="javascript:checkAll()" />'); |
$r->print('<p><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onclick="javascript:checkAll()" />'); |
| $r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onclick="javascript:uncheckAll()" />'); |
$r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onclick="javascript:uncheckAll()" /></p>'); |
| } |
} |
| # ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
| #$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('<br /><br />'); |
|
| $r->print(&Apache::loncommon::start_data_table("LC_tableBrowseRes") |
$r->print(&Apache::loncommon::start_data_table("LC_tableBrowseRes") |
| .&Apache::loncommon::start_data_table_header_row()); |
.&Apache::loncommon::start_data_table_header_row()); |
| $r->print("<th $colspan>".&mt('Name')."</th>\n"); |
$r->print("<th $colspan>".&mt('Name')."</th>\n"); |
| |
$r->print('<th><span class="LC_visually_hidden">'.&mt('Add to Stored Links')."</span></th>\n"); |
| $r->print("<th>".&mt('Title')."</th>\n") |
$r->print("<th>".&mt('Title')."</th>\n") |
| if ($hash{'display_attrs_0'} == 1); |
if ($hash{'display_attrs_0'} == 1); |
| $r->print('<th class="LC_right">'.&mt("Size")." (".&mt("bytes").") ". |
$r->print('<th class="LC_right">'.&mt("Size")." (".&mt("bytes").") ". |
|
Line 613 END
|
Line 624 END
|
| |
|
| |
|
| # ----------------- read in what directories have previously been set to "open" |
# ----------------- read in what directories have previously been set to "open" |
| foreach (keys %hash) { |
foreach (keys(%hash)) { |
| if ($_ =~ /^diropen_status_/) { |
if ($_ =~ /^diropen_status_/) { |
| my $key = $_; |
my $key = $_; |
| $key =~ s/^diropen_status_//; |
$key =~ s/^diropen_status_//; |
|
Line 654 END
|
Line 665 END
|
| pop @uri_com; |
pop @uri_com; |
| my $upone = join('/',@uri_com); |
my $upone = join('/',@uri_com); |
| my @list = qw (0); |
my @list = qw (0); |
| &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list); |
&display_line ($r,$defdom,'opened',$upone.'&viewOneUp',0,$upone,@list); |
| $indent = 1; |
$indent = 1; |
| } |
} |
| |
|
| # -------- recursively go through all the directories and output as appropriate |
# -------- recursively go through all the directories and output as appropriate |
| &scanDir ($r,$toplevel,$indent,\%hash); |
&scanDir ($r,$toplevel,$indent,\%hash,$defdom); |
| |
|
| # -------------------------------------------------------------- end the tables |
# -------------------------------------------------------------- end the tables |
| $r->print(&Apache::loncommon::end_data_table()); |
$r->print(&Apache::loncommon::end_data_table()); |
|
Line 687 END
|
Line 698 END
|
| |
|
| # ----------------------------------------------- recursive scan of a directory |
# ----------------------------------------------- recursive scan of a directory |
| sub scanDir { |
sub scanDir { |
| my ($r,$startdir,$indent,$hashref)=@_; |
my ($r,$startdir,$indent,$hashref,$defdom)=@_; |
| my $c = $r->connection(); |
my $c = $r->connection(); |
| my ($compuri,$curdir); |
my ($compuri,$curdir); |
| my $dirptr=16384; |
my $dirptr=16384; |
|
Line 699 sub scanDir {
|
Line 710 sub scanDir {
|
| return if ($c->aborted()); |
return if ($c->aborted()); |
| #This is a kludge, sorry aboot this |
#This is a kludge, sorry aboot this |
| my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
| next if($strip =~ /.*\.meta$/ | $obs eq '1'); |
next if (($strip =~ /\.meta$/) || ($obs)); |
| |
if ($dom ne 'domain') { |
| |
my ($udom,$uname); |
| |
if ($dom eq 'user') { |
| |
($udom) = ($startdir =~ m{^/res/($match_domain)}); |
| |
$uname = $strip; |
| |
} else { |
| |
($udom,$uname) = ($startdir =~ m{^/res/($match_domain)/($match_courseid)}); |
| |
} |
| |
if ($udom ne '' && $uname ne '') { |
| |
# Don't display "course author" directory. |
| |
next if (&Apache::lonnet::is_course($udom,$uname)); |
| |
} |
| |
} |
| my (@fileparts) = split(/\./,$strip); |
my (@fileparts) = split(/\./,$strip); |
| if ($hash{'display_attrs_9'} != 1) { |
if ($hash{'display_attrs_9'} != 1) { |
| # if not all versions to be shown |
# if not all versions to be shown |
|
Line 730 sub scanDir {
|
Line 754 sub scanDir {
|
| } |
} |
| } |
} |
| } |
} |
| &display_line($r,$diropen,$line,$indent,$curdir,$hashref,@list); |
&display_line($r,$defdom,$diropen,$line,$indent,$curdir,$hashref,@list); |
| &scanDir ($r,$compuri,$indent) if $diropen eq 'opened'; |
&scanDir ($r,$compuri,$indent,undef,$defdom) if $diropen eq 'opened'; |
| } |
} |
| $indent--; |
$indent--; |
| } |
} |
|
Line 740 sub scanDir {
|
Line 764 sub scanDir {
|
| sub get_list { |
sub get_list { |
| my ($r,$uri)=@_; |
my ($r,$uri)=@_; |
| my @list=(); |
my @list=(); |
| |
my $listerror; |
| |
|
| (my $luri = $uri) =~ s/\//_/g; |
(my $luri = $uri) =~ s/\//_/g; |
| if ($env{'form.updatedisplay'}) { |
if ($env{'form.updatedisplay'}) { |
| foreach (keys %hash) { |
foreach (keys(%hash)) { |
| delete $hash{$_} if ($_ =~ /^dirlist_files_/); |
delete $hash{$_} if ($_ =~ /^dirlist_files_/); |
| delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/); |
delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/); |
| } |
} |
|
Line 763 sub get_list {
|
Line 789 sub get_list {
|
| $hash{'dirlist_files_'.$luri} = join("\n",@list); |
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
| } else { |
} else { |
| # is really a directory |
# is really a directory |
| @list = &Apache::lonnet::dirlist($uri); |
(my $listref,$listerror) = &Apache::lonnet::dirlist($uri); |
| |
if (ref($listref) eq 'ARRAY') { |
| |
@list = @{$listref}; |
| |
} |
| $hash{'dirlist_files_'.$luri} = join("\n",@list); |
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
| $hash{'dirlist_timestamp_files_'.$luri} = time; |
$hash{'dirlist_timestamp_files_'.$luri} = time; |
| } |
} |
| |
#Checking for error messages associated with empty directories or inaccessible servers (See Bug 4984) |
| |
if (($listerror eq 'no_such_dir') || ($listerror eq 'no_such_host') || ($listerror eq 'no_host')) { |
| |
$r->print("<p class='LC_info'>" . &mt("Directory does not exist."). "</p>"); |
| |
} elsif ($listerror eq 'con_lost') { |
| |
$r->print("<p class='LC_info'>" . &mt("Directory temporarily not accessible."). "</p>"); |
| |
} |
| |
|
| return @list=&match_ext($r,@list); |
return @list=&match_ext($r,@list); |
| } |
} |
| |
|
|
Line 849 sub match_ext {
|
Line 885 sub match_ext {
|
| |
|
| # ------------------------------- displays one line in appropriate table format |
# ------------------------------- displays one line in appropriate table format |
| sub display_line { |
sub display_line { |
| my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my ($r,$defdom,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
| my (@pathfn, $fndir); |
my (@pathfn, $fndir); |
| # there could be relative paths (files actually belonging into this directory) |
# there could be relative paths (files actually belonging into this directory) |
| # or absolute paths (for example, from sequences) |
# or absolute paths (for example, from sequences) |
|
Line 908 sub display_line {
|
Line 944 sub display_line {
|
| $r->print ('<a href="#" onclick="document.dirpathUP.submit()"><img src="'.$iconpath.'arrow.up.gif"'); |
$r->print ('<a href="#" onclick="document.dirpathUP.submit()"><img src="'.$iconpath.'arrow.up.gif"'); |
| $r->print (' alt="'.$msg.'" class="LC_fileicon" />'. |
$r->print (' alt="'.$msg.'" class="LC_fileicon" />'. |
| "\n"); |
"\n"); |
| $r->print(&mt("Up")."</a></form>$tabtag"); |
$r->print(&mt("Up")."</a></form></td><td>$tabtag"); |
| $r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
| return OK; |
return OK; |
| } |
} |
| # Do we have permission to look at this? |
# Do we have permission to look at this? |
| |
if($filecom[15] ne '1') { return OK if ((!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])) && (!&Apache::lonnet::allowed('bro',$pathprefix.$filecom[0]))); } |
| |
|
| if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); } |
if (($filecom[1] eq 'domain') && ($defdom ne $listname)) { |
| |
unless (&Apache::lonnet::will_trust('shared',$listname,$defdom)) { |
| |
return OK; |
| |
} |
| |
unless (&Apache::lonnet::will_trust('content',$defdom,$listname)) { |
| |
return OK; |
| |
} |
| |
} |
| |
|
| # make absolute links appear on different background |
# make absolute links appear on different background |
| #SB if ($absolute) { $fileclr='#ccdd99'; } |
#SB if ($absolute) { $fileclr='#ccdd99'; } |
|
Line 944 $r->print ('<input type="hidden" name="a
|
Line 988 $r->print ('<input type="hidden" name="a
|
| $r->print("<br />(".&Apache::lonnet::domain($listname,'description'). |
$r->print("<br />(".&Apache::lonnet::domain($listname,'description'). |
| ")"); |
")"); |
| } |
} |
| $r->print("</form>$tabtag"); |
$r->print("</form></td><td>$tabtag"); |
| $r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
| return OK; |
return OK; |
| |
|
| # display user directory |
# display user directory |
| } |
} |
| |
|
| if ($filecom[1] eq 'user') { |
if ($filecom[1] eq 'user') { |
| |
my $domain=(split(m|/|,$startdir))[2]; |
| |
if ($defdom ne $domain) { |
| |
unless (&Apache::lonnet::will_trust('shared',$domain,$defdom)) { |
| |
return OK; |
| |
} |
| |
unless (&Apache::lonnet::will_trust('content',$defdom,$domain)) { |
| |
return OK; |
| |
} |
| |
} |
| # $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield"); |
# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield"); |
| my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
| my $anchor = $curdir; |
my $anchor = $curdir; |
|
Line 968 $r->print ('<input type="hidden" name="a
|
Line 1022 $r->print ('<input type="hidden" name="a
|
| $r->print (' alt="'.$msg.'"/></a>'. |
$r->print (' alt="'.$msg.'"/></a>'. |
| "\n"); |
"\n"); |
| my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
| |
my $quotable_startdir = &Apache::loncommon::escape_single($startdir); |
| |
my $quotable_listname = &Apache::loncommon::escape_single($listname); |
| |
|
| $r->print ('<a href="javascript:gothere(\''.$quotable_curdir |
$r->print ('<a href="javascript:gothere(\''.$quotable_curdir |
| .'\')"><img alt="'.$msg.'" src="'. |
.'\')"><img alt="'.$msg.'" src="'. |
| $iconpath.'quill.gif" class="LC_fileicon" />'); |
$iconpath.'quill.gif" class="LC_fileicon" />'); |
|
Line 976 $r->print ('<input type="hidden" name="a
|
Line 1033 $r->print ('<input type="hidden" name="a
|
| $r->print ($listname.'</a>'); |
$r->print ($listname.'</a>'); |
| |
|
| if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
| $r->print('</form>'.$tabtag); |
# Wishlistlink |
| |
$r->print('</form></td><td><a href="javascript:;" '. |
| |
'title="'.&mt('Save a link for this folder in your personal Stored Links repository').'" '. |
| |
'onclick="set_wishlistlink('."'$plainname','$quotable_startdir$quotable_listname"."/'".')">'. |
| |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
| |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a>'.$tabtag); |
| $r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
| return OK; |
return OK; |
| } |
} |
|
Line 1057 $r->print ('<input type="hidden" name="a
|
Line 1119 $r->print ('<input type="hidden" name="a
|
| # Filetype icons |
# Filetype icons |
| $r->print("<img alt=\"\" src='$iconname' class='LC_fileicon' />\n"); |
$r->print("<img alt=\"\" src='$iconname' class='LC_fileicon' />\n"); |
| my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
| |
my $quotable_startdir = Apache::loncommon::escape_single($startdir); |
| |
my $quotable_listname = &Apache::loncommon::escape_single($listname); |
| |
my $curfext = lc((split(/\./,$listname))[-1]); |
| |
my $modalstyle; |
| |
if ($curfext =~ /^js|css|txt|tab$/) { |
| |
$modalstyle = ",'','background-color:#ffffff'"; |
| |
} |
| |
|
| $r->print (" <a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" <a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes'".$modalstyle.");\">$listname</a> "); |
| "?inhibitmenu=yes','previewfile','450','500','no','yes','yes');\"". |
|
| " target=\"_self\">$listname</a> "); |
|
| $quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta'); |
$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta'); |
| &Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink); |
| $r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" (<a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">".&mt('metadata')."</a>) "); |
| "?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ". |
|
| " target=\"_self\">".&mt('metadata')."</a>) "); |
|
| # Close form to open/close sequence |
# Close form to open/close sequence |
| if ($filelink=~/\.(page|sequence)$/) { |
if ($filelink=~/\.(page|sequence)$/) { |
| $r->print('</form>'); |
$r->print('</form>'); |
| } |
} |
| $r->print("</td>\n"); |
$r->print("</td>\n"); |
| |
# Wishlistlink |
| |
$r->print('<td><a href="javascript:;" title="'.&mt('Save a link for this resource in your personal Stored Links repository').'" '. |
| |
'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink). |
| |
"','$quotable_startdir$quotable_listname'".')">'. |
| |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
| |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>'); |
| if ($hash{'display_attrs_0'} == 1) { |
if ($hash{'display_attrs_0'} == 1) { |
| $r->print('<td> '.($title eq '' ? ' ' : $title). |
$r->print('<td> '.($title eq '' ? ' ' : $title). |
| ' </td>'."\n"); |
' </td>'."\n"); |
|
Line 1147 $r->print ('<input type="hidden" name="a
|
Line 1218 $r->print ('<input type="hidden" name="a
|
| if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
| # Show resource |
# Show resource |
| my $output=&showpreview($filelink); |
my $output=&showpreview($filelink); |
| $r->print('<td class="LC_fontsize_medium LC_nobreak">'.($output eq '' ? ' ':$output). |
$r->print('<td class="LC_fontsize_medium">'.($output eq '' ? ' ':$output). |
| " </td>\n"); |
" </td>\n"); |
| } |
} |
| |
|
|
Line 1210 $r->print ('<input type="hidden" name="a
|
Line 1281 $r->print ('<input type="hidden" name="a
|
| $r->print (' alt="'.$msg.'" class="LC_fileicon" /></a>'. |
$r->print (' alt="'.$msg.'" class="LC_fileicon" /></a>'. |
| "\n"); |
"\n"); |
| my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
| |
my $quotable_startdir = &Apache::loncommon::escape_single($startdir); |
| |
my $quotable_listname = &Apache::loncommon::escape_single($listname); |
| |
|
| my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
| my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
| $r->print ('<a href="javascript:gothere(\'' |
$r->print ('<a href="javascript:gothere(' |
| .$quotable_curdir.'\')"">' |
."'$quotable_curdir'".');">' |
| .'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="'. |
.'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="' |
| $location."/".$icon.'" />'. |
.$location.'/'.$icon.'" />' |
| "\n"); |
."\n"); |
| $r->print ("$listname</a></form></td>\n"); |
$r->print ("$listname</a></form>"); |
| |
# Wishlistlink |
| |
$r->print('</td><td><a href="javascript:;" '. |
| |
'title="'.&mt('Save a link for this folder in Stored Links').'" '. |
| |
'onclick="set_wishlistlink('."'$listname','$quotable_startdir$quotable_listname"."/'".')">'. |
| |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
| |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>'); |
| # Attributes |
# Attributes |
| my $filelink = $startdir.$filecom[0].'/default'; |
my $filelink = $startdir.$filecom[0].'/default'; |
| |
|
|
Line 1263 $r->print ('<input type="hidden" name="a
|
Line 1342 $r->print ('<input type="hidden" name="a
|
| } |
} |
| if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
| $r->print('<td> </td>'); |
$r->print('<td> </td>'); |
| } |
} |
| if ($hash{'display_attrs_11'} == 1) { |
if ($hash{'display_attrs_11'} == 1) { |
| $r->print('<td> </td>'); |
$r->print('<td> </td>'); |
| } |
} |
| if ($hash{'display_attrs_12'} == 1) { |
if ($hash{'display_attrs_12'} == 1) { |
|
Line 1307 sub coursecontext {
|
Line 1386 sub coursecontext {
|
| my $filesymb=&Apache::lonnet::symbread($filelink); |
my $filesymb=&Apache::lonnet::symbread($filelink); |
| if ($filesymb) { |
if ($filesymb) { |
| my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb); |
my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb); |
| $r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />', |
$r->print( |
| &Apache::lonnet::gettitle($resource), |
&mt('Already in this course:').'<br />' |
| &Apache::lonnet::gettitle($map))); |
.&mt('[_1] in folder/map [_2]', |
| |
&Apache::lonnet::gettitle($resource), |
| |
&Apache::lonnet::gettitle($map)) |
| |
.'<br />'); |
| } |
} |
| } |
} |
| |
|
| sub showpreview { |
sub showpreview { |
| my ($filelink)=@_; |
my ($filelink)=@_; |
| if ($filelink=~m-^(/ext/|http://)-) { |
if ($filelink=~m-^(/ext/|https?://)-) { |
| return &mt('External Resource, preview not enabled'); |
return &mt('External Resource, preview not enabled'); |
| } |
} |
| my ($curfext)=($filelink=~/\.(\w+)$/); |
my ($curfext)=($filelink=~/\.(\w+)$/); |
|
Line 1395 sub start_fresh_session {
|
Line 1477 sub start_fresh_session {
|
| delete $hash->{'form.element'}; |
delete $hash->{'form.element'}; |
| delete $hash->{'form.omit'}; |
delete $hash->{'form.omit'}; |
| delete $hash->{'form.only'}; |
delete $hash->{'form.only'}; |
| foreach (keys %{$hash}) { |
foreach (keys(%{$hash})) { |
| delete $hash->{$_} if (/^(pre_|store)/); |
delete $hash->{$_} if (/^(pre_|store)/); |
| } |
} |
| } |
} |
|
Line 1446 This module enables a scheme of browsing
|
Line 1528 This module enables a scheme of browsing
|
| This is part of the LearningOnline Network with CAPA project |
This is part of the LearningOnline Network with CAPA project |
| described at http://www.lon-capa.org. |
described at http://www.lon-capa.org. |
| |
|
| =head1 BEGIN SUBROUTINE |
|
| |
|
| This routine is only run once after compilation. |
|
| |
|
| =over 4 |
|
| |
|
| =item * |
|
| |
|
| Initializes %language hash table. |
|
| |
|
| =back |
|
| |
|
| =head1 HANDLER SUBROUTINE |
=head1 HANDLER SUBROUTINE |
| |
|
| This routine is called by Apache and mod_perl. |
This routine is called by Apache and mod_perl. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface