version 1.83, 2005/04/12 01:15:46
|
version 1.85, 2005/05/02 19:08:16
|
Line 125 sub display_directory {
|
Line 125 sub display_directory {
|
#$dom |
#$dom |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
$filename =~ s/\s+$//; |
$filename =~ s/\s+$//; |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ )) { |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(.*)\.(.*)/)) { |
if ($dirptr&$testdir) { |
if ($dirptr&$testdir) { |
if ($select_mode eq 'true'){ |
if ($select_mode eq 'true'){ |
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); |
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); |
Line 354 sub select_files {
|
Line 354 sub select_files {
|
# eventually, have to handle removing those not checked, but . . . |
# eventually, have to handle removing those not checked, but . . . |
my @items=&Apache::loncommon::get_env_multiple('form.checkfile'); |
my @items=&Apache::loncommon::get_env_multiple('form.checkfile'); |
if (scalar(@items)){ |
if (scalar(@items)){ |
&Apache::lonnet::logthis("one of the items is $items[0]"); |
&Apache::lonnet::save_selected_files($env{'user.name'}, $env{'form.currentpath'}, @items); |
&Apache::lonnet::save_selected_files($env{'user.name'}, $env{'form.currentpath'}, @items); |
|
} |
} |
} else { |
} else { |
#empty the file for a fresh start |
#empty the file for a fresh start |
&Apache::lonnet::logthis("Clearing saved files"); |
|
&Apache::lonnet::clear_selected_files($env{'user.name'}); |
&Apache::lonnet::clear_selected_files($env{'user.name'}); |
} |
} |
my @files = &Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'}); |
my @files = &Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'}); |
Line 449 sub upload {
|
Line 447 sub upload {
|
} |
} |
sub lock_info { |
sub lock_info { |
my ($r) = @_; |
my ($r) = @_; |
$r->print("lock info here"); |
my %current_permissions = &Apache::lonnet::dump('file_permissions',$env{'user.domain'},$env{'user.name'}); |
|
my $file_name = $env{'form.lockinfo'}; |
|
foreach my $key(keys(%current_permissions)) { |
|
if ($file_name eq $key) { |
|
foreach my $array_item (@{$current_permissions{$key}}) { |
|
if (ref($array_item)) { |
|
$r->print('<strong>'.$key.'</strong> was submitted in response to problem: <strong>'. |
|
&Apache::lonnet::gettitle($$array_item[0]).'</strong><br />'); |
|
my %course_description = &Apache::lonnet::coursedescription($$array_item[1]); |
|
$r->print('In the course: <strong>'.$course_description{'description'}.'</strong><br />'); |
|
# $r->print('the third is '.$$array_item[2].'<br>'); |
|
# $r->print("item is $$array_item[0]<br> and $$array_item[0]"); |
|
} |
|
} |
|
} |
|
} |
|
$r->print(&done('Back')); |
return 'ok'; |
return 'ok'; |
} |
} |
sub createdir { |
sub createdir { |