[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.495 and 1.496

version 1.495, 2012/09/20 19:25:22 version 1.496, 2012/10/01 12:06:46
Line 2184  sub entryline { Line 2184  sub entryline {
  'cp' => 'Copy');   'cp' => 'Copy');
  my $nocopy=0;   my $nocopy=0;
         my $nocut=0;          my $nocut=0;
         my $noremove=0;  
         if ($url=~ m{^/res/.+\.(page|sequence)$}) {          if ($url=~ m{^/res/.+\.(page|sequence)$}) {
     # no copy for published maps      # no copy for published maps
     $nocopy=1;      $nocopy=1;
Line 2193  sub entryline { Line 2192  sub entryline {
            $nocopy=1;             $nocopy=1;
            $nocut=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=' ';          my $copylink=' ';
         my $cutlink=' ';          my $cutlink=' ';
         my $removelink=' ';  
   
  my $skip_confirm = 0;   my $skip_confirm = 0;
  if ( $folder =~ /^supplemental/   if ( $folder =~ /^supplemental/
Line 2268  ENDCOPY Line 2217  ENDCOPY
 <a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$symb','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>  <a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$symb','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>
 ENDCUT  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_start = '
    <form action="/adm/coursedocs" method="post">     <form action="/adm/coursedocs" method="post">
 ';  ';
Line 2303  END Line 2247  END
    $form_end     $form_end
 </td>  </td>
 <td class="LC_docs_entry_commands">  <td class="LC_docs_entry_commands">
 $removelink     <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
 $cutlink  $cutlink
    <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>     <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
 $copylink  $copylink
Line 2864  ENDHEADERS Line 2808  ENDHEADERS
     '<th colspan="'.$num_ver_col.'">'.&mt('History').'</th>'.      '<th colspan="'.$num_ver_col.'">'.&mt('History').'</th>'.
     '</b>');      '</b>');
     foreach my $key (sort(keys(%changes))) {      foreach my $key (sort(keys(%changes))) {
  if ($changes{$key}>$starttime) {          #excludes not versionable problems from resource version history:
           if ($changes{$key}>$starttime && $key !~ /^\/res\/lib\/templates/) {
     my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);      my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
     my $currentversion=&Apache::lonnet::getversion($key);      my $currentversion=&Apache::lonnet::getversion($key);
     if ($currentversion<0) {      if ($currentversion<0) {
Removed from v.1.495  
changed lines
  Added in v.1.496

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