version 1.209, 2011/07/04 09:24:58
|
version 1.222, 2014/12/11 01:46:17
|
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 $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 165 sub handler {
|
Line 156 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 383 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 395 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 408 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 628 END
|
Line 623 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 755 sub scanDir {
|
Line 750 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 778 sub get_list {
|
Line 775 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 992 $r->print ('<input type="hidden" name="a
|
Line 999 $r->print ('<input type="hidden" name="a
|
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
# Wishlistlink |
# Wishlistlink |
$r->print('</form></td><td><a href="javascript:;" '. |
$r->print('</form></td><td><a href="javascript:;" '. |
'title="'.&mt('Set a link for this folder to wishlist').'" '. |
'title="'.&mt('Save a link for this folder in your personal Stored Links repository').'" '. |
'onclick="set_wishlistlink('."'$plainname','$startdir$listname'".')">'. |
'onclick="set_wishlistlink('."'$plainname','$startdir$listname"."/'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a>'.$tabtag); |
'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 1077 $r->print ('<input type="hidden" name="a
|
Line 1084 $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>'); |
} |
} |
$r->print("</td>\n"); |
$r->print("</td>\n"); |
# Wishlistlink |
# Wishlistlink |
$r->print('<td><a href="javascript:;" title="'.&mt('Set a link for this resource to wishlist').'" '. |
$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). |
'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink). |
"','$startdir$listname'".')">'. |
"','$startdir$listname'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a></td>'); |
'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 1246 $r->print ('<input type="hidden" name="a
|
Line 1249 $r->print ('<input type="hidden" name="a
|
$r->print ("$listname</a></form>"); |
$r->print ("$listname</a></form>"); |
# Wishlistlink |
# Wishlistlink |
$r->print('</td><td><a href="javascript:;" '. |
$r->print('</td><td><a href="javascript:;" '. |
'title="'.&mt('Set a link for this folder to wishlist').'" '. |
'title="'.&mt('Save a link for this folder in Stored Links').'" '. |
'onclick="set_wishlistlink('."'$listname','$startdir$listname'".')">'. |
'onclick="set_wishlistlink('."'$listname','$startdir$listname"."/'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a></td>'); |
'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 1294 $r->print ('<input type="hidden" name="a
|
Line 1297 $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 1338 sub coursecontext {
|
Line 1341 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 1426 sub start_fresh_session {
|
Line 1432 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 1477 This module enables a scheme of browsing
|
Line 1483 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. |