TIMESTAMP: 20250511074310
SITE: www.mbartists.com
SERVER: ip-10-0-16-174.ec2.internal
URL: /cgi-bin/iowa/artists.html

Input:
    art = 78
    enlarge = 754
    ya_enlarge = 1

ERRORS:
warning: 1, MESSAGE: GetRow attempt to read an undefined row (78) from (HKPORTFOLIO_ARTISTS)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 9
  tmpevalpackage::doEval @ line 21
  (eval) @ line 660
  Templates::HandleActiveContent @ line 643
  Templates::ParseBuffer @ line 626
  Templates::SendFile @ line 171
  Templates::handler @ line 0
  (eval) @ line 0
warning: 1, MESSAGE: GetRow attempt to read an undefined row (78) from (HKPORTFOLIO_ARTISTS)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 273
  tmpevalpackage::doEval @ line 503
  (eval) @ line 660
  Templates::HandleActiveContent @ line 643
  Templates::ParseBuffer @ line 626
  Templates::SendFile @ line 171
  Templates::handler @ line 0
  (eval) @ line 0
warning: 1, MESSAGE: GetRow attempt to read an undefined row (754) from (HKPORTFOLIO_YA)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 274
  tmpevalpackage::doEval @ line 503
  (eval) @ line 660
  Templates::HandleActiveContent @ line 643
  Templates::ParseBuffer @ line 626
  Templates::SendFile @ line 171
  Templates::handler @ line 0
  (eval) @ line 0
warning: 1, MESSAGE: GetRow attempt to read an undefined row (754) from (HKPORTFOLIO_YA)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 587
  Database::FetchRow @ line 1248
  Database::GetImageTagForGraphic @ line 301
  tmpevalpackage::doEval @ line 503
  (eval) @ line 660
  Templates::HandleActiveContent @ line 643
  Templates::ParseBuffer @ line 626
  Templates::SendFile @ line 171
  Templates::handler @ line 0
  (eval) @ line 0

