Sql functions in Pl/Sql region not working

Question

Hi all,
I have created a pl/sql region like this
This is the example taken from denes kubicek
DECLARE
   v_counter     INTEGER         := 0;
   v_line        VARCHAR2 (4000);
   v_rec_in_row  INTEGER         := 6;
BEGIN
   HTP.prn ('<table>');
   HTP.prn ('<tr>');
   HTP.prn ('<td>');
   FOR c IN
      (SELECT CASE
                 WHEN LOWER(SUBSTR(SUBSTR(NAME,INSTR(NAME,'/')+1), -3, 3)) = 'doc'
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_green_locked.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || SUBSTR(NAME,INSTR(NAME,'/')+1)  name
                         || '</td></tr></table>'
                 WHEN LOWER(SUBSTR(SUBSTR(NAME,INSTR(NAME,'/')+1), -3, 3)) = 'xls'
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_yellow.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || SUBSTR(NAME,INSTR(NAME,'/')+1) name
                         || '</td></tr></table>'
                WHEN LOWER(SUBSTR(SUBSTR(NAME,INSTR(NAME,'/')+1), -3, 3)) = 'ppt'
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_yellow.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || SUBSTR(NAME,INSTR(NAME,'/')+1) name
                         || '</td></tr></table>'
               WHEN LOWER(SUBSTR(SUBSTR(NAME,INSTR(NAME,'/')+1), -3, 3)) = 'txt'
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_yellow.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || SUBSTR(NAME,INSTR(NAME,'/')+1) name
                         || '</td></tr></table>'
               WHEN LOWER(SUBSTR(SUBSTR(NAME,INSTR(NAME,'/')+1), -3, 3)) = 'gif'
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_yellow.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || SUBSTR(NAME,INSTR(NAME,'/')+1) name
                         || '</td></tr></table>'
                 ELSE    '<table>'
                      || '<tr><td><img src="#WORKSPACE_IMAGES#user_red.gif"/></td></tr>'
                      || '<tr><td style="text-align:center">'
                      || SUBSTR(NAME,INSTR(NAME,'/')+1) name
                      || '</td></tr></table>'
              END doc
         FROM con_doc_info)
   LOOP
      v_line := v_line || c.doc || '</td><td>';
      v_counter := v_counter + 1;
      IF v_counter = v_rec_in_row
      THEN
         HTP.prn (v_line);
         HTP.prn ('</td></tr><tr><td>');
         v_line := NULL;
         v_counter := 0;
      END IF;
   END LOOP;
   HTP.prn (v_line);
   HTP.prn ('</td></tr></table>');
END;but the functions are not working?
Any idea ? Please help me

Answer 1

Hi fac
Database version is 10g
This sample code is working
DECLARE
   v_counter     INTEGER         := 0;
   v_line        VARCHAR2 (4000);
   v_rec_in_row  INTEGER         := 6;
BEGIN
   HTP.prn ('<table>');
   HTP.prn ('<tr>');
   HTP.prn ('<td>');
   FOR c IN
      (SELECT CASE
                 WHEN deptno = 20
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_green_locked.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || ename
                         || '</td></tr></table>'
                 WHEN deptno = 30
                    THEN    '<table>'
                         || '<tr><td><img src="#WORKSPACE_IMAGES#user_yellow.gif"/></td></tr>'
                         || '<tr><td style="text-align:center">'
                         || ename
                         || '</td></tr></table>'
                 ELSE    '<table>'
                      || '<tr><td><img src="#WORKSPACE_IMAGES#user_red.gif"/></td></tr>'
                      || '<tr><td style="text-align:center">'
                      || ename
                      || '</td></tr></table>'
              END emp
         FROM emp)
   LOOP
      v_line := v_line || c.emp || '</td><td>';
      v_counter := v_counter + 1;
      IF v_counter = v_rec_in_row
      THEN
         HTP.prn (v_line);
         HTP.prn ('</td></tr><tr><td>');
         v_line := NULL;
         v_counter := 0;
      END IF;
   END LOOP;
   HTP.prn (v_line);
   HTP.prn ('</td></tr></table>');
END;This code is working good images are displayed as per the deptno.
I need to display images for the documents which i have uploaded and stored in a file
I am taking the name and in that last three letters alone and according to that pictures should appear
My previous code while running no output is there.
Hope I am more clear now
bye
Srikavi