--- loncom/interface/lonsyllabus.pm 2009/04/15 10:49:30 1.86
+++ loncom/interface/lonsyllabus.pm 2009/04/28 14:43:06 1.88
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Syllabus
#
-# $Id: lonsyllabus.pm,v 1.86 2009/04/15 10:49:30 bisitz Exp $
+# $Id: lonsyllabus.pm,v 1.88 2009/04/28 14:43:06 amueller Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -252,6 +252,27 @@ if ($target ne 'tex') {
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
}
}
+#----------Print last update
+ my $lastmod=$syllabus{'uploaded.lastmodified'};
+ $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
+ my $who = &Apache::loncommon::aboutmewrapper(
+ &Apache::loncommon::plainname($syllabus{'uploaded.name'},
+ $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
+ $syllabus{'uploaded.domain'});
+ if ($target ne 'tex') {
+ $r->print('
'.&mt('Last updated').': '.
+ $lastmod . ' '.
+ ($who ? &mt('by').' '.$who
+ : '' ) .
+ '
' );
+
+ } else {
+ $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
+ ($who? &mt('by').'\\\\ '.
+ &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
+ :'')
+ .'\\\\');
+ }
#--------Functions
if ($target ne 'tex') {
if($allowed || $privileged){
@@ -318,26 +339,6 @@ if($target ne 'tex'){
} else {
$r->print('\end{tabular}\\\\');
}
-#----------Print last update
- my $lastmod=$syllabus{'uploaded.lastmodified'};
- $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
- my $who = &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($syllabus{'uploaded.name'},
- $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
- $syllabus{'uploaded.domain'});
- if ($target ne 'tex') {
- $r->print(''.&mt('Last updated').': | '.
- $lastmod.' | '.
- ($who ? &mt('by').' '.$who
- : '' ).
- ' |
');
- } else {
- $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
- ($who? &mt('by').'\\\\ '.
- &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
- :'')
- .'\\\\');
- }
# -------------------------------------------------------------- Announcements?
my $day = &Apache::lonannounce::showday(time,2,
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
@@ -345,6 +346,8 @@ if($target ne 'tex'){
if($allowed){
&Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');
$r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
+ my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html';
+ $r->print( ''.&mt('New RSS Feed or Blog').'');
&Apache::lontemplate::print_end_template($r);
}
elsif(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){