#!/usr/bin/perl # Copyright 2001-2024 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. # Metaedit.pl - edit meta table for formtype, default values. my %lex = ('Main' => 'Main', 'Eoy' => 'Eoy', 'Save' => 'Save', 'Metadata' => 'Metadata', 'Edit' => 'Edit', 'Field Id' => 'Field Id', 'Field Name' => 'Field Name', 'Defaults' => 'Defaults', 'Form Type' => 'Form Type', 'View Size' => 'View Size', 'Reqd' => 'Reqd', 'Record(s) Updated' => 'Record(s) updated', 'Select' => 'Select', 'Error' => 'Error', 'Table' => 'Table', 'Include Description' => 'Include Description', 'Description' => 'Description', ); $self = 'metaedit.pl'; $notes = 'The Defaults for Select Form Entry: Separate items with a space (First Second),
Join multiword entries with underscore character (which will be stripped)(First_One Second_One),
Items with leading tilde (~Choose_One~) will be ignored during student entry.
Textarea Boxes: put rows and cols in the viewsize field separated with an x (ie. 6x80)'; 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:mysql:$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = "$lex{Edit} $lex{Metadata}"; print qq{$doctype\n$title \n}; print qq{[ $lex{Main} |\n}; print qq{ $lex{Eoy} ]\n}; if ( not $arr{tableid} ) { # load and display table choices. showStartPage(); } if ( $arr{flag} ) { # write the updates updateTable(); } # Select table rows to update my $sth = $dbh->prepare("select id, fieldid, datatype, arrayidx, fieldname, defaultvalue, formtype,viewsize, required, description from meta where tableid = ? order by arrayidx"); $sth->execute( $arr{tableid} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} # section header print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{

ucfirst($arr{tableid}) $lex{Table}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; while ( my ( $id, $fieldid, $datatype, $arrayidx, $fieldname, $default, $formtype, $viewsize, $required, $description ) = $sth->fetchrow){ print qq{\n}; print qq{\n}; if ( length( $default ) > 45 ) { print qq{\n}; } else { print qq{\n}; } # Select Input Options print qq{\n}; # View Size print qq{\n}; # Required my $checked; if ( $required ) { $checked= q{checked="checked"}; } print qq{\n\n}; # Include Description if ( $arr{'incldesc'} ) { print qq{\n}; } } print qq{
$notes
$lex{'Field Id'}$lex{'Field Name'}$lex{Defaults}$lex{'Form Type'}$lex{'View Size'}$lex{'Reqd'}
$fieldid [$datatype/$arrayidx]}; print qq{
$lex{Description} }; print qq{}; print qq{
\n}; print qq{
}; #---------------- sub showStartPage { # show tables, etc. to choose from #---------------- # Get the table choices my $sth = $dbh->prepare("select distinct tableid from meta order by tableid"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

$lex{Select} $lex{Table}

\n}; print qq{
\n}; while ( my $tableid = $sth->fetchrow ){ print qq{
\n}; print qq{ $tableid
}; } print qq{
\n}; print qq{
}; print $lex{'Include Description'}; print qq{
\n
\n}; exit; } #-------------- sub updateTable { # write updates to meta table. #-------------- delete $arr{flag}; # no longer required. delete $arr{tableid}; # not required. foreach my $key ( keys %arr ) { my ( $id, $field ) = split(/:/,$key); my $value = $arr{$key}; #print qq{K: $key ID: $id FIELD: $field VAL: $arr{$key}
\n}; # Update the field $sth = $dbh->prepare("update meta set $field = ? where id = ?"); $sth->execute( $value, $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } # Check for Required Field deselected (since nothing sent when done). if ( $field eq 'fieldname' ) { my $testkey = "$id:required"; if ( not $arr{ $testkey } ) { $sth = $dbh->prepare("update meta set required = '' where id = ?"); $sth->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } } } print qq{

$lex{'Record(s) Updated'}

\n}; print qq{[ $lex{Edit} $lex{Metadata} ]}; print qq{\n}; exit; } # End of Update Table