version 1.25, 2003/12/30 20:47:23
|
version 1.32, 2005/06/08 21:13:05
|
Line 39 use Apache::Constants qw(:common);
|
Line 39 use Apache::Constants qw(:common);
|
use GDBM_File; |
use GDBM_File; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
my %hash; # variable to tie to user specific database |
my %hash; # variable to tie to user specific database |
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
Line 68 sub handler {
|
Line 69 sub handler {
|
|
|
# finish_import looks different for graphical or "simple" RAT |
# finish_import looks different for graphical or "simple" RAT |
my $finishimport=''; |
my $finishimport=''; |
if ($ENV{'form.mode'} eq 'simple' || $ENV{'form.mode'} eq '') { |
if ($env{'form.mode'} eq 'simple' || $env{'form.mode'} eq '') { |
$finishimport=(<<ENDSMP); |
$finishimport=(<<ENDSMP); |
function finish_import() { |
function finish_import() { |
opener.document.forms.simpleedit.importdetail.value=''; |
opener.document.forms.simpleedit.importdetail.value=''; |
Line 104 ENDADV
|
Line 105 ENDADV
|
} |
} |
|
|
# output start of web page |
# output start of web page |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network With CAPA Group Sorter</title> |
<title>The LearningOnline Network With CAPA Group Sorter</title> |
<script language='javascript'> |
<script language='javascript'> |
Line 115 function insertRowInLastRow() {
|
Line 116 function insertRowInLastRow() {
|
opener.addobj(opener.maxrow,'e&2'); |
opener.addobj(opener.maxrow,'e&2'); |
} |
} |
function placeResourceInLastRow (title,url,linkflag) { |
function placeResourceInLastRow (title,url,linkflag) { |
opener.newresource(opener.maxrow,2,opener.escape(title), |
opener.mostrecent=opener.newresource(opener.maxrow,2,opener.escape(title), |
opener.escape(url),'false','normal'); |
opener.escape(url),'false','normal'); |
opener.save(); |
opener.save(); |
opener.mostrecent=opener.obj.length-1; |
|
if (linkflag) { |
if (linkflag) { |
opener.joinres(opener.linkmode,opener.mostrecent,0); |
opener.joinres(opener.linkmode,opener.mostrecent,0); |
} |
} |
Line 149 END
|
Line 149 END
|
|
|
my $diropendb; |
my $diropendb; |
# ------------------------------ which file do we open? Easy if explictly given |
# ------------------------------ which file do we open? Easy if explictly given |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($env{'form.catalogmode'} eq 'groupsearch') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_searchcat.db"; |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($env{'form.catalogmode'} eq 'groupimport') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_indexer.db"; |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupsec') { |
elsif ($env{'form.catalogmode'} eq 'groupsec') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_groupsec.db"; |
} |
} |
# --------------------- not explicitly given, choose the one most recently used |
# --------------------- not explicitly given, choose the one most recently used |
else { # choose last accessed |
else { # choose last accessed |
Line 167 END
|
Line 167 END
|
my @dbst; |
my @dbst; |
|
|
$dbfn[0] = |
$dbfn[0] = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_searchcat.db"; |
$dbst[0]=-1; |
$dbst[0]=-1; |
if (-e $dbfn[0]) { |
if (-e $dbfn[0]) { |
$dbst[0]=(stat($dbfn[0]))[9]; |
$dbst[0]=(stat($dbfn[0]))[9]; |
} |
} |
$dbfn[1] = |
$dbfn[1] = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_indexer.db"; |
$dbst[1]=-1; |
$dbst[1]=-1; |
if (-e $dbfn[1]) { |
if (-e $dbfn[1]) { |
$dbst[1]=(stat($dbfn[1]))[9]; |
$dbst[1]=(stat($dbfn[1]))[9]; |
} |
} |
$dbfn[2] = |
$dbfn[2] = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_groupsec.db"; |
$dbst[2]=-1; |
$dbst[2]=-1; |
if (-e $dbfn[2]) { |
if (-e $dbfn[2]) { |
$dbst[2]=(stat($dbfn[2]))[9]; |
$dbst[2]=(stat($dbfn[2]))[9]; |
Line 201 END
|
Line 201 END
|
} |
} |
# ----------------------------- diropendb is now the filename of the db to open |
# ----------------------------- diropendb is now the filename of the db to open |
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'}; |
my @Acts = split(/b/,$acts); |
my @Acts = split(/b/,$acts); |
my %ahash; |
my %ahash; |
my %achash; |
my %achash; |
Line 234 END
|
Line 234 END
|
my $key = $_; |
my $key = $_; |
$key =~ s/^store_//; |
$key =~ s/^store_//; |
$shash{$key} = $hash{'storectr_'.$key}; |
$shash{$key} = $hash{'storectr_'.$key}; |
$thash{$key} = $hash{'store_'.$key}; |
if (&Apache::lonnet::gettitle($key) eq '') { |
|
$thash{$key} = $hash{'store_'.$key}; |
|
} else { |
|
$thash{$key} = &Apache::lonnet::gettitle($key); |
|
} |
} |
} |
} |
} |
if ($ENV{'form.oldval'}) { |
if ($env{'form.oldval'}) { |
my $newctr = 0; |
my $newctr = 0; |
my %chash; |
my %chash; |
foreach (sort {$shash{$a} <=> $shash{$b}} (keys %shash)) { |
foreach (sort {$shash{$a} <=> $shash{$b}} (keys %shash)) { |
Line 247 END
|
Line 251 END
|
$hash{'storectr_'.$key} = $newctr; |
$hash{'storectr_'.$key} = $newctr; |
$chash{$newctr} = $key; |
$chash{$newctr} = $key; |
} |
} |
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) { |
# when newval==0, then push down and delete |
# when newval==0, then push down and delete |
if ($newval!=0) { |
if ($newval!=0) { |
Line 309 END
|
Line 313 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="" /> |
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
<input type="hidden" name="mode" value="$env{'form.mode'}" /> |
END |
END |
|
|
# --- Expand here if "GO BACK" button desired |
# --- Expand here if "GO BACK" button desired |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'groupimport') { |
|
my $resurl = &Apache::loncommon::lastresurl(); |
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="alter" value="$lt{'gb'}" |
<input type="button" name="alter" value="$lt{'gb'}" |
onClick="window.location='/res/?catalogmode=groupimport'" /> |
onClick="window.location='$resurl?catalogmode=groupimport'" /> |
END |
END |
} |
} |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($env{'form.catalogmode'} eq 'groupsearch') { |
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="alter" value="$lt{'ns'}" |
<input type="button" name="alter" value="$lt{'ns'}" |
onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" /> |
onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" /> |
Line 345 END
|
Line 350 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="" /> |
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
<input type="hidden" name="mode" value="$env{'form.mode'}" /> |
END |
END |
} |
} |
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
Line 361 END
|
Line 366 END
|
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print(&select_box($clen,$ctr)); |
$r->print(&select_box($clen,$ctr)); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("<img src='$iconpath$iconname'>"); |
$r->print("<img src='$iconname' />"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n"); |
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n"); |
$r->print("$key</td></tr>\n"); |
$r->print("$key</td></tr>\n"); |