loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/loncfile.pm between versions 1.96 and 1.99

version 1.96, 2009/04/13 21:29:26	version 1.99, 2009/05/26 16:29:56
Line 423 sub CloseForm1 {	Line 423 sub CloseForm1 {
my ($request, $fn) = @_;	my ($request, $fn) = @_;
$request->print('<p><input type="submit" value="'.&mt('Continue').'" /></p></form>');	$request->print('<p><input type="submit" value="'.&mt('Continue').'" /></p></form>');
$request->print('<form action="'.&url($fn).	$request->print('<form action="'.&url($fn).
'" method="POST"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>');	'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>');
}	}


Line 820 sub NewFile1 {	Line 820 sub NewFile1 {
'<span class ="LC_nobreak">'.&mt('Enter a file name: ').'<input type="text" name="newfilename" value="Type Name Here" onfocus="if (this.value == '."'Type Name Here') this.value=''".'" /> <input type="submit" value="Go" />'.	'<span class ="LC_nobreak">'.&mt('Enter a file name: ').'<input type="text" name="newfilename" value="Type Name Here" onfocus="if (this.value == '."'Type Name Here') this.value=''".'" /> <input type="submit" value="Go" />'.
'</span></form></p>'.	'</span></form></p>'.
'<p><form action="'.&url($fn).	'<p><form action="'.&url($fn).
'" method="POST"><p><input type="submit" value="'.&mt('Cancel').'" /></form></p>');	'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></form></p>');
return;	return;
}	}

Line 828 sub NewFile1 {	Line 828 sub NewFile1 {
$request->print('</form>');	$request->print('</form>');

$request->print('<form action="'.&url($newfilename).	$request->print('<form action="'.&url($newfilename).
'" method="POST"><p><input type="submit" value="'.&mt('Continue').'" /></p></form>');	'" method="post"><p><input type="submit" value="'.&mt('Continue').'" /></p></form>');
$request->print('<form action="'.&url($fn).	$request->print('<form action="'.&url($fn).
'" method="POST"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>');	'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>');
}	}
return;	return;
}	}
Line 1387 function writeDone() {	Line 1387 function writeDone() {
$loaditem{'onload'} = "writeDone()";	$loaditem{'onload'} = "writeDone()";
}	}

	# Breadcrumbs
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Construction Space',
	'href' => '', # FIXME Add link to /priv/[user]
	});
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'File Operation',
	'title' => 'Construction Space File Operation',
	'href' => '',
	});

$r->print(&Apache::loncommon::start_page('Construction Space File Operation',	$r->print(&Apache::loncommon::start_page('Construction Space File Operation',
$js,	$js,
{'add_entries' => \%loaditem,}));	{'add_entries' => \%loaditem,})
	.&Apache::lonhtmlcommon::breadcrumbs()
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader())
	);

$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_warning">'
.&mt('Co-Author [_1]:[_2]',$uname,$udom)	.&mt('Co-Author [_1]',$uname.':'.$udom)
.'</p>'	.'</p>'
);	);
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.96
changed lines
	Added in v.1.99