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

banghart lon-capa-cvs@mail.lon-capa.org
Wed, 16 Aug 2006 18:06:50 -0000


banghart		Wed Aug 16 14:06:50 2006 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  	Improve link message
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.169 loncom/interface/lonmeta.pm:1.170
--- loncom/interface/lonmeta.pm:1.169	Wed Aug 16 14:02:01 2006
+++ loncom/interface/lonmeta.pm	Wed Aug 16 14:06:47 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.169 2006/08/16 18:02:01 banghart Exp $
+# $Id: lonmeta.pm,v 1.170 2006/08/16 18:06:47 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1288,14 +1288,14 @@
                 $r->print(&store_portfolio_metadata($formname,$file_content,$path,
                                                     $new_fn));
                 unless ($env{'form.associate'}) {
-                    $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));
+                    $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;
                 }  
             } elsif ($fn =~  m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/|) {
                 my ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|);
                 $r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));
                 unless ($env{'form.associate'}) {
-                    $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));
+                    $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;
                 }  
 	    } else {
@@ -1310,7 +1310,7 @@
 			      '</font></p>');
 		}
                 unless ($env{'form.associate'}) {
-                    $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));
+                    $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;
                 }  
 	    }