loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.64, 2004/12/28 21:28:49	version 1.65, 2005/03/10 03:50:49
Line 802 sub phaseone {	Line 802 sub phaseone {
$ENV{'form.action'} eq 'newsequencefile' \|\|	$ENV{'form.action'} eq 'newsequencefile' \|\|
$ENV{'form.action'} eq 'newrightsfile' \|\|	$ENV{'form.action'} eq 'newrightsfile' \|\|
$ENV{'form.action'} eq 'newstyfile' \|\|	$ENV{'form.action'} eq 'newstyfile' \|\|
	$ENV{'form.action'} eq 'newlibraryfile' \|\|
$ENV{'form.action'} eq 'Select Action') {	$ENV{'form.action'} eq 'Select Action') {
if ($newfilename) {	my $empty=&mt('Type Name Here');
	if (($newfilename!~/\/$/) && ($newfilename!~/$empty$/)) {
&NewFile1($r, $uname, $udom, $fn, $newfilename);	&NewFile1($r, $uname, $udom, $fn, $newfilename);
} else {	} else {
$r->print('<p>'.&mt('No new filename specified.').'</p></form>');	$r->print('<p>'.&mt('No new filename specified.').'</p></form>');
Line 1286 function writeDone() {	Line 1288 function writeDone() {
$ENV{'form.action'} eq 'newsequencefile' \|\|	$ENV{'form.action'} eq 'newsequencefile' \|\|
$ENV{'form.action'} eq 'newrightsfile' \|\|	$ENV{'form.action'} eq 'newrightsfile' \|\|
$ENV{'form.action'} eq 'newstyfile' \|\|	$ENV{'form.action'} eq 'newstyfile' \|\|
	$ENV{'form.action'} eq 'newlibraryfile' \|\|
$ENV{'form.action'} eq 'Select Action' ) {	$ENV{'form.action'} eq 'Select Action' ) {
$r->print('<h3>'.&mt('New Resource').'</h3>');	$r->print('<h3>'.&mt('New Resource').'</h3>');
} else {	} else {