version 1.100, 2012/11/17 00:05:50
|
version 1.103, 2013/09/17 15:04:30
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lontemplate; |
use Apache::lontemplate; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lonhtmlgateway; |
use Apache::lonfeedback; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonprintout; |
use Apache::lonprintout; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 44 use HTML::Entities();
|
Line 43 use HTML::Entities();
|
use LONCAPA; |
use LONCAPA; |
|
|
sub get_db_name { |
sub get_db_name { |
my ($url) = @_; |
my ($url,$marker,$cdom,$cnum) = @_; |
my ($udom,$uname,$marker)=(split(m{/},$url))[2,3,4]; |
my ($udom,$uname,$timemark)=(split(m{/},$url))[2,3,4]; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
if ($marker eq '') { |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$marker = $timemark; |
|
} |
|
if (($cdom eq '') || ($cnum eq '')) { |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
} |
my $db_name; |
my $db_name; |
|
|
if ($dom && $crs && ($udom eq $dom) && ($uname eq $crs)) { |
if ($cdom && $cnum && ($udom eq $cdom) && ($uname eq $cnum)) { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
$db_name = 'grppage_'.$marker; |
$db_name = 'grppage_'.$marker; |
} else { |
} else { |
Line 59 sub get_db_name {
|
Line 62 sub get_db_name {
|
$db_name = 'smppage_'.$marker; |
$db_name = 'smppage_'.$marker; |
} |
} |
return if (!defined($marker)); |
return if (!defined($marker)); |
|
|
return $db_name; |
return $db_name; |
} |
} |
|
|
Line 84 sub handler {
|
Line 86 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
my $db_name = &get_db_name($r->uri); |
my $marker = (split(m{/},$r->uri))[4]; |
|
my $db_name = &get_db_name($r->uri,$marker); |
|
|
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 93 sub handler {
|
Line 96 sub handler {
|
my %curr_group = (); |
my %curr_group = (); |
my %groupinfo = (); |
my %groupinfo = (); |
if ($db_name =~ /^grppage_/) { |
if ($db_name =~ /^grppage_/) { |
$group = (split(m{/},$r->uri))[4]; |
$group = $marker; |
$group =~ s/\W//g; |
$group =~ s/\W//g; |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
if (!%curr_groups) { |
if (!%curr_groups) { |
Line 122 sub handler {
|
Line 125 sub handler {
|
|
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ Get query string |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceedit', |
($ENV{'QUERY_STRING'},['forceedit','todocs', |
'register','ref']); |
'register','ref']); |
# --------------------------------------------------------------- Force Student |
# --------------------------------------------------------------- Force Student |
my ($forceedit,$forcestudent); |
my ($forceedit,$forcestudent); |
Line 233 sub handler {
|
Line 236 sub handler {
|
} |
} |
if ($group ne '') { |
if ($group ne '') { |
$syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload( |
$syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload( |
'uploaddoc','coursedoc',"grouppage/$group"); |
'uploaddoc','coursedoc', |
|
"grouppage/$group"); |
} else { |
} else { |
$syllabus{'uploaded.photourl'}= |
$syllabus{'uploaded.photourl'}= |
&Apache::lonnet::userfileupload('uploaddoc','coursedoc','simplepage'); |
&Apache::lonnet::userfileupload('uploaddoc','coursedoc', |
|
"simplepage/$marker"); |
} |
} |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
Line 253 sub handler {
|
Line 258 sub handler {
|
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); |
|
$syllabus{$syl_field}=$field; |
$syllabus{$syl_field}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |