version 1.112, 2010/09/08 04:05:32
|
version 1.114, 2012/07/21 21:20:06
|
Line 1276 sub reenable_folder {
|
Line 1276 sub reenable_folder {
|
$LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl. |
$LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl. |
':false:normal:res'; |
':false:normal:res'; |
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx; |
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx; |
my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1); |
my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1,1); |
if ($errtext) { |
if ($errtext) { |
$outcome='<div class="LC_error">' |
$outcome='<div class="LC_error">' |
.&mt('An error occurred when saving updated parent folder to group:' |
.&mt('An error occurred when saving updated parent folder to group:' |
Line 1341 sub modify_folders {
|
Line 1341 sub modify_folders {
|
$LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1]; |
$LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1]; |
} |
} |
$#LONCAPA::map::order--; |
$#LONCAPA::map::order--; |
my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1); |
my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1,1); |
if ($errtext) { |
if ($errtext) { |
$outcome='<div class="LC_error">' |
$outcome='<div class="LC_error">' |
.&mt('An error occurred when saving updated parent folder to group:') |
.&mt('An error occurred when saving updated parent folder to group:') |
Line 1547 sub build_members_list {
|
Line 1547 sub build_members_list {
|
sub group_files { |
sub group_files { |
my ($group,$portpath,$numfiles,$numdirs) = @_; |
my ($group,$portpath,$numfiles,$numdirs) = @_; |
my $dirptr=16384; |
my $dirptr=16384; |
my @dir_list=&Apache::portfolio::get_dir_list($portpath,undef,$group); |
my ($dirlistref,$listerror) = |
foreach my $line (@dir_list) { |
&Apache::portfolio::get_dir_list($portpath,undef,$group); |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
if (ref($dirlistref) eq 'ARRAY') { |
if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/) && ($filename ne 'no_such_dir')) { |
foreach my $line (@{$dirlistref}) { |
if ($dirptr&$testdir) { |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
$portpath .= '/'.$filename; |
if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/) && ($filename ne 'no_such_dir')) { |
$$numdirs ++; |
if ($dirptr&$testdir) { |
&group_files($group,$portpath,$numfiles,$numdirs) |
$portpath .= '/'.$filename; |
} else { |
$$numdirs ++; |
$$numfiles ++; |
&group_files($group,$portpath,$numfiles,$numdirs) |
|
} else { |
|
$$numfiles ++; |
|
} |
} |
} |
} |
} |
} |
} |
Line 4030 sub map_updater {
|
Line 4033 sub map_updater {
|
$LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl. |
$LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl. |
':false:normal:res'; |
':false:normal:res'; |
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx; |
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx; |
my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1); |
my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1,1); |
if ($errtext) { |
if ($errtext) { |
$outcome = '<div class="LC_error">' |
$outcome = '<div class="LC_error">' |
.&mt('Error saving updated parent folder.')." ($parentmap): $errtext" |
.&mt('Error saving updated parent folder.')." ($parentmap): $errtext" |