--- loncom/interface/portfolio.pm 2005/04/29 16:51:42 1.84
+++ loncom/interface/portfolio.pm 2005/05/02 19:08:16 1.85
@@ -354,12 +354,10 @@ sub select_files {
# eventually, have to handle removing those not checked, but . . .
my @items=&Apache::loncommon::get_env_multiple('form.checkfile');
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 {
#empty the file for a fresh start
- &Apache::lonnet::logthis("Clearing saved files");
&Apache::lonnet::clear_selected_files($env{'user.name'});
}
my @files = &Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'});
@@ -451,21 +449,21 @@ sub lock_info {
my ($r) = @_;
my %current_permissions = &Apache::lonnet::dump('file_permissions',$env{'user.domain'},$env{'user.name'});
my $file_name = $env{'form.lockinfo'};
- #my %locked_files = &Apache::lonnet::get_marked_as_readonly_hash ($env{'user.domain'},$env{'user.name'});
- foreach my $key (keys(%current_permissions)) {
+ foreach my $key(keys(%current_permissions)) {
if ($file_name eq $key) {
- $r->print("$key = ");
- foreach my $array_item (@{$current_permissions{$key}}) {
- if (ref($array_item)) {
- $r->print(&Apache::lonnet::gettitle($$array_item[0]).' is the problem
');
- $r->print(&Apache::lonnet::coursedescription($$array_item[1]).' is the course
');
- # $r->print('the third is '.$$array_item[2].'
');
- # $r->print("item is $$array_item[0]
and $$array_item[0]");
- }
- }
+ foreach my $array_item (@{$current_permissions{$key}}) {
+ if (ref($array_item)) {
+ $r->print(''.$key.' was submitted in response to problem: '.
+ &Apache::lonnet::gettitle($$array_item[0]).'
');
+ my %course_description = &Apache::lonnet::coursedescription($$array_item[1]);
+ $r->print('In the course: '.$course_description{'description'}.'
');
+ # $r->print('the third is '.$$array_item[2].'
');
+ # $r->print("item is $$array_item[0]
and $$array_item[0]");
+ }
+ }
}
}
- #$r->print("lock info here");
+ $r->print(&done('Back'));
return 'ok';
}
sub createdir {