File:
[LON-CAPA] /
loncom /
interface /
portfolio.pm
Revision
1.175:
download - view:
text,
annotated -
select for diffs
Mon Dec 11 03:43:15 2006 UTC (17 years, 4 months ago) by
raeburn
Branches:
MAIN
CVS tags:
version_2_3_X,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_99_1,
version_2_2_99_0,
HEAD
Block access to portfolio functions during blocking events unless 'evb' privilege.
Add blocking_status() - called by lonaboutme.pm, lonsimplepage.pm, lonfeedback.pm, portfolio.pm to display block condition
blockcheck() modified so blocking condition is only checked for current course for discussion, chat and group homepage
blockcheck() also modified so that if check is being made for blocking conditions for other than current user (e.g., portfolio files, blogs), check is made for 'evb' privilege for current user for any courses being checked for blokcing conditions.
# The LearningOnline Network
# portfolio browser
#
# $Id: portfolio.pm,v 1.175 2006/12/11 03:43:15 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
package Apache::portfolio;
use strict;
use Apache::Constants qw(:common :http);
use Apache::loncommon;
use Apache::lonnet;
use Apache::lontexconvert;
use Apache::lonfeedback;
use Apache::lonlocal;
use Apache::lonnet;
use Apache::longroup;
use Apache::lonhtmlcommon;
use HTML::Entities;
use LONCAPA;
sub group_args {
my $output;
if (defined($env{'form.group'})) {
$output .= '&group='.$env{'form.group'};
if (defined($env{'form.ref'})) {
$output .= '&ref='.$env{'form.ref'};
}
}
return $output;
}
sub group_form_data {
my $output;
if (defined($env{'form.group'})) {
$output = '<input type="hidden" name="group" value="'.$env{'form.group'}.'" />';
if (exists($env{'form.ref'})) {
$output .= '<input type="hidden" name="ref" value="'.
$env{'form.ref'}.'" />';
}
}
return $output;
}
# 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, $anchor_fields, $inner_text) = @_;
if ($$anchor_fields{'continue'} ne 'true') {$$anchor_fields{'continue'} = 'false'};
my $anchor = '<a href="'.$url.'?';
foreach my $field_name (keys(%$anchor_fields)) {
$anchor .= $field_name.'='.$$anchor_fields{$field_name}.'&';
}
$anchor =~ s/&$//;
$anchor .= &group_args();
$anchor .= '">'.$inner_text.'</a>';
return $anchor;
}
my $dirptr=16384;
sub display_common {
my ($r,$url,$current_path,$is_empty,$dir_list,$can_upload)=@_;
my $namespace = &get_namespace();
my $port_path = &get_port_path();
if ($can_upload) {
my $groupitem = &group_form_data();
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:');
my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
# FIXME: This line should be deleted once Portfolio uses breadcrumbs
$r->print(&Apache::loncommon::help_open_topic('Portfolio About', 'Help on the portfolio'));
$r->print(<<"TABLE");
<table id="LC_portfolio_actions">
<tr id="LC_portfolio_upload">
<td class="LC_label">
$text{'upload_label'}
</td>
<td class="LC_value">
<form method="post" enctype="multipart/form-data" action="$escuri">
$groupitem
<input name="uploaddoc" type="file" />
<input type="hidden" name="currentpath" value="$current_path" />
<input type="hidden" name="action" value="$env{"form.action"}" />
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />
<input type="hidden" name="mode" value="$env{"form.mode"}" />
<input type="submit" name="storeupl" value="$text{'upload'}" />$help_fileupload
</form>
</td>
</tr>
<tr id="LC_portfolio_createdir">
<td class="LC_label">
$text{'createdir_label'}
</td>
<td class="LC_value">
<form method="post" action="$escuri">
<input name="newdir" type="input" />$groupitem
<input type="hidden" name="currentpath" value="$current_path" />
<input type="hidden" name="action" value="$env{"form.action"}" />
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />
<input type="hidden" name="mode" value="$env{"form.mode"}" />
<input type="submit" name="createdir" value="$text{'createdir'}" />$help_createdir
</form>
</td>
</tr>
</table>
TABLE
}
my @tree = split (/\//,$current_path);
my %anchor_fields = (
'selectfile' => $port_path,
'currentpath' => '/',
'mode' => $env{"form.mode"},
'fieldname' => $env{"form.fieldname"},
'continue' => $env{"form.continue"}
);
$r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');
if (@tree > 1){
my $newCurrentPath = '';
for (my $i = 1; $i< @tree; $i++){
$newCurrentPath .= $tree[$i].'/';
my %anchor_fields = (
'selectfile' => $tree[$i],
'currentpath' => '/',
'mode' => $env{"form.mode"},
'fieldname' => $env{"form.fieldname"},
'continue' => $env{"form.continue"}
);
$r->print(&make_anchor($url,\%anchor_fields,$tree[$i]).'/');
}
}
$r->print('</span>');
$r->print(&Apache::loncommon::help_open_topic('Portfolio ChangeDirectory'));
&Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path);
$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"}.&group_args());
$r->print('">'.
&Apache::lonhtmlcommon::select_recent($namespace,'currentpath',
'this.form.submit();'));
$r->print("</form>");
}
sub display_directory_line {
my ($r,$select_mode, $filename, $mtime, $size, $css_class,
$line, $access_controls, $curr_access, $now, $version_flag,
$href_location, $url, $current_path, $access_admin_text, $versions)=@_;
my $fullpath = &prepend_group($current_path.$filename);
$r->print('<tr class="'.$css_class.'">');
$r->print($line); # contains first two cells of table
my $lock_info;
if ($version_flag) { # versioned can't be versioned, so TRUE when root file
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');
$r->print('<td>'.$version_flag.'</td>');
} else { # this is a graded or handed back file
my ($user,$domain) = &get_name_dom();
my $permissions_hash = &Apache::lonnet::get_portfile_permissions($domain,$user);
if (defined($$permissions_hash{$fullpath})) {
foreach my $array_item (@{$$permissions_hash{$fullpath}}) {
if (ref($array_item) eq 'ARRAY') {
if ($$array_item[-1] eq 'handback') {
$lock_info = 'Handback';
} elsif ($$array_item[-1] eq 'graded') {
$lock_info = 'Graded';
}
}
}
}
if ($lock_info) {
my %anchor_fields = ('lockinfo' => $fullpath);
if ($versions) { # hold the folder open
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath);
$fname =~ s|^/||;
$anchor_fields{'showversions'} = $fname.'.'.$extension;
}
$lock_info = &make_anchor(undef,\%anchor_fields,$lock_info);
}
$r->print('<td colspan="2">'.$lock_info.'</td>');
}
# $r->print('<td>'.$$version_flag{$filename}.'</td><td>');
$r->print('<td>'.&make_anchor($href_location.$filename,undef,$filename).'</td>');
$r->print('<td>'.$size.'</td>');
$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
if ($select_mode ne 'true') {
$r->print('<td><span style="white-space: nowrap">'.
&mt($curr_access).' ');
my %anchor_fields = (
'access' => $filename,
'currentpath' => $current_path
);
$r->print(&make_anchor($url, \%anchor_fields, $access_admin_text).'</span></td>');
}
$r->print('</tr>'.$/);
}
sub display_directory {
my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,
$can_modify,$can_delete,$can_setacl)=@_;
my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $display_out;
my $select_mode;
my $checked_files;
my $port_path = &get_port_path();
my ($uname,$udom) = &get_name_dom();
my $access_admin_text = &mt('View Status');
if ($can_setacl) {
$access_admin_text = &mt('View/Change Status');
}
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);
my %locked_files = &Apache::lonnet::get_marked_as_readonly_hash(
$current_permissions,$group);
my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group);
my $now = time;
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 '/') && $can_delete) {
$display_out = '<form method="post" action="'.$url.'">'.
&group_form_data().
'<input type="hidden" name="action" value="deletedir" />'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
'<input type="hidden" name="selectfile" value="" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
'</form>';
$r->print($display_out);
return;
}
if ($select_mode eq 'true') {
$r->print('<form method="post" name="checkselect" action="'.$url.'">');
$r->print('<table id="LC_browser">'.
'<tr><th>Select</th><th> </th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');
} else {
$r->print('<form method="post" action="'.$url.'">');
$r->print(&Apache::loncommon::help_open_topic('Portfolio FileList',
'Using the portfolio file list'));
$r->print('<table id="LC_browser">'.
'<tr><th colspan="2">Actions'.
&Apache::loncommon::help_open_topic('Portfolio FileAction').
'</th><th> </th><th> </th><th>Name'.
&Apache::loncommon::help_open_topic('Portfolio OpenFile').
'</th><th>Size</th><th>Last Modified</th><th>Current Access Status'.
&Apache::loncommon::help_open_topic('Portfolio ShareFile').
'</th></tr>');
}
$r->print("\n".&group_form_data()."\n");
my $href_location="/uploaded/$udom/$uname/$port_path".$current_path;
my $href_edit_location="/editupload/$udom/$uname/$port_path".$current_path;
my @dir_lines;
my %versioned;
foreach my $dir_line (sort
{
my ($afile)=split('&',$a,2);
my ($bfile)=split('&',$b,2);
return (lc($afile) cmp lc($bfile));
} (@$dir_list)) {
#$strip holds directory/file name
#$dom
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16);
$filename =~ s/\s+$//;
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
if ($version) {
my $fullpath = &prepend_group($current_path.$fname.'.'.$extension);
push(@{ $versioned{$fullpath} },
[$filename,$dom,$testdir,$size,$mtime,$obs,]);
} else {
push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
}
}
foreach my $dir_line (@dir_lines) {
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line;
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) {
my $version_flag;
my $show_versions;
my $fullpath = &prepend_group($current_path.$filename);
if ($env{'form.showversions'} =~ /$filename/) {
$show_versions = 'true';
}
if (exists($versioned{$fullpath})) {
my %anchor_fields = (
'selectfile' => $fullpath,
'continue' => 'false',
'currentpath' => $current_path,
);
if ($show_versions) {
# Must preserve other possible showversion files
my $version_remainder = $env{'form.showversions'};
$version_remainder =~ s/$filename//g;
$anchor_fields{'showversions'} = $version_remainder;
$version_flag = &make_anchor('portfolio',\%anchor_fields,
'<img class="LC_icon" alt="'.&mt('opened folder').'" src="'.$iconpath.'folder_pointer_opened.gif" />');
} else {
# allow multiple files to show versioned
$anchor_fields{'showversions'} = $env{'form.showversions'}.','.$filename;
$version_flag = &make_anchor('portfolio',\%anchor_fields,
'<img class="LC_icon" alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_pointer_closed.gif" />');
}
} else {
$version_flag = ' ';
}
if ($dirptr&$testdir) {
my $colspan='colspan="2"';
if ($select_mode eq 'true'){
undef($colspan);
}
$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>');
$r->print('<td>Go to ...</td>');
my %anchor_fields = (
'selectfile' => $filename.'/',
'currentpath' => $current_path.$filename.'/',
'mode' => $env{"form.mode"},
'fieldname' => $env{"form.fieldname"},
'continue' => $env{"form.continue"}
);
$r->print('<td>'.$version_flag.'</td><td>'.&make_anchor($url,\%anchor_fields,$filename.'/').'</td>');
$r->print('</tr>');
} else {
my $css_class = 'LC_browser_file';
my $line;
if ($select_mode eq 'true') {
$line='<td><input type="checkbox" name="checkfile" value="'.$filename.'"';
if ($$checked_files{$filename} eq 'selected') {
$line.=" checked ";
}
$line.=' /></td>';
} else {
if (exists $locked_files{$fullpath}) {
my %anchor_fields = (
'lockinfo' => $fullpath
);
$line.='<td colspan="2">'.&make_anchor($url,\%anchor_fields,'Locked').'</td>';
$css_class= 'LC_browser_file_locked';
} else {
if (!$can_modify) {
$line .= '<td colspan="2">';
} else {
$line .= '<td>';
}
if ($can_delete) {
$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';
}
if ($can_modify) {
my $cat='<img class="LC_icon" alt="'.&mt('Catalog Information').
'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';
my %anchor_fields = (
'rename' => $filename,
currentpath => $current_path
);
$line .= &make_anchor($url,\%anchor_fields,'Rename');
$line .= '</td><td>'.&make_anchor($href_edit_location.$filename.'.meta',\%anchor_fields,$cat);
# '<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';
}
$line .= '</td>';
}
}
my $curr_access;
if ($select_mode ne 'true') {
my $pub_access = 0;
my $guest_access = 0;
my $cond_access = 0;
foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) {
my ($num,$scope,$end,$start) = &unpack_acc_key($key);
if (($now > $start) && (!$end || $end > $now)) {
if ($scope eq 'public') {
$pub_access = 1;
} elsif ($scope eq 'guest') {
$guest_access = 1;
} else {
$cond_access = 1;
}
}
}
if (!$pub_access && !$guest_access && !$cond_access) {
$curr_access = &mt('Private');
} else {
my @allaccesses;
if ($pub_access) {
push(@allaccesses,&mt('Public'));
}
if ($guest_access) {
push(@allaccesses,&mt('Passphrase-protected'));
}
if ($cond_access) {
push(@allaccesses,&mt('Conditional'));
}
$curr_access = join('+ ',@allaccesses);
}
}
&display_directory_line($r,$select_mode, $filename, $mtime, $size, $css_class, $line,
\%access_controls, $curr_access,$now, $version_flag, $href_location,
$url, $current_path, $access_admin_text);
if ($show_versions) {
foreach my $dir_line (@{ $versioned{$fullpath} }) {
my ($v_filename,$dom,$testdir,$size,$mtime,$obs) =
@$dir_line;
$line = '<td colspan="2"> </td>';
&display_directory_line($r,$select_mode, $v_filename, $mtime, $size,
$css_class, $line, \%access_controls, $curr_access, $now,
undef, $href_location, $url, $current_path, $access_admin_text, 1);
}
}
}
}
}
if ($select_mode eq 'true') {
$r->print('</table>
<input type="hidden" name="continue" value="true" />
<input type="hidden" name="fieldname" value="'.$env{'form.fieldname'}.'" />
<input type="hidden" name="mode" value="selectfile" />
<input type="submit" name="submit" value="Select checked files, and continue selecting." /><br />
<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>');
} else {
$r->print('</table>');
if ($can_delete) {
$r->print('
<input type="submit" name="doit" value="Delete Checked Files" />'.
&Apache::loncommon::help_open_topic('Portfolio DeleteFile').'
<input type="hidden" name="action" value="delete" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>'
);
}
}
}
sub open_form {
my ($r,$url)=@_;
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
$r->print('<form name="portform" method="post" action="'.$url.'">');
$r->print('<input type="hidden" name="action" value="'.
$env{'form.action'}.'" />');
$r->print('<input type="hidden" name="confirmed" value="1" />');
foreach (@files) {
$r->print('<input type="hidden" name="selectfile" value="'.
$_.'" />');
}
$r->print('<input type="hidden" name="currentpath" value="'.
$env{'form.currentpath'}.'" />');
}
sub close_form {
my ($r,$url,$button_text)=@_;
if (!defined($button_text)) {
$button_text = {
'continue' => &mt('Continue'),
'cancel' => &mt('Cancel'),
};
}
$r->print('<p><input type="submit" value="'.$button_text->{'continue'}.'" />');
$r->print(&group_form_data().'</p></form>');
$r->print('<form action="'.$url.'" method="post">
<p>
<input type="hidden" name="currentpath" value="'.
$env{'form.currentpath'}.'" />'.
&group_form_data());
$r->print("\n".' <input type="submit" value="'.$button_text->{'cancel'}.'" />
</p></form>');
}
sub display_file {
my ($path,$filename)=@_;
my $display_file_text;
my $file_start='<span class="LC_filename">';
my $file_end='</span>';
if (!defined($path)) { $path=$env{'form.currentpath'}; }
if (!defined($filename)) {
$filename=$env{'form.selectfile'};
$display_file_text = $file_start.$path.$filename.$file_end;
} elsif (ref($filename) eq "ARRAY") {
foreach my $file (@$filename) {
$display_file_text .= $file_start.$path.$file.$file_end.'<br />';
}
} elsif (ref($filename) eq "SCALAR") {
$display_file_text = $file_start.$path.$$filename.$file_end;
} else {
$display_file_text = $file_start.$path.$filename.$file_end;
}
return $display_file_text;
}
sub done {
my ($message,$url)=@_;
unless (defined $message) {
$message='Done';
}
my %anchor_fields = (
'showversions' => $env{'form.showversions'},
'currentpath' => $env{'form.currentpath'},
'fieldname' => $env{'form.fieldname'},
'mode' => $env{'form.mode'}
);
my $result = '<h3>'.&make_anchor($url,\%anchor_fields,&mt($message)).'</h3>';
return $result;
}
sub delete {
my ($r,$url)=@_;
my @check;
my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};
$file_name = &prepend_group($file_name);
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
my ($uname,$udom) = &get_name_dom();
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$r->print("The file is locked and cannot be deleted.<br />");
$r->print(&done('Back',$url));
} else {
if (scalar(@files)) {
&open_form($r,$url);
$r->print('<p>'.&mt('Delete').' '.&display_file(undef,\@files).'?</p>');
&close_form($r,$url);
} else {
$r->print("No file was checked to delete.<br />");
$r->print(&done(undef,$url));
}
}
}
sub delete_confirmed {
my ($r,$url,$group)=@_;
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
my $result;
my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);
foreach my $delete_file (@files) {
$result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.
$env{'form.currentpath'}.
$delete_file);
if ($result ne 'ok') {
$r->print('<span class="LC_error">'.
&mt('An error occured ([_1]) while trying to delete
[_2].',$result,&display_file(undef, $delete_file)).
'</span><br /><br />');
} else {
$r->print(&mt('File: [_1] deleted.',
&display_file(undef,$delete_file)));
my $file_name = $env{'form.currentpath'}.$delete_file;
$file_name = &prepend_group($file_name);
my %access_controls =
&Apache::lonnet::get_access_controls($current_permissions,
$group,$file_name);
if (keys(%access_controls) > 0) {
my %changes;
foreach my $key (keys(%{$access_controls{$file_name}})) {
$changes{'delete'}{$key} = 1;
}
if (keys(%changes) > 0) {
my ($outcome,$deloutcome,$new_values,$translation) =
&Apache::lonnet::modify_access_controls($file_name,\%changes,
$udom,$uname);
if ($outcome ne 'ok') {
$r->print('<br />'.&mt("An error occured ([_1]) while ".
"trying to delete access controls for the file.",$outcome).
'</span><br /><br />');
} else {
if ($deloutcome eq 'ok') {
$r->print('<br />'.&mt('Access controls also deleted for the file.').'<br /><br />');
} else {
$r->print('<span class="LC_error">'.'<br />'.
&mt("An error occured ([_1]) while ".
"trying to delete access controls for the file.",$deloutcome).
'</span><br /><br />');
}
}
}
}
}
}
$r->print(&done(undef,$url));
}
sub delete_dir {
my ($r,$url)=@_;
&open_form($r,$url);
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');
&close_form($r,$url);
}
sub delete_dir_confirmed {
my ($r,$url)=@_;
my $directory_name = $env{'form.currentpath'};
$directory_name =~ s|/$||; # remove any trailing slash
my ($uname,$udom) = &get_name_dom();
my $namespace = &get_namespace();
my $port_path = &get_port_path();
my $result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.
$directory_name);
if ($result ne 'ok') {
$r->print('<span class="LC_error"> An error occured (dir) ('.$result.
') while trying to delete '.$directory_name.'</span><br />');
} else {
# now remove from recent
# $r->print('<br /> removing '.$directory_name.'<br /');
&Apache::lonhtmlcommon::remove_recent($namespace,[$directory_name.'/']);
my @dirs = split m!/!, $directory_name;
# $directory_name =~ m/^(\/*\/)(\/*.)$/;
$directory_name='/';
for (my $i=1; $i < (@dirs - 1); $i ++){
$directory_name .= $dirs[$i].'/';
}
$env{'form.currentpath'} = $directory_name;
}
$r->print(&done(undef,$url));
}
sub rename {
my ($r,$url)=@_;
my $file_name = $env{'form.currentpath'}.$env{'form.rename'};
my ($uname,$udom) = &get_name_dom();
$file_name = &prepend_group($file_name);
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$r->print("The file is locked and cannot be renamed.<br />");
$r->print(&done(undef,$url));
} else {
&open_form($r,$url);
$r->print('<p>'.&mt('Rename').' '.&display_file().' to
<input name="filenewname" type="input" size="50" />?</p>');
&close_form($r,$url);
}
}
sub rename_confirmed {
my ($r,$url,$group)=@_;
my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});
my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();
if ($filenewname eq '') {
$r->print('<span class="LC_error">'.
&mt("Error: no valid filename was provided to rename to.").
'</span><br />');
$r->print(&done(undef,$url));
return;
}
my $chg_access;
my $result=
&Apache::lonnet::renameuserfile($uname,$udom,
$port_path.$env{'form.currentpath'}.$env{'form.selectfile'},
$port_path.$env{'form.currentpath'}.$filenewname);
if ($result eq 'ok') {
$chg_access = &access_for_renamed($filenewname,$group,$udom,$uname);
} else {
$r->print('<span class="LC_error">'.
&mt('An error occured ([_1]) while trying to rename [_2]'
.' to [_3]',$result,&display_file(),
&display_file('',$filenewname)).'</span><br />');
return;
}
if ($filenewname ne $env{'form.filenewname'}) {
$r->print(&mt("The new file name was changed from:<br />[_1] to [_2]",
'<strong>'.&display_file('',$env{'form.filenewname'}).'</strong>',
'<strong>'.&display_file('',$filenewname).'</strong>'));
}
$r->print($chg_access);
$r->print(&done(undef,$url));
}
sub access_for_renamed {
my ($filenewname,$group,$udom,$uname) = @_;
my $oldfile = $env{'form.currentpath'}.$env{'form.selectfile'};
$oldfile = &prepend_group($oldfile);
my $newfile = $env{'form.currentpath'}.$filenewname;
$newfile = &prepend_group($newfile);
my $current_permissions =
&Apache::lonnet::get_portfile_permissions($udom,$uname);
my %access_controls =
&Apache::lonnet::get_access_controls($current_permissions,
$group,$oldfile);
my $chg_text;
if (keys(%access_controls) > 0) {
my %change_old;
my %change_new;
foreach my $key (keys(%{$access_controls{$oldfile}})) {
$change_old{'delete'}{$key} = 1;
$change_new{'activate'}{$key} = $access_controls{$oldfile}{$key};
}
my ($outcome,$deloutcome,$new_values,$translation) =
&Apache::lonnet::modify_access_controls($oldfile,\%change_old,
$udom,$uname);
if ($outcome ne 'ok') {
$chg_text ='<br /><br />'.&mt("An error occured ([_1]) while ".
"trying to delete access control records for the old name.",$outcome).
'</span><br />';
} else {
if ($deloutcome ne 'ok') {
$chg_text = '<br /><br /><span class="LC_error"><br />'.
&mt("An error occured ([_1]) while ".
"trying to delete access control records for the old name.",$deloutcome).
'</span><br />';
}
}
($outcome,$deloutcome,$new_values,$translation) =
&Apache::lonnet::modify_access_controls($newfile,\%change_new,
$udom,$uname);
if ($outcome ne 'ok') {
$chg_text .= '<br /><br />'.
&mt("An error occured ([_1]) while ".
"trying to update access control records for the new name.",$outcome).
'</span><br />';
}
if ($chg_text eq '') {
$chg_text = '<br /><br />'.&mt('Access controls updated to reflect the name change.');
}
}
return $chg_text;
}
sub display_access {
my ($r,$url,$group,$can_setacl,$port_path,$action) = @_;
my ($uname,$udom) = &get_name_dom();
my $file_name = $env{'form.currentpath'}.$env{'form.access'};
$file_name = &prepend_group($file_name);
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);
my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group,$file_name);
my $aclcount = keys(%access_controls);
my ($header,$info);
if ($action eq 'chgaccess') {
$header = '<h3>'.&mt('Allowing others to retrieve file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>';
$info .= &mt('Access to this file by others can be set to be one or more of the following types: public, passphrase-protected or conditional.');
$info .= '<br /><ul><li>'.&mt('Public files are available to anyone without the need for login.');
$info .= '</li><li>'.&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.');
$info .= '</li><li>'.&explain_conditionals();
$info .= '</li></ul>'.
&mt('A listing of files viewable without log-in is available at: ')."<a href=\"/adm/$udom/$uname/aboutme/portfolio\">http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme/portfolio</a>.<br />";
if ($group eq '') {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on your personal information page:");
} else {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on the course information page:");
}
$info .= "<br /><a href=\"/adm/$udom/$uname/aboutme\">http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a><br />";
if ($group ne '') {
$info .= &mt("Users with privileges to edit course contents may add a course information page to a course using the 'Course Info' button in DOCS").'<br />';
}
} else {
$header = '<h3>'.&mt('Conditional access controls for file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>'.
&explain_conditionals().'<br />';
}
if ($can_setacl) {
&open_form($r,$url);
$r->print($header.$info);
$r->print('<br />'.&Apache::loncommon::help_open_topic('Portfolio ShareFile SetAccess', 'Help on setting up share access'));
$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile ChangeSetting', 'Help on changing settings'));
$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile StopAccess', 'Help on removing share access'));
&access_setting_table($r,$url,$file_name,$access_controls{$file_name},
$action);
my $button_text = {
'continue' => &mt('Proceed'),
'cancel' => &mt('Back to directory listing'),
};
&close_form($r,$url,$button_text);
} else {
$r->print($header);
if ($aclcount) {
$r->print($info);
}
&view_access_settings($r,$url,$access_controls{$file_name},$aclcount);
}
}
sub explain_conditionals {
return
&mt('Conditional files are accessible to logged-in users with accounts in the LON-CAPA network, who satisfy the conditions you set.').'<br />'."\n".
&mt('The conditions can include affiliation with a particular course, or a user account in a specific domain.').'<br />'."\n".
&mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.');
}
sub view_access_settings {
my ($r,$url,$access_controls,$aclcount) = @_;
my ($showstart,$showend);
my %todisplay;
foreach my $key (sort(keys(%{$access_controls}))) {
my ($num,$scope,$end,$start) = &unpack_acc_key($key);
$todisplay{$scope}{$key} = $$access_controls{$key};
}
if ($aclcount) {
$r->print(&mt('<h4>Current access controls defined for this file:</h4>'));
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Access control').'</th><th>'.&mt('Dates available').
'</th><th>'.&mt('Additional information').'</th>');
$r->print(&Apache::loncommon::end_data_table_header_row());
my $count = 1;
my $chg = 'none';
&build_access_summary($r,$count,$chg,%todisplay);
$r->print(&Apache::loncommon::end_data_table());
} else {
$r->print(&mt('No access control settings currently exist for this file.<br />' ));
}
my %anchor_fields = (
'currentpath' => $env{'form.currentpath'}
);
$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Return to directory listing')));
return;
}
sub build_access_summary {
my ($r,$count,$chg,%todisplay) = @_;
my ($showstart,$showend);
my %scope_desc = (
public => 'Public',
guest => 'Passphrase-protected',
domains => 'Conditional: domain-based',
users => 'Conditional: user-based',
course => 'Conditional: course-based',
);
my @allscopes = ('public','guest','domains','users','course');
foreach my $scope (@allscopes) {
if ((!(exists($todisplay{$scope}))) || (ref($todisplay{$scope}) ne 'HASH')) {
next;
}
foreach my $key (sort(keys(%{$todisplay{$scope}}))) {
if ($count) {
$r->print(&Apache::loncommon::start_data_table_row());
}
my ($num,$scope,$end,$start) = &unpack_acc_key($key);
my $content = $todisplay{$scope}{$key};
if ($chg eq 'delete') {
$showstart = &mt('Deleted');
$showend = $showstart;
} else {
$showstart = localtime($start);
if ($end == 0) {
$showend = &mt('No end date');
} else {
$showend = localtime($end);
}
}
$r->print('<td>'.&mt($scope_desc{$scope}));
if ($scope eq 'course') {
if ($chg ne 'delete') {
my $cid = $content->{'domain'}.'_'.$content->{'number'};
my %course_description = &Apache::lonnet::coursedescription($cid);
$r->print('<br />('.$course_description{'description'}.')');
}
}
$r->print('</td><td>'.&mt('Start: ').$showstart.
'<br />'.&mt('End: ').$showend.'</td><td>');
if ($chg ne 'delete') {
if ($scope eq 'guest') {
$r->print(&mt('Passphrase').': '.$content->{'password'});
} elsif ($scope eq 'course') {
$r->print('<table width="100%"><tr>');
$r->print('<th>'.&mt('Roles').'</th><th>'.
&mt('Access').'</th><th>'.
&mt('Sections').'</th>');
$r->print('<th>'.&mt('Groups').'</th>');
$r->print('</tr>');
foreach my $id (sort(keys(%{$content->{'roles'}}))) {
$r->print('<tr>');
foreach my $item ('role','access','section','group') {
$r->print('<td>');
if ($item eq 'role') {
my $ucscope = $scope;
$ucscope =~ s/^(\w)/uc($1)/e;
my $role_output;
foreach my $role (@{$content->{'roles'}{$id}{$item}}) {
if ($role eq 'all') {
$role_output .= $role.',';
} elsif ($role =~ /^cr/) {
$role_output .= (split('/',$role))[3].',';
} else {
$role_output .= &Apache::lonnet::plaintext($role,$ucscope).',';
}
}
$role_output =~ s/,$//;
$r->print($role_output);
} else {
$r->print(join(',',@{$content->{'roles'}{$id}{$item}}));
}
$r->print('</td>');
}
$r->print('</tr>');
}
$r->print('</table>');
} elsif ($scope eq 'domains') {
$r->print(&mt('Domains: ').join(',',@{$content->{'dom'}}));
} elsif ($scope eq 'users') {
my $curr_user_list = &sort_users($content->{'users'});
$r->print(&mt('Users: ').$curr_user_list);
} else {
$r->print(' ');
}
} else {
$r->print(' ');
}
$r->print('</td>');
$r->print(&Apache::loncommon::end_data_table_row());
$count ++;
}
}
}
sub update_access {
my ($r,$url,$group,$port_path) = @_;
my $totalprocessed = 0;
my %processing;
my %title = (
'activate' => 'New control(s) added',
'delete' => 'Existing control(s) deleted',
'update' => 'Existing control(s) modified',
);
my $changes;
foreach my $chg (sort(keys(%title))) {
@{$processing{$chg}} = &Apache::loncommon::get_env_multiple('form.'.$chg);
$totalprocessed += @{$processing{$chg}};
foreach my $num (@{$processing{$chg}}) {
my $scope = $env{'form.scope_'.$num};
my ($start,$end) = &get_dates_from_form($num);
my $newkey = $num.':'.$scope.'_'.$end.'_'.$start;
if ($chg eq 'delete') {
$$changes{$chg}{$newkey} = 1;
} else {
$$changes{$chg}{$newkey} =
&build_access_record($num,$scope,$start,$end,$chg);
}
}
}
my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};
$r->print('<h3>'.&mt('Allowing others to retrieve file: [_1]',
$port_path.$file_name).'</h3>'."\n");
$file_name = &prepend_group($file_name);
my ($uname,$udom) = &get_name_dom();
my ($errors,$outcome,$deloutcome,$new_values,$translation);
if ($totalprocessed) {
($outcome,$deloutcome,$new_values,$translation) =
&Apache::lonnet::modify_access_controls($file_name,$changes,$udom,
$uname);
}
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);
my %access_controls =
&Apache::lonnet::get_access_controls($current_permissions,
$group,$file_name);
if ($totalprocessed) {
if ($outcome eq 'ok') {
my $updated_controls = $access_controls{$file_name};
my ($showstart,$showend);
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Type of change').'</th><th>'.
&mt('Access control').'</th><th>'.&mt('Dates available').
'</th><th>'.&mt('Additional information').'</th>');
$r->print(&Apache::loncommon::end_data_table_header_row());
foreach my $chg (sort(keys(%processing))) {
if (@{$processing{$chg}} > 0) {
if ($chg eq 'delete') {
if (!($deloutcome eq 'ok')) {
$errors .='<span class="LC_error">'.
&mt('A problem occurred deleting access controls: [_1]',$deloutcome).
'</span>';
next;
}
}
my $numchgs = @{$processing{$chg}};
$r->print(&Apache::loncommon::start_data_table_row());
$r->print('<td rowspan="'.$numchgs.'">'.&mt($title{$chg}).
'.</td>');
my $count = 0;
my %todisplay;
foreach my $key (sort(keys(%{$$changes{$chg}}))) {
my ($num,$scope,$end,$start) = &unpack_acc_key($key);
my $newkey = $key;
if ($chg eq 'activate') {
$newkey =~ s/^(\d+)/$$translation{$1}/;
}
$todisplay{$scope}{$newkey} = $$updated_controls{$newkey};
}
&build_access_summary($r,$count,$chg,%todisplay);
}
}
$r->print(&Apache::loncommon::end_data_table());
} else {
if ((@{$processing{'activate'}} > 0) || (@{$processing{'update'}} > 0)) {
$errors .= '<span class="LC_error">'.
&mt('A problem occurred storing access control settings: [_1]',$outcome).
'</span>';
}
}
if ($errors) {
$r->print($errors);
}
}
my $allnew = 0;
my $totalnew = 0;
my $status = 'new';
my ($firstitem,$lastitem);
foreach my $newitem ('course','domains','users') {
$allnew += $env{'form.new'.$newitem};
}
if ($allnew > 0) {
my $now = time;
my $then = $now + (60*60*24*180); # six months approx.
&open_form($r,$url);
foreach my $newitem ('course','domains','users') {
if ($env{'form.new'.$newitem} > 0) {
$r->print('<br />'.&mt('Add new <b>[_1]-based</b> access control for portfolio file: <b>[_2]</b>',$newitem,$env{'form.currentpath'}.$env{'form.selectfile'}).'<br /><br />');
$firstitem = $totalnew;
$lastitem = $totalnew + $env{'form.new'.$newitem};
$totalnew = $lastitem;
my @numbers;
for (my $i=$firstitem; $i<$lastitem; $i++) {
push (@numbers,$i);
}
&display_access_row($r,$status,$newitem,\@numbers,
$access_controls{$file_name},$now,$then);
}
}
&close_form($r,$url);
} else {
my %anchor_fields = (
'currentpath' => $env{'form.currentpath'},
'access' => $env{'form.selectfile'}
);
$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Display all access settings for this file')));
delete $anchor_fields{'access'};
$r->print(' '.&make_anchor($url,\%anchor_fields,&mt('Return to directory listing')));
}
return;
}
sub build_access_record {
my ($num,$scope,$start,$end,$chg) = @_;
my $record = {
type => $scope,
time => {
start => $start,
end => $end
},
};
if ($scope eq 'guest') {
$record->{'password'} = $env{'form.password'};
} elsif ($scope eq 'course') {
$record->{'domain'} = $env{'form.crsdom_'.$num};
$record->{'number'} = $env{'form.crsnum_'.$num};
my @role_ids;
my @delete_role_ids =
&Apache::loncommon::get_env_multiple('form.delete_role_'.$num);
my @preserves =
&Apache::loncommon::get_env_multiple('form.preserve_role_'.$num);
if (@delete_role_ids) {
foreach my $id (@preserves) {
if (grep {$_ = $id} (@delete_role_ids)) {
next;
}
push(@role_ids,$id);
}
} else {
push(@role_ids,@preserves);
}
my $next_id = $env{'form.add_role_'.$num};
if ($next_id) {
push(@role_ids,$next_id);
}
foreach my $id (@role_ids) {
my (@roles,@accesses,@sections,@groups);
if (($id == $next_id) && ($chg eq 'update')) {
@roles = split(/,/,$env{'form.role_'.$num.'_'.$next_id});
@accesses = split(/,/,$env{'form.access_'.$num.'_'.$next_id});
@sections = split(/,/,$env{'form.section_'.$num.'_'.$next_id});
@groups = split(/,/,$env{'form.group_'.$num.'_'.$next_id});
} else {
@roles = &Apache::loncommon::get_env_multiple('form.role_'.$num.'_'.$id);
@accesses = &Apache::loncommon::get_env_multiple('form.access_'.$num.'_'.$id);
@sections = &Apache::loncommon::get_env_multiple('form.section_'.$num.'_'.$id);
@groups = &Apache::loncommon::get_env_multiple('form.group_'.$num.'_'.$id);
}
$record->{'roles'}{$id}{'role'} = \@roles;
$record->{'roles'}{$id}{'access'} = \@accesses;
$record->{'roles'}{$id}{'section'} = \@sections;
$record->{'roles'}{$id}{'group'} = \@groups;
}
} elsif ($scope eq 'domains') {
my @doms = &Apache::loncommon::get_env_multiple('form.dom_'.$num);
$record->{'dom'} = \@doms;
} elsif ($scope eq 'users') {
my $userlist = $env{'form.users_'.$num};
$userlist =~ s/\s+//sg;
my %userhash = map { ($_,1) } (split(/,/,$userlist));
foreach my $user (keys(%userhash)) {
my ($uname,$udom) = split(/:/,$user);
push(@{$record->{'users'}}, {
'uname' => $uname,
'udom' => $udom
});
}
}
return $record;
}
sub get_dates_from_form {
my ($id) = @_;
my $startdate;
my $enddate;
$startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate_'.$id);
$enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate_'.$id);
if ( exists ($env{'form.noend_'.$id}) ) {
$enddate = 0;
}
return ($startdate,$enddate);
}
sub sort_users {
my ($users) = @_;
my @curr_users = map {
$_->{'uname'}.':'.$_->{'udom'}
} (@{$users});
my $curr_user_list = join(",\n",sort(@curr_users));
return $curr_user_list;
}
sub access_setting_table {
my ($r,$url,$filename,$access_controls,$action) = @_;
my ($public,$publictext);
$publictext ='Off';
my ($guest,$guesttext);
$guesttext = 'Off';
my @courses = ();
my @domains = ();
my @users = ();
my $now = time;
my $then = $now + (60*60*24*180); # six months approx.
my ($num,$scope,$publicnum,$guestnum);
my (%acl_count,%end,%start,%conditionals);
foreach my $key (sort(keys(%{$access_controls}))) {
($num,$scope,$end{$key},$start{$key}) = &unpack_acc_key($key);
if ($scope eq 'public') {
$public = $key;
$publicnum = $num;
$publictext = &acl_status($start{$key},$end{$key},$now);
} elsif ($scope eq 'guest') {
$guest=$key;
$guestnum = $num;
$guesttext = &acl_status($start{$key},$end{$key},$now);
} else {
$conditionals{$scope}{$key} = $$access_controls{$key};
if ($scope eq 'course') {
push(@courses,$key);
} elsif ($scope eq 'domains') {
push(@domains,$key);
} elsif ($scope eq 'users') {
push(@users,$key);
}
}
$acl_count{$scope} ++;
}
$r->print('<table border="0"><tr><td valign="top">');
if ($action eq 'chgaccess') {
&standard_settings($r,$now,$then,$url,$filename,\%acl_count,\%start,
\%end,$public,$publicnum,$publictext,$guest,$guestnum,
$guesttext,$access_controls,%conditionals);
} else {
&condition_setting($r,$access_controls,$now,$then,\%acl_count,
\@domains,\@users,\@courses);
}
$r->print('</td></tr></table>');
}
sub standard_settings {
my ($r,$now,$then,$url,$filename,$acl_count,$start,$end,$public,$publicnum,
$publictext,$guest,$guestnum,$guesttext,$access_controls,%conditionals)=@_;
$r->print('<h3>'.&mt('Public access: [_1]',$publictext).'</h3>');
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').'</th>');
$r->print(&Apache::loncommon::end_data_table_header_row());
$r->print(&Apache::loncommon::start_data_table_row());
if ($public) {
$r->print('<td>'.&actionbox('old',$publicnum,'public').'</td><td>'.
&dateboxes($publicnum,$start->{$public},$end->{$public}).'</td>');
} else {
$r->print('<td>'.&actionbox('new','0','public').'</td><td>'.
&dateboxes('0',$now,$then).'</td>');
}
$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());
$r->print('</td><td width="40"> </td><td valign="top">');
$r->print('<h3>'.&mt('Passphrase-protected access: [_1]',$guesttext).'</h3>');
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').
'</th><th>'. &mt('Passphrase').'</th>');
$r->print(&Apache::loncommon::end_data_table_header_row());
$r->print(&Apache::loncommon::start_data_table_row());
my $passwd;
if ($guest) {
$passwd = $$access_controls{$guest}{'password'};
$r->print('<td>'.&actionbox('old',$guestnum,'guest').'</td><td>'.
&dateboxes($guestnum,$start->{$guest},$end->{$guest}).'</td>');
} else {
$r->print('<td>'.&actionbox('new','1','guest').'</td><td>'.
&dateboxes('1',$now,$then).'</td>');
}
$r->print('<td><input type="text" size="15" name="password" value="'.
$passwd.'" /></td>');
$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());
$r->print('</td></tr><tr><td colspan="3"> </td></tr>'.
'<tr><td colspan="3">');
my $numconditionals = 0;
my $conditionstext;
my %cond_status;
foreach my $scope ('domains','users','course') {
$numconditionals += $acl_count->{$scope};
if ($acl_count->{$scope} > 0) {
if ($conditionstext ne 'Active') {
foreach my $key (keys(%{$conditionals{$scope}})) {
$conditionstext = &acl_status($start->{$key},$end->{$key},$now);
if ($conditionstext eq 'Active') {
last;
}
}
}
}
}
if ($conditionstext eq '') {
$conditionstext = 'Off';
}
my %anchor_fields = (
'access' => $env{'form.selectfile'},
'action' => 'chgconditions',
'currentpath' => $env{'form.currentpath'},
);
$r->print('<h3>'.&mt('Conditional access: [_1]',$conditionstext).'</h3>');
if ($numconditionals > 0) {
my $count = 1;
my $chg = 'none';
$r->print(&mt('You have previously set [_1] conditional access controls.',$numconditionals).' '.&make_anchor($url,\%anchor_fields,&mt('Change Conditions')).'<br /><br />');
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Access control').'</th><th>'.&mt('Dates available').
'</th><th>'.&mt('Additional information').'</th>');
$r->print(&Apache::loncommon::end_data_table_header_row());
&build_access_summary($r,$count,$chg,%conditionals);
$r->print(&Apache::loncommon::end_data_table());
} else {
$r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course affiliation.'));
}
}
sub condition_setting {
my ($r,$access_controls,$now,$then,$acl_count,$domains,$users,$courses) = @_;
$r->print('<tr><td valign="top">');
&access_element($r,'domains',$acl_count,$domains,$access_controls,$now,$then);
$r->print('</td><td> </td><td valign="top">');
&access_element($r,'users',$acl_count,$users,$access_controls,$now,$then);
$r->print('</td></tr><tr><td colspan="3"></td></tr><tr>');
if ($acl_count->{course} > 0) {
$r->print('<td colspan="3" valign="top">');
} else {
$r->print('<td valign="top">');
}
&access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then);
$r->print('</td>');
$r->print('</td></tr></table>');
}
sub acl_status {
my ($start,$end,$now) = @_;
if ($start > $now) {
return 'Inactive';
}
if ($end && $end<$now) {
return 'Inactive';
}
return 'Active';
}
sub access_element {
my ($r,$type,$acl_count,$items,$access_controls,$now,$then) = @_;
my $title = $type;
$title =~ s/s$//;
$title =~ s/^(\w)/uc($1)/e;
$r->print('<h3>'.&mt('[_1]-based conditional access: ',$title));
if ($$acl_count{$type}) {
$r->print($$acl_count{$type}.' ');
if ($$acl_count{$type} > 1) {
$r->print(&mt('conditions'));
} else {
$r->print(&mt('condition'));
}
} else {
$r->print(&mt('Off'));
}
$r->print('</h3>');
&display_access_row($r,'old',$type,$items,$access_controls,$now,$then);
return;
}
sub display_access_row {
my ($r,$status,$type,$items,$access_controls,$now,$then) = @_;
if (@{$items} > 0) {
my @all_doms;
my $colspan = 3;
my $uctype = $type;
$uctype =~ s/^(\w)/uc($1)/e;
$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action?').'</th><th>'.&mt($uctype).'</th><th>'.
&mt('Dates available').'</th>');
if ($type eq 'course' && $status eq 'old') {
$r->print('<th>'.&mt('Allowed [_1] member affiliations',$type).
'</th>');
$colspan ++;
} elsif ($type eq 'domains') {
@all_doms = &Apache::loncommon::get_domains();
}
$r->print(&Apache::loncommon::end_data_table_header_row());
foreach my $key (@{$items}) {
$r->print(&Apache::loncommon::start_data_table_row());
if ($type eq 'course') {
&course_row($r,$status,$type,$key,$access_controls,$now,$then);
} elsif ($type eq 'domains') {
&domains_row($r,$status,$key,\@all_doms,$access_controls,$now,
$then);
} elsif ($type eq 'users') {
&users_row($r,$status,$key,$access_controls,$now,$then);
}
$r->print(&Apache::loncommon::end_data_table_row());
}
if ($status eq 'old') {
$r->print(&Apache::loncommon::start_data_table_row());
$r->print('<td colspan="',$colspan.'">'.&additional_item($type).
'</td>');
$r->print(&Apache::loncommon::end_data_table_row());
}
$r->print(&Apache::loncommon::end_data_table());
} else {
$r->print(&mt('No [_1]-based conditions defined.<br />',$type).
&additional_item($type));
}
return;
}
sub course_js {
return qq|
<script type="text/javascript">
function setRoleOptions(num,roleid,cdom,cnum,type) {
updateIndexNum = getIndexByValue('update',num);
var addItem = 'add_role_'+num;
var addIndexNum = getIndexByName(addItem);
if (document.portform.elements[addItem].checked) {
document.portform.elements[updateIndexNum].checked = true;
var url = '/adm/portfolio?action=rolepicker&setroles='+num+'_'+roleid+'&cnum='+cnum+'&cdom='+cdom+'&type='+type;
var title = 'Roles_Chooser';
var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';
rolebrowser = open(url,title,options,'1');
rolebrowser.focus();
} else {
addArray = new Array ('role','access','section','group');
for (var j=0;j<addArray.length;j++) {
var itemIndex = getIndexByName(addArray[j]+'_'+num+'_'+roleid);
document.portform.elements[itemIndex].value = '';
}
}
}
function getIndexByName(item) {
for (var i=0;i<document.portform.elements.length;i++) {
if (document.portform.elements[i].name == item) {
return i;
}
}
return -1;
}
function getIndexByValue(name,value) {
for (var i=0;i<document.portform.elements.length;i++) {
if (document.portform.elements[i].name == name && document.portform.elements[i].value == value) {
return i;
}
}
return -1;
}
</script>
|;
}
sub course_row {
my ($r,$status,$type,$item,$access_controls,$now,$then) = @_;
my $content;
my $defdom = $env{'user.domain'};
if ($status eq 'old') {
$content = $$access_controls{$item};
$defdom = $content->{'domain'};
}
my $js = &Apache::loncommon::coursebrowser_javascript($defdom)
.&course_js();
my $uctype = $type;
$uctype =~ s/^(\w)/uc($1)/e;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
$type);
$r->print('<td>'.$js.&actionbox($status,$num,$scope).'</td>');
if ($status eq 'old') {
my $cid = $content->{'domain'}.'_'.$content->{'number'};
my %course_description = &Apache::lonnet::coursedescription($cid);
$r->print('<td><input type="hidden" name="crsdom_'.$num.'" value="'.$content->{'domain'}.'" /><input type="hidden" name="crsnum_'.$num.'" value="'.$content->{'number'}.'" />'.$course_description{'description'}.'</td>');
} elsif ($status eq 'new') {
$r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,$num.'_1',undef,$uctype).' <input type="text" name="description_'.$num.'" size="30" /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');
}
$r->print('<td>'.&dateboxes($num,$start,$end));
my $newrole_id = 1;
if ($status eq 'old') {
$r->print('</td><td>');
my $max_id = 0;
if (keys(%{$content->{'roles'}}) > 0) {
$r->print('<table><tr><th>'.&mt('Action').'</th>'.
'<th>'.&mt('Roles').'</th>'.
'<th>'.&mt('Access').'</th>'.
'<th>'.&mt('Sections').'</th>'.
'<th>'.&mt('Groups').'</th></tr>');
foreach my $role_id (sort(keys(%{$content->{'roles'}}))) {
if ($role_id > $max_id) {
$max_id = $role_id;
}
$max_id ++;
my $role_selects = &role_selectors($num,$role_id,$type,$content,'display');
$r->print('<tr><td><span style="white-space: nowrap"><label><input type="checkbox" name="delete_role_'.$num.'" value="'.$role_id.'" />'.&mt('Delete').'</label></span><br /><input type="hidden" name="preserve_role_'.$num.'" value="'.$role_id.'" /></td>'.$role_selects.'</tr>');
}
$r->print('</table>');
}
$r->print('<br />'.&mt('Add a roles-based condition').
' <input type="checkbox" name ="add_role_'.
$num.'" onClick="javascript:setRoleOptions('."'$num',
'$max_id','$content->{'domain'}','$content->{'number'}',
'$uctype'".')" value="" />');
$newrole_id = $max_id;
} else {
$r->print('<input type="hidden" name ="add_role_'.$num.'" value="" />');
}
$r->print(&add_course_role($num,$newrole_id));
$r->print('</td>');
return;
}
sub add_course_role {
my ($num,$max_id) = @_;
my $output;
$output .='<input type="hidden" name="role_'.$num.'_'.$max_id.'" />'.
'<input type="hidden" name="access_'.$num.'_'.$max_id.'" />'.
'<input type="hidden" name="section_'.$num.'_'.$max_id.'" />'.
'<input type="hidden" name="group_'.$num.'_'.$max_id.'" />';
return $output;
}
sub domains_row {
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
'domains');
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'.
' <option value="">'.&mt('Please select').'</option>';
if ($status eq 'old') {
my $content = $$access_controls{$item};
foreach my $dom (@{$all_doms}) {
if ((@{$content->{'dom'}} > 0)
&& (grep(/^\Q$dom\E$/,@{$content->{'dom'}}))) {
$dom_select .= '<option value="'.$dom.'" selected>'.
$dom.'</option>';
} else {
$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';
}
}
} else {
foreach my $dom (@{$all_doms}) {
$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';
}
}
$dom_select .= '</select>';
$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.$dom_select.
'</td><td>'.&dateboxes($num,$start,$end).'</td>');
}
sub users_row {
my ($r,$status,$item,$access_controls,$now,$then) = @_;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
'users');
my $curr_user_list;
if ($status eq 'old') {
my $content = $$access_controls{$item};
$curr_user_list = &sort_users($content->{'users'});
}
$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt("Format for users' username:domain information:").'<br /><tt>sparty:msu,illini:uiuc ... etc.</tt><br /><textarea name="users_'.$num.'" cols="30" rows="5">'.$curr_user_list.'</textarea></td><td>'.&dateboxes($num,$start,$end).'</td>');
}
sub additional_item {
my ($type) = @_;
my $output = &mt('Add new [_1] condition(s)?',$type).' '.&mt('Number to add: ').'<input type="text" name="new'.$type.'" size="3" value="0" />';
return $output;
}
sub actionbox {
my ($status,$num,$scope) = @_;
my $output = '<span style="white-space: nowrap"><label>';
if ($status eq 'new') {
my $checkstate;
if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course') {
$checkstate = 'checked="checked"';
}
$output .= '<input type="checkbox" name="activate" value="'.$num.'" '.
$checkstate.' />'.
&mt('Activate');
} else {
$output .= '<input type="checkbox" name="delete" value="'.$num.
'" />'.&mt('Delete').'</label></span><br /><span style="white-space: nowrap">'.
'<label><input type="checkbox" name="update" value="'.
$num.'" />'.&mt('Update');
}
$output .= '</label></span><input type="hidden" name="scope_'.$num. '" value="'.$scope.'" />';
return $output;
}
sub dateboxes {
my ($num,$start,$end) = @_;
my $noend;
if ($end == 0) {
$noend = 'checked="checked"';
}
my $startdate = &Apache::lonhtmlcommon::date_setter('portform',
'startdate_'.$num,$start,undef,undef,undef,1,undef,
undef,undef,1);
my $enddate = &Apache::lonhtmlcommon::date_setter('portform',
'enddate_'.$num,$end,undef,undef,undef,1,undef,
undef,undef,1). ' <span style="white-space: nowrap"><label>'.
'<input type="checkbox" name="noend_'.
$num.'" '.$noend.' />'.&mt('No end date').
'</label></span>';
my $output = &mt('Start: ').$startdate.'<br />'.&mt('End: ').$enddate;
return $output;
}
sub unpack_acc_key {
my ($acc_key) = @_;
my ($num,$scope,$end,$start) = ($acc_key =~ /^([^:]+):([a-z]+)_(\d*)_?(\d*)$/);
return ($num,$scope,$end,$start);
}
sub set_identifiers {
my ($status,$item,$now,$then,$scope) = @_;
if ($status eq 'old') {
return(&unpack_acc_key($item));
} else {
return($item,$scope,$then,$now);
}
}
sub role_selectors {
my ($num,$role_id,$type,$content,$caller) = @_;
my ($output,$cdom,$cnum,$longid);
if ($caller eq 'display') {
$longid = '_'.$num.'_'.$role_id;
$cdom = $$content{'domain'};
$cnum = $$content{'number'};
} elsif ($caller eq 'rolepicker') {
$cdom = $env{'form.cdom'};
$cnum = $env{'form.cnum'};
}
my $uctype = $type;
$uctype =~ s/^(\w)/uc($1)/e;
my ($sections,$groups,$allroles,$rolehash,$accesshash) =
&Apache::loncommon::get_secgrprole_info($cdom,$cnum,1,$uctype);
if (!@{$sections}) {
@{$sections} = ('none');
} else {
unshift(@{$sections},('all','none'));
}
if (!@{$groups}) {
@{$groups} = ('none');
} else {
unshift(@{$groups},('all','none'));
}
my @allacesses = sort(keys(%{$accesshash}));
my (%sectionhash,%grouphash);
foreach my $sec (@{$sections}) {
$sectionhash{$sec} = $sec;
}
foreach my $grp (@{$groups}) {
$grouphash{$grp} = $grp;
}
my %lookup = (
'role' => $rolehash,
'access' => $accesshash,
'section' => \%sectionhash,
'group' => \%grouphash,
);
my @allaccesses = sort(keys(%{$accesshash}));
my %allitems = (
'role' => $allroles,
'access' => \@allaccesses,
'section' => $sections,
'group' => $groups,
);
foreach my $item ('role','access','section','group') {
$output .= '<td><select name="'.$item.$longid.'" multiple="true" size="4">'."\n";
foreach my $entry (@{$allitems{$item}}) {
if ($caller eq 'display') {
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) &&
(grep(/^\Q$entry\E$/,@{$$content{'roles'}{$role_id}{$item}}))) {
$output .= ' <option value="'.$entry.'" selected>'.
$lookup{$item}{$entry}.'</option>';
next;
}
}
$output .= ' <option value="'.$entry.'">'.
$lookup{$item}{$entry}.'</option>';
}
$output .= '</select>';
}
$output .= '</td>';
return $output;
}
sub role_options_window {
my ($r) = @_;
my $type = $env{'form.type'};
my $rolenum = $env{'form.setroles'};
my ($num,$role_id) = ($rolenum =~ /^([\d_]+)_(\d+)$/);
my $role_elements;
foreach my $item ('role','access','section','group') {
$role_elements .= "'".$item.'_'.$rolenum."',";
}
$role_elements =~ s/,$//;
my $role_selects = &role_selectors($num,$role_id,$type,undef,
'rolepicker');
$r->print(<<"END_SCRIPT");
<script type="text/javascript">
function setRoles() {
var role_elements = new Array($role_elements);
for (var i=0; i<role_elements.length; i++) {
var copylist = '';
for (var j=0; j<document.rolepicker.elements[i].length; j++) {
if (document.rolepicker.elements[i].options[j].selected) {
copylist = copylist + document.rolepicker.elements[i].options[j].value + ',';
}
}
copylist = copylist.substr(0,copylist.length-1);
var openerItem = getIndexByName(role_elements[i]);
opener.document.portform.elements[openerItem].value = copylist;
}
var roleAdder = getIndexByName('add_role_$num');
opener.document.portform.elements[roleAdder].value = '$role_id';
self.close();
}
function getIndexByName(item) {
for (var i=0;i<opener.document.portform.elements.length;i++) {
if (opener.document.portform.elements[i].name == item) {
return i;
}
}
return -1;
}
</script>
END_SCRIPT
$r->print(&mt('Select roles, course status, section(s) and group(s) for users who will be able to access the portfolio file.'));
$r->print('<form name="rolepicker" action="/adm/portfolio" method="post"><table><tr><th>'.&mt('Roles').'</th><th>'.&mt('[_1] status',$type).'</th><th>'.&mt('Sections').'</th><th>'.&mt('Groups').'</th></tr><tr>'.$role_selects.'</tr></table><br /><input type="button" name="rolepickbutton" value="Save selections" onclick="setRoles()" />');
return;
}
sub select_files {
my ($r) = @_;
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 =(<<ENDSMP);
<script type="text/javascript">
function finishSelect() {
ENDSMP
$javascript .= 'fileList = "'.$java_files.'";';
$javascript .= (<<ENDSMP);
for (i=0;i<document.forms.checkselect.length;i++) {
if (document.forms.checkselect[i].checked){
fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;
}
}
opener.document.forms.lonhomework.$env{'form.fieldname'}.value=fileList;
self.close();
}
</script>
ENDSMP
$r->print($javascript);
$r->print("<h1>Select portfolio files</h1>
Check as many as you wish in response to the problem.<br />");
my @otherfiles=&Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'});
if (@otherfiles) {
$r->print("<strong>Files selected from other directories:</strong><br />");
foreach my $file (@otherfiles) {
$r->print($file."<br />");
}
}
}
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 = &get_quota($group);
$fname=&Apache::lonnet::clean_filename($fname);
my $portfolio_root=&get_portfolio_root();
my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();
# Fixme --- Move the checking for existing file to LOND error return
my @dir_list=&get_dir_list($portfolio_root);
my $found_file = 0;
my $locked_file = 0;
foreach my $line (@dir_list) {
my ($file_name)=split(/\&/,$line,2);
if ($file_name eq $fname){
$file_name = $env{'form.currentpath'}.$file_name;
$file_name = &prepend_group($file_name);
$found_file = 1;
if (&Apache::lonnet::is_locked($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('<span class="LC_error">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes)</strong>. Disk quota will be exceeded.</span>'.
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.');
$r->print(&done('Back',$url));
}
elsif ($found_file){
if ($locked_file){
$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a <strong>locked</strong> file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.
'<br />You will be able to rename or delete existing '.$fname.' after a grade has been assigned.');
$r->print(&done('Back',$url));
} else {
$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.
'<br />To upload, rename or delete existing '.$fname.' in '.$port_path.$env{'form.currentpath'});
$r->print(&done('Back',$url));
}
} else {
my $result=&Apache::lonnet::userfileupload('uploaddoc','',
$port_path.$env{'form.currentpath'});
if ($result !~ m|^/uploaded/|) {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.
') while trying to upload '.&display_file().'</span><br />');
$r->print(&done('Back',$url));
} else {
$r->print(&done(undef,$url));
}
}
}
sub lock_info {
my ($r,$url,$group) = @_;
my ($uname,$udom) = &get_name_dom();
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);
my $file_name = $env{'form.lockinfo'};
$file_name = &prepend_group($file_name);
if (defined($file_name) && defined($$current_permissions{$file_name})) {
foreach my $array_item (@{$$current_permissions{$file_name}}) {
next if (ref($array_item) ne 'ARRAY');
my $filetext;
if (defined($group)) {
$filetext = '<strong>'.$env{'form.lockinfo'}.
'</strong> (group: '.$group.')';
} else {
$filetext = '<strong>'.$file_name.'</strong>';
}
my $title ='<strong>'.&Apache::lonnet::gettitle($$array_item[0]).
'</strong><br />';
if ($$array_item[-1] eq 'graded') {
$r->print(&mt('[_1] was submitted in response to problem: [_2]',
$filetext,$title));
} elsif ($$array_item[-1] eq 'handback') {
$r->print(&mt('[_1] was handed back in response to problem: [_2]',
$filetext,$title));
} else {
# submission style lock
$r->print(&mt('[_1] was submitted in response to problem: [_2]',
$filetext,$title));
}
my %course_description =
&Apache::lonnet::coursedescription($$array_item[1]);
if ( $course_description{'description'} ne '') {
$r->print(&mt('In the course: <strong>[_1]</strong><br />',
$course_description{'description'}));
}
}
}
$r->print(&done('Back',$url));
return 'ok';
}
sub createdir {
my ($r,$url)=@_;
my $newdir=&Apache::lonnet::clean_filename($env{'form.newdir'});
if ($newdir eq '') {
$r->print('<span class="LC_error">'.
&mt("Error: no directory name was provided.").
'</span><br />');
$r->print(&done(undef,$url));
return;
}
my $portfolio_root = &get_portfolio_root();
my @dir_list=&get_dir_list($portfolio_root);
my $found_file = 0;
foreach my $line (@dir_list) {
my ($filename)=split(/\&/,$line,2);
if ($filename eq $newdir){
$found_file = 1;
}
}
if ($found_file){
$r->print('<span class="LC_error">'.'Unable to create a directory named <strong>'.$newdir.
' </strong>a file or directory by that name already exists.</span><br />');
} else {
my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();
my $result=&Apache::lonnet::mkdiruserfile($uname,$udom,
$port_path.$env{'form.currentpath'}.$newdir);
if ($result ne 'ok') {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.
') while trying to create a new directory '.&display_file().'</span><br />');
}
}
if ($newdir ne $env{'form.newdir'}) {
$r->print("The new directory name was changed from:<br /><strong>".$env{'form.newdir'}."</strong> to <strong>$newdir </strong>");
}
$r->print(&done(undef,$url));
}
sub get_portfolio_root {
my ($udom,$uname,$group) = @_;
if (!(defined($udom)) || !(defined($uname))) {
($uname,$udom) = &get_name_dom();
}
my $path = '/userfiles/portfolio';
if (!defined($group)) {
if (defined($env{'form.group'})) {
$group = $env{'form.group'};
}
}
if (defined($group)) {
$path = '/userfiles/groups/'.$group.'/portfolio';
}
return (&Apache::loncommon::propath($udom,$uname).$path);
}
sub get_group_quota {
my ($group) = @_;
my $group_quota;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
if (%curr_groups) {
my %group_info = &Apache::longroup::get_group_settings(
$curr_groups{$group});
$group_quota = $group_info{'quota'}; #expressed in Mb
if ($group_quota) {
$group_quota = 1000 * $group_quota; #expressed in k
}
}
return $group_quota;
}
sub get_dir_list {
my ($portfolio_root) = @_;
my ($uname,$udom) = &get_name_dom();
return &Apache::lonnet::dirlist($env{'form.currentpath'},
$udom,$uname,$portfolio_root);
}
sub get_name_dom {
my ($uname,$udom);
if (defined($env{'form.group'})) {
$udom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$uname = $env{'course.'.$env{'request.course.id'}.'.num'};
} else {
$udom = $env{'user.domain'};
$uname = $env{'user.name'};
}
return ($uname,$udom);
}
sub prepend_group {
my ($filename) = @_;
if (defined($env{'form.group'})) {
$filename = $env{'form.group'}.$filename;
}
return $filename;
}
sub get_namespace {
my $namespace = 'portfolio';
if (defined($env{'form.group'})) {
my ($uname,$udom) = &get_name_dom();
$namespace .= '_'.$udom.'_'.$uname.'_'.$env{'form.group'};
}
return $namespace;
}
sub get_port_path {
my $port_path;
if (defined($env{'form.group'})) {
$port_path = "groups/$env{'form.group'}/portfolio";
} else {
$port_path = 'portfolio';
}
return $port_path;
}
sub missing_priv {
my ($r,$url,$priv) = @_;
my $longtext = {
upload => 'upload files',
delete => 'delete files',
rename => 'rename files',
setacl => 'set access controls for files',
};
my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"');
my $rtnlink = '<a href="'.$url;
if ($url =~ /\?/) {
$rtnlink .= '&';
} else {
$rtnlink .= '?';
}
$rtnlink .= 'currentpath='.$escpath;
$r->print(&mt('<h3>Action disallowed</h3>'));
$r->print(&mt('You do not have sufficient privileges to [_1] ',
$longtext->{$priv}));
if (defined($env{'form.group'})) {
$r->print(&mt("in the group's file repository."));
$rtnlink .= &group_args()
} else {
$r->print(&mt('in this portfolio.'));
}
$rtnlink .= '">'.&mt('Return to directory listing page').'</a>';
$r->print('<br />'.$rtnlink);
$r->print(&Apache::loncommon::end_page());
return;
}
sub coursegrp_portfolio_header {
my ($cdom,$cnum,$grp_desc)=@_;
my $gpterm = &Apache::loncommon::group_term();
my $ucgpterm = $gpterm;
$ucgpterm =~ s/^(\w)/uc($1)/e;
if ($env{'form.ref'}) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",
text=>"Groups",
title=>"Course Groups"});
}
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/$cdom/$cnum/$env{'form.group'}/smppg?ref=$env{'form.ref'}",
text=>"$ucgpterm: $grp_desc",
title=>"Go to group's home page"},
{href=>"/adm/coursegrp_portfolio?".&group_args(),
text=>"Group Portfolio",
title=>"Display group portfolio"});
my $output = &Apache::lonhtmlcommon::breadcrumbs(
&mt('[_1] portfolio files - [_2]',$gpterm,$grp_desc));
return $output;
}
sub get_quota {
my ($group) = @_;
my $disk_quota;
if (defined($group)) {
my $grp_quota = &get_group_quota($group); # quota expressed in k
if ($grp_quota ne '') {
$disk_quota = $grp_quota;
} else {
$disk_quota = 0;
}
} else {
$disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
$env{'user.domain'}); #expressed in Mb
$disk_quota = 1000 * $disk_quota; # convert from Mb to kb
}
return $disk_quota;
}
sub handler {
# this handles file management
my $r = shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selectfile','currentpath','meta','lockinfo','currentfile','action',
'fieldname','mode','rename','continue','group','access','setnum',
'cnum','cdom','type','setroles','showversions','ref']);
my ($uname,$udom,$portfolio_root,$url,$caller,$title,$group,$grp_desc);
if ($r->uri =~ m|^(/adm/)([^/]+)|) {
$url = $1.$2;
$caller = $2;
}
my ($can_modify,$can_delete,$can_upload,$can_setacl);
if ($caller eq 'coursegrp_portfolio') {
# Needs to be in a course
if (! ($env{'request.course.fn'})) {
# Not in a course
$env{'user.error.msg'}=
"/adm/coursegrp_portfolio:rgf:0:0:Cannot view group portfolio";
return HTTP_NOT_ACCEPTABLE;
}
my $earlyout = 0;
my $view_permission =
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
$env{'form.group'} =~ s/\W//g;
$group = $env{'form.group'};
if ($group) {
($uname,$udom) = &get_name_dom();
my %curr_groups = &Apache::longroup::coursegroups($udom,$uname,
$group);
if (%curr_groups) {
my %grp_content = &Apache::longroup::get_group_settings(
$curr_groups{$group});
$grp_desc = &unescape($grp_content{'description'});
if (($view_permission) || (&Apache::lonnet::allowed('rgf',
$env{'request.course.id'}.'/'.$group))) {
$portfolio_root = &get_portfolio_root();
} else {
$r->print('You do not have the privileges required to access the shared files space for this group.');
$earlyout = 1;
}
} else {
$r->print('Not a valid group for this course');
$earlyout = 1;
}
$title = &mt('Group files').' for '.$group;
} else {
$r->print('Invalid group');
$earlyout = 1;
}
if ($earlyout) { return OK; }
if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
$can_modify = 1;
$can_delete = 1;
$can_upload = 1;
$can_setacl = 1;
} else {
if (&Apache::lonnet::allowed('agf',$env{'request.course.id'}.'/'.$group)) {
$can_setacl = 1;
}
if (&Apache::lonnet::allowed('ugf',$env{'request.course.id'}.'/'.$group)) {
$can_upload = 1;
}
if (&Apache::lonnet::allowed('mgf',$env{'request.course.id'}.'/'.$group)) {
$can_modify = 1;
}
if (&Apache::lonnet::allowed('dgf',$env{'request.course.id'}.'/'.$group)) {
$can_delete = 1;
}
}
} else {
($uname,$udom) = &get_name_dom();
$portfolio_root = &get_portfolio_root();
$title = &mt('Portfolio Manager');
$can_modify = 1;
$can_delete = 1;
$can_upload = 1;
$can_setacl = 1;
}
my $port_path = &get_port_path();
&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
# Give the LON-CAPA page header
if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::start_page($title,undef,
{'only_body' => 1}));
} elsif ($env{'form.action'} eq 'rolepicker') {
$r->print(&Apache::loncommon::start_page('New role-based condition',undef,
{'no_nav_bar' => 1, }));
} else {
$r->print(&Apache::loncommon::start_page($title));
}
$r->rflush();
my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('port',$uname,$udom);
if ($blocked) {
$r->print($blocktext);
$r->print(&Apache::loncommon::end_page());
return OK;
}
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){
$r->print('<span class="LC_error">'.
'No file was selected to upload.'.
'To upload a file, click <strong>Browse...</strong>'.
', select a file, then click <strong>Upload</strong>.'.
'</span>');
}
if ($env{'form.meta'}) {
&open_form($r,$url);
# $r->print(&edit_meta_data($r, $env{'form.currentpath'}.$env{'form.selectfile'}));
$r->print('Edit the meta data<br />');
&close_form($r,$url);
}
if ($env{'form.store'}) {
}
if ($env{'form.uploaddoc.filename'}) {
if ($can_upload) {
&upload($r,$url,$group);
} else {
&missing_priv($r,$url,'upload');
}
} elsif ($env{'form.action'} eq 'delete' && $env{'form.confirmed'}) {
if ($can_delete) {
&delete_confirmed($r,$url,$group);
} else {
&missing_priv($r,$url,'delete');
}
} elsif ($env{'form.action'} eq 'delete') {
if ($can_delete) {
&delete($r,$url);
} else {
&missing_priv($r,$url,'delete');
}
} elsif ($env{'form.action'} eq 'deletedir' && $env{'form.confirmed'}) {
if ($can_delete) {
&delete_dir_confirmed($r,$url);
} else {
&missing_priv($r,$url,'delete');
}
} elsif ($env{'form.action'} eq 'deletedir') {
if ($can_delete) {
&delete_dir($r,$url);
} else {
&missing_priv($r,$url,'delete');
}
} elsif ($env{'form.action'} eq 'rename' && $env{'form.confirmed'}) {
if ($can_modify) {
&rename_confirmed($r,$url,$group);
} else {
&missing_priv($r,$url,'rename');
}
} elsif ($env{'form.rename'}) {
$env{'form.selectfile'} = $env{'form.rename'};
$env{'form.action'} = 'rename';
if ($can_modify) {
&rename($r,$url);
} else {
&missing_priv($r,$url,'rename');
}
} elsif ($env{'form.access'}) {
$env{'form.selectfile'} = $env{'form.access'};
if (!defined($env{'form.action'})) {
$env{'form.action'} = 'chgaccess';
}
&display_access($r,$url,$group,$can_setacl,$port_path,$env{'form.action'});
} elsif (($env{'form.action'} eq 'chgaccess') ||
($env{'form.action'} eq 'chgconditions')) {
if ($can_setacl) {
&update_access($r,$url,$group,$port_path);
} else {
&missing_priv($r,$url,'setacl');
}
} elsif ($env{'form.action'} eq 'rolepicker') {
if ($can_setacl) {
&role_options_window($r);
} else {
&missing_priv($r,$url,'setacl');
}
} elsif ($env{'form.createdir'}) {
if ($can_upload) {
&createdir($r,$url);
} else {
&missing_priv($r,$url,'upload');
}
} elsif ($env{'form.lockinfo'}) {
&lock_info($r,$url,$group);
} else {
my $current_path='/';
if ($env{'form.currentpath'}) {
$current_path = $env{'form.currentpath'};
}
if ($caller eq 'coursegrp_portfolio') {
&Apache::lonhtmlcommon::clear_breadcrumbs();
$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));
}
my @dir_list=&get_dir_list($portfolio_root);
if ($dir_list[0] eq 'no_such_dir'){
# two main reasons for this:
# 1) never been here, so directory structure not created
# 2) back-button navigation after deleting a directory
if ($current_path eq '/'){
&Apache::lonnet::mkdiruserfile($uname,$udom,
&get_port_path());
} else {
# some directory that snuck in get rid of the directory
# from the recent pulldown, just in case
&Apache::lonhtmlcommon::remove_recent('portfolio',
[$current_path]);
$current_path = '/'; # force it back to the root
}
# now grab the directory list again, for the first time
@dir_list=&Apache::lonnet::dirlist($current_path,
$udom,$uname,$portfolio_root);
}
# need to know if directory is empty so it can be removed if desired
my $is_empty=(@dir_list == 2);
&display_common($r,$url,$current_path,$is_empty,\@dir_list,
$can_upload);
&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group,
$can_upload,$can_modify,$can_delete,$can_setacl);
$r->print(&Apache::loncommon::end_page());
}
return OK;
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to portfolio.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface