[system] / trunk / webwork-modperl / bin / hash2sql Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/bin/hash2sql

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

Revision 922 Revision 1222
1#!/usr/bin/env perl 1#!/usr/bin/env perl
2 2
3################################################################################ 3################################################################################
4# WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester 4# WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester
5# $Id: hash2sql,v 1.1 2003-05-28 01:18:11 sh002i Exp $ 5# $Id: hash2sql,v 1.2 2003-06-19 19:23:50 sh002i Exp $
6################################################################################ 6################################################################################
7 7
8=head1 NAME 8=head1 NAME
9 9
10hash2sql - copies data from a course using a hash-based database (without global tables) 10hash2sql - copies data from a course using a hash-based database (without global tables)
… …
29 29
30 unless ($hashCourse and $sqlCourse) { 30 unless ($hashCourse and $sqlCourse) {
31 die "usage: $0 hashCourse sqlCourse\n"; 31 die "usage: $0 hashCourse sqlCourse\n";
32 } 32 }
33 33
34 my $hashCE = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", $hashCourse); 34 my $hashCE = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", "", $hashCourse);
35 my $hashDB = WeBWorK::DB->new($hashCE); 35 my $hashDB = WeBWorK::DB->new($hashCE);
36 36
37 my $sqlCE = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", $sqlCourse); 37 my $sqlCE = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", "", $sqlCourse);
38 my $sqlDB = WeBWorK::DB->new($sqlCE); 38 my $sqlDB = WeBWorK::DB->new($sqlCE);
39 39
40 # get names of global record classes 40 # get names of global record classes
41 my $globalSetClass = $sqlCE->{dbLayout}->{set}->{record}; 41 my $globalSetClass = $sqlCE->{dbLayout}->{set}->{record};
42 my $globalProblemClass = $sqlCE->{dbLayout}->{problem}->{record}; 42 my $globalProblemClass = $sqlCE->{dbLayout}->{problem}->{record};
Legend:
Removed from v.922  
changed lines
  Added in v.1222
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9