[system] / branches / rel-2-4-dev / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / SetMaker.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-4-dev/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm

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

Revision 3582 Revision 3583
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/ContentGenerator/Instructor/SetMaker.pm,v 1.52 2005/08/13 21:35:56 jj Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.53 2005/08/22 02:40:26 jj 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.
… …
68my %problib; ## filled in in global.conf 68my %problib; ## filled in in global.conf
69my %ignoredir = ( 69my %ignoredir = (
70 '.' => 1, '..' => 1, 'Library' => 1, 70 '.' => 1, '..' => 1, 'Library' => 1,
71 'headers' => 1, 'macros' => 1, 'email' => 1, 71 'headers' => 1, 'macros' => 1, 'email' => 1,
72); 72);
73
74sub prepare_activity_entry {
75 my $self=shift;
76 my $r = $self->r;
77 my $user = $self->r->param('user') || 'NO_USER';
78 return("In SetMaker as user $user");
79}
73 80
74## This is for searching the disk for directories containing pg files. 81## This is for searching the disk for directories containing pg files.
75## to make the recursion work, this returns an array where the first 82## to make the recursion work, this returns an array where the first
76## item is the number of pg files in the directory. The second is a 83## item is the number of pg files in the directory. The second is a
77## list of directories which contain pg files. 84## list of directories which contain pg files.
Legend:
Removed from v.3582  
changed lines
  Added in v.3583
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9