version 1.254.2.6, 2021/12/14 03:34:43
|
version 1.271, 2024/09/07 19:13:00
|
Line 237 sub display_directory_line {
|
Line 237 sub display_directory_line {
|
if ($lock_info) { |
if ($lock_info) { |
my %anchor_fields = ('lockinfo' => $fullpath); |
my %anchor_fields = ('lockinfo' => $fullpath); |
if ($versions) { # hold the folder open |
if ($versions) { # hold the folder open |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($fullpath); |
$fname =~ s|^/||; |
$fname =~ s|^/||; |
$anchor_fields{'showversions'} = $fname.'.'.$extension; |
$anchor_fields{'showversions'} = $fname.'.'.$extension; |
} |
} |
Line 267 sub display_directory_line {
|
Line 267 sub display_directory_line {
|
|
|
sub display_directory { |
sub display_directory { |
my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload, |
my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload, |
$can_modify,$can_delete,$can_setacl)=@_; |
$can_modify,$can_delete,$can_setacl,$can_viewacl,$caller)=@_; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $select_mode; |
my $select_mode; |
my $checked_files; |
my $checked_files; |
my $port_path = &get_port_path(); |
my $port_path = &get_port_path(); |
my ($uname,$udom) = &get_name_dom($group); |
my ($uname,$udom) = &get_name_dom($group); |
my $access_admin_text = &mt('View Status'); |
my $access_admin_text; |
|
if ($can_viewacl) { |
|
$access_admin_text = &mt('View Status'); |
|
} |
if ($can_setacl) { |
if ($can_setacl) { |
$access_admin_text = &mt('View/Change Status'); |
$access_admin_text = &mt('View/Change Status'); |
} |
} |
Line 311 sub display_directory {
|
Line 314 sub display_directory {
|
&mt('Using the portfolio file list')) |
&mt('Using the portfolio file list')) |
.'</p>' |
.'</p>' |
); |
); |
|
my ($acl_helpfile,$acl_helplink); |
|
if ($caller eq 'coursegrp_portfolio') { |
|
$acl_helpfile = 'Portfolio ShareFile Group'; |
|
} elsif ($can_setacl) { |
|
$acl_helpfile = 'Portfolio ShareFile'; |
|
} |
|
unless ($can_setacl || $can_viewacl) { |
|
$acl_helpfile = 'Portfolio ShareFile Off'; |
|
} |
|
if ($acl_helpfile) { |
|
$acl_helplink = &Apache::loncommon::help_open_topic($acl_helpfile); |
|
} |
$r->print(&Apache::loncommon::start_data_table() |
$r->print(&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
.'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>' |
.'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>' |
Line 320 sub display_directory {
|
Line 335 sub display_directory {
|
.'<th>'.&mt('Size').'</th>' |
.'<th>'.&mt('Size').'</th>' |
.'<th>'.&mt('Last Modified').'</th>' |
.'<th>'.&mt('Last Modified').'</th>' |
.'<th> </th>' |
.'<th> </th>' |
.'<th>'.&mt('Current Access Status').&Apache::loncommon::help_open_topic('Portfolio ShareFile').'</th>' |
.'<th>'.&mt('Current Access Status').$acl_helplink.'</th>' |
.&Apache::loncommon::end_data_table_header_row()); |
.&Apache::loncommon::end_data_table_header_row()); |
} |
} |
|
|
Line 370 sub display_directory {
|
Line 385 sub display_directory {
|
} (@{$dir_list})) { |
} (@{$dir_list})) { |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16); |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16); |
$filename =~ s/\s+$//; |
$filename =~ s/\s+$//; |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($filename); |
if ($version) { |
if ($version) { |
my $fullpath = &prepend_group($current_path.$fname.'.'.$extension); |
my $fullpath = &prepend_group($current_path.$fname.'.'.$extension); |
push(@{ $versioned{$fullpath} }, |
push(@{ $versioned{$fullpath} }, |
Line 383 sub display_directory {
|
Line 398 sub display_directory {
|
my $zerobyte; |
my $zerobyte; |
foreach my $dir_line (@dir_lines) { |
foreach my $dir_line (@dir_lines) { |
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line; |
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line; |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($filename); |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { |
my $version_flag; |
my $version_flag; |
my $show_versions; |
my $show_versions; |
Line 487 sub display_directory {
|
Line 502 sub display_directory {
|
my $cond_access = 0; |
my $cond_access = 0; |
foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) { |
foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) { |
my ($num,$scope,$end,$start) = &unpack_acc_key($key); |
my ($num,$scope,$end,$start) = &unpack_acc_key($key); |
|
next if ($scope eq 'ip'); |
if (($now > $start) && (!$end || $end > $now)) { |
if (($now > $start) && (!$end || $end > $now)) { |
if ($scope eq 'public') { |
if ($scope eq 'public') { |
$pub_access = 1; |
$pub_access = 1; |
Line 514 sub display_directory {
|
Line 530 sub display_directory {
|
} |
} |
} |
} |
&display_directory_line($r,$select_mode, $filename, $mtime, $size, $css_class, $line, |
&display_directory_line($r,$select_mode, $filename, $mtime, $size, $css_class, $line, |
\%access_controls, $curr_access,$now, $version_flag, $href_location, |
\%access_controls, $curr_access, $now, $version_flag, $href_location, |
$url, $current_path, $access_admin_text); |
$url, $current_path, $access_admin_text); |
if ($show_versions) { |
if ($show_versions) { |
foreach my $dir_line (@{ $versioned{$fullpath} }) { |
foreach my $dir_line (@{ $versioned{$fullpath} }) { |
Line 887 sub access_for_renamed {
|
Line 903 sub access_for_renamed {
|
} |
} |
|
|
sub display_access { |
sub display_access { |
my ($r,$url,$group,$can_setacl,$port_path,$action) = @_; |
my ($r,$url,$group,$can_setacl,$can_viewacl,$port_path,$action) = @_; |
my ($uname,$udom) = &get_name_dom($group); |
my ($uname,$udom) = &get_name_dom($group); |
my $file_name = $env{'form.currentpath'}.$env{'form.access'}; |
my $file_name = $env{'form.currentpath'}.$env{'form.access'}; |
$file_name = &prepend_group($file_name); |
$file_name = &prepend_group($file_name); |
Line 897 sub display_access {
|
Line 913 sub display_access {
|
my $aclcount = keys(%access_controls); |
my $aclcount = keys(%access_controls); |
my ($header,$info); |
my ($header,$info); |
if ($action eq 'chgaccess') { |
if ($action eq 'chgaccess') { |
|
my $uhome = &Apache::lonnet::homeserver($uname,$udom); |
|
my $prefix = &Apache::lonnet::url_prefix($r,$udom,$uhome,'web'); |
$header = |
$header = |
'<h2>' |
'<h2>' |
.&mt('Allowing others to retrieve file: [_1]' |
.&mt('Allowing others to retrieve file: [_1]' |
Line 909 sub display_access {
|
Line 927 sub display_access {
|
$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>'.&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><li>'.&explain_conditionals(); |
$info .= '</li></ul>'. |
$info .= '</li></ul>'. |
&mt('A listing of files viewable without log-in is available at: ')."<a href=\"/adm/$udom/$uname/aboutme/portfolio\">".&Apache::lonnet::absolute_url()."/adm/$udom/$uname/aboutme/portfolio</a>.<br />"; |
&mt('A listing of files viewable without log-in is available at: ')."<a href=\"$prefix/adm/$udom/$uname/aboutme/portfolio\">$prefix/adm/$udom/$uname/aboutme/portfolio</a>.<br />"; |
if ($group eq '') { |
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:"); |
$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 { |
} 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 .= &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\">".&Apache::lonnet::absolute_url()."/adm/$udom/$uname/aboutme</a><br />"; |
$info .= "<br /><a href=\"$prefix/adm/$udom/$uname/aboutme\">$prefix/adm/$udom/$uname/aboutme</a><br />"; |
if ($group ne '') { |
if ($group ne '') { |
$info .= &mt("Users with course editing rights may add a 'Group Portfolio' item using the Course Editor (Collaboration tab), to provide access to viewable group portfolio files.").'<br />'; |
$info .= &mt("Users with course editing rights may add a 'Group Portfolio' item using the Course Editor (Collaboration tab), to provide access to viewable group portfolio files.").'<br />'; |
} |
} |
Line 936 sub display_access {
|
Line 954 sub display_access {
|
'cancel' => &mt('Return to directory'), |
'cancel' => &mt('Return to directory'), |
}; |
}; |
&close_form($r,$url,$button_text); |
&close_form($r,$url,$button_text); |
} else { |
} elsif ($can_viewacl) { |
$r->print($header); |
$r->print($header); |
if ($aclcount) { |
if ($aclcount) { |
$r->print($info); |
$r->print($info); |
} |
} |
&view_access_settings($r,$url,$access_controls{$file_name},$aclcount); |
&view_access_settings($r,$url,$access_controls{$file_name},$aclcount); |
|
} else { |
|
$r->print($header); |
|
$r->print(&mt('You do not have sufficient privileges to view access controls').'<br />'); |
} |
} |
|
my %anchor_fields = ( |
|
'currentpath' => $env{'form.currentpath'} |
|
); |
|
$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Return to directory'))); |
|
return; |
} |
} |
|
|
sub explain_conditionals { |
sub explain_conditionals { |
Line 992 sub build_access_summary {
|
Line 1018 sub build_access_summary {
|
domains => 'Conditional: domain-based', |
domains => 'Conditional: domain-based', |
users => 'Conditional: user-based', |
users => 'Conditional: user-based', |
course => 'Conditional: course/community-based', |
course => 'Conditional: course/community-based', |
ip => 'Conditional: IP-based', |
userip => 'Conditional: IP-based', |
); |
); |
my @allscopes = ('public','guest','domains','users','course','ip'); |
my @allscopes = ('public','guest','domains','users','course','userip'); |
foreach my $scope (@allscopes) { |
foreach my $scope (@allscopes) { |
if ((!(exists($todisplay{$scope}))) || (ref($todisplay{$scope}) ne 'HASH')) { |
if ((!(exists($todisplay{$scope}))) || (ref($todisplay{$scope}) ne 'HASH')) { |
next; |
next; |
Line 1071 sub build_access_summary {
|
Line 1097 sub build_access_summary {
|
} elsif ($scope eq 'users') { |
} elsif ($scope eq 'users') { |
my $curr_user_list = &sort_users($content->{'users'}); |
my $curr_user_list = &sort_users($content->{'users'}); |
$r->print(&mt('Users: ').$curr_user_list); |
$r->print(&mt('Users: ').$curr_user_list); |
} elsif ($scope eq 'ip') { |
} elsif ($scope eq 'userip') { |
my $curr_ips_list = &sort_ips($content->{'ip'}); |
my $curr_ips_list = &sort_ips($content->{'userip'}); |
$r->print(&mt('IP(s):').' '.$curr_ips_list); |
$r->print(&mt('IP(s):').' '.$curr_ips_list); |
} else { |
} else { |
$r->print(' '); |
$r->print(' '); |
Line 1182 sub update_access {
|
Line 1208 sub update_access {
|
my $totalnew = 0; |
my $totalnew = 0; |
my $status = 'new'; |
my $status = 'new'; |
my ($firstitem,$lastitem); |
my ($firstitem,$lastitem); |
my @types = ('course','domains','users','ip'); |
my @types = ('course','domains','users','userip'); |
foreach my $newitem (@types) { |
foreach my $newitem (@types) { |
$allnew += $env{'form.new'.$newitem}; |
$allnew += $env{'form.new'.$newitem}; |
} |
} |
Line 1194 sub update_access {
|
Line 1220 sub update_access {
|
course => 'course/community', |
course => 'course/community', |
domains => 'domain', |
domains => 'domain', |
users => 'user', |
users => 'user', |
ip => 'IP', |
userip => 'IP', |
); |
); |
foreach my $newitem (@types) { |
foreach my $newitem (@types) { |
next if ($env{'form.new'.$newitem} <= 0); |
next if ($env{'form.new'.$newitem} <= 0); |
Line 1298 sub build_access_record {
|
Line 1324 sub build_access_record {
|
'udom' => $udom |
'udom' => $udom |
}); |
}); |
} |
} |
} elsif ($scope eq 'ip') { |
} elsif ($scope eq 'userip') { |
my $ipslist = $env{'form.ips_'.$num}; |
my $ipslist = $env{'form.ips_'.$num}; |
$ipslist =~ s/\s+//sg; |
$ipslist =~ s/\s+//sg; |
my %ipshash = map { ($_,1) } (split(/,/,$ipslist)); |
my %ipshash = map { ($_,1) } (split(/,/,$ipslist)); |
Line 1369 sub access_setting_table {
|
Line 1395 sub access_setting_table {
|
push(@domains,$key); |
push(@domains,$key); |
} elsif ($scope eq 'users') { |
} elsif ($scope eq 'users') { |
push(@users,$key); |
push(@users,$key); |
} elsif ($scope eq 'ip') { |
} elsif ($scope eq 'userip') { |
push(@ips,$key); |
push(@ips,$key); |
} |
} |
} |
} |
Line 1431 sub standard_settings {
|
Line 1457 sub standard_settings {
|
my $numconditionals = 0; |
my $numconditionals = 0; |
my $conditionstext; |
my $conditionstext; |
my %cond_status; |
my %cond_status; |
foreach my $scope ('domains','users','course','ip') { |
foreach my $scope ('domains','users','course','userip') { |
$numconditionals += $acl_count->{$scope}; |
$numconditionals += $acl_count->{$scope}; |
if ($acl_count->{$scope} > 0) { |
if ($acl_count->{$scope} > 0) { |
if ($conditionstext ne 'Active') { |
if ($conditionstext ne 'Active') { |
Line 1478 sub condition_setting {
|
Line 1504 sub condition_setting {
|
$r->print('</td></tr><tr><td colspan="3"></td></tr><tr><td valign="top">'); |
$r->print('</td></tr><tr><td colspan="3"></td></tr><tr><td valign="top">'); |
&access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then); |
&access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then); |
$r->print('</td><td> </td><td valign="top">'); |
$r->print('</td><td> </td><td valign="top">'); |
&access_element($r,'ip',$acl_count,$ips,$access_controls,$now,$then); |
&access_element($r,'userip',$acl_count,$ips,$access_controls,$now,$then); |
$r->print('</td></tr></table>'); |
$r->print('</td></tr></table>'); |
} |
} |
|
|
Line 1499 sub access_element {
|
Line 1525 sub access_element {
|
domains => 'Domain', |
domains => 'Domain', |
users => 'User', |
users => 'User', |
course => 'Course/Community', |
course => 'Course/Community', |
ip => 'IP', |
userip => 'IP', |
); |
); |
$r->print('<h3>'.&mt($typetext{$type}.'-based conditional access:').' '); |
$r->print('<h3>'.&mt($typetext{$type}.'-based conditional access:').' '); |
if ($$acl_count{$type}) { |
if ($$acl_count{$type}) { |
Line 1524 sub display_access_row {
|
Line 1550 sub display_access_row {
|
} elsif ($type eq 'users') { |
} elsif ($type eq 'users') { |
$showtype = &mt('Users'); |
$showtype = &mt('Users'); |
$infotype = 'User'; |
$infotype = 'User'; |
} elsif ($type eq 'ip') { |
} elsif ($type eq 'userip') { |
$showtype = &mt('IP-based'); |
$showtype = &mt('IP-based'); |
$infotype = 'IP'; |
$infotype = 'IP'; |
} |
} |
Line 1552 sub display_access_row {
|
Line 1578 sub display_access_row {
|
$then); |
$then); |
} elsif ($type eq 'users') { |
} elsif ($type eq 'users') { |
&users_row($r,$status,$key,$access_controls,$now,$then); |
&users_row($r,$status,$key,$access_controls,$now,$then); |
} elsif ($type eq 'ip') { |
} elsif ($type eq 'userip') { |
&ips_row($r,$status,$key,$access_controls,$now,$then); |
&ips_row($r,$status,$key,$access_controls,$now,$then); |
} |
} |
$r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
Line 1735 sub users_row {
|
Line 1761 sub users_row {
|
sub ips_row { |
sub ips_row { |
my ($r,$status,$item,$access_controls,$now,$then) = @_; |
my ($r,$status,$item,$access_controls,$now,$then) = @_; |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
'ip'); |
'userip'); |
my $curr_ips_list; |
my $curr_ips_list; |
if ($status eq 'old') { |
if ($status eq 'old') { |
my $content = $$access_controls{$item}; |
my $content = $$access_controls{$item}; |
$curr_ips_list = &sort_ips($content->{'ip'}); |
$curr_ips_list = &sort_ips($content->{'userip'}); |
} |
} |
$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt('Format for IP controls').'<br />'. |
$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt('Format for IP controls').'<br />'. |
&mt('[_1] or [_2] or [_3] or [_4] or [_5]','<tt>35.8.*</tt>','<tt>35.8.3.[34-56]</tt>', |
&mt('[_1] or [_2] or [_3] or [_4] or [_5]','<tt>35.8.*</tt>','<tt>35.8.3.[34-56]</tt>', |
Line 1758 sub additional_item {
|
Line 1784 sub additional_item {
|
$showtype = 'domain'; |
$showtype = 'domain'; |
} elsif ($type eq 'users') { |
} elsif ($type eq 'users') { |
$showtype = 'user'; |
$showtype = 'user'; |
} elsif ($type eq 'ip') { |
} elsif ($type eq 'userip') { |
$showtype = 'IP'; |
$showtype = 'IP'; |
} |
} |
return |
return |
Line 1772 sub actionbox {
|
Line 1798 sub actionbox {
|
my $output = '<span class="LC_nobreak"><label>'; |
my $output = '<span class="LC_nobreak"><label>'; |
if ($status eq 'new') { |
if ($status eq 'new') { |
my $checkstate; |
my $checkstate; |
if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course' || $scope eq 'ip') { |
if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course' || $scope eq 'userip') { |
$checkstate = 'checked="checked"'; |
$checkstate = 'checked="checked"'; |
} |
} |
$output .= '<input type="checkbox" name="activate" value="'.$num.'" '. |
$output .= '<input type="checkbox" name="activate" value="'.$num.'" '. |
Line 2513 sub missing_priv {
|
Line 2539 sub missing_priv {
|
delete => 'delete files', |
delete => 'delete files', |
rename => 'rename files', |
rename => 'rename files', |
setacl => 'set access controls for files', |
setacl => 'set access controls for files', |
|
viewacl => 'view access controls for files', |
); |
); |
my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"'); |
my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"'); |
my $rtnlink = '<a href="'.$url; |
my $rtnlink = '<a href="'.$url; |
Line 2668 sub handler {
|
Line 2695 sub handler {
|
$url = $1.$2; |
$url = $1.$2; |
$caller = $2; |
$caller = $2; |
} |
} |
my ($can_modify,$can_delete,$can_upload,$can_setacl); |
my ($can_modify,$can_delete,$can_upload,$can_setacl,$can_viewacl); |
if ($caller eq 'coursegrp_portfolio') { |
if ($caller eq 'coursegrp_portfolio') { |
# Needs to be in a course |
# Needs to be in a course |
if (! ($env{'request.course.fn'})) { |
if (! ($env{'request.course.fn'})) { |
Line 2712 sub handler {
|
Line 2739 sub handler {
|
$can_delete = 1; |
$can_delete = 1; |
$can_upload = 1; |
$can_upload = 1; |
$can_setacl = 1; |
$can_setacl = 1; |
|
$can_viewacl = 1; |
} else { |
} else { |
if (&Apache::lonnet::allowed('agf',$env{'request.course.id'}.'/'.$group)) { |
if (&Apache::lonnet::allowed('agf',$env{'request.course.id'}.'/'.$group)) { |
$can_setacl = 1; |
$can_setacl = 1; |
Line 2725 sub handler {
|
Line 2753 sub handler {
|
if (&Apache::lonnet::allowed('dgf',$env{'request.course.id'}.'/'.$group)) { |
if (&Apache::lonnet::allowed('dgf',$env{'request.course.id'}.'/'.$group)) { |
$can_delete = 1; |
$can_delete = 1; |
} |
} |
|
if (&Apache::lonnet::allowed('rgf',$env{'request.course.id'}.'/'.$group)) { |
|
$can_viewacl = 1; |
|
} |
} |
} |
} else { |
} else { |
($uname,$udom) = &get_name_dom(); |
($uname,$udom) = &get_name_dom(); |
Line 2733 sub handler {
|
Line 2764 sub handler {
|
$can_modify = 1; |
$can_modify = 1; |
$can_delete = 1; |
$can_delete = 1; |
$can_upload = 1; |
$can_upload = 1; |
$can_setacl = 1; |
if (&Apache::lonnet::usertools_access($uname,$udom,'portaccess', |
|
undef,'tools')) { |
|
$can_viewacl = 1; |
|
$can_setacl = 1; |
|
} |
} |
} |
|
|
my $port_path = &get_port_path(); |
my $port_path = &get_port_path(); |
Line 2745 sub handler {
|
Line 2780 sub handler {
|
|
|
my $js = '<script type="text/javascript" |
my $js = '<script type="text/javascript" |
src="/res/adm/includes/file_upload.js"></script>'; |
src="/res/adm/includes/file_upload.js"></script>'; |
|
|
if ($env{"form.mode"} eq 'selectfile'){ |
if ($env{"form.mode"} eq 'selectfile'){ |
$r->print(&Apache::loncommon::start_page($title, $js, |
$r->print(&Apache::loncommon::start_page($title, $js, |
{'only_body' => 1})); |
{'only_body' => 1})); |
Line 2914 sub handler {
|
Line 2949 sub handler {
|
} |
} |
} elsif ($env{'form.access'}) { |
} elsif ($env{'form.access'}) { |
$env{'form.selectfile'} = $env{'form.access'}; |
$env{'form.selectfile'} = $env{'form.access'}; |
if (!defined($env{'form.action'})) { |
if (!defined($env{'form.action'})) { |
$env{'form.action'} = 'chgaccess'; |
$env{'form.action'} = 'chgaccess'; |
} |
} |
&display_access($r,$url,$group,$can_setacl,$port_path,$env{'form.action'}); |
if (($can_viewacl) || ($can_setacl)) { |
|
&display_access($r,$url,$group,$can_setacl,$can_viewacl,$port_path,$env{'form.action'}); |
|
} else { |
|
&missing_priv($r,$url,'viewacl'); |
|
} |
} elsif (($env{'form.action'} eq 'chgaccess') || |
} elsif (($env{'form.action'} eq 'chgaccess') || |
($env{'form.action'} eq 'chgconditions')) { |
($env{'form.action'} eq 'chgconditions')) { |
if ($can_setacl) { |
if ($can_setacl) { |
Line 2991 sub handler {
|
Line 3030 sub handler {
|
&display_common($r,$url,$current_path,$is_empty,$dirlistref, |
&display_common($r,$url,$current_path,$is_empty,$dirlistref, |
$can_upload,$group); |
$can_upload,$group); |
&display_directory($r,$url,$current_path,$is_empty,$dirlistref,$group, |
&display_directory($r,$url,$current_path,$is_empty,$dirlistref,$group, |
$can_upload,$can_modify,$can_delete,$can_setacl); |
$can_upload,$can_modify,$can_delete,$can_setacl, |
|
$can_viewacl,$caller); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |