loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2003/09/09 19:39:04	version 1.78, 2003/09/15 15:24:18
Line 162 sub dumpcourse {	Line 162 sub dumpcourse {
$title=~s/\W//gs;	$title=~s/\W//gs;
$r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');	$r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
&tiehash();	&tiehash();
	$r->print('<h3>Filenames in Construction Space</h3><table border="2"><tr><th>Internal Filename</th><th>Title</th><th>Save as ...</th></tr>');
foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {	foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
$r->print("\n<br />".$_.' '.	$r->print('<tr><td>'.$_.'</td>');
$hash{'title_'.$hash{	my ($ext)=($_=~/\.(\w+)$/);
'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}}	my $title=$hash{'title_'.$hash{
);	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};
	$r->print('<td>'.($title?$title:' ').'</td>');
	unless ($title) {
	$title=$_;
	}
	$title=~s/\.(\w+)$//;
	$title=~s/\W+/\_/gs;
	$title.='.'.$ext;
	$r->print("\n<td><input type='text' size='60' name='".$_."' value='".$title."' /></td></tr>\n");
}	}
	$r->print("</table>\n");
&untiehash();	&untiehash();
$r->print(	$r->print(
'<input type="submit" name="dumpcourse" value="Dump Course DOCS" /></form>');	'<p><input type="submit" name="dumpcourse" value="Dump Course DOCS" /></p></form>');
}	}
}	}