loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.103, 2009/12/02 09:53:02	version 1.105, 2010/12/14 16:26:04
Line 756 sub NewDir1 {	Line 756 sub NewDir1 {
if ($type eq 'error') {	if ($type eq 'error') {
$request->print('</form>');	$request->print('</form>');
} else {	} else {
if ($mode eq 'testbank') {	if (($mode eq 'testbank') \|\| ($mode eq 'imsimport')) {
$request->print('<input type="hidden" name="callingmode" value="testbank" />');	$request->print('<input type="hidden" name="callingmode" value="'.$mode.'" />'."\n".
} elsif ($mode eq 'imsimport') {	'<input type="hidden" name="inhibitmenu" value="yes" />');
$request->print('<input type="hidden" name="callingmode" value="imsimport" />');
}	}
$request->print('<input type="hidden" name="newfilename" value="'	$request->print('<input type="hidden" name="newfilename" value="'
.$newfilename.'" />'	.$newfilename.'" />'
Line 1472 function writeDone() {	Line 1471 function writeDone() {
$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');	$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');

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>'
);	);