version 1.131, 2013/08/31 18:58:57
|
version 1.135, 2013/10/03 12:45:14
|
Line 35 use Apache::loncommon;
|
Line 35 use Apache::loncommon;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::lonfeedback; |
use Apache::lonfeedback; |
|
use Apache::lonhtmlgateway; |
use Apache::lonannounce; |
use Apache::lonannounce; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
Line 53 sub handler {
|
Line 54 sub handler {
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ Get query string |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['register','forceedit','todocs', |
($ENV{'QUERY_STRING'},['register','forceedit','todocs', |
'folderpath','title']); |
'folderpath','title','only_body']); |
# ----------------------------------------------------- Is this even a course? |
# ----------------------------------------------------- Is this even a course? |
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); |
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
Line 97 sub handler {
|
Line 98 sub handler {
|
my $uploaded=$courseenv{'uploadedsyllabus'}; |
my $uploaded=$courseenv{'uploadedsyllabus'}; |
my $minimal=$courseenv{'minimalsyllabus'}; |
my $minimal=$courseenv{'minimalsyllabus'}; |
|
|
if (($minimal =~/\w/) || ($uploaded =~/\w/)) { |
if (($minimal =~/\w/) || ($uploaded =~/\w/)) { |
my $item; |
my $item; |
if ($minimal =~/\w/) { |
if ($minimal =~/\w/) { |
if ($external =~ m{\Q$minimal\E$}) { |
if ($external =~ m{\Q$minimal\E$}) { |
Line 125 sub handler {
|
Line 126 sub handler {
|
$env{'form.texengine'}); |
$env{'form.texengine'}); |
my %args; |
my %args; |
&get_breadcrumbs($cdom,$cnum,$crstype,\%args); |
&get_breadcrumbs($cdom,$cnum,$crstype,\%args); |
|
if ($env{'form.only_body'}) { |
|
$args{'only_body'} = 1; |
|
} |
$r->print(&Apache::loncommon::start_page("Syllabus",undef,\%args). |
$r->print(&Apache::loncommon::start_page("Syllabus",undef,\%args). |
$result. |
$result. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
Line 406 sub handler {
|
Line 410 sub handler {
|
} |
} |
$rsslinktext = &mt('Manage Course RSS Feeds/Blogs'); |
$rsslinktext = &mt('Manage Course RSS Feeds/Blogs'); |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$rsslinktext = &mt('Manage Communiity RSS Feeds/Blogs'); |
$rsslinktext = &mt('Manage Community RSS Feeds/Blogs'); |
} |
} |
} |
} |
my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html'; |
my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html'; |
Line 692 ENDSCRIPT
|
Line 696 ENDSCRIPT
|
); |
); |
$args->{'add_entries'} = \%loaditem; |
$args->{'add_entries'} = \%loaditem; |
} |
} |
|
if ($env{'form.only_body'}) { |
|
$args->{'only_body'} = 1; |
|
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args); |
&Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args); |
if ($start_page) { |
if ($start_page) { |
Line 1168 sub save_changes {
|
Line 1175 sub save_changes {
|
foreach my $syl_field (keys(%{$syllabusfields})) { |
foreach my $syl_field (keys(%{$syllabusfields})) { |
my $field=$env{'form.'.$syl_field}; |
my $field=$env{'form.'.$syl_field}; |
chomp($field); |
chomp($field); |
$field=~s/\s+$//s; |
my $gateway = Apache::lonhtmlgateway->new(); |
$field=~s/^\s+//s; |
$field = $gateway->process_incoming_html($field,1); |
$field=~s/\<br\s*\/*\>$//s; |
|
$field=&Apache::lonfeedback::clear_out_html($field,1); |
|
#here it will be stored |
#here it will be stored |
$syllabus->{$syl_field}=$field; |
$syllabus->{$syl_field}=$field; |
if ($syl_field eq 'lll_includeurl') { # clean up included URLs |
if ($syl_field eq 'lll_includeurl') { # clean up included URLs |
Line 1266 sub save_changes {
|
Line 1271 sub save_changes {
|
($url,$needlink) = &process_upload(\$output,$cnum,$cdom, |
($url,$needlink) = &process_upload(\$output,$cnum,$cdom, |
\%allfiles,\%codebase); |
\%allfiles,\%codebase); |
} else { |
} else { |
$output = '<div class="LC_info">'; |
$output = '<div class="LC_info">'. |
&mt('No file uploaded'). |
&mt('No file uploaded'). |
'</div>'; |
'</div>'; |
} |
} |