version 1.85, 2009/07/10 15:05:28
|
version 1.87, 2009/12/07 19:47:56
|
Line 232 sub handler {
|
Line 232 sub handler {
|
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); |
&Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); |
} |
} |
if ($allowed && $env{'form.delupl'}) { |
# if ($allowed && $env{'form.delupl'}) { |
if ($syllabus{'uploaded.photourl'}) { |
# if ($syllabus{'uploaded.photourl'}) { |
&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); |
# &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); |
delete($syllabus{'uploaded.photourl'}); |
# delete($syllabus{'uploaded.photourl'}); |
&Apache::lonnet::del('simplepage',['uploaded.photourl']); |
# &Apache::lonnet::del('simplepage',['uploaded.photourl']); |
} |
# } |
} |
# } |
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 320 sub handler {
|
Line 320 sub handler {
|
'<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'. |
'<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'. |
'</form><form method="post" action="">'. |
'</form><form method="post" action="">'. |
'<input type="hidden" name="forceedit" value="edit" />'); |
'<input type="hidden" name="forceedit" value="edit" />'); |
if ($syllabus{'uploaded.photourl'}) { |
# if ($syllabus{'uploaded.photourl'}) { |
$r->print('<input type="submit" name="delupl"' |
# $r->print('<input type="submit" name="delupl"' |
.' value="'.&mt('Delete Photo').'" />'); |
# .' value="'.&mt('Delete Photo').'" />'); |
} |
# } |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print($image.'<div class="LC_footer_clear"> </div>'); |
$r->print($image.'<div class="LC_footer_clear"> </div>'); |
Line 333 sub handler {
|
Line 333 sub handler {
|
if (($syllabus{$field}) || ($allowed) || |
if (($syllabus{$field}) || ($allowed) || |
($field eq 'abb_links' && $group ne '')) { |
($field eq 'abb_links' && $group ne '')) { |
my $message=$syllabus{$field}; |
my $message=$syllabus{$field}; |
&Apache::lonfeedback::newline_to_br(\$message); |
if (!&Apache::lonfeedback::contains_block_html($message)) { |
|
&Apache::lonfeedback::newline_to_br(\$message); |
|
} |
$message=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
$message=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
if ($allowed) { |
if ($allowed) { |
$message=&Apache::lonspeller::markeduptext($message); |
$message=&Apache::lonspeller::markeduptext($message); |