loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.56, 2011/10/31 01:28:47	version 1.57, 2011/11/02 14:40:16
Line 406 sub phasethree {	Line 406 sub phasethree {
}	}
my $url_root = "/priv/$udom/$uname";	my $url_root = "/priv/$udom/$uname";
my $dir_root = $r->dir_config('lonDocRoot').$url_root;	my $dir_root = $r->dir_config('lonDocRoot').$url_root;
my $url_root = '/priv/'.$udom.'/'.$uname;
my $path = &File::Basename::dirname($fn);	my $path = &File::Basename::dirname($fn);
my $filename = &HTML::Entities::encode($env{'form.filename'},'<>&"');	my $filename = &HTML::Entities::encode($env{'form.filename'},'<>&"');
my $state = &embedded_form_elems('modify_orightml',$filename,$mode).	my $state = &embedded_form_elems('modify_orightml',$filename,$mode).
Line 462 sub handler {	Line 461 sub handler {

my $r=shift;	my $r=shift;

my $uname;	my ($uname,$udom);
my $udom;
my $javascript = '';	my $javascript = '';

my $fn=$env{'form.filename'};	my $fn=$env{'form.filename'};