[system] / branches / rel-2-0-patches / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / SetMaker.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-0-patches/webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm

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

Revision 2001 Revision 2002
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: 4# $CVSHeader: $
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.
… …
505 my $sect = $r->param('library_sections') || ""; 505 my $sect = $r->param('library_sections') || "";
506 $sect = "" if($sect eq "All Sections"); 506 $sect = "" if($sect eq "All Sections");
507 my @dbsearch = WeBWorK::Utils::ListingDB::getSectionListings($r->{ce}, "$chap", "$sect"); 507 my @dbsearch = WeBWorK::Utils::ListingDB::getSectionListings($r->{ce}, "$chap", "$sect");
508 my ($result, $tolibpath); 508 my ($result, $tolibpath);
509 for $result (@dbsearch) { 509 for $result (@dbsearch) {
510 $tolibpath = "$result->{path}/$result->{filename}"; 510 $tolibpath = "Library/$result->{path}/$result->{filename}";
511 $tolibpath =~ s|^/ud/jj/src/Database/Libs|Library|;
512 511
513 ## Too clunky!!!! 512 ## Too clunky!!!!
514 push @pg_files, $tolibpath; 513 push @pg_files, $tolibpath;
515 } 514 }
516 $use_previous_problems=0; 515 $use_previous_problems=0;
Legend:
Removed from v.2001  
changed lines
  Added in v.2002
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9