version 1.2, 2001/08/13 14:50:53
|
version 1.3, 2001/10/16 17:07:25
|
Line 5
|
Line 5
|
# Allows for sorting prior to import into RAT. |
# Allows for sorting prior to import into RAT. |
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 8/7,8/8 Scott Harrison |
# 8/7,8/8,10/14,10/15 Scott Harrison |
|
|
package Apache::groupsort; |
package Apache::groupsort; |
|
|
Line 68 function finish_import() {
|
Line 68 function finish_import() {
|
self.close(); |
self.close(); |
} |
} |
function selectchange(val) { |
function selectchange(val) { |
var newval=1+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
var newval=0+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
orderchange(val,newval); |
orderchange(val,newval); |
} |
} |
function move(val,newval) { |
function move(val,newval) { |
Line 87 END
|
Line 87 END
|
# read pertinent machine configuration |
# read pertinent machine configuration |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
my $diropendb = |
|
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
|
|
my %shash; # sort order (key is resource location, value is sort order) |
my %shash; # sort order (key is resource location, value is sort order) |
my %thash; # title (key is resource location, value is title) |
my %thash; # title (key is resource location, value is title) |
Line 98 END
|
Line 99 END
|
if ($name eq 'acts') { |
if ($name eq 'acts') { |
$ENV{'form.'.$name}=$value; |
$ENV{'form.'.$name}=$value; |
} |
} |
|
if ($name eq 'catalogmode') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
} (split(/&/,$ENV{'QUERY_STRING'})); |
} (split(/&/,$ENV{'QUERY_STRING'})); |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
my $acts = $ENV{'form.acts'}; |
my $acts = $ENV{'form.acts'}; |
Line 114 END
|
Line 118 END
|
map { |
map { |
my $key = $_; |
my $key = $_; |
if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
|
# my $keyz=join("<br />",keys %hash); |
|
# print "<br />$key<br />$keyz".$hash{'pre_'.$key.'_link'}."<br />\n"; |
$hash{'store_'.$hash{'pre_'.$key.'_link'}} = |
$hash{'store_'.$hash{'pre_'.$key.'_link'}} = |
$hash{'pre_'.$key.'_title'}; |
$hash{'pre_'.$key.'_title'}; |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} = |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} = |
Line 147 END
|
Line 153 END
|
my $oldval = $ENV{'form.oldval'}; |
my $oldval = $ENV{'form.oldval'}; |
my $newval = $ENV{'form.newval'}; |
my $newval = $ENV{'form.newval'}; |
if ($oldval != $newval) { |
if ($oldval != $newval) { |
$shash{$chash{$oldval}} = $newval; |
# when newval==0, then push down and delete |
$hash{'storectr_'.$chash{$oldval}} = $newval; |
if ($newval!=0) { |
if ($oldval < $newval) { # push down |
$shash{$chash{$oldval}} = $newval; |
|
$hash{'storectr_'.$chash{$oldval}} = $newval; |
|
} |
|
else { |
|
$shash{$chash{$oldval}} = $newctr; |
|
$hash{'storectr_'.$chash{$oldval}} = $newctr; |
|
} |
|
if ($newval==0) { # push down |
|
my $newval2=$newctr; |
|
for my $idx ($oldval..($newval2-1)) { |
|
$shash{$chash{$idx+1}} = $idx; |
|
$hash{'storectr_'.$chash{$idx+1}} = $idx; |
|
} |
|
delete $shash{$chash{$oldval}}; |
|
delete $hash{'storectr_'.$chash{$oldval}}; |
|
delete $hash{'store_'.$chash{$oldval}}; |
|
} |
|
elsif ($oldval < $newval) { # push down |
for my $idx ($oldval..($newval-1)) { |
for my $idx ($oldval..($newval-1)) { |
$shash{$chash{$idx+1}} = $idx; |
$shash{$chash{$idx+1}} = $idx; |
$hash{'storectr_'.$chash{$idx+1}} = $idx; |
$hash{'storectr_'.$chash{$idx+1}} = $idx; |
Line 180 END
|
Line 203 END
|
<input type="hidden" name="fnum" value="$clen" /> |
<input type="hidden" name="fnum" value="$clen" /> |
<input type="hidden" name="oldval" value="" /> |
<input type="hidden" name="oldval" value="" /> |
<input type="hidden" name="newval" value="" /> |
<input type="hidden" name="newval" value="" /> |
|
END |
|
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$r->print(<<END); |
<input type="button" name="alter" value="GO BACK" |
<input type="button" name="alter" value="GO BACK" |
onClick="window.location='/res/?catalogmode=groupimport'" /> |
onClick="window.location='/res/?catalogmode=groupimport'" /> |
|
END |
|
} |
|
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
|
$r->print(<<END); |
|
<input type="button" name="alter" value="GO BACK" |
|
onClick="window.location='/adm/searchcat?catalogmode=groupsearch'" /> |
|
END |
|
} |
|
$r->print(<<END); |
<input type="button" name="alter" value="FINISH IMPORT" |
<input type="button" name="alter" value="FINISH IMPORT" |
onClick="finish_import()" /> |
onClick="finish_import()" /> |
<input type="button" name="alter" value="CANCEL" onClick="self.close()" /> |
<input type="button" name="alter" value="CANCEL" onClick="self.close()" /> |
Line 251 sub select_box {
|
Line 286 sub select_box {
|
my $string; |
my $string; |
$string = '<select name="alt'.$sel.'"'; |
$string = '<select name="alt'.$sel.'"'; |
$string .= " onChange='selectchange($sel)'>"; |
$string .= " onChange='selectchange($sel)'>"; |
|
$string .= "<option name='o0' value='0'>remove</option>"; |
for my $cur (1..$total) { |
for my $cur (1..$total) { |
$string .= "<option name='o$cur' value='$cur'"; |
$string .= "<option name='o$cur' value='$cur'"; |
if ($cur == $sel) { |
if ($cur == $sel) { |