loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.129 and 1.133

version 1.129, 2004/06/10 22:23:35	version 1.133, 2004/07/02 00:59:55
Line 121 sub dumpbutton {	Line 121 sub dumpbutton {
if ($home) {	if ($home) {
return '</td><td bgcolor="#DDDDCC">'.	return '</td><td bgcolor="#DDDDCC">'.
'<input type="submit" name="dumpcourse" value="'.	'<input type="submit" name="dumpcourse" value="'.
&mt('Dump Course DOCS to Construction Space').'" />';	&mt('Dump Course DOCS to Construction Space').'" />'.
	&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');
} else {	} else {
return'</td><td bgcolor="#DDDDCC">'.	return'</td><td bgcolor="#DDDDCC">'.
&mt('Dump Course DOCS to Construction Space: available on other servers');	&mt('Dump Course DOCS to Construction Space: available on other servers');
Line 156 sub dumpcourse {	Line 157 sub dumpcourse {
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
foreach (keys %replacehash) {	foreach (keys %replacehash) {
my $newfilename=$title.'/'.$replacehash{$_};	my $newfilename=$title.'/'.$replacehash{$_};
$newfilename=~s/[^\w\/\.]+/\_/g;	$newfilename=~s/[^\w\/\.\/]+/\_/g;
my @dirs=split(/\//,$newfilename);	my @dirs=split(/\//,$newfilename);
my $path='/home/'.$ca.'/public_html';	my $path='/home/'.$ca.'/public_html';
my $makepath=$path;	my $makepath=$path;
Line 200 sub dumpcourse {	Line 201 sub dumpcourse {
$r->print(	$r->print(
'<input type="hidden" name="authorspace" value="'.$1.'" />');	'<input type="hidden" name="authorspace" value="'.$1.'" />');
} else {	} else {
$r->print('<option value="'.$1.'">'.$_.'</option>');	$r->print('<option value="'.$1.'">'.$1.' - '.
	&Apache::loncommon::plainname(split(/\@/,$1)).'</option>');
}	}
}	}
}	}
Line 223 sub dumpcourse {	Line 225 sub dumpcourse {
$title=$_;	$title=$_;
}	}
$title=~s/\.(\w+)$//;	$title=~s/\.(\w+)$//;
$title=~s/\W+/\_/gs;	$title=~s/[^\w\/]+/\_/gs;
$title.='.'.$ext;	$title.='.'.$ext;
$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");	$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
}	}
Line 493 sub editor {	Line 495 sub editor {
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));
$idx++;	$idx++;
}	}
	unless ($idx) {
	$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
	}
$r->print('</table>');	$r->print('</table>');
}	}
}	}
Line 1023 sub handler {	Line 1028 sub handler {
'Adding_External_Resource','Navigate_Content',	'Adding_External_Resource','Navigate_Content',
'Adding_Folders','Docs_Overview', 'Load_Map',	'Adding_Folders','Docs_Overview', 'Load_Map',
'Supplemental', 'Score_Upload_Form',	'Supplemental', 'Score_Upload_Form',
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {	'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
	'Check_Resource_Versions','Verify_Content') {
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);	$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
}	}
# Composite help files	# Composite help files
Line 1276 ENDNEWSCRIPT	Line 1282 ENDNEWSCRIPT
<form action="/adm/coursedocs" method="post" name="courseverify">	<form action="/adm/coursedocs" method="post" name="courseverify">
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">	<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">
<tr><td bgcolor="#DDDDCC">	<tr><td bgcolor="#DDDDCC">
<input type="submit" name="verify" value="$lt{'vc'}" />	<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}
</td><td bgcolor="#DDDDCC">	</td><td bgcolor="#DDDDCC">
<input type="submit" name="versions" value="$lt{'cv'}" />	<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}
$dumpbut	$dumpbut
</td></tr></table>	</td></tr></table>
</form>	</form>

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

Removed from v.1.129
changed lines
	Added in v.1.133