loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.484.2.8 and 1.484.2.9

-version 1.484.2.8, 2012/08/27 15:58:05
+version 1.484.2.9, 2012/09/25 23:44:34
  Line 2184  sub entryline {
  		'cp' => 'Copy');
  	my $nocopy=0;
          my $nocut=0;
+         my $noremove=0;
          if ($url=~ m{^/res/.+\.(page|sequence)$}) {
              # no copy for published maps
              $nocopy=1;
- Line 2192  sub entryline {
+ Line 2193  sub entryline {
             $nocopy=1;
             $nocut=1;
          }
+         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+         if ($url eq "/uploaded/$cdom/$cnum/group_allfolders.sequence") {
+             if ($env{'form.folderpath'} =~ /^default&[^\&]+$/) {
+                 my %curr_groups = &Apache::longroup::coursegroups();
+                 if (keys(%curr_groups) > 0) {
+                     $noremove=1;
+                 }
+                 $nocut=1;
+                 $nocopy=1;
+             }
+         } elsif ($url =~ m{^\Q/uploaded/$cdom/$cnum/group_folder_\E(\w+)\.sequence$}) {
+             my $group = $1;
+             if ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+$/) {
+                 my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
+                 if (keys(%curr_group) > 0) {
+                     $noremove=1;
+                 }
+             }
+             $nocut=1;
+             $nocopy=1;
+         } elsif ($url =~ m{^\Q/adm/$cdom/$cnum/\E(\w+)/smppg$}) {
+             my $group = $1;
+             if ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&\Qgroup_folder_$group\E\&[^\&]+$/) {
+                 my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
+                 my %groupsettings = &Apache::longroup::get_group_settings($curr_group{$group});
+                 if (keys(%groupsettings) > 0) {
+                     $noremove=1;
+                 }
+                 $nocut=1;
+                 $nocopy=1;
+             }
+         } elsif ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&group_folder_(\w+)\&/) {
+             my $group = $1;
+             my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
+             if ($url =~ /group_boards_\Q$group\E/) {
+                 my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
+                 my %groupsettings = &Apache::longroup::get_group_settings($curr_group{$group});
+                 if (keys(%groupsettings) > 0) {
+                     if (ref($groupsettings{'functions'}) eq 'HASH') {
+                         if ($groupsettings{'functions'}{'discussion'} eq 'on') {
+                             $noremove=1;
+                         }
+                     }
+                 }
+                 $nocut=1;
+                 $nocopy=1;
+             }
+         }
          my $copylink='&nbsp;';
          my $cutlink='&nbsp;';
+         my $removelink='&nbsp;';
  	my $skip_confirm = 0;
  	if ( $folder =~ /^supplemental/
- Line 2217  ENDCOPY
+ Line 2268  ENDCOPY
  <a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$symb','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>
  ENDCUT
          }
+         if (!$noremove) {
+             $removelink=(<<ENDREM);
+ <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
+ ENDREM
+         }
  	$form_start = '
     <form action="/adm/coursedocs" method="post">
  ';
- Line 2247  END
+ Line 2303  END
     $form_end
  </td>
  <td class="LC_docs_entry_commands">
-    <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
+ $removelink
  $cutlink
     <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
  $copylink

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.484.2.8
changed lines
	Added in v.1.484.2.9