--- loncom/interface/portfolio.pm 2004/06/21 14:10:05 1.5 +++ loncom/interface/portfolio.pm 2006/03/15 19:41:26 1.95 @@ -18,12 +18,9 @@ # # /home/httpd/html/adm/gpl.txt # - - # http://www.lon-capa.org/ # - package Apache::portfolio; use strict; use Apache::Constants qw(:common :http); @@ -32,42 +29,729 @@ use Apache::lonnet; use Apache::lontexconvert; use Apache::lonfeedback; use Apache::lonlocal; +use Apache::lonnet; -sub handler { - my ($r)=@_; - $r->content_type('text/html'); - $r->send_http_header; - return OK if $r->header_only; -# my $file=&Apache::lonnet::filelocation("",$r->uri); -# my $contents=&Apache::lonnet::getfile($file); -# upload a file if we enter with a filename set - $r->print ('
-'); - - if ($ENV{'form.uploaddoc.filename'}){ - $r->print (&Apache::lonnet::userfileupload('uploaddoc',undef,'portfolio').'- '); - - return OK; + } +} +sub upload { + my ($r,$url,$group)=@_; + my $fname=$env{'form.uploaddoc.filename'}; + my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?) + my $disk_quota = 20000; # expressed in k + $fname=&Apache::lonnet::clean_filename($fname); + + my $portfolio_root=&get_portfolio_root($group); + my ($uname,$udom) = &get_name_dom($group); + my $port_path = &get_port_path($group); + # Fixme --- Move the checking for existing file to LOND error return + my @dir_list=&get_dir_list($portfolio_root,$group); + my $found_file = 0; + my $locked_file = 0; + foreach my $line (@dir_list) { + my ($file_name)=split(/\&/,$line,2); + if ($file_name eq $fname){ + $found_file = 1; + if (&Apache::lonnet::is_locked($env{'form.currentpath'}.$file_name,$udom,$uname) eq 'true') { + $locked_file = 1; + } + } + } + my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root); + if (($current_disk_usage + $filesize) > $disk_quota){ + $r->print('Unable to upload '.$fname.' (size = '.$filesize.' kilobytes). Disk quota will be exceeded.'. + '
'); +# receives a file name and path stub from username/userfiles/portfolio/ +# returns an anchor tag consisting encoding filename and currentpath +sub make_anchor { + my ($url, $filename, $current_path, $current_mode, $field_name, + $continue_select,$group) = @_; + if ($continue_select ne 'true') {$continue_select = 'false'}; + my $anchor = ''.$filename.''; + return $anchor; +} +my $dirptr=16384; +sub display_common { + my ($r,$url,$current_path,$is_empty,$dir_list,$group)=@_; + my $groupitem; + my $namespace = &get_namespace($group); + my $port_path = &get_port_path($group); + if (defined($group)) { + $groupitem = ''; + } + my $iconpath= $r->dir_config('lonIconsURL') . "/"; + my %text=&Apache::lonlocal::texthash('upload' => 'Upload', + 'upload_label' => + 'Upload file to current directory:', + 'createdir' => 'Create Subdirectory', + 'createdir_label' => + 'Create subdirectory in current directory:'); + $r->print(<<"TABLE"); ++ + +
+TABLE + my @tree = split (/\//,$current_path); + $r->print(''.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"},$group).'/'); + if (@tree > 1){ + my $newCurrentPath = ''; + for (my $i = 1; $i< @tree; $i++){ + $newCurrentPath .= $tree[$i].'/'; + $r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"},$group).'/'); + } + } + $r->print(''); + &Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path); + $r->print('
"); +} +sub display_directory { + my ($r,$url,$current_path,$is_empty,$dir_list,$group)=@_; + my $iconpath= $r->dir_config('lonIconsURL') . "/"; + my ($groupitem,$groupecho); + my $display_out; + my $select_mode; + my $checked_files; + my $port_path = &get_port_path($group); + my ($uname,$udom) = &get_name_dom($group); + my $namespace = &get_namespace($group); + if (defined($group)) { + $groupitem = ''; + $groupecho = '&group='.$group; + } + my %locked_files = &Apache::lonnet::get_marked_as_readonly_hash ($namespace,$udom,$uname); + if ($env{"form.mode"} eq 'selectfile'){ + &select_files($r); + $checked_files =&Apache::lonnet::files_in_path($uname,$env{'form.currentpath'}); + $select_mode = 'true'; + } + if ($is_empty && ($current_path ne '/')) { + $display_out = ''; + + $r->print($display_out); + return; + } + if ($select_mode eq 'true') { + $r->print(''. + '
+ + + + '); + } +} + +sub open_form { + my ($r,$url)=@_; + my @files=&Apache::loncommon::get_env_multiple('form.selectfile'); + $r->print(''); + $r->print(''); + } else { + $r->print(' Select Name Size Last Modified '); + $r->print(''); + $r->print(''); + foreach (@files) { + $r->print(''); + } + $r->print(''); +} + +sub close_form { + my ($r,$url,$group)=@_; + $r->print(' '); + $r->print(''); + if (defined($group)) { + $r->print("\n".''); + } + $r->print('
+ '); +} + +sub display_file { + my ($path,$filename)=@_; + my $display_file_text; + if (!defined($path)) { $path=$env{'form.currentpath'}; } + if (!defined($filename)) { + $filename=$env{'form.selectfile'}; + $display_file_text = ''.$path.$filename.''; + } elsif (ref($filename) eq "ARRAY") { + foreach (@$filename) { + $display_file_text .= ''.$path.$_.'+ '); + if (defined($group)) { + $r->print("\n".''); + } + $r->print("\n".' +
'; + } + } elsif (ref($filename) eq "SCALAR") { + $display_file_text = ''.$path.$filename.''; + } + return $display_file_text; +} + +sub done { + my ($message,$url,$group)=@_; + unless (defined $message) { + $message='Done'; + } + my $result = ''.&mt($message).'
'; + return $result; +} + +sub delete { + my ($r,$url,$group)=@_; + my @check; + my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'}; + my @files=&Apache::loncommon::get_env_multiple('form.selectfile'); + my ($uname,$udom) = &get_name_dom($group); + if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') { + $r->print ("The file is locked and cannot be deleted.
"); + $r->print(&done('Back',$url,$group)); + } else { + if (scalar(@files)) { + &open_form($r,$url); + $r->print(''.&mt('Delete').' '.&display_file(undef,\@files).'?
'); + &close_form($r,$url,$group); + } else { + $r->print("No file was checked to delete.
"); + $r->print(&done(undef,$url,$group)); + } + } +} + +sub delete_confirmed { + my ($r,$url,$group)=@_; + my @files=&Apache::loncommon::get_env_multiple('form.selectfile'); + my $result; + my ($uname,$udom) = &get_name_dom($group); + my $port_path = &get_port_path($group); + foreach my $delete_file (@files) { + $result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path. + $env{'form.currentpath'}. + $delete_file); + if ($result ne 'ok') { + $r->print(' An error occured ('.$result. + ') while trying to delete '.&display_file(undef, $delete_file).'
'); + } + } + $r->print(&done(undef,$url,$group)); +} + +sub delete_dir { + my ($r,$url,$group)=@_; + &open_form($r,$url); + $r->print(''.&mt('Delete').' '.&display_file().'?
'); + &close_form($r,$url,$group); +} + +sub delete_dir_confirmed { + my ($r,$url,$group)=@_; + my $directory_name = $env{'form.currentpath'}; + $directory_name =~ s|/$||; # remove any trailing slash + my ($uname,$udom) = &get_name_dom($group); + my $namespace = &get_namespace($group); + my $port_path = &get_port_path($group); + my $result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path. + $directory_name); + + if ($result ne 'ok') { + $r->print(' An error occured (dir) ('.$result. + ') while trying to delete '.$directory_name.'
'); + } else { + # now remove from recent +# $r->print('
removing '.$directory_name.'
print(&done(undef,$url,$group)); +} + +sub rename { + my ($r,$url,$group)=@_; + my $file_name = $env{'form.currentpath'}.$env{'form.rename'}; + my ($uname,$udom) = &get_name_dom($group); + if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') { + $r->print ("The file is locked and cannot be renamed.
"); + $r->print(&done(undef,$url,$group)); + } else { + &open_form($r,$url); + $r->print(''.&mt('Rename').' '.&display_file().' to + ?
'); + &close_form($r,$url,$group); + } +} + +sub rename_confirmed { + my ($r,$url,$group)=@_; + my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'}); + my ($uname,$udom) = &get_name_dom($group); + my $port_path = &get_port_path($group); + if ($filenewname eq '') { + $r->print(''. + &mt("Error: no valid filename was provided to rename to."). + '
'); + $r->print(&done(undef,$url,$group)); + return; + } + my $result= + &Apache::lonnet::renameuserfile($uname,$udom, + $port_path.$env{'form.currentpath'}.$env{'form.selectfile'}, + $port_path.$env{'form.currentpath'}.$filenewname); + if ($result ne 'ok') { + $r->print(' An errror occured ('.$result. + ') while trying to rename '.&display_file().' to '. + &display_file(undef,$filenewname).'
'); + } + if ($filenewname ne $env{'form.filenewname'}) { + $r->print("The new file name was changed from:
".$env{'form.filenewname'}." to $filenewname "); + } + $r->print(&done(undef,$url,$group)); +} +sub select_files { + my ($r,$group)=@_; + if ($env{'form.continue'} eq 'true') { + # here we update the selections for the currentpath + # eventually, have to handle removing those not checked, but . . . + my @items=&Apache::loncommon::get_env_multiple('form.checkfile'); + if (scalar(@items)){ + &Apache::lonnet::save_selected_files($env{'user.name'}, $env{'form.currentpath'}, @items); + } + } else { + #empty the file for a fresh start + &Apache::lonnet::clear_selected_files($env{'user.name'}); + } + my @files = &Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'}); + my $java_files = join ",", @files; + if ($java_files) { + $java_files.=','; + } + my $javascript =(<+ function finishSelect() { +ENDSMP + $javascript .= 'fileList = "'.$java_files.'";'; + $javascript .= (< +ENDSMP + $r->print($javascript); + $r->print(" Select portfolio files
+ Check as many as you wish in response to the problem.
"); + my @otherfiles=&Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'}); + if (@otherfiles) { + $r->print("Files selected from other directories:
"); + foreach my $file (@otherfiles) { + $r->print($file."
"); } - $r->print ('
Current contents of your portfolio directory:
'); - $r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, undef )); - $r->print ('
'); -# $r->print ($ENV{'form.uploaddoc.filename'}.'
'); -# $r->print ($ENV{'form.storeupl'}.'
'); -# $r->print ($ENV{'form.saywhat'}.'
'); - - $r->print("Upload files to your portfolio
"); - # file upload form - $r->print(''); - $r->print(''. - - '' - ); - $r->print(' -