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

Diff of /branches/ghe3_dev/webwork2/lib/WeBWorK/Utils.pm

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

Revision 2824 Revision 2825
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: webwork2/lib/WeBWorK/Utils.pm,v 1.51 2004/09/13 17:42:53 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/Utils.pm,v 1.52 2004/09/14 22:10:14 sh002i 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.
… …
185 # everything looks good, time to recurse! 185 # everything looks good, time to recurse!
186 push @matches, listFilesRecursiveHelper($base_dir, $subdir, $match_qr, $prune_qr, $match_full, $prune_full); 186 push @matches, listFilesRecursiveHelper($base_dir, $subdir, $match_qr, $prune_qr, $match_full, $prune_full);
187 } elsif (-f $full_path or -p $full_path or -S $full_path) { 187 } elsif (-f $full_path or -p $full_path or -S $full_path) {
188 my $file = ($curr_dir eq "") ? $dir_entry : "$curr_dir/$dir_entry"; 188 my $file = ($curr_dir eq "") ? $dir_entry : "$curr_dir/$dir_entry";
189 my $match_string = $match_full ? $file : $dir_entry; 189 my $match_string = $match_full ? $file : $dir_entry;
190 if (not defined $match_string or $dir_entry =~ m/$match_qr/) { 190 if (not defined $match_string or $match_string =~ m/$match_qr/) {
191 push @matches, $file; 191 push @matches, $file;
192 } 192 }
193 } 193 }
194 } 194 }
195 195
Legend:
Removed from v.2824  
changed lines
  Added in v.2825
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9