[LON-CAPA-cvs] cvs: modules /gerd neutrino.pl

[www]

www		Wed Mar 19 08:59:40 2008 EDT

  Modified files:              
    /modules/gerd	neutrino.pl 
  Log:
  No neutrino
  
  
Index: modules/gerd/neutrino.pl
diff -u modules/gerd/neutrino.pl:1.1 modules/gerd/neutrino.pl:1.2
--- modules/gerd/neutrino.pl:1.1	Tue Mar 18 09:17:46 2008
+++ modules/gerd/neutrino.pl	Wed Mar 19 08:59:38 2008
@@ -1,13 +1,13 @@
 use strict;
 use GDBM_File;
 my %hash;
-if (tie(%hash, 'GDBM_File', "/home/batchelo/sfu_4l16328ec8e4b4773sfulc.db", &GDBM_READER(), 0640)) {
-   foreach my $key (keys %hash) {
+if (tie(%hash, 'GDBM_File', "/home/batchelo/sfu_4m1454800a954473dsfua3.db", &GDBM_READER(), 0640)) {
+   foreach my $key (sort(keys %hash)) {
       my $printkey=&unescape($key);
-      my $printvalue=&unescape($hash{$key});
-      unless (($printkey=~/ionic\.simp\.bin\.hypo\.form\.XZ\.problem/) && 
+      my $printvalue=&unescape(&unescape($hash{$key}));
+      unless (($printkey=~/DerivativeByDefinition\.problem/) && 
               ($printkey=~/submission/)) { next; }
-      $printvalue=~s/\W/\*/gs;
+      $printvalue=~s/[^\w\+\-\*\(\)\/\,\^\= ]/\#/gs;
       print "$printkey:$printvalue:\n";
    }
 } else {