|
version 1.1056.4.13, 2010/11/09 20:55:34
|
version 1.1056.4.14, 2010/11/11 21:57:35
|
|
Line 2466 sub userfileupload {
|
Line 2466 sub userfileupload {
|
| } |
} |
| if ($subdir eq 'scantron') { |
if ($subdir eq 'scantron') { |
| $fname = 'scantron_orig_'.$fname; |
$fname = 'scantron_orig_'.$fname; |
| } else { |
} else { |
| $fname="$subdir/$fname"; |
$fname="$subdir/$fname"; |
| } |
} |
| if ($context eq 'coursedoc') { |
if ($context eq 'coursedoc') { |
|
Line 7397 sub is_locked {
|
Line 7397 sub is_locked {
|
| my ($file_name, $domain, $user) = @_; |
my ($file_name, $domain, $user) = @_; |
| my @check; |
my @check; |
| my $is_locked; |
my $is_locked; |
| push @check, $file_name; |
push(@check,$file_name); |
| my %locked = &get('file_permissions',\@check, |
my %locked = &get('file_permissions',\@check, |
| $env{'user.domain'},$env{'user.name'}); |
$env{'user.domain'},$env{'user.name'}); |
| my ($tmp)=keys(%locked); |
my ($tmp)=keys(%locked); |
|
Line 7414 sub is_locked {
|
Line 7414 sub is_locked {
|
| } else { |
} else { |
| $is_locked = 'false'; |
$is_locked = 'false'; |
| } |
} |
| |
return $is_locked; |
| } |
} |
| |
|
| sub declutter_portfile { |
sub declutter_portfile { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl