version 1.101, 2012/12/07 17:15:56
|
version 1.102, 2013/03/11 02:04:36
|
Line 44 use HTML::Entities();
|
Line 44 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 63 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 87 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 97 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 233 sub handler {
|
Line 237 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; |