#!/usr/bin/perl # Copyright 2001-2009 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. my %lex = ('View Phrase' => 'View Phrase', 'Main' => 'Main', 'Error' => 'Error', 'Phrase' => 'Phrase', 'Count' => 'Count', 'Click Button of Choice' => 'Click Button of Choice', 'Eoy' => 'Eoy', 'deleted' => 'deleted', 'Delete' => 'Delete', 'Summary View' => 'Summary View', 'Full View' => 'Full View', ); my $self = 'xlatPhraseView.pl'; my $maxrecwidth = 4; use DBI; use CGI; # Read config variables eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = new CGI; print $q->header( -charset, $charset); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # print top of Page print "$doctype\n". $lex{'View Phrase'}. " $chartype\n\n"; print "[ ". $lex{Main}. " |\n"; print "". $lex{Eoy}. " ]\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; if ( $arr{id} ) { deletePhrase( $arr{id} ); delete $arr{id}; } # Print Translation List print "

". $lex{'View Phrase'}. "

\n"; print "\n"; if ( not defined $arr{fullflag} ) { print $lex{'Click Button of Choice'}. "\n"; print "\n"; die; } my %phrases = (); my $sth = $dbh->prepare("select phrase from xlat_phrase order by phrase"); $sth->execute; if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr;} while ( my $phrase = $sth->fetchrow ) { if ( $phrases{$phrase} ) { $phrases{$phrase}++; } else { $phrases{$phrase} = 1; } } #print "

\n"; } #print "

\n"; print '\n"; my $sth1 = $dbh->prepare("select area, file, phrase from xlat_phrase where phrase = ?"); foreach my $phrase ( sort {lc $a cmp lc $b} keys %phrases ) { print ""; if ( $arr{fullflag} ){ $sth1->execute( $phrase ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} print "\n"; } else { print "\n"; } } print "
'. $lex{Phrase}. ''. $lex{Count}. "
"; my $pcount = $phrases{$phrase}; # Delete Button # print "
\n"; # print "\n"; # print "\n"; # print "
\n"; my $trphrase = $phrase; $trphrase =~ s//>/g; print "$trphrase		\n"; my $count = 1; while ( my ( $area, $file, $testphrase ) = $sth1->fetchrow ) { if ( $phrase eq $testphrase ) { print "$file ($area ) | \n"; if ( $count % 3 == 0 ) { print "
\n"; } $count++; } } print "
$pcount
\n"; #--------------- sub deletePhrase { #--------------- my $id = shift; my $sth = $dbh->prepare("select phrase from xlat_phrase where id = ?"); $sth->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $phrase = $sth->fetchrow; $phrase =~ s//>/g; my $sth = $dbh->prepare("delete from xlat_phrase where id = ?"); $sth->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr;} print "
". $lex{Phrase}; print " $phrase ". $lex{deleted}. "
\n"; }