version 1.55, 2006/09/19 14:02:42
|
version 1.59, 2006/12/10 08:44:35
|
Line 57 sub handler {
|
Line 57 sub handler {
|
'No user information available'); |
'No user information available'); |
return OK; |
return OK; |
} else { |
} else { |
$is_course = &check_for_course($cdom,$cnum); |
$is_course = &Apache::lonnet::is_course($cdom,$cnum); |
} |
} |
|
|
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
Line 171 sub handler {
|
Line 171 sub handler {
|
} |
} |
} |
} |
if (($allowed) && ($env{'form.storesyl'})) { |
if (($allowed) && ($env{'form.storesyl'})) { |
foreach (keys %syllabusfields) { |
foreach my $syl_field (keys(%syllabusfields)) { |
my $field=$env{'form.'.$_}; |
my $field=$env{'form.'.$syl_field}; |
$field=~s/\s+$//s; |
$field=~s/\s+$//s; |
$field=&Apache::lonfeedback::clear_out_html($field, |
$field=&Apache::lonfeedback::clear_out_html($field, |
$env{'user.adv'}); |
$env{'user.adv'}); |
$syllabus{$_}=$field; |
$syllabus{$syl_field}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); |
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); |
Line 209 sub handler {
|
Line 209 sub handler {
|
'</form><form method="post">'); |
'</form><form method="post">'); |
|
|
} |
} |
foreach (sort keys %syllabusfields) { |
foreach my $field (sort(keys(%syllabusfields))) { |
if (($syllabus{$_}) || ($allowed)) { |
if (($syllabus{$field}) || ($allowed)) { |
my $message=$syllabus{$_}; |
my $message=$syllabus{$field}; |
&Apache::lonfeedback::newline_to_br(\$message); |
&Apache::lonfeedback::newline_to_br(\$message); |
$message |
$message |
=~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
=~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
Line 220 sub handler {
|
Line 220 sub handler {
|
} |
} |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'. |
$r->print('<h3>'.$syllabusfields{$field}.'</h3><blockquote>'. |
$message.'</blockquote>'); |
$message.'</blockquote>'); |
} else { |
} else { |
$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'. |
$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. |
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); |
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'. |
$r->print('<br /><textarea cols="80" rows="6" name="'.$field.'">'. |
&HTML::Entities::encode($syllabus{$_},'"&<>'). |
&HTML::Entities::encode($syllabus{$field},'"&<>'). |
'</textarea><input type="submit" name="storesyl" value="'. |
'</textarea><input type="submit" name="storesyl" value="'. |
&mt('Store').'" />'); |
&mt('Store').'" />'); |
} |
} |
Line 311 sub print_portfiles_link {
|
Line 311 sub print_portfiles_link {
|
if ($is_course) { |
if ($is_course) { |
$output .= &mt('One group portfolio file is available.').'<ul>'; |
$output .= &mt('One group portfolio file is available.').'<ul>'; |
} else { |
} else { |
$output .= &mt('One portfolio file owned by [_1] is available.').'<ul>'; |
$output .= &mt('One portfolio file owned by [_1] is available.',$name).'<ul>'; |
} |
} |
} else { |
} else { |
if ($is_course) { |
if ($is_course) { |
$output .= &mt('A total of [_1] group portfolio files are available.').'<ul>'; |
$output .= &mt('A total of [_1] group portfolio files are available.',$filecounts->{'both'}).'<ul>'; |
} else { |
} else { |
$output .= &mt('A total of [_1] portfolio files owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>'; |
$output .= &mt('A total of [_1] portfolio files owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>'; |
} |
} |
Line 629 sub parse_directory {
|
Line 629 sub parse_directory {
|
return $output; |
return $output; |
} |
} |
|
|
sub check_for_course { |
|
my ($cdom,$cnum) = @_; |
|
my %courses = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef, |
|
undef,'.'); |
|
if (exists($courses{$cdom.'_'.$cnum})) { |
|
return 1; |
|
} |
|
return 0; |
|
} |
|
|
|
1; |
1; |
__END__ |
__END__ |