version 1.65, 2008/07/15 19:50:39
|
version 1.74, 2008/12/17 00:44:53
|
Line 29
|
Line 29
|
package Apache::lonsyllabus; |
package Apache::lonsyllabus; |
|
|
use strict; |
use strict; |
|
use Apache::lontemplate; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 179 ENDSCRIPT
|
Line 180 ENDSCRIPT
|
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
} else { |
} else { |
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
} |
} |
foreach my $element (sort keys %coursepersonnel) { |
my @personnel=sort(keys(%coursepersonnel)); |
|
my $lastpers=$personnel[$#personnel]; |
|
foreach my $element (@personnel) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::start_data_table_row(). |
$r->print(&Apache::lonhtmlcommon::row_title($element)); |
'<td>'.$element.'</td><td>'); |
|
} else { |
} else { |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
} |
} |
Line 198 ENDSCRIPT
|
Line 200 ENDSCRIPT
|
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
$r->print(' '.$courseperson); |
$r->print(' '.$courseperson); |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson), |
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, |
$puname,$pudom); |
$puname,$pudom)); |
} |
} |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::plainname($puname, |
$r->print(' '.&Apache::loncommon::plainname($puname, |
Line 207 ENDSCRIPT
|
Line 209 ENDSCRIPT
|
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('</td>'.&Apache::loncommon::end_data_table_row()); |
my $lastclose=$element eq $lastpers?1:0; |
|
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |
} else { |
} else { |
$r->print('\\\\ \hline'); |
$r->print('\\\\ \hline'); |
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::end_data_table()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
} else { |
} else { |
$r->print('\end{tabular}\\\\'); |
$r->print('\end{tabular}\\\\'); |
} |
} |
Line 237 ENDSCRIPT
|
Line 240 ENDSCRIPT
|
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<p>'. |
$r->print('<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'. |
|
&mt('Show Public View').'</font></a>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). |
|
'</p><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') |
&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>http://'. |
.' <tt>http://'. |
&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'. |
&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'. |
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'. |
&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>'. |
'<p>'.&mt('You can specify an external URL as Syllabus in the [_1].','<a href="/adm/parmset?action=crsenv">'.&mt('Course Parameters').'</a>').'</p>'); |
'<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'. |
|
&mt('Show Public View').'</font></a>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). |
|
'</p>'); |
|
} elsif ($privileged) { |
} elsif ($privileged) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<p><a href="'.$r->uri.'?forceedit=1"><font size="+1">'. |
$r->print('<p><a href="'.$r->uri.'?forceedit=1"><font size="+1">'. |
Line 325 ENDSCRIPT
|
Line 327 ENDSCRIPT
|
'<input type="hidden" name="forceedit" value="edit" />'); |
'<input type="hidden" name="forceedit" value="edit" />'); |
} |
} |
my @htmlids=(); |
my @htmlids=(); |
foreach my $field (sort(keys(%syllabusfields))) { |
&Apache::lontemplate::start_columnSection($r); |
|
&Apache::lontemplate::start_ContentBox($r, $allowed); |
|
foreach my $field (sort(keys(%syllabusfields))) { |
if (($syllabus{$field}=~/\w/) || ($allowed)) { |
if (($syllabus{$field}=~/\w/) || ($allowed)) { |
my $message=$syllabus{$field}; |
my $message=$syllabus{$field}; |
if ($field eq 'lll_includeurl') { # this is the "included" field |
if ($field eq 'lll_includeurl') { # this is the "included" field |
Line 351 ENDSCRIPT
|
Line 355 ENDSCRIPT
|
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<h3>'.$syllabusfields{$field}. |
$r->print('<h3>'.$syllabusfields{$field}. |
&Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'. |
&Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'); |
'<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Public View').'</font></a>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>'); |
|
} else { |
} else { |
$r->print($message); |
$r->print($message); |
} |
} |
Line 365 ENDSCRIPT
|
Line 367 ENDSCRIPT
|
} |
} |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<h3>'.$syllabusfields{$field}.'</h3><blockquote>'. |
if($allowed){ |
$message.'</blockquote>'); |
$r->print('<p>'); |
|
} |
|
&Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message); |
} else { |
} else { |
$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. |
$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. |
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); |
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); |
Line 374 ENDSCRIPT
|
Line 378 ENDSCRIPT
|
push(@htmlids,$field); |
push(@htmlids,$field); |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<br /><textarea cols="80" rows="12" name="'.$field.'" id="'.$field.'">'. |
if($target ne 'tex'){ |
&HTML::Entities::encode($syllabus{$field},'"&<>'). |
$r->print('</p>'); |
'</textarea> <input type="submit" name="storesyl" value="'.&mt('Save').'" />'); |
} |
|
&Apache::lontemplate::print_editbox_template($r, $syllabus{$field}, $field); |
} |
} |
} |
} |
} |
} |
|
if ($allowed) { |
|
$r->print('<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Public View').'</font></a>'. |
|
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>'); |
|
} |
|
&Apache::lontemplate::end_ContentBox($r); |
|
&Apache::lontemplate::end_columnSection($r); |
if ($allowed) { |
if ($allowed) { |
$r->print('</form>'. |
$r->print('</form>'. |
&Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); |
&Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); |
Line 393 ENDSCRIPT
|
Line 404 ENDSCRIPT
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
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']). |
&Apache::lonhtmlcommon::echo_form_input(['backto','courseid']). |
'</form>'); |
'</form>'); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |