version 1.206, 2010/03/31 13:20:46
|
version 1.210, 2011/10/14 16:58:32
|
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 460 ENDHEADER
|
Line 460 ENDHEADER
|
push(@select_form_order,$types); |
push(@select_form_order,$types); |
} |
} |
$select_file_categories{'select_form_order'} = \@select_form_order; |
$select_file_categories{'select_form_order'} = \@select_form_order; |
|
my $onchange = 'this.form.submit();'; |
my $type_element= |
my $type_element= |
&Apache::loncommon::select_form( |
&Apache::loncommon::select_form( |
$typeselect, |
$typeselect, |
'only', |
'only', |
%select_file_categories); |
\%select_file_categories,$onchange); |
my $type_selector = '<label>'.&mt('File Type Displayed: [_1]', |
my $type_selector = '<label>'.&mt('File Type Displayed: [_1]', |
$type_element).'</label>'; |
$type_element).'</label>'; |
|
|
Line 587 END
|
Line 588 END
|
$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></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 753 sub scanDir {
|
Line 755 sub scanDir {
|
sub get_list { |
sub get_list { |
my ($r,$uri)=@_; |
my ($r,$uri)=@_; |
my @list=(); |
my @list=(); |
|
|
(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 780 sub get_list {
|
Line 783 sub get_list {
|
$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($list[0] eq 'no_such_dir' || $list[0] eq 'no_such_host') { |
|
$r->print("<p class='LC_info'>" . &mt("Directory does not exist."). "</p>"); |
|
} |
|
elsif($list[0] 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 921 sub display_line {
|
Line 932 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; |
} |
} |
Line 956 $r->print ('<input type="hidden" name="a
|
Line 967 $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; |
|
|
Line 988 $r->print ('<input type="hidden" name="a
|
Line 999 $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('Set a link for this folder to wishlist').'" '. |
|
'onclick="set_wishlistlink('."'$plainname','$startdir$listname'".')">'. |
|
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
|
'alt="'.&mt('set wishlistlink').'" 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 1083 $r->print ('<input type="hidden" name="a
|
Line 1099 $r->print ('<input type="hidden" name="a
|
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
$r->print("</td>\n"); |
$r->print("</td>\n"); |
|
# Wishlistlink |
|
$r->print('<td><a href="javascript:;" title="'.&mt('Set a link for this resource to wishlist').'" '. |
|
'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink). |
|
"','$startdir$listname'".')">'. |
|
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
|
'alt="'.&mt('set wishlistlink').'" 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 1230 $r->print ('<input type="hidden" name="a
|
Line 1252 $r->print ('<input type="hidden" name="a
|
.'<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('Set a link for this folder to wishlist').'" '. |
|
'onclick="set_wishlistlink('."'$listname','$startdir$listname'".')">'. |
|
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
|
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a></td>'); |
# Attributes |
# Attributes |
my $filelink = $startdir.$filecom[0].'/default'; |
my $filelink = $startdir.$filecom[0].'/default'; |
|
|