|
version 1.98, 2006/05/09 14:38:10
|
version 1.99, 2006/05/18 01:08:52
|
|
Line 30 use Apache::lontexconvert;
|
Line 30 use Apache::lontexconvert;
|
| use Apache::lonfeedback; |
use Apache::lonfeedback; |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Apache::lonnet; |
use Apache::lonnet; |
| |
use Apache::longroup; |
| |
|
| # receives a file name and path stub from username/userfiles/portfolio/ |
# receives a file name and path stub from username/userfiles/portfolio/ |
| # returns an anchor tag consisting encoding filename and currentpath |
# returns an anchor tag consisting encoding filename and currentpath |
|
Line 501 sub upload {
|
Line 502 sub upload {
|
| } else { |
} else { |
| my $result=&Apache::lonnet::userfileupload('uploaddoc','', |
my $result=&Apache::lonnet::userfileupload('uploaddoc','', |
| $port_path.$env{'form.currentpath'}); |
$port_path.$env{'form.currentpath'}); |
| print STDERR "result was $result for $port_path.$env{'form.currentpath'}\n"; |
|
| if ($result !~ m|^/uploaded/|) { |
if ($result !~ m|^/uploaded/|) { |
| $r->print('<font color="red"> An errror occured ('.$result. |
$r->print('<font color="red"> An errror occured ('.$result. |
| ') while trying to upload '.&display_file().'</font><br />'); |
') while trying to upload '.&display_file().'</font><br />'); |
|
Line 650 sub handler {
|
Line 650 sub handler {
|
| $group =~ s/\W//g; |
$group =~ s/\W//g; |
| if ($group) { |
if ($group) { |
| ($uname,$udom) = &get_name_dom($group); |
($uname,$udom) = &get_name_dom($group); |
| my %curr_groups = &Apache::loncommon::coursegroups($udom,$uname, |
my %curr_groups = &Apache::longroup::coursegroups($udom,$uname, |
| $group); |
$group); |
| if (%curr_groups) { |
if (%curr_groups) { |
| if (($view_permission) || (&Apache::lonnet::allowed('rgf', |
if (($view_permission) || (&Apache::lonnet::allowed('rgf', |
![[BACK]](/icons/back.gif){kind=icon}
Return to portfolio.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface