loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.99, 2006/05/18 01:08:52	version 1.101, 2006/05/30 12:46:09
Line 31 use Apache::lonfeedback;	Line 31 use Apache::lonfeedback;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use Apache::longroup;	use Apache::longroup;
	use lib '/home/httpd/lib/perl';
	use LONCAPA;

# 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 732 sub handler {	Line 734 sub handler {
# 1) never been here, so directory structure not created	# 1) never been here, so directory structure not created
# 2) back-button navigation after deleting a directory	# 2) back-button navigation after deleting a directory
if ($current_path eq '/'){	if ($current_path eq '/'){
&Apache::lonnet::mkdiruserfile($uname,$udom,'portfolio');	&Apache::lonnet::mkdiruserfile($uname,$udom,
	&get_port_path($group));
} else {	} else {
# some directory that snuck in get rid of the directory	# some directory that snuck in get rid of the directory
# from the recent pulldown, just in case	# from the recent pulldown, just in case