version 1.208, 2010/08/13 13:32:36
|
version 1.213, 2011/12/09 01:04:27
|
Line 120 sub handler {
|
Line 120 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 165 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 390 function uncheckAll() {
|
Line 392 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 401 function openWindow(url, wdwName, w, h,
|
Line 404 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 413 ENDHEADER
|
Line 417 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 |
Line 755 sub scanDir {
|
Line 759 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) { |
Line 778 sub get_list {
|
Line 784 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 1077 $r->print ('<input type="hidden" name="a
|
Line 1093 $r->print ('<input type="hidden" name="a
|
$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); |
|
|
$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" <a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">$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>'); |