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

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

version 1.165, 2006/10/19 20:36:12 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 573  sub delete_confirmed { Line 574  sub delete_confirmed {
                     if ($outcome ne 'ok') {                      if ($outcome ne 'ok') {
                            $r->print('<br />'.&mt("An error occured ([_1]) while ".                             $r->print('<br />'.&mt("An error occured ([_1]) while ".
                                "trying to delete access controls for the file.",$outcome).                                 "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('<br />'.&mt('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">'.'<br />'.                              $r->print('<span class="LC_error">'.'<br />'.
                                &mt("An error occured ([_1]) while ".                                 &mt("An error occured ([_1]) while ".
                                    "trying to delete access controls for the file.",$deloutcome).                                     "trying to delete access controls for the file.",$deloutcome).
                                    '</span><br />');                                     '</span><br /><br />');
                         }                          }
                     }                      }
                 }                  }
Removed from v.1.165  
changed lines
  Added in v.1.166

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