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.78 and 1.79

-version 1.78, 2003/09/15 15:24:18
+version 1.79, 2003/09/15 17:58:21
  Line 136  sub dumpcourse {
  # 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) {
- Line 175  sub dumpcourse {
+ Line 218  sub dumpcourse {
  	    $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("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
  	}
  	$r->print("</table>\n");
  	&untiehash();

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

Removed from v.1.78
changed lines
	Added in v.1.79