/[suikacvs]/webroot/swe/lib/suikawiki/main.pl
Suika

Diff of /webroot/swe/lib/suikawiki/main.pl

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

revision 1.48 by wakaba, Mon Sep 21 09:10:40 2009 UTC revision 1.49 by wakaba, Mon Sep 21 09:30:37 2009 UTC
# Line 968  if ($path[0] eq 'n' and @path == 2) { Line 968  if ($path[0] eq 'n' and @path == 2) {
968                
969        require SWE::Object::Repository;        require SWE::Object::Repository;
970        my $repo = SWE::Object::Repository->new (db => $db);        my $repo = SWE::Object::Repository->new (db => $db);
971    
972          my $vc = $db->vc;
973                
974          $repo->weight_lock;
975          local $db->global_prop->{version_control} = $vc;
976        my $y = $repo->are_related_ids ($id1, $id2, $answer);        my $y = $repo->are_related_ids ($id1, $id2, $answer);
         
977        $repo->save_term_weight_vector;        $repo->save_term_weight_vector;
978          $vc->commit_changes ('term weight vector update');
979          $repo->weight_unlock;
980                
981        print "Content-Type: text/ping\n\n";        print "Content-Type: text/ping\n\n";
982        print "PING";        print "PING";
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24