[system] / trunk / webwork2 / lib / WeBWorK / Utils.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/Utils.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3610 Revision 3614
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/Utils.pm,v 1.68 2005/09/07 18:02:06 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/Utils.pm,v 1.69 2005/09/09 20:52:03 gage Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
257 while (@nodes>1) { # the last node is the file name 257 while (@nodes>1) { # the last node is the file name
258 $path = $path . shift (@nodes) . "/"; #convertPath($path . shift (@nodes) . "/"); 258 $path = $path . shift (@nodes) . "/"; #convertPath($path . shift (@nodes) . "/");
259 #FIXME this make directory command may not be fool proof. 259 #FIXME this make directory command may not be fool proof.
260 unless (-e $path) { 260 unless (-e $path) {
261 mkdir($path, $perms) 261 mkdir($path, $perms)
262 or warn "Failed to create directory $path"; 262 or warn "Failed to create directory $path with start directory $start_directory ";
263 } 263 }
264 264
265 } 265 }
266 266
267 $path = $path . shift(@nodes); #convertPath($path . shift(@nodes)); 267 $path = $path . shift(@nodes); #convertPath($path . shift(@nodes));
Legend:
Removed from v.3610  
changed lines
  Added in v.3614
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9