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

Diff for /loncom/interface/portfolio.pm between versions 1.164 and 1.165

version 1.164, 2006/10/19 00:23:21 version 1.165, 2006/10/19 20:36:12
Line 571  sub delete_confirmed { Line 571  sub delete_confirmed {
                     &Apache::lonnet::modify_access_controls($file_name,\%changes,                      &Apache::lonnet::modify_access_controls($file_name,\%changes,
                                                             $udom,$uname);                                                              $udom,$uname);
                     if ($outcome ne 'ok') {                      if ($outcome ne 'ok') {
                            $r->print(&mt('<br />'."An error occured ($outcome) while ".                             $r->print('<br />'.&mt("An error occured ([_1]) while ".
                                "trying to delete access controls for the file.").                                 "trying to delete access controls for the file.",$outcome).
                                '</span><br />');                                 '</span><br />');
                     } else {                      } else {
                         if ($deloutcome eq 'ok') {                          if ($deloutcome eq 'ok') {
                             $r->print(&mt('<br />Access controls also deleted for the file.'));                              $r->print('<br />'.&mt('Access controls also deleted for the file.'));
                         } else {                          } else {
                             $r->print('<span class="LC_error">'.                              $r->print('<span class="LC_error">'.'<br />'.
                                &mt('<br />'."An error occured ($deloutcome) while ".                                 &mt("An error occured ([_1]) while ".
                                    "trying to delete access controls for the file.").                                     "trying to delete access controls for the file.",$deloutcome).
                                    '</span><br />');                                     '</span><br />');
                         }                          }
                     }                      }
Line 685  sub access_for_renamed { Line 685  sub access_for_renamed {
     my $newfile = $env{'form.currentpath'}.$filenewname;      my $newfile = $env{'form.currentpath'}.$filenewname;
     $newfile = &prepend_group($newfile);      $newfile = &prepend_group($newfile);
     my $current_permissions =      my $current_permissions =
             &Apache::lonnet::get_portfile_permissions($udom,$uname);   &Apache::lonnet::get_portfile_permissions($udom,$uname);
     my %access_controls =      my %access_controls =
             &Apache::lonnet::get_access_controls($current_permissions,   &Apache::lonnet::get_access_controls($current_permissions,
                                                  $group,$oldfile);       $group,$oldfile);
     my $chg_text;      my $chg_text;
     if (keys(%access_controls) > 0) {      if (keys(%access_controls) > 0) {
         my %change_old;          my %change_old;
         my %change_new;          my %change_new;
         foreach my $key (%{$access_controls{$oldfile}}) {          foreach my $key (keys(%{$access_controls{$oldfile}})) {
             $change_old{'delete'}{$key} = 1;              $change_old{'delete'}{$key} = 1;
             $change_new{'activate'}{$key} = $access_controls{$oldfile}{$key};              $change_new{'activate'}{$key} = $access_controls{$oldfile}{$key};
         }          }
         my ($outcome,$deloutcome,$new_values,$translation) =          my ($outcome,$deloutcome,$new_values,$translation) =
             &Apache::lonnet::modify_access_controls($oldfile,\%change_old,              &Apache::lonnet::modify_access_controls($oldfile,\%change_old,
                                                             $udom,$uname);      $udom,$uname);
         if ($outcome ne 'ok') {          if ($outcome ne 'ok') {
             $chg_text = &mt('<br /><br />'."An error occured ($outcome) while ".              $chg_text ='<br /><br />'.&mt("An error occured ([_1]) while ".
                 "trying to delete access control records for the old name.").                  "trying to delete access control records for the old name.",$outcome).
                 '</span><br />';                  '</span><br />';
         } else {          } else {
             if ($deloutcome ne 'ok') {              if ($deloutcome ne 'ok') {
                 $chg_text = '<br /><br /><span class="LC_error">'.                  $chg_text = '<br /><br /><span class="LC_error"><br />'.
                           &mt('<br />'."An error occured ($deloutcome) while ".      &mt("An error occured ([_1]) while ".
                           "trying to delete access control records for the old name.").   "trying to delete access control records for the old name.",$deloutcome).
                           '</span><br />';   '</span><br />';
             }              }
         }          }
         ($outcome,$deloutcome,$new_values,$translation) =          ($outcome,$deloutcome,$new_values,$translation) =
             &Apache::lonnet::modify_access_controls($newfile,\%change_new,              &Apache::lonnet::modify_access_controls($newfile,\%change_new,
                                                     $udom,$uname);                                                      $udom,$uname);
         if ($outcome ne 'ok') {          if ($outcome ne 'ok') {
             $chg_text .= &mt('<br /><br />'."An error occured ($outcome) while ".              $chg_text .= '<br /><br />'.
                 "trying to update access control records for the new name.").   &mt("An error occured ([_1]) while ".
                   "trying to update access control records for the new name.",$outcome).
                 '</span><br />';                  '</span><br />';
         }          }
         if ($chg_text eq '') {          if ($chg_text eq '') {
Removed from v.1.164  
changed lines
  Added in v.1.165

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