version 1.74, 2003/09/08 18:56:09
|
version 1.80, 2003/09/17 21:20:15
|
Line 124 sub dumpbutton {
|
Line 124 sub dumpbutton {
|
# -------------------------------------------------------- Actually dump course |
# -------------------------------------------------------- Actually dump course |
|
|
sub dumpcourse { |
sub dumpcourse { |
|
my $r=shift; |
|
$r->print('<html><head><title>Dump DOCS</title></head>'. |
|
&Apache::loncommon::bodytag('Dump Course DOCS to Construction Space'). |
|
'<form name="dumpdoc" method="post">'); |
my ($home,$other,%outhash)=&authorhosts(); |
my ($home,$other,%outhash)=&authorhosts(); |
unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } |
unless ($home) { return ''; } |
my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); |
my $origcrsid=$ENV{'request.course.id'}; |
|
my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid); |
|
if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) { |
|
# Do the dumping |
|
unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } |
|
my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); |
|
$r->print('<h3>Copying Files</h3>'); |
|
my $title=$ENV{'form.authorfolder'}; |
|
$title=~s/[^\w\/]+/\_/g; |
|
my %replacehash=(); |
|
foreach (keys %ENV) { |
|
if ($_=~/^form\.namefor\_(.+)/) { |
|
$replacehash{$1}=$ENV{$_}; |
|
} |
|
} |
|
my $crs='/uploaded/'.$ENV{'request.course.id'}.'/'; |
|
$crs=~s/\_/\//g; |
|
foreach (keys %replacehash) { |
|
my $newfilename=$title.'/'.$replacehash{$_}; |
|
$newfilename=~s/[^\w\/\.]+/\_/g; |
|
my @dirs=split(/\//,$newfilename); |
|
my $path='/home/'.$ca.'/public_html'; |
|
my $makepath=$path; |
|
my $fail=0; |
|
for (my $i=0;$i<$#dirs;$i++) { |
|
$makepath.='/'.$dirs[$i]; |
|
unless (-e $makepath) { |
|
unless(mkdir($makepath,0777)) { $fail=1; } |
|
} |
|
} |
|
$r->print('<br /><tt>'.$_.'</tt> => <tt>'.$newfilename.'</tt>: '); |
|
if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) { |
|
if ($_=~/\.(sequence|page|html|htm|xml|xhtml)$/) { |
|
print $fh &Apache::loncreatecourse::rewritefile( |
|
&Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_), |
|
(%replacehash,$crs => '') |
|
); |
|
} else { |
|
print $fh |
|
&Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_); |
|
} |
|
$fh->close(); |
|
} else { |
|
$fail=1; |
|
} |
|
if ($fail) { |
|
$r->print('<font color="red">fail</font>'); |
|
} else { |
|
$r->print('<font color="green">ok</font>'); |
|
} |
|
} |
|
} else { |
|
# Input form |
|
unless ($home==1) { |
|
$r->print( |
|
'<h3>Select the Construction Space</h3><select name="authorspace">'); |
|
} |
|
foreach (sort keys %outhash) { |
|
if ($_=~/^home_(.+)$/) { |
|
if ($home==1) { |
|
$r->print( |
|
'<input type="hidden" name="authorspace" value="'.$1.'" />'); |
|
} else { |
|
$r->print('<option value="'.$1.'">'.$_.'</option>'); |
|
} |
|
} |
|
} |
|
unless ($home==1) { |
|
$r->print('</select>'); |
|
} |
|
my $title=$origcrsdata{'description'}; |
|
$title=~s/\s+/\_/gs; |
|
$title=~s/\W//gs; |
|
$r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />'); |
|
&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')) { |
|
$r->print('<tr><td>'.$_.'</td>'); |
|
my ($ext)=($_=~/\.(\w+)$/); |
|
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='namefor_".$_."' value='".$title."' /></td></tr>\n"); |
|
} |
|
$r->print("</table>\n"); |
|
&untiehash(); |
|
$r->print( |
|
'<p><input type="submit" name="dumpcourse" value="Dump Course DOCS" /></p></form>'); |
|
} |
} |
} |
|
|
|
|
# Imports the given (name, url) resources into the course |
# Imports the given (name, url) resources into the course |
# coursenum, coursedom, and folder must precede the list |
# coursenum, coursedom, and folder must precede the list |
sub group_import { |
sub group_import { |
Line 150 sub group_import {
|
Line 248 sub group_import {
|
join ':', ($name, $url, $ext, 'normal', 'res'); |
join ':', ($name, $url, $ext, 'normal', 'res'); |
} |
} |
} |
} |
&storemap($coursenum, $coursedom, $folder); |
&storemap($coursenum, $coursedom, $folder.'.sequence'); |
} |
} |
|
|
sub editor { |
sub editor { |
Line 440 sub checkonthis {
|
Line 538 sub checkonthis {
|
} |
} |
} |
} |
|
|
# ================================================================ Main Handler |
|
sub handler { |
|
my $r = shift; |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK if $r->header_only; |
|
|
|
# --------------------------------------------- Initialize help topics for this |
# |
foreach ('Adding_Course_Doc','Main_Course_Documents', |
# -------------------------------------------------------------- Verify Content |
'Adding_External_Resource','Navigate_Content', |
# |
'Adding_Folders','Docs_Overview', 'Load_Map', |
sub verifycontent { |
'Supplemental', 'Score_Upload_Form', |
my $r=shift; |
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') { |
|
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_); |
|
} |
|
# Composite help files |
|
$help{'Syllabus'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Syllabus,Docs_Editing_Templated_Pages'); |
|
$help{'Simple Page'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Simple_Page,Docs_Editing_Templated_Pages'); |
|
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); |
|
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages'); |
|
$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching'); |
|
|
|
if ($ENV{'form.verify'}) { |
|
|
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
my $loaderror=&Apache::lonnet::overloaderror($r); |
if ($loaderror) { return $loaderror; } |
if ($loaderror) { return $loaderror; } |
|
|
Line 484 sub handler {
|
Line 560 sub handler {
|
} |
} |
&untiehash(); |
&untiehash(); |
$r->print('<h1>Done.</h1>'); |
$r->print('<h1>Done.</h1>'); |
} elsif ($ENV{'form.versions'}) { |
} |
$r->print('<html><head><title>Check Versions</title></head>'. |
|
|
# -------------------------------------------------------------- Check Versions |
|
|
|
sub checkversions { |
|
my $r=shift; |
|
$r->print('<html><head><title>Check Versions</title></head>'. |
&Apache::loncommon::bodytag('Check Course Document Versions')); |
&Apache::loncommon::bodytag('Check Course Document Versions')); |
$hashtied=0; |
$hashtied=0; |
&tiehash(); |
&tiehash(); |
Line 518 sub handler {
|
Line 599 sub handler {
|
$seltext='since yesterday ('.localtime($starttime).')'; |
$seltext='since yesterday ('.localtime($starttime).')'; |
$daysel='selected'; |
$daysel='selected'; |
} |
} |
|
|
$r->print(<<ENDHEADERS); |
$r->print(<<ENDHEADERS); |
<form action="/adm/coursedocs" method="post"> |
<form action="/adm/coursedocs" method="post"> |
<select name="timerange"> |
<select name="timerange"> |
Line 576 ENDHEADERS
|
Line 657 ENDHEADERS
|
$r->print('<p>No content modifications yet.</p>'); |
$r->print('<p>No content modifications yet.</p>'); |
} |
} |
&untiehash(); |
&untiehash(); |
|
} |
|
|
|
# ================================================================ Main Handler |
|
sub handler { |
|
my $r = shift; |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK if $r->header_only; |
|
|
|
# --------------------------------------------- Initialize help topics for this |
|
foreach ('Adding_Course_Doc','Main_Course_Documents', |
|
'Adding_External_Resource','Navigate_Content', |
|
'Adding_Folders','Docs_Overview', 'Load_Map', |
|
'Supplemental', 'Score_Upload_Form', |
|
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') { |
|
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_); |
|
} |
|
# Composite help files |
|
$help{'Syllabus'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Syllabus,Docs_Editing_Templated_Pages'); |
|
$help{'Simple Page'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Simple_Page,Docs_Editing_Templated_Pages'); |
|
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); |
|
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic( |
|
'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages'); |
|
$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching'); |
|
|
|
if ($ENV{'form.verify'}) { |
|
&verifycontent($r); |
|
} elsif ($ENV{'form.versions'}) { |
|
&checkversions($r); |
|
} elsif ($ENV{'form.dumpcourse'}) { |
|
&dumpcourse($r); |
} else { |
} else { |
# is this a standard course? |
# is this a standard course? |
|
|
Line 596 ENDHEADERS
|
Line 711 ENDHEADERS
|
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); |
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); |
|
|
# does this user have privileges to post, etc? |
# does this user have privileges to post, etc? |
$allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); |
$allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'}); |
if ($allowed) { |
if ($allowed) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']); |
$script=&Apache::lonratedt::editscript('simple'); |
$script=&Apache::lonratedt::editscript('simple'); |