[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

[raeburn]

raeburn		Mon Dec 17 06:29:03 2012 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - Localization: match keys in de.pm
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.238 loncom/interface/portfolio.pm:1.239
--- loncom/interface/portfolio.pm:1.238	Mon Dec 17 02:06:32 2012
+++ loncom/interface/portfolio.pm	Mon Dec 17 06:29:02 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.238 2012/12/17 02:06:32 raeburn Exp $
+# $Id: portfolio.pm,v 1.239 2012/12/17 06:29:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2379,12 +2379,13 @@
 
 sub missing_priv {
     my ($r,$url,$priv) = @_;
-    my $longtext = {
+    my %longtext = 
+        &Apache::lonlocal::texthash(
                       upload => 'upload files',
                       delete => 'delete files',
                       rename => 'rename files',
                       setacl => 'set access controls for files',
-                   };
+    );
     my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"');
     my $rtnlink = '<a href="'.$url;
     if ($url =~ /\?/) {
@@ -2394,13 +2395,13 @@
     }
     $rtnlink .= 'currentpath='.$escpath;
     $r->print('<h3>'.&mt('Action disallowed').'</h3>');
-    $r->print(&mt('You do not have sufficient privileges to [_1] ',
-                  $longtext->{$priv}));
+    $r->print(&mt('You do not have sufficient privileges to [_1]',
+                  $longtext{$priv}));
     if (defined($env{'form.group'})) {
-        $r->print(&mt("in the group's group portfolio."));
+        $r->print(' '.&mt("in the group's group portfolio."));
         $rtnlink .= &group_args()
     } else {
-        $r->print(&mt('in this portfolio.'));
+        $r->print(' '.&mt('in this portfolio.'));
     }
     $rtnlink .= '">'.&mt('Return to directory').'</a>';
     $r->print('<br />'.$rtnlink);