--- loncom/interface/lonsyllabus.pm 2009/05/19 10:07:54 1.91
+++ loncom/interface/lonsyllabus.pm 2009/09/26 20:07:58 1.98
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Syllabus
#
-# $Id: lonsyllabus.pm,v 1.91 2009/05/19 10:07:54 amueller Exp $
+# $Id: lonsyllabus.pm,v 1.98 2009/09/26 20:07:58 amueller Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -141,7 +141,7 @@ ENDSCRIPT
}
my $start_page =
&Apache::loncommon::start_page("Syllabus", $rss_link.$js,
- {'function' => $forcestudent,
+ {'function' => undef,
'domain' => $cdom,
'force_register' =>
$env{'form.register'},});
@@ -162,7 +162,6 @@ ENDSCRIPT
text=>"Course syllabus"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs());
}
-
}
# ---------------------------------------------------------- Load syllabus info
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
@@ -183,6 +182,7 @@ ENDSCRIPT
}
if ($forcestudent or $target eq 'tex') { $allowed=0; }
}
+ #store what the user typed in
if (($allowed) && ($env{'form.storesyl'})) {
foreach my $syl_field (keys(%syllabusfields)) {
my $field=$env{'form.'.$syl_field};
@@ -191,6 +191,7 @@ ENDSCRIPT
$field=~s/^\s+//s;
$field=~s/\
$//s;
$field=&Apache::lonfeedback::clear_out_html($field,1);
+ #here it will be stored
$syllabus{$syl_field}=$field;
if ($syl_field eq 'lll_includeurl') { # clean up included URLs
my $field='';
@@ -230,7 +231,41 @@ ENDSCRIPT
}
}
-#---------------------Print External URL Syllabus Info
+#--------Functions
+ if( ($allowed || $privileged) && $target ne 'tex') {
+ my $functions=&Apache::lonhtmlcommon::start_funclist();
+ if ($allowed) {
+ #if you have the register flag, keep it
+ if($env{'form.register'} == 1) {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Show Public View').''
+ .&Apache::loncommon::help_open_topic(
+ 'Uploaded_Templates_PublicView'));
+ } else {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Show Public View').''
+ .&Apache::loncommon::help_open_topic(
+ 'Uploaded_Templates_PublicView'));
+ }
+ } elsif ($privileged) {
+ if($env{'form.register'} == 1) {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Edit').'');
+ } else {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Edit').'');
+ }
+ }
+
+ $functions.=&Apache::lonhtmlcommon::end_funclist();
+ $r->print(&Apache::loncommon::head_subbox($functions));
+ }
+
+#---------------------Print External URL Syllabus Info and Help Text
if( ($allowed) && ($target ne 'tex') ) {
my $protocol = $Apache::lonnet::protocol{$homeserver};
$protocol = 'http' if ($protocol ne 'https');
@@ -240,18 +275,16 @@ ENDSCRIPT
.' '.&Apache::loncommon::help_open_topic('Syllabus_ExtLink')
.'
' - .&mt('Instead of using this template you can specify an external URL as Syllabus in the [_1]Course Parameters[_2].' - ,'','') + .&mt('Instead of using this template you can specify an external URL as Syllabus in the [_1]Course Configuration[_2].' + ,'','') .'
' ); + #-Print Help Text + $r->print(&Apache::loncommon::help_open_topic( + 'Uploaded_Templates_TextBoxes', + &mt('Help with filling in text boxes'))); } -#-Print Help Text - if ($target ne 'tex') { - if ($allowed) { - $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')); @@ -273,21 +306,6 @@ ENDSCRIPT :'') .'\\\\'); } -#--------Functions - if ($target ne 'tex') { - if( $allowed || $privileged) { - $r->print(&Apache::lontemplate::start_functionslist()); - if ($allowed) { - $r->print(&Apache::lontemplate::item_functionslist( - ''.&mt('Show Public View').'' - .&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'))); - } elsif ($privileged) { - $r->print(&Apache::lontemplate::item_functionslist( - ''.&mt('Edit').'')); - } - $r->print(&Apache::lontemplate::end_functionslist()); - } - } #----------------------------Print Headtitle if ($target ne 'tex') { $r->print('