[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.166

version 1.164, 2006/10/19 00:23:21 version 1.166, 2006/10/19 21:23:22
Line 550  sub delete_confirmed { Line 550  sub delete_confirmed {
        $env{'form.currentpath'}.         $env{'form.currentpath'}.
        $delete_file);         $delete_file);
         if ($result ne 'ok') {          if ($result ne 'ok') {
     $r->print('<span class="LC_error"> An error occured ('.$result.      $r->print('<span class="LC_error">'.
          ') while trying to delete '.                       &mt('An error occured ([_1]) while trying to delete 
                       &display_file(undef, $delete_file).'</span><br />');                           [_2].',$result,&display_file(undef, $delete_file)).
                         '</span><br /><br />');
         } else {          } else {
             $r->print(&mt('File: [_1] deleted.',              $r->print(&mt('File: [_1] deleted.',
                           &display_file(undef,$delete_file)));                            &display_file(undef,$delete_file)));
Line 563  sub delete_confirmed { Line 564  sub delete_confirmed {
                                                          $group,$file_name);                                                           $group,$file_name);
             if (keys(%access_controls) > 0) {              if (keys(%access_controls) > 0) {
                 my %changes;                   my %changes; 
                 foreach my $key (%{$access_controls{$file_name}}) {                  foreach my $key (keys(%{$access_controls{$file_name}})) {
                     $changes{'delete'}{$key} = 1;                      $changes{'delete'}{$key} = 1;
                 }                  }
                 if (keys(%changes) > 0) {                  if (keys(%changes) > 0) {
Line 571  sub delete_confirmed { Line 572  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 /><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.').'<br /><br />');
                         } 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 /><br />');
                         }                          }
                     }                      }
                 }                  }
Line 685  sub access_for_renamed { Line 686  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.166

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