my(@sel,$row,%data,@sub_sel,$sub_row); if($Templates::in{'artist'} && &Database::ExistsRow($Templates::in{'artist'},'HKPORTFOLIO_ARTISTS')) { &Database::FetchRow($Templates::in{'artist'},'HKPORTFOLIO_ARTISTS',\%data); print "\n"; print ""; my $name = "$data{'first_name'} $data{'last_name'}"; $name =~ /(\w)(\S.*)/; $name = "$1$2"; print ""; if($data{'ya_index_graphic'}) { print "\n"; } if($data{'lineart_index_graphic'}) { print "\n"; } # print "\n"; if($data{'index_graphic'}) { print "\n"; } print " $name \n"; print " \n"; if($data{'bio_picture'}) { print " "; print &Database::GetImageTagForGraphic('HKPORTFOLIO_ARTISTS','bio_picture',$Templates::in{'artist'},'border=0'); print " \n"; } if($data{'bio'}) { print "\n"; print &HKPortfolio::Schema::FormatText($data{'bio'}); my $artist_link = $Templates::in{'artist'}; my @more_links = &Database::SelectClause('HKPORTFOLIO_MORELINKS',"parent = 'HKPORTFOLIO_ARTISTS.$artist_link' sort numeric by sequence"); print " \n"; if($data{'workbook_code'} || @more_links || $data{'url'}) { print "See more of $data{'first_name'}'s art: "; if ($data{'url'}) { print "$data{'first_name'}'s personal website \n"; } if($data{'picturebook_code'}) { print "Picture Book's online portfolio "; } if(@more_links) { foreach(@more_links) { my ($more_row,%more_data); $more_row = $_; &Database::GetRow($more_row,'HKPORTFOLIO_MORELINKS',\%more_data); print ""; if($more_data{'text_for_link'}) { print "$more_data{'text_for_link'}"; } else { print "$more_data{'url'}"; } print " \n"; } } if ($data{'workbook_code'}) { print "Workbook's online portfolio"; } } } print " \n"; print " click on art for larger view "; @sub_sel = &Database::SelectClause('HKPORTFOLIO_PICS',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'artist'}' and show_on_bio = '1' sort numeric by 'sequence'"); if(@sub_sel) { my($text_click,$count,$total_count); my $the_sel = @sub_sel; foreach(@sub_sel) { $row = $_; my (%sub_data,$credit); &Database::GetRow($row,'HKPORTFOLIO_PICS',\%sub_data); print " "; my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_PICS','large_graphic',$row,\%sub_data); print " "; # print &Database::GetImageTagForGraphic('HKPORTFOLIO_PICS','graphic',$row,"border=0 alt=\"$credit\""); print " \n"; } } print " \n"; } elsif($Templates::in{'portfolio'} && &Database::ExistsRow($Templates::in{'portfolio'},'HKPORTFOLIO_ARTISTS')) { &Database::FetchRow($Templates::in{'portfolio'},'HKPORTFOLIO_ARTISTS',\%data); my @lineart_sel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'portfolio'}'"); print ""; my $name = "$data{'first_name'} $data{'last_name'}"; $name =~ /(\w)(\S.*)/; $name = "$1$2"; print "\n"; print "\n"; if($data{'ya_index_graphic'}) { print "\n"; } if($data{'lineart_index_graphic'}) { print "\n"; } #if($data{'index_graphic'}) { # print "\n"; #} print " $name"; # print " meet the artist \n"; print " "; # print " "; print " click on art for larger view "; @sel = &Database::SelectClause('HKPORTFOLIO_PICS',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'portfolio'}' and show_on_bio = '' sort numeric by 'sequence'"); if(@sel) { my($text_click,$count,$total_count); my $the_sel = @sel; print "\n"; foreach(@sel) { $row = $_; my (%sub_data,$credit); &Database::GetRow($row,'HKPORTFOLIO_PICS',\%sub_data); if($sub_data{'credit_line'} =~ /\w/) { $credit = $sub_data{'credit_line'}; } else { $credit = "$data{'first_name'} $data{'last_name'}"; } print " "; my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_PICS','large_graphic',$row,\%sub_data); print " "; # print &Database::GetImageTagForGraphic('HKPORTFOLIO_PICS','graphic',$row,"border=0 alt=\"$credit\""); print " \n"; } print " \n"; } my $artist_link = $Templates::in{'portfolio'}; my @more_links = &Database::SelectClause('HKPORTFOLIO_MORELINKS',"parent = 'HKPORTFOLIO_ARTISTS.$artist_link'"); print " \n"; if($data{'picturebook_code'} || $data{'workbook_code'} || @more_links || $data{'url'}) { print "See more of $data{'first_name'}'s art: "; if ($data{'url'}) { print "$data{'first_name'}'s personal website \n"; } if($data{'picturebook_code'}) { print "Picture Book's online portfolio "; } if(@more_links) { foreach(@more_links) { my ($more_row,%more_data); $more_row = $_; &Database::GetRow($more_row,'HKPORTFOLIO_MORELINKS',\%more_data); print ""; if($more_data{'text_for_link'}) { print "$more_data{'text_for_link'}"; } else { print "$more_data{'url'}"; } print " \n"; } } if ($data{'workbook_code'}) { print "Workbook's online portfolio"; } } print " \n"; } elsif(($Templates::in{'lineart'} && &Database::ExistsRow($Templates::in{'lineart'},'HKPORTFOLIO_ARTISTS')) || ($Templates::in{'ya'} && &Database::ExistsRow($Templates::in{'ya'},'HKPORTFOLIO_ARTISTS'))) { my($lineart,$ya,$artist_link); if($Templates::in{'lineart'}) { $lineart = $Templates::in{'lineart'}; $artist_link = $lineart; &Database::FetchRow($lineart,'HKPORTFOLIO_ARTISTS',\%data); @sel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$lineart' sort numeric by sequence"); } elsif($Templates::in{'ya'}) { $ya = $Templates::in{'ya'}; $artist_link = $ya; &Database::FetchRow($ya,'HKPORTFOLIO_ARTISTS',\%data); @sel = &Database::SelectClause('HKPORTFOLIO_YA',"parent = 'HKPORTFOLIO_ARTISTS.$ya' sort numeric by sequence"); } print ""; my $name = "$data{'first_name'} $data{'last_name'}"; $name =~ /(\w)(\S.*)/; $name = "$1$2"; print "\n"; print "\n"; if($data{'index_graphic'}) { print "\n"; } if($lineart && $data{'ya_index_graphic'}) { print "\n"; } if($ya && $data{'lineart_index_graphic'}) { print "\n"; } print " $name"; # print " meet the artist \n"; print " "; print " click on art for larger view "; if(@sel) { my($text_click,$count,$total_count); my $the_sel = @sel; print "\n"; foreach(@sel) { $row = $_; my (%sub_data,$credit); if($lineart) { &Database::GetRow($row,'HKPORTFOLIO_LINEART',\%sub_data); } elsif($ya) { &Database::GetRow($row,'HKPORTFOLIO_YA',\%sub_data); } if($lineart) { print " "; my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_LINEART','large_graphic',$row,\%sub_data); print " "; print " \n"; } elsif($ya) { print " "; my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_YA','large_graphic',$row,\%sub_data); print " "; print " \n"; } } print " \n"; } my @more_links = &Database::SelectClause('HKPORTFOLIO_MORELINKS',"parent = 'HKPORTFOLIO_ARTISTS.$artist_link'"); print " \n"; if($data{'picturebook_code'} || $data{'workbook_code'} || @more_links || $data{'url'}) { print "See more of $data{'first_name'}'s art: "; if ($data{'url'}) { print "$data{'first_name'}'s personal website \n"; } if($data{'picturebook_code'}) { print "Picture Book's online portfolio "; } if(@more_links) { foreach(@more_links) { my ($more_row,%more_data); $more_row = $_; &Database::GetRow($more_row,'HKPORTFOLIO_MORELINKS',\%more_data); print ""; if($more_data{'text_for_link'}) { print "$more_data{'text_for_link'}"; } else { print "$more_data{'url'}"; } print " \n"; } } if ($data{'workbook_code'}) { print "Workbook's online portfolio"; } } print " \n"; } elsif(($Templates::in{'enlarge'} && &Database::ExistsRow($Templates::in{'enlarge'},'HKPORTFOLIO_PICS')) || ($Templates::in{'enlarge'} && $Templates::in{'lineart_enlarge'} && &Database::ExistsRow($Templates::in{'enlarge'},'HKPORTFOLIO_LINEART')) || ($Templates::in{'enlarge'} && $Templates::in{'ya_enlarge'} && &Database::ExistsRow($Templates::in{'enlarge'},'HKPORTFOLIO_YA'))) { my (%sub_data,$credit); &Database::GetRow($Templates::in{'art'},'HKPORTFOLIO_ARTISTS',\%data); if($Templates::in{'lineart_enlarge'}) { &Database::GetRow($Templates::in{'enlarge'},'HKPORTFOLIO_LINEART',\%sub_data); } elsif($Templates::in{'ya_enlarge'}) { &Database::GetRow($Templates::in{'enlarge'},'HKPORTFOLIO_YA',\%sub_data); } else { &Database::GetRow($Templates::in{'enlarge'},'HKPORTFOLIO_PICS',\%sub_data); } if($sub_data{'credit_line'} =~ /\w/) { $credit = $sub_data{'credit_line'}; } else { $credit = "$data{'first_name'} $data{'last_name'}"; } print "\n"; my $name = "$data{'first_name'} $data{'last_name'}"; $name =~ /(\w)(\S.*)/; $name = "$1$2"; print "\n"; print ""; print " $name"; # print " meet the artist \n"; print " \n"; if($Templates::in{'lineart_enlarge'}) { print &Database::GetImageTagForGraphic('HKPORTFOLIO_LINEART','large_graphic',$Templates::in{'enlarge'},"border=0 alt=\"$credit\""); } elsif($Templates::in{'ya_enlarge'}) { print &Database::GetImageTagForGraphic('HKPORTFOLIO_YA','large_graphic',$Templates::in{'enlarge'},"border=0 alt=\"$credit\""); } else { print &Database::GetImageTagForGraphic('HKPORTFOLIO_PICS','large_graphic',$Templates::in{'enlarge'},"border=0 alt=\"$credit\""); } print " \n"; my ($prev_row,$next_row,@page_sel,%page_data,$page_row,$page_count); if($Templates::in{'lineart_enlarge'}) { @page_sel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'art'}' sort numeric by 'sequence'"); } elsif($Templates::in{'ya_enlarge'}) { @page_sel = &Database::SelectClause('HKPORTFOLIO_YA',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'art'}' sort numeric by 'sequence'"); } else { @page_sel = &Database::SelectClause('HKPORTFOLIO_PICS',"parent = 'HKPORTFOLIO_ARTISTS.$Templates::in{'art'}' sort numeric by 'sequence'"); } if(@page_sel) { my $count = 0; foreach(@page_sel) { $page_row = $_; if($page_row == $Templates::in{'enlarge'}) { last; } else { $count ++; } } $page_count = @page_sel; $page_count = $page_count -1; # print STDERR "hello $count and @page_sel and $page_count and $page_sel[$page_count] \n"; if($count >= $page_count) { $next_row = $page_sel[0]; } else {$next_row = $page_sel[$count +1]; } if($count == 0) { $prev_row = $page_sel[$page_count]; } else {$prev_row = $page_sel[$count -1]; } } if($Templates::in{'lineart_enlarge'}) { print "     "; } elsif($Templates::in{'ya_enlarge'}) { print "     "; } else { print "     "; } print " \n"; } else { my($buffer,@sel); if($Templates::in{'lineart_artists'}) { $buffer = "\n"; $buffer .= "\n"; $buffer .= "\n"; $buffer .= " "; @sel = Database::SelectClause('HKPORTFOLIO_ARTISTS',"lineart_index_graphic > '' and deactivate = '' sort by last_name"); if(@sel) { my $count = 0; foreach(@sel) { $count ++; $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); # my @lineart_sel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$row' and random 1"); my @lineart_sel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$row' and sequence = '1'"); my $lineart_row = @lineart_sel[0]; my(%lineart_data); $buffer.= " "; &Database::GetRow($lineart_row,'HKPORTFOLIO_LINEART',\%lineart_data); my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_LINEART','large_graphic',$lineart_row,\%lineart_data); $buffer .= " "; $buffer .= " $data{'first_name'} $data{'last_name'} "; if($data{'new_artist'}) { $buffer .= " NEW \n"; } $buffer .= " "; } } $buffer .= " \n"; print $buffer; } elsif($Templates::in{'ya_artists'}) { $buffer = "\n"; $buffer .= "\n"; $buffer .= "\n"; $buffer .= " "; @sel = Database::SelectClause('HKPORTFOLIO_ARTISTS',"ya_index_graphic > '' and deactivate = '' sort by last_name"); if(@sel) { my $count = 0; foreach(@sel) { $count ++; $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); # my @ya_sel = &Database::SelectClause('HKPORTFOLIO_YA',"parent = 'HKPORTFOLIO_ARTISTS.$row' and random 1"); my @ya_sel = &Database::SelectClause('HKPORTFOLIO_YA',"parent = 'HKPORTFOLIO_ARTISTS.$row' and sequence = '1'"); my $ya_row = @ya_sel[0]; my(%ya_data); $buffer.= " "; &Database::GetRow($ya_row,'HKPORTFOLIO_YA',\%ya_data); my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_YA','large_graphic',$ya_row,\%ya_data); $buffer .= " "; $buffer .= " $data{'first_name'} $data{'last_name'} "; if($data{'new_artist'}) { $buffer .= " NEW \n"; } $buffer .= " "; } } $buffer .= " \n"; print $buffer; } else { $buffer = "\n"; $buffer .= "\n"; $buffer .= "\n"; $buffer .= " \n"; @sel = Database::SelectClause('HKPORTFOLIO_ARTISTS',"deactivate = '' sort by last_name"); if(@sel) { my $count = 0; foreach(@sel) { $count ++; $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); # my @pics_sel = &Database::SelectClause('HKPORTFOLIO_PICS',"parent = 'HKPORTFOLIO_ARTISTS.$row' and show_on_bio = '' random 1"); my @pics_sel = &Database::SelectClause('HKPORTFOLIO_PICS',"parent = 'HKPORTFOLIO_ARTISTS.$row' and show_on_bio = '' and sequence = '1'"); my $pics_row = @pics_sel[0]; my(%pics_data); if($data{'index_graphic'}) { $buffer.= " "; &Database::GetRow($pics_row,'HKPORTFOLIO_PICS',\%pics_data); my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_PICS','large_graphic',$pics_row,\%pics_data); $buffer .= " "; $buffer .= " $data{'first_name'} $data{'last_name'} "; if($data{'new_artist'}) { $buffer .= " NEW \n"; } $buffer .= " "; } elsif($data{'ya_index_graphic'}) { $buffer.= " "; &Database::GetRow($pics_row,'HKPORTFOLIO_PICS',\%pics_data); my $imagetag = &Database::GetPathToGraphic('HKPORTFOLIO_PICS','large_graphic',$pics_row,\%pics_data); $buffer .= " "; $buffer .= " $data{'first_name'} $data{'last_name'} "; if($data{'new_artist'}) { $buffer .= " NEW \n"; } $buffer .= " "; } } } print $buffer; } print " \n"; print " "; use LayoutManager; &LayoutManager::Init(); print &LayoutManager::OBJ_Parse(" artist all \"\" random 1000 HKPORTFOLIO_NEW_PROJECT.graphic[max-width=150 max-height=150 border=0] "); print " "; } meet the artist

T 212 689.7830 mela@mbartists.com © MB Artists 2002-2018 other than individual contributors