[BACK]Return to groupsort.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / groupsort.pm
Revision 1.1: download - view: text, annotated - select for diffs
Wed Aug 8 03:00:54 2001 UTC (22 years, 9 months ago) by harris41
Branches: MAIN
CVS tags: HEAD
phase two of importing a group of resources.. allows for
reordering

# The LearningOnline Network with CAPA
#
# The LON-CAPA group sort handler
#
# Allows for sorting prior to import into RAT.
#
# YEAR=2001
# 8/7 Scott Harrison

package Apache::groupsort;

use strict;

use Apache::Constants qw(:common);
use GDBM_File;

my %hash;
my $iconpath;
sub handler {
    my $r = shift;
    my $fileclr='#ffffe6';
    my $titleclr='#ddffff';
    $r->content_type('text/html');
    $r->send_http_header;
    return OK if $r->header_only;
    $r->print(<<END);
<html>
<head>
<title>The LearningOnline Network With CAPA Group Sorter</title>
<script language='javascript'>
function insertRowInLastRow() {
    opener.insertrow(opener.maxrow);
    opener.addobj(opener.maxrow,'e&2');
}
function placeResourceInLastRow (title,url,linkflag) {
    opener.newresource(opener.maxrow,2,opener.escape(title),opener.escape(url),'false','normal');
    opener.save();
    opener.mostrecent=opener.obj.length-1;
    if (linkflag) {
	opener.joinres(opener.linkmode,opener.mostrecent,0);
    }
    opener.linkmode=opener.mostrecent;
}
function finish_import() {
    var linkflag=false;
    for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
//	if (eval("document.forms.groupsort.filelink"+num+".value")) {
//	    alert(eval("document.forms.groupsort.title"+num+".value")+
//		       eval("document.forms.groupsort.filelink"+num+".value"));
	    insertRowInLastRow();
	    placeResourceInLastRow(
		   eval("document.forms.groupsort.title"+num+".value"),
		   eval("document.forms.groupsort.filelink"+num+".value"),
				   linkflag
				   );
            linkflag=true;
//	}
    }
    opener.editmode=0;
    opener.notclear=0;
    opener.linkmode=0;
    opener.infoclear();
    opener.draw();
//    self.close();
}
function selectchange(val) {
    var newval=1+eval("document.forms.groupsort.alt"+val+".selectedIndex");
    orderchange(val,newval);
}
function move(val,newval) {
    orderchange(val,newval);
}
function orderchange(val,newval) {
    document.forms.groupsort.oldval.value=val;
    document.forms.groupsort.newval.value=newval;
    document.forms.groupsort.submit();
}
</script>
</head>
<body bgcolor="#FFFFFF">
END
    my $domain  = $r->dir_config('lonDefDomain');
    $iconpath= $r->dir_config('lonIconsURL') . "/";
    my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
    my %shash;
    my %thash;
    map {
       my ($name, $value) = split(/=/,$_);
       $value =~ tr/+/ /;
       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
       if ($name eq 'acts') {
           $ENV{'form.'.$name}=$value;
       }
    } (split(/&/,$ENV{'QUERY_STRING'}));
    if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
	my $acts=$ENV{'form.acts'};
	my @Acts=split(/b/,$acts);
	my %ahash;
	my %achash;
	my $ac=0;
	map {
	    my ($state,$ref)=split(/a/);
	    $ahash{$ref}=$state;
	    $achash{$ref}=$ac;
	    $ac++;
	} (@Acts);
	map {
	    my $key=$_;
	    if ($ahash{$key} eq '1') {
#		    $r->print("<b>NEW: ");
#		    $r->print($hash{'pre_'.$key.'_title'});
#		    $r->print(" : ");
#		    $r->print($hash{'pre_'.$key.'_link'});
#		    $r->print("</b><br />");
		$hash{'store_'.$hash{'pre_'.$key.'_link'}}=
		    $hash{'pre_'.$key.'_title'};
		$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=
		    $hash{'storectr'}+0;
		$hash{'storectr'}++;
	    }
	    if ($ahash{$key} eq '0') {
		if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) {
		    delete $hash{'store_'.$hash{'pre_'.$key.'_link'}};
		}
	    }
	} sort {$achash{$a}<=>$achash{$b}} (keys %ahash);
	map {
	    if ($_ =~ /^store_/) {
		my $key=$_;
		$key=~s/^store_//;
#		$r->print("<b>STORE: ");
#		$r->print($hash{'storectr_'.$key});
#		$r->print(':');
#		$r->print($hash{'store_'.$key});
#		$r->print(':');
#		$r->print($key);
		$shash{$key}=$hash{'storectr_'.$key};
		$thash{$key}=$hash{'store_'.$key};
#		$r->print("</b><br />");
	    }
	} keys %hash;	
	if ($ENV{'form.oldval'}) {
#	    $r->print('TEST TEST');
	    my $newctr=0;
	    my %chash;
	    map {
		my $key=$_;
		$newctr++;
		$shash{$key}=$newctr;
		$hash{'storectr_'.$key}=$newctr;
		$chash{$newctr}=$key;
	    } sort {$shash{$a}<=>$shash{$b}} (keys %shash);
	    my $oldval=$ENV{'form.oldval'};
	    my $newval=$ENV{'form.newval'};
	    if ($oldval!=$newval) {
		$shash{$chash{$oldval}}=$newval;
		$hash{'storectr_'.$chash{$oldval}}=$newval;
		if ($oldval<$newval) { # push down
		    for my $idx ($oldval..($newval-1)) {
			$shash{$chash{$idx+1}}=$idx;
			$hash{'storectr_'.$chash{$idx+1}}=$idx;
		    }
		}
		elsif ($oldval>$newval) { # push up
		    for my $idx (reverse($newval..($oldval-1))) {
			$shash{$chash{$idx}}=$idx+1;
			$hash{'storectr_'.$chash{$idx}}=$idx+1;
		    }
		}
	    }
	}
    } else {
	$r->print('<html><head></head><body>Unable to tie hash to db file</body></html>');
	return OK;
    }
    untie %hash;
