TIMESTAMP: 20200225225306
SITE: www.mbartists.com
SERVER: ip-10-146-109-118
URL: /cgi-bin/iowa/artists.html

Input:
    art = 128
    enlarge = 319
    ya_enlarge = 1

ERRORS:
warning: 1, MESSAGE: GetRow attempt to read an undefined row (128) 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 641
  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 (128) from (HKPORTFOLIO_ARTISTS)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 339
  tmpevalpackage::doEval @ line 569
  (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 (319) from (HKPORTFOLIO_YA)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 340
  tmpevalpackage::doEval @ line 569
  (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 (319) from (HKPORTFOLIO_YA)
TRACE:
  HandleItLinda::LogIf @ line 570
  Database::GetRow @ line 587
  Database::FetchRow @ line 1248
  Database::GetImageTagForGraphic @ line 366
  tmpevalpackage::doEval @ line 569
  (eval) @ line 660
  Templates::HandleActiveContent @ line 643
  Templates::ParseBuffer @ line 626
  Templates::SendFile @ line 171
  Templates::handler @ line 0
  (eval) @ line 0



MB Artists:
MB Artists
ARTISTS
NEWS
ESTIMATES
CONTACT
QUESTIONS
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\"See
\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{'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"; @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; print "\n"; foreach(@sub_sel) { if($count == 4) { $count = 0; } $count ++; if($count == 1) { print "\n"; } $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 "\n"; if($count == 4) { print "\n"; if(!$text_click) { print "\n"; $text_click = 1; } else { print "\n"; } } else { print "\n"; } $total_count ++; if($total_count == @sub_sel && $count < 8) { if($count == 1) { print ""; } elsif($count == 2) { print ""; } elsif($count == 3) { print ""; } elsif($count == 4) { print ""; } elsif($count == 5) { print ""; } elsif($count == 6) { print ""; } elsif($count == 7) { print ""; } } # print ""; } print "
"; print &Database::GetImageTagForGraphic('HKPORTFOLIO_PICS','graphic',$row,"border=0 alt=\"$credit\""); print "
\"click
\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"; if($data{'ya_index_graphic'}) { print "\n"; } if($data{'lineart_index_graphic'}) { print "\n"; } if($data{'index_graphic'}) { print "\n"; } print "
$name"; print "\"Meet
\n"; print ""; @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) { if($count == 4) { $count = 0; } $count ++; if($count == 1) { print "\n"; } $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 "\n"; if($count == 4) { print "\n"; if(!$text_click) { print "\n"; $text_click = 1; } else { print "\n"; } } else { print "\n"; } $total_count ++; if($total_count == @sel && $count < 4) { if($count == 1) { print ""; } elsif($count == 2) { print ""; } elsif($count == 3) { print ""; } } print ""; } print "
"; print &Database::GetImageTagForGraphic('HKPORTFOLIO_PICS','graphic',$row,"border=0 alt=\"$credit\""); print "
\"click


\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"; 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
\n"; print ""; if(@sel) { my($text_click,$count,$total_count); my $the_sel = @sel; print "\n"; foreach(@sel) { if($count == 4) { $count = 0; } $count ++; if($count == 1) { print "\n"; } $row = $_; my (%sub_data,$credit); &Database::GetRow($row,'HKPORTFOLIO_LINEART',\%sub_data); if($sub_data{'credit_line'} =~ /\w/) { $credit = $sub_data{'credit_line'}; } else { $credit = "$data{'first_name'} $data{'last_name'}"; } if($lineart) { print "\n"; } elsif($ya) { print "\n"; } if($count == 4) { print "\n"; if(!$text_click) { print "\n"; $text_click = 1; } else { print "\n"; } } else { print "\n"; } $total_count ++; if($total_count == @sel && $count < 4) { if($count == 1) { print ""; } elsif($count == 2) { print ""; } elsif($count == 3) { print ""; } } print ""; } print "
"; print &Database::GetImageTagForGraphic('HKPORTFOLIO_LINEART','graphic',$row,"border=0 alt=\"$credit\""); print ""; print &Database::GetImageTagForGraphic('HKPORTFOLIO_YA','graphic',$row,"border=0 alt=\"$credit\""); print "
\"click


\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 "
$name"; print "\"Meet
\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 "\"previous\"     \"next\""; } elsif($Templates::in{'ya_enlarge'}) { print "\"previous\"     \"next\""; } else { print "\"previous\"     \"next\""; } print "
\n"; } else { my($buffer,@sel); if($Templates::in{'lineart_artists'}) { $buffer = "\n"; $buffer .= "\n"; $buffer .= "
\n"; $buffer .= "

\n"; @sel = Database::SelectClause('HKPORTFOLIO_ARTISTS',"lineart_index_graphic > '' and deactivate = '' sort by last_name"); if(@sel) { my $count = 0; foreach(@sel) { $count ++; if($count == 1) { $buffer .= "\n"; } $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); # my @lineartsel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$row' sort numeric by sequence"); $buffer.= ""; if($count == 8) { $buffer .= "\n"; $count = 0; } } } print $buffer; } elsif($Templates::in{'ya_artists'}) { $buffer = "
\n"; $buffer .= "\n"; $buffer .= "
\n"; $buffer .= "
\n"; @sel = Database::SelectClause('HKPORTFOLIO_ARTISTS',"ya_index_graphic > '' and deactivate = '' sort by last_name"); if(@sel) { my $count = 0; foreach(@sel) { $count ++; if($count == 1) { $buffer .= "\n"; } $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); # my @lineartsel = &Database::SelectClause('HKPORTFOLIO_LINEART',"parent = 'HKPORTFOLIO_ARTISTS.$row' sort numeric by sequence"); $buffer.= ""; if($count == 8) { $buffer .= "\n"; $count = 0; } } } 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 ++; if($count == 1) { $buffer .= "\n"; } $row = $_; &Database::GetRow($row,'HKPORTFOLIO_ARTISTS',\%data); if($data{'index_graphic'}) { $buffer.= ""; } elsif($data{'ya_index_graphic'}) { $buffer.= ""; } if($count == 8) { $buffer .= "\n"; $count = 0; } } } print $buffer; } print "
\n"; print "
"; use LayoutManager; &LayoutManager::Init(); print &LayoutManager::OBJ_Parse("
  • HKPORTFOLIO_NEW_PROJECT.graphic[max-width=150 max-height=150 border=0]
  • "); print "
    "; }
    Meet the artist

    previous     next

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