[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;
}
}