Annotation of loncom/interface/groupsort.pm, revision 1.1
1.1 ! harris41 1: # The LearningOnline Network with CAPA
! 2: #
! 3: # The LON-CAPA group sort handler
! 4: #
! 5: # Allows for sorting prior to import into RAT.
! 6: #
! 7: # YEAR=2001
! 8: # 8/7 Scott Harrison
! 9:
! 10: package Apache::groupsort;
! 11:
! 12: use strict;
! 13:
! 14: use Apache::Constants qw(:common);
! 15: use GDBM_File;
! 16:
! 17: my %hash;
! 18: my $iconpath;
! 19: sub handler {
! 20: my $r = shift;
! 21: my $fileclr='#ffffe6';
! 22: my $titleclr='#ddffff';
! 23: $r->content_type('text/html');
! 24: $r->send_http_header;
! 25: return OK if $r->header_only;
! 26: $r->print(<<END);
! 27: <html>
! 28: <head>
! 29: <title>The LearningOnline Network With CAPA Group Sorter</title>
! 30: <script language='javascript'>
! 31: function insertRowInLastRow() {
! 32: opener.insertrow(opener.maxrow);
! 33: opener.addobj(opener.maxrow,'e&2');
! 34: }
! 35: function placeResourceInLastRow (title,url,linkflag) {
! 36: opener.newresource(opener.maxrow,2,opener.escape(title),opener.escape(url),'false','normal');
! 37: opener.save();
! 38: opener.mostrecent=opener.obj.length-1;
! 39: if (linkflag) {
! 40: opener.joinres(opener.linkmode,opener.mostrecent,0);
! 41: }
! 42: opener.linkmode=opener.mostrecent;
! 43: }
! 44: function finish_import() {
! 45: var linkflag=false;
! 46: for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
! 47: // if (eval("document.forms.groupsort.filelink"+num+".value")) {
! 48: // alert(eval("document.forms.groupsort.title"+num+".value")+
! 49: // eval("document.forms.groupsort.filelink"+num+".value"));
! 50: insertRowInLastRow();
! 51: placeResourceInLastRow(
! 52: eval("document.forms.groupsort.title"+num+".value"),
! 53: eval("document.forms.groupsort.filelink"+num+".value"),
! 54: linkflag
! 55: );
! 56: linkflag=true;
! 57: // }
! 58: }
! 59: opener.editmode=0;
! 60: opener.notclear=0;
! 61: opener.linkmode=0;
! 62: opener.infoclear();
! 63: opener.draw();
! 64: // self.close();
! 65: }
! 66: function selectchange(val) {
! 67: var newval=1+eval("document.forms.groupsort.alt"+val+".selectedIndex");
! 68: orderchange(val,newval);
! 69: }
! 70: function move(val,newval) {
! 71: orderchange(val,newval);
! 72: }
! 73: function orderchange(val,newval) {
! 74: document.forms.groupsort.oldval.value=val;
! 75: document.forms.groupsort.newval.value=newval;
! 76: document.forms.groupsort.submit();
! 77: }
! 78: </script>
! 79: </head>
! 80: <body bgcolor="#FFFFFF">
! 81: END
! 82: my $domain = $r->dir_config('lonDefDomain');
! 83: $iconpath= $r->dir_config('lonIconsURL') . "/";
! 84: my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
! 85: my %shash;
! 86: my %thash;
! 87: map {
! 88: my ($name, $value) = split(/=/,$_);
! 89: $value =~ tr/+/ /;
! 90: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
! 91: if ($name eq 'acts') {
! 92: $ENV{'form.'.$name}=$value;
! 93: }
! 94: } (split(/&/,$ENV{'QUERY_STRING'}));
! 95: if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
! 96: my $acts=$ENV{'form.acts'};
! 97: my @Acts=split(/b/,$acts);
! 98: my %ahash;
! 99: my %achash;
! 100: my $ac=0;
! 101: map {
! 102: my ($state,$ref)=split(/a/);
! 103: $ahash{$ref}=$state;
! 104: $achash{$ref}=$ac;
! 105: $ac++;
! 106: } (@Acts);
! 107: map {
! 108: my $key=$_;
! 109: if ($ahash{$key} eq '1') {
! 110: # $r->print("<b>NEW: ");
! 111: # $r->print($hash{'pre_'.$key.'_title'});
! 112: # $r->print(" : ");
! 113: # $r->print($hash{'pre_'.$key.'_link'});
! 114: # $r->print("</b><br />");
! 115: $hash{'store_'.$hash{'pre_'.$key.'_link'}}=
! 116: $hash{'pre_'.$key.'_title'};
! 117: $hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=
! 118: $hash{'storectr'}+0;
! 119: $hash{'storectr'}++;
! 120: }
! 121: if ($ahash{$key} eq '0') {
! 122: if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) {
! 123: delete $hash{'store_'.$hash{'pre_'.$key.'_link'}};
! 124: }
! 125: }
! 126: } sort {$achash{$a}<=>$achash{$b}} (keys %ahash);
! 127: map {
! 128: if ($_ =~ /^store_/) {
! 129: my $key=$_;
! 130: $key=~s/^store_//;
! 131: # $r->print("<b>STORE: ");
! 132: # $r->print($hash{'storectr_'.$key});
! 133: # $r->print(':');
! 134: # $r->print($hash{'store_'.$key});
! 135: # $r->print(':');
! 136: # $r->print($key);
! 137: $shash{$key}=$hash{'storectr_'.$key};
! 138: $thash{$key}=$hash{'store_'.$key};
! 139: # $r->print("</b><br />");
! 140: }
! 141: } keys %hash;
! 142: if ($ENV{'form.oldval'}) {
! 143: # $r->print('TEST TEST');
! 144: my $newctr=0;
! 145: my %chash;
! 146: map {
! 147: my $key=$_;
! 148: $newctr++;
! 149: $shash{$key}=$newctr;
! 150: $hash{'storectr_'.$key}=$newctr;
! 151: $chash{$newctr}=$key;
! 152: } sort {$shash{$a}<=>$shash{$b}} (keys %shash);
! 153: my $oldval=$ENV{'form.oldval'};
! 154: my $newval=$ENV{'form.newval'};
! 155: if ($oldval!=$newval) {
! 156: $shash{$chash{$oldval}}=$newval;
! 157: $hash{'storectr_'.$chash{$oldval}}=$newval;
! 158: if ($oldval<$newval) { # push down
! 159: for my $idx ($oldval..($newval-1)) {
! 160: $shash{$chash{$idx+1}}=$idx;
! 161: $hash{'storectr_'.$chash{$idx+1}}=$idx;
! 162: }
! 163: }
! 164: elsif ($oldval>$newval) { # push up
! 165: for my $idx (reverse($newval..($oldval-1))) {
! 166: $shash{$chash{$idx}}=$idx+1;
! 167: $hash{'storectr_'.$chash{$idx}}=$idx+1;
! 168: }
! 169: }
! 170: }
! 171: }
! 172: } else {
! 173: $r->print('<html><head></head><body>Unable to tie hash to db file</body></html>');
! 174: return OK;
! 175: }
! 176: untie %hash;
! 177: # $r->print($ENV{'form.acts'});
! 178: my $ctr=0;
! 179: my $clen=scalar(keys %shash);
! 180: $r->print('<h2><font color="#888888">The LearningOnline With CAPA Group Sorter</font></h2>'."\n");
! 181: $r->print('<b><font color="#888888">Finalize order of resources</font></b>'."\n");
! 182: $r->print("<form method='post' action='/adm/groupsort' name='groupsort' enctype='application/x-www-form-urlencoded'>");
! 183: $r->print(<<END);
! 184: <input type="hidden" name="fnum" value="$clen" />
! 185: <input type="hidden" name="oldval" value="" />
! 186: <input type="hidden" name="newval" value="" />
! 187: <input type="button" name="alter" value="GO BACK" onClick="window.location='/res/?catalogmode=groupimport'" />
! 188: <input type="button" name="alter" value="FINISH IMPORT" onClick="finish_import()" />
! 189: <input type="button" name="alter" value="CANCEL" onClick="self.close()" />
! 190: END
! 191: $r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");
! 192: $r->print("<table border=0><tr>\n");
! 193: $r->print("<td colspan='2' bgcolor='$titleclr'><b>Change order</b></td>\n");
! 194: $r->print("<td colspan='2' bgcolor='$titleclr'><b>Title</b></td>\n");
! 195: $r->print("<td bgcolor='$titleclr'><b>Path</b></td></tr>\n");
! 196: map {
! 197: my $key=$_;
! 198: $ctr++;
! 199: my @file_ext = split(/\./,$key);
! 200: my $curfext = $file_ext[scalar(@file_ext)-1];
! 201: $r->print("<tr><td bgcolor='$fileclr'>");
! 202: $r->print(&movers($clen,$ctr));
! 203: $r->print(&hidden($ctr-1,$thash{$key},$key));
! 204: $r->print("</td><td bgcolor='$fileclr'>");
! 205: $r->print(&select_box($clen,$ctr));
! 206: $r->print("</td><td bgcolor='$fileclr'>");
! 207: $r->print("<img src='$iconpath$curfext.gif'>");
! 208: $r->print("</td><td bgcolor='$fileclr'>");
! 209: $r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");
! 210: $r->print("$key</td></tr>\n");
! 211: } sort {$shash{$a}<=>$shash{$b}} (keys %shash);
! 212: $r->print("</table></td></tr></table></form>");
! 213: $r->print(<<END);
! 214: </body>
! 215: </html>
! 216: END
! 217: return OK;
! 218: }
! 219:
! 220: sub hidden {
! 221: my ($sel,$title,$filelink)=@_;
! 222: my $string='<input type="hidden" name="title'.$sel.'" value="'.$title.'" />';
! 223: $string.='<input type="hidden" name="filelink'.$sel.'" value="'.$filelink.'" />';
! 224: return $string;
! 225: }
! 226:
! 227: sub movers {
! 228: my ($total,$sel)=@_;
! 229: my $dsel=$sel-1;
! 230: my $usel=$sel+1;
! 231: $usel=1 if $usel>$total;
! 232: $dsel=$total if $dsel<1;
! 233: my $string;
! 234: $string=<<END;
! 235: <table border='0' cellspacing='0' cellpadding='0'>
! 236: <tr><td><a href='javascript:move($sel,$dsel)'><img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>
! 237: <tr><td><a href='javascript:move($sel,$usel)'><img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
! 238: </table>
! 239: END
! 240: return $string;
! 241: }
! 242: 1;
! 243: sub select_box {
! 244: my ($total,$sel)=@_;
! 245: my $string;
! 246: $string='<select name="alt'.$sel.'"';
! 247: $string.=" onChange='selectchange($sel)'>";
! 248: for my $cur (1..$total) {
! 249: $string.="<option name='o$cur' value='$cur'";
! 250: if ($cur==$sel) {
! 251: $string.="selected";
! 252: }
! 253: $string.=">$cur</option>";
! 254: }
! 255: $string.="</select>\n";
! 256: return $string;
! 257: }
! 258:
! 259: 1;
! 260:
! 261: __END__
! 262:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to groupsort.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface