loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.51, 2010/11/28 00:04:10	version 1.53, 2010/12/26 03:09:11
Line 538 function verifyForm() {	Line 538 function verifyForm() {
);	);

if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
$r->print('<p class="LC_warning">'	$r->print('<p class="LC_info">'
.&mt('Co-Author [_1]',$uname.':'.$udom)	.&mt('Co-Author [_1]',$uname.':'.$udom)
.'</p>'	.'</p>'
);	);
Line 547 function verifyForm() {	Line 547 function verifyForm() {
my $output = &phasefour($r,$fn,$uname,$udom,'author');	my $output = &phasefour($r,$fn,$uname,$udom,'author');
$r->print($output);	$r->print($output);
} elsif ($env{'form.phase'} eq 'three') {	} elsif ($env{'form.phase'} eq 'three') {
my $output = &phasethree($r,$fn,$uname,$udom,'author');	my ($output,$rtnflag) = &phasethree($r,$fn,$uname,$udom,'author');
$r->print($output);	$r->print($output);
} elsif ($env{'form.phase'} eq 'two') {	} elsif ($env{'form.phase'} eq 'two') {
my ($output,$returnflag) = &phasetwo($r,$fn,$uname,$udom);	my ($output,$returnflag) = &phasetwo($r,$fn,$uname,$udom);