version 1.79, 2009/02/20 17:45:40
|
version 1.85, 2009/03/31 08:49:09
|
Line 161 ENDSCRIPT
|
Line 161 ENDSCRIPT
|
({href=>$r->uri, |
({href=>$r->uri, |
text=>"Course syllabus"}); |
text=>"Course syllabus"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs()); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs()); |
} |
} |
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<h2 class="LC_hcell">'.$courseenv{'description'}.'</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<h3>'. &Apache::lonnet::domain($cdom,'description').'</h3>'); |
|
} else { |
|
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'. |
|
&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
|
} |
|
|
|
# -------------------------------------------------------- Get course personnel |
|
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
|
} else { |
|
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
|
} |
|
my @personnel=sort(keys(%coursepersonnel)); |
|
my $lastpers=$personnel[$#personnel]; |
|
foreach my $element (@personnel) { |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::row_title($element)); |
|
} else { |
|
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
|
} |
|
foreach (split(/\,/,$coursepersonnel{$element})) { |
|
my ($puname,$pudom)=split(/\:/,$_); |
|
if ($target ne 'tex') { |
|
my $courseperson = &Apache::loncommon::plainname($puname,$pudom); |
|
if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') || |
|
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
|
$r->print(' '.$courseperson); |
|
} else { |
|
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, |
|
$puname,$pudom)); |
|
} |
|
} else { |
|
$r->print(' '.&Apache::loncommon::plainname($puname, |
|
$pudom).' '); |
|
} |
|
} |
|
if ($target ne 'tex') { |
|
my $lastclose=$element eq $lastpers?1:0; |
|
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |
|
} else { |
|
$r->print('\\\\ \hline'); |
|
} |
|
} |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
} else { |
|
$r->print('\end{tabular}\\\\'); |
|
} |
} |
# ---------------------------------------------------------- Load syllabus info |
# ---------------------------------------------------------- Load syllabus info |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); |
Line 232 ENDSCRIPT
|
Line 182 ENDSCRIPT
|
$forcestudent='student'; |
$forcestudent='student'; |
} |
} |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
} |
} |
if ($allowed) { |
|
my $protocol = $Apache::lonnet::protocol{$homeserver}; |
|
$protocol = 'http' if ($protocol ne 'https'); |
|
$r->print('<p>'.&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'</p><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>'); |
|
} |
|
if (($allowed) && ($env{'form.storesyl'})) { |
if (($allowed) && ($env{'form.storesyl'})) { |
foreach my $syl_field (keys(%syllabusfields)) { |
foreach my $syl_field (keys(%syllabusfields)) { |
my $field=$env{'form.'.$syl_field}; |
my $field=$env{'form.'.$syl_field}; |
Line 288 ENDSCRIPT
|
Line 229 ENDSCRIPT
|
&Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum); |
&Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum); |
} |
} |
} |
} |
|
|
|
#---------------------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($allowed){ |
|
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); |
|
} |
|
} |
|
#--------Functions |
|
if ($target ne 'tex') { |
|
if($allowed || $privileged){ |
|
$r->print(&Apache::lontemplate::start_functionslist()); |
|
if($allowed){ |
|
$r->print(&Apache::lontemplate::item_functionslist( |
|
'<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>' |
|
.&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'))); |
|
}elsif($privileged){ |
|
$r->print(&Apache::lontemplate::item_functionslist( |
|
'<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>')); |
|
} |
|
$r->print(&Apache::lontemplate::end_functionslist()); |
|
} |
|
} |
|
#----------------------------Print Headtitle |
|
if($target ne 'tex'){ |
|
$r->print('<h1>'.$courseenv{'description'}.'</h1>'); |
|
$r->print('<h3>'. &Apache::lonnet::domain($cdom,'description').'</h3>'); |
|
}else{ |
|
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'. |
|
&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
|
} |
|
# -------------------------------------------------------- Get course personnel |
|
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
|
} else { |
|
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
|
} |
|
my @personnel=sort(keys(%coursepersonnel)); |
|
my $lastpers=$personnel[$#personnel]; |
|
foreach my $element (@personnel) { |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::row_title($element)); |
|
} else { |
|
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
|
} |
|
foreach (split(/\,/,$coursepersonnel{$element})) { |
|
my ($puname,$pudom)=split(/\:/,$_); |
|
if ($target ne 'tex') { |
|
my $courseperson = &Apache::loncommon::plainname($puname,$pudom); |
|
if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') || |
|
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
|
$r->print(' '.$courseperson); |
|
} else { |
|
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, |
|
$puname,$pudom)); |
|
} |
|
} else { |
|
$r->print(' '.&Apache::loncommon::plainname($puname, |
|
$pudom).' '); |
|
} |
|
} |
|
if ($target ne 'tex') { |
|
my $lastclose=$element eq $lastpers?1:0; |
|
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |
|
} else { |
|
$r->print('\\\\ \hline'); |
|
} |
|
} |
|
if ($target ne 'tex') { |
|
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
} else { |
|
$r->print('\end{tabular}\\\\'); |
|
} |
#----------Print last update |
#----------Print last update |
my $lastmod=$syllabus{'uploaded.lastmodified'}; |
my $lastmod=$syllabus{'uploaded.lastmodified'}; |
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); |
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); |
Line 307 ENDSCRIPT
|
Line 337 ENDSCRIPT
|
&Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'}) |
&Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'}) |
:'') |
:'') |
.'\\\\'); |
.'\\\\'); |
} |
} |
#--------Functions |
|
if ($target ne 'tex') { |
|
if($allowed || $privileged){ |
|
&Apache::lontemplate::print_start_page_functions($r); |
|
if($allowed){ |
|
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>'. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')); |
|
}elsif($privileged){ |
|
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>'); |
|
} |
|
&Apache::lontemplate::print_end_page_functions($r); |
|
} |
|
} |
|
# -------------------------------------------------------------- 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)); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
&Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit),1,'LC_ContentBoxSpecial'); |
if($allowed){ |
|
&Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial'); |
|
$r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit)); |
|
&Apache::lontemplate::print_end_template($r); |
|
} |
|
elsif(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){ |
|
&Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial'); |
|
$r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit)); |
|
&Apache::lontemplate::print_end_template($r); |
|
} |
|
|
} else { |
} else { |
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day)); |
$r->print(&Apache::lonxml::xmlparse($r,'tex',$day)); |
} |
} |
Line 405 if ($target ne 'tex') {
|
Line 433 if ($target ne 'tex') {
|
if ($target ne 'tex') {$r->print('</p>');} |
if ($target ne 'tex') {$r->print('</p>');} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
|
if ($env{'form.backto'} eq 'coursecatalog') { |
if ($env{'form.backto'} eq 'coursecatalog') { |
$r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'. |
$r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'. |
&Apache::lonhtmlcommon::echo_form_input(['backto','courseid']). |
&Apache::lonhtmlcommon::echo_form_input(['backto','courseid']). |