version 1.84, 2009/03/27 15:46:38
|
version 1.85, 2009/03/31 08:49:09
|
Line 229 ENDSCRIPT
|
Line 229 ENDSCRIPT
|
&Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum); |
&Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum); |
} |
} |
} |
} |
#-Pritn Help Text |
|
|
#---------------------Print External URL Syllabus Info |
|
if( ($allowed) && ($target ne 'tex') ) { |
|
my $protocol = $Apache::lonnet::protocol{$homeserver}; |
|
$protocol = 'http' if ($protocol ne 'https'); |
|
$r->print('<p class="LC_info">' |
|
.&mt('This syllabus can be publicly viewed at [_1]' |
|
,'<tt>'.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>') |
|
.' '.&Apache::loncommon::help_open_topic('Syllabus_ExtLink') |
|
.'</p>' |
|
.'<p class="LC_info">' |
|
.&mt('Instead of using this template you can specify an external URL as Syllabus in the [_1]Course Parameters[_2].' |
|
,'<a href="/adm/parmset?action=crsenv">','</a>') |
|
.'</p>' |
|
); |
|
} |
|
|
|
#-Print Help Text |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if($allowed){ |
if($allowed){ |
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); |
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); |
Line 321 if($target ne 'tex'){
|
Line 338 if($target ne 'tex'){
|
:'') |
:'') |
.'\\\\'); |
.'\\\\'); |
} |
} |
#---------------------Print Extern URL Course Info |
|
if( ($allowed) && ($target ne 'tex') ) { |
|
my $protocol = $Apache::lonnet::protocol{$homeserver}; |
|
$protocol = 'http' if ($protocol ne 'https'); |
|
$r->print('<p>'.&mt('This syllabus can be publicly viewed at').' <tt>'.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'.&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.'<p>'.&mt('You can specify an external URL as Syllabus in the [_1].','<a href="/adm/parmset?action=crsenv">'.&mt('Course Parameters').'</a>').'</p>'); |
|
} |
|
# -------------------------------------------------------------- Announcements? |
# -------------------------------------------------------------- Announcements? |
my $day = &Apache::lonannounce::showday(time,2, |
my $day = &Apache::lonannounce::showday(time,2, |
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)); |
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum)); |