[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm
bisitz
bisitz at source.lon-capa.org
Thu Jul 18 12:28:50 EDT 2013
bisitz Thu Jul 18 16:28:50 2013 EDT
Modified files:
/loncom/publisher lonpublisher.pm
Log:
Actions after resource publication:
- Consistent function calls and layout - use actionbox which is now available (improves rev. 1.262 and 1.264)
- 'Diffs with Current Version' link: XHTML
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.283 loncom/publisher/lonpublisher.pm:1.284
--- loncom/publisher/lonpublisher.pm:1.283 Mon Jul 15 16:13:31 2013
+++ loncom/publisher/lonpublisher.pm Thu Jul 18 16:28:50 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.283 2013/07/15 16:13:31 bisitz Exp $
+# $Id: lonpublisher.pm,v 1.284 2013/07/18 16:28:50 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1774,21 +1774,17 @@
my $thissrcdir=$thissrc;
$thissrcdir=~s/\/[^\/]+$/\//;
- $r->print(&Apache::loncommon::head_subbox(
- &Apache::lonhtmlcommon::start_funclist().
- &Apache::lonhtmlcommon::add_item_funclist(
+ $r->print(
+ &Apache::lonhtmlcommon::actionbox([
'<a href="'.$thisdistarget.'">'.
&mt('View Published Version').
- '</a>').
- &Apache::lonhtmlcommon::add_item_funclist(
+ '</a>',
'<a href="'.$thissrc.'">'.
&mt('Back to Source').
- '</a>').
- &Apache::lonhtmlcommon::add_item_funclist(
+ '</a>',
'<a href="'.$thissrcdir.'">'.
&mt('Back to Source Directory').
- '</a>').
- &Apache::lonhtmlcommon::end_funclist())
+ '</a>'])
);
}
return 1;
@@ -2222,7 +2218,7 @@
$r->print(&Apache::lonhtmlcommon::row_closure()
.&Apache::lonhtmlcommon::row_title(&mt('Diffs')));
$r->print(<<ENDDIFF);
-<a href='javascript:void(window.open("/adm/diff?filename=$thisdisfn&versiontwo=priv","cat","height=300,width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'>
+<a href='javascript:void(window.open("/adm/diff?filename=$thisdisfn&versiontwo=priv","cat","height=300,width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'>
ENDDIFF
$r->print(&mt('Diffs with Current Version').'</a>');
}
More information about the LON-CAPA-cvs
mailing list