#    $r->print($ENV{'form.acts'});
    my $ctr=0;
    my $clen=scalar(keys %shash);
    $r->print('<h2><font color="#888888">The LearningOnline With CAPA Group Sorter</font></h2>'."\n");
    $r->print('<b><font color="#888888">Finalize order of resources</font></b>'."\n");
    $r->print("<form method='post' action='/adm/groupsort' name='groupsort' enctype='application/x-www-form-urlencoded'>");
    $r->print(<<END);
<input type="hidden" name="fnum" value="$clen" />
<input type="hidden" name="oldval" value="" />
<input type="hidden" name="newval" value="" />
<input type="button" name="alter" value="GO BACK" onClick="window.location='/res/?catalogmode=groupimport'" />&nbsp;
<input type="button" name="alter" value="FINISH IMPORT" onClick="finish_import()" />&nbsp;
<input type="button" name="alter" value="CANCEL" onClick="self.close()" />
END
    $r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");
    $r->print("<table border=0><tr>\n");
    $r->print("<td colspan='2' bgcolor='$titleclr'><b>Change order</b></td>\n");
    $r->print("<td colspan='2' bgcolor='$titleclr'><b>Title</b></td>\n");
    $r->print("<td bgcolor='$titleclr'><b>Path</b></td></tr>\n");
    map {
	my $key=$_;
	$ctr++;
	my @file_ext = split(/\./,$key);
	my $curfext = $file_ext[scalar(@file_ext)-1];
	$r->print("<tr><td bgcolor='$fileclr'>");
	$r->print(&movers($clen,$ctr));
	$r->print(&hidden($ctr-1,$thash{$key},$key));
	$r->print("</td><td bgcolor='$fileclr'>");
	$r->print(&select_box($clen,$ctr));
	$r->print("</td><td bgcolor='$fileclr'>");
	$r->print("<img src='$iconpath$curfext.gif'>");
	$r->print("</td><td bgcolor='$fileclr'>");
	$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");
	$r->print("$key</td></tr>\n");
    } sort {$shash{$a}<=>$shash{$b}} (keys %shash);
    $r->print("</table></td></tr></table></form>");
    $r->print(<<END);
</body>
</html>
END
    return OK;
}

sub hidden {
    my ($sel,$title,$filelink)=@_;
    my $string='<input type="hidden" name="title'.$sel.'" value="'.$title.'" />';
    $string.='<input type="hidden" name="filelink'.$sel.'" value="'.$filelink.'" />';
    return $string;
}

sub movers {
    my ($total,$sel)=@_;
    my $dsel=$sel-1;
    my $usel=$sel+1;
    $usel=1 if $usel>$total;
    $dsel=$total if $dsel<1;
    my $string;
    $string=<<END;
<table border='0' cellspacing='0' cellpadding='0'>
<tr><td><a href='javascript:move($sel,$dsel)'><img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>
<tr><td><a href='javascript:move($sel,$usel)'><img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
</table>
END
    return $string;
}
1;
sub select_box {
    my ($total,$sel)=@_;
    my $string;
    $string='<select name="alt'.$sel.'"';
    $string.=" onChange='selectchange($sel)'>";
    for my $cur (1..$total) {
	$string.="<option name='o$cur' value='$cur'";
	if ($cur==$sel) {
	    $string.="selected";
	}
	$string.=">$cur</option>";
    }
    $string.="</select>\n";
    return $string;
}

1;

__